รบกวนช่วยตรวจสูตรครับ

[snasui]

รบกวนอาจาร์ยอธิบาย

cells(8,"S").end(xltoleft)

"S" หมายถึงอะไรครับ

หมายถึงจากคอลัมน์ S ให้วิ่งไปทางซ้ายและไปหยุดที่เซลล์แรกที่มีข้อมูลครับ

[yangkodza]

Code: Select all

Sub ว่ายน้ำ()
Dim lstCol As String
lstCol = Cells(8, "x").End(xlToLeft).Address(0, 0)
   Range("lstCol").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("AS8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AS8").Select
End Sub

ตอนนี้ได้ค่า N8 แล้ว แต่นำไปใช้ไม่เป็น
รบกวนอาจาร์ยช่วยชี้แนะด้วยครับ
รับค่ามาแล้ว ผมกำหนด Range("lstCol").Select ก็ไม่ได้
เลยไม่รู้ว่าจะดึงค่าออกมาใช้ยังงัยครับ

02สุขศึกษา_ป1.xlsm

[snasui]

ตัวอย่างการปรับ Code ซึ่งต้องเขียนที่ไฟล์ปลายทาง ไม่ใช้ต้นทาง เป็นการเปิดไฟล์ต้นทางเพื่อหาตำแหน่งเสียก่อน ได้ตำแหน่งมาแล้วค่อยปิดไฟล์ต้นทางครับ

Code: Select all

'Other code
Dim sb As Workbook, sbc As String
'Other code
Do Until fileName = ""
    Select Case fileName
        Case "02สุขศึกษา_ป" & classroom1 & ".xlsm"
            Set sb = Workbooks.Open(CurrDir & "\" & fileName)
            sbc = sb.Worksheets("C2T1").Cells(8, "y").End(xlToLeft).Address(0, 0)
            sb.Close savechanges:=False
            '    lstCol = Cells(7, Columns.Count).End(xlToLeft).Address(0, 0)
            Range("l4").Resize(50, 1).Formula = "='" & CurrDir & "\[" & fileName & "]C2T1'!" & sbc
    End Select
    fileName = Dir()
Loop
'Other code

[yangkodza]

ตัวอย่างการปรับ Code ซึ่งต้องเขียนที่ไฟล์ปลายทาง ไม่ใช้ต้นทาง เป็นการเปิดไฟล์ต้นทางเพื่อหาตำแหน่งเสียก่อน ได้ตำแหน่งมาแล้วค่อยปิดไฟล์ต้นทางครับ

Code: Select all

'Other code
Dim sb As Workbook, sbc As String
'Other code
Do Until fileName = ""
    Select Case fileName
        Case "02สุขศึกษา_ป" & classroom1 & ".xlsm"
            Set sb = Workbooks.Open(CurrDir & "\" & fileName)
            sbc = sb.Worksheets("C2T1").Cells(8, "y").End(xlToLeft).Address(0, 0)
            sb.Close savechanges:=False
            '    lstCol = Cells(7, Columns.Count).End(xlToLeft).Address(0, 0)
            Range("l4").Resize(50, 1).Formula = "='" & CurrDir & "\[" & fileName & "]C2T1'!" & sbc
    End Select
    fileName = Dir()
Loop
'Other code

สมบูรณ์แบบแล้วครับ
สามารถประยุกต์ใช้งานได้เรียบร้อยดีครับ
ขอบคุณครับ