รบกวนช่วยแปลสูตร VBA
Posted: Wed Apr 29, 2015 9:08 am
Sub Macro1()
Dim kceWB As Workbook
Dim i As Integer
Dim gFileKPI As String
For i = 2 To 50
If Worksheets("File_KPI").Range("A" & i).Value = "" Then
Exit For
Else
Range("K11:K16").Select
Selection.Copy
gFileKPI = Worksheets("File_KPI").Range("A" & i).Value
Set kceWB = Workbooks.Open(gFileKPI)
Range("K11").Select
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("K11:K16")
kceWB.Save
kceWB.Close
End If
Next i
End Sub
จากสูตรข้างต้น รบกวนช่วยแปลโคดแบบคร่าวๆในแต่ละส่วนได้ไหมครับ เข้าใจแค่บางส่วนครับ
ขอบคุณครับ
Dim kceWB As Workbook
Dim i As Integer
Dim gFileKPI As String
For i = 2 To 50
If Worksheets("File_KPI").Range("A" & i).Value = "" Then
Exit For
Else
Range("K11:K16").Select
Selection.Copy
gFileKPI = Worksheets("File_KPI").Range("A" & i).Value
Set kceWB = Workbooks.Open(gFileKPI)
Range("K11").Select
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("K11:K16")
kceWB.Save
kceWB.Close
End If
Next i
End Sub
จากสูตรข้างต้น รบกวนช่วยแปลโคดแบบคร่าวๆในแต่ละส่วนได้ไหมครับ เข้าใจแค่บางส่วนครับ
ขอบคุณครับ
