Page 1 of 1

วิธีเลือกค่าแรกถึงค่าสุดท้าย โดยค้นหาจากค่าที่ input

Posted: Sat Sep 09, 2017 4:22 pm
by chesterchz
Dim FndStr As String
Dim FndVal As Range

FndStr = Range("A178").Value

Set FndVal = Columns("A:A").Find(What:=FndStr, LookAt:=xlWhole)
If FndVal Is Nothing Then
MsgBox "ID not found!!"
Else
FndVal.Offset(0, 1):FndVal.End(xlToRight).Select
End If
'
End Sub

ปัญหาคือผมไม่สามารถทำให้มันเป็น Select แบบสร้างช่วงตารางข้อมูลระหว่าง2Cell ของค่า FndVal.Offset(0, 1) กับ FndVal.End(xlToRight)
รบกวนด้วยครับ ขอบคุณครับ

Re: วิธีเลือกค่าแรกถึงค่าสุดท้าย โดยค้นหาจากค่าที่ input

Posted: Sat Sep 09, 2017 6:00 pm
by snasui
:D ตัวอย่าง Code ครับ

rannge(frdval.offset(0,1),range(fndval.end(xltoright)).select

การเขียน Code ลงในฟอรัมกรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบนจะได้สะดวกในการอ่านและคัดลอกไปทดสอบครับ