คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
http://www.snasui.com/
ตัวอย่างการปรับ Code ครับCode: Select all
Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Users\Administrator\Desktop\Test\DataX.xlsx"
ThisWorkbook.Activate
Worksheets("IN").Select
ADD.Show
'Other code...
Code: Select all
Private Sub CommandButton2_Click()
ThisWorkbook.Save
ThisWorkbook.Close
End SubLeng wrote: Mon Jul 30, 2018 4:06 pm เปิดได้ละครับแล้วถ้าผมต้องการกดปุ่มเพื่อปิดพร้อมกันต้องเพิ่มยังไงครับ
ดูการอ้างอิงการเข้าถึง Workbook ในความเห็นด้านล่างแล้ว 
นำมาปรับใช้ ติดตรงไหนค่อยถามกันต่อครับsnasui wrote: Mon Jul 30, 2018 12:32 pm
Code: Select all
'Other code... With Workbooks("DataX.xlsx").Worksheets("Sheet1") Set rngVlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp)) Me.TextBox6.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 2, 0) Me.TextBox7.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 3, 0) Me.TextBox8.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 4, 0) End With With ThisWorkbook.Worksheets("IN") emptyrow = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row 'Other code...
Code: Select all
Private Sub CommandButton2_Click()
With Workbooks("DataX.xlsx")
ThisWorkbook.Save
ThisWorkbook.Close
End With
End SubCode: Select all
Private Sub CommandButton2_Click()
Workbooks("DataX.xlsx").Save
Workbooks("DataX.xlsx").Close
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Code: Select all
Workbooks("DataX.xlsx").Save
Workbooks("DataX.xlsx").Close
ThisWorkbook.Save
ThisWorkbook.Close
ActiveWindow.Close
Code: Select all
ActiveWindow.Close Application.Quit ครับCode: Select all
Workbooks("DataX.xlsx").Save
Workbooks("DataX.xlsx").Close
ThisWorkbook.Save
ThisWorkbook.Close
Application.QuitCode: Select all
Workbooks("DataX.xlsx").Save
Workbooks("DataX.xlsx").Close
ThisWorkbook.Save
'ThisWorkbook.Close
Application.Quit
Code: Select all
Me.TextBox10.Text = Application.VLookup(CLng(Me.TextBox2.Text), rngVlp, 6, 0)Code: Select all
Private Sub TextBox2_AfterUpdate()
With Workbooks("DataX.xlsx").Worksheets("Sheet1")
Set rngVlp = .Range("a2", .Range("f" & .Rows.Count).End(xlUp))
If Me.TextBox2.Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Workbooks("DataX.xlsx").Worksheets("Sheet1").Range("A:F"), Me.TextBox2.Value) = 0 Then
'Me.TextBox2.Value = ""
Exit Sub
End If
Me.TextBox10.Text = Application.VLookup(CLng(Me.TextBox2.Text), rngVlp, 6, 0)
End With
End Sub