Snasui Excel Forum

ในชีท Report

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" And Target <> "" Then
ShowEmp
ElseIf Target.Address = "$E$2" And Target = "" Then
MsgBox "Please select data."
End If
End Sub


ใน Module


Option Explicit
Option Base 1

Sub ShowEmp()
Dim a() As ...

ต้องการดึงข้อมูล จากชีท Database โดยการ พิมพ์ข้อมูล ใน ชีท Report เซลล์ E2 เป็น Vessel No. (เลข 9 หลัก)
แล้วให้ดึงข้อมูลของ ชีท Database ที่มีค่าเป็น Vessel No.

ข้อมูลที่แสดงจะแสดงตามคอลัมภ์ โดยยึดจากหัวเซลล์
ุ้
ถ้า ชีท Report E2 ใส่ข้อมูล เป็น Vessel No. (เลข 9 หลัก) ให้ยึดข้อมูลนี้เป็นหลัก แล ...