วิธีเลือกค่าแรกถึงค่าสุดท้าย โดยค้นหาจากค่าที่ input
Posted: Sat Sep 09, 2017 4:22 pm
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)
รบกวนด้วยครับ ขอบคุณครับ
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)
รบกวนด้วยครับ ขอบคุณครับ