สอบถาม VLookup ข้าม Workbook ครับ

[snasui]

ตัวอย่างการปรับ 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...

[Leng]

เปิดได้ละครับแล้วถ้าผมต้องการกดปุ่มเพื่อปิดพร้อมกันต้องเพิ่มยังไงครับ

Code: Select all

Private Sub CommandButton2_Click()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

[snasui]

เปิดได้ละครับแล้วถ้าผมต้องการกดปุ่มเพื่อปิดพร้อมกันต้องเพิ่มยังไงครับ

ดูการอ้างอิงการเข้าถึง Workbook ในความเห็นด้านล่างแล้ว นำมาปรับใช้ ติดตรงไหนค่อยถามกันต่อครับ

ตัวอย่าง Code ครับ

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...

[Leng]

อาจารย์ครับผมปิดได้แค่ final copy ครับ แต่ DataX ไม่ปิดด้วยครับ

Code: Select all

Private Sub CommandButton2_Click()
With Workbooks("DataX.xlsx")
ThisWorkbook.Save
ThisWorkbook.Close
End With
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton2_Click()
    Workbooks("DataX.xlsx").Save
    Workbooks("DataX.xlsx").Close
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub

[Leng]

อาจารย์ครับผมสงสัยว่าทำไมปิดตัวโปรแกรมถึงไม่ปิดไปด้วยครับ

[snasui]

ที่เขียนมาทั้งหมดไม่มี Code บรรทัดไหนปิดโปรแกรมครับ

การจะปิดโปรแกรมก็ต้องเขียน Code ปิดโปรแกรมด้วยครับ

[Leng]

Code: Select all

  
    Workbooks("DataX.xlsx").Save
    Workbooks("DataX.xlsx").Close
    ThisWorkbook.Save
    ThisWorkbook.Close
ActiveWindow.Close

Code: Select all

ActiveWindow.Close 

ใช่โค๊ดนี้รึป่าวครับ

[snasui]

คำว่า "รึป่าว" ผิดกฎการใช้บอร์ดข้อ 1 ด้านบน กรุณาระมัดระวังด้วยครับ

การปิดโปรแกรมใช้ Application.Quit ครับ

[Leng]

ต้องขอโทษด้วยครับ จากที่ อาจารย์ให้โค๊ดมา

Code: Select all

Workbooks("DataX.xlsx").Save
Workbooks("DataX.xlsx").Close
ThisWorkbook.Save
ThisWorkbook.Close
Application.Quit

แต่ก็ยังไม่สามารถปิดได้ครับ

[snasui]

แต่ก็ยังไม่สามารถปิดได้ครับ

ตัวอย่าง Code ครับ

Code: Select all

Workbooks("DataX.xlsx").Save
Workbooks("DataX.xlsx").Close
ThisWorkbook.Save
'ThisWorkbook.Close
Application.Quit

[Leng]

ได้ละครับขอบพระคุณมากครับ

[Leng]

fainal01.xlsm

อาจารย์ครับพอผมมาทำเพิ่มผมได้copy code ที่ใช้ได้แล้วนำมาทำแต่ติดปัญหาคือ code ขึ้น error ครับ

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

รบกวนอาจารย์ช่วยดูหน่อยครับ

[Leng]

ได้แล้วครับขอบ