Vlookup ใน vba excel ใช้คำสั่งอะไรครับ

[Kakiio]

จะใช้คำสั่ง Vlookup VBA ใน excel แต่ไม่รู้จะใช้คำสั่งอะไร
ผมอยากเขียนคำสั่ง VBA แต่ไม่รู้หลักในการเขียนครับ อยากให้อาจารย์ พี่ๆน้องช่วยแนะนำด้วยครับ
โดยที่เขียนคำสั่งลงใน Sheet โดยไม่ต้องใช้ Module ครับ ผมลองทำได้แค่ Stamp time แต่ Vlookup ไม่รู้จริงๆครับ


รูปตัวอย่าง
-Column B ใช้การคีย์เข้า
-column C เป็น Vlookup
-column D เป็นการใช้สูตร if แบบมีเงื่อนไข
-column E บันทึกเวลาเมื่อมีข้อมูลใน Column B


รูปตัว Sheet ข้อมูล


รูปไฟล์ตัวอย่างที่เป็น excel

มีตัวอย่างไฟล์ที่แนบมาด้วยครับ รบกวนช่วนแนะนำด้วยครับ

[Kakiio]

จะใช้คำสั่ง Vlookup VBA ใน excel แต่ไม่รู้จะใช้คำสั่งอะไร
ผมอยากเขียนคำสั่ง VBA แต่ไม่รู้หลักในการเขียนครับ อยากให้อาจารย์ พี่ๆน้องช่วยแนะนำด้วยครับ
โดยที่เขียนคำสั่งลงใน Sheet โดยไม่ต้องใช้ Module ครับ ผมลองทำได้แค่ Stamp time แต่ Vlookup ไม่รู้จริงๆครับ


รูปตัวอย่าง
-Column B ใช้การคีย์เข้า
-column C เป็น Vlookup
-column D เป็นการใช้สูตร if แบบมีเงื่อนไข
-column E บันทึกเวลาเมื่อมีข้อมูลใน Column B


รูปตัว Sheet ข้อมูล


รูปไฟล์ตัวอย่างที่เป็น excel

มีตัวอย่างไฟล์ที่แนบมาด้วยครับ รบกวนช่วนแนะนำด้วยครับ

[puriwutpokin]

ลองดูนะครับตามนี้

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lastRow&
 n = Target.Row
If Cells(n, "b").Value <> "" And Cells(n, "e").Value = "" Then
With Sheets("Tracking")
lastRow = .Range("b" & .Rows.Count).End(xlUp).Row
Cells(n, "e").Value = Date & " " & Time
'Cells(n, "e").NumberFormat = "d/m/yyyy h:mm am/pm"
Cells(n, "c").Value = Application.VLookup(Cells(n, "b"), Sheet1.Range("b:c"), 2, False)
If Application.IsEven(Application.CountIf(.Range("b1:" & "b" & .Rows.Count), Cells(n, "b"))) Then
Cells(n, "d").Value = "เข้า"
Else
Cells(n, "d").Value = "ออก"
End If
  .Range("a" & lastRow) = lastRow - 1
End With
End If
'Range("b:c:e:f").EntireColumn.AutoFit
End Sub

[Kakiio]

ได้แล้ว
ขอบคุณมากเลยครับคุณพี่ที่ตอบ ที่ช่วยดูโค๊ดที่ผมแก้ไม่ได้
ดีมากเลยครับได้แลกเปลี่ยนความรู้เอาไปใช้ในงานของตัวเองได้ด้วย ขอบคุณที่ทำเว็บดีๆแบบนี้ขึ้นมาครับ