Snasui Excel Forum

อาจารย์ครับ ผมต้องการ copy ชื่อคอลัมน์ออกมาด้วยต้องแก้ code ตรงไหนครับโดยมี dSDate และ dEDate เป็นเงื่อนไขครับ

กรุณาระบุ Module, Procedure ที่ติดปัญหา ผลลัพธ์ที่ต้องการหาก Code ทำงานถูกต้อง จะได้เข้าถึงปัญหาได้โดยไวครับ

Application.ScreenUpdating = False
Dim wsData As Worksheet, wsDate As Worksheet, wsNoEntry As Worksheet
Dim dSDate As Date, dEDate As Date
Dim lRowStart As Long, lRowEnd As Long
Dim aData() As Variant
Dim i As Long


Set wsData = ThisWorkbook.Sheets("Sheet1")
Set wsDate = ThisWorkbook.Sheets("Sheet2")
Set wsNoEntry = ThisWorkbook.Sheets("Sheet2")

dSDate = wsNoEntry.Range("A1").value
dEDate = wsNoEntry.Range("B1").value

aData = wsData.Range("D1:AP1000").value


For i = 1 To 1000
If aData(i, 2) = dSDate Then
lRowStart = i
Debug.Print "Start row = " & lRowStart
Exit For
End If
Next i

For i = 1000 To 1 Step -1
If aData(i, 2) = dEDate Then
lRowEnd = i
Debug.Print "End row = " & lRowEnd
Exit For
End If
Next i

wsData.Range("D" & lRowStart, "AP" & lRowEnd).Copy
wsDate.Range("A5").PasteSpecial

Application.CutCopyMode = False
Application.ScreenUpdating = True
wsDate.Activate

โค้ดนี้อยู่ในโมดูลไหน ชื่ออะไร อยากได้คำตอบวางตรงไหน หน้าตาคำตอบเป็นแบบไหน ที่อาจารย์ถามคือแบบนี้ครับ

เวลาวางโค้ดก็วางให้เป็นข้อความเขียว ๆ ดูกติกาข้อ 5 ด้านบนครับ

Module1
Sub LookupRange()
ครับ

Module1
Sub LookupRange()
ครับ
อยากให้ชื่อ คอลัมน์ออกมาด้วยครับ

DATA อยู่ Sheet1 ครับ

คัดลอกหัวบรรทัดด้วยโค้ดนี้ครับ

wsData.Range("D1:AP1").Copy wsDate.Range("A4")

วางหลัง Next i

ได้แล้วครับอาจารย์ ขอบคุณมากครับผม