การใช้ ฟอร์มในการค้นหาค่า

[marupong]

ขอนุญาติ เรียนถามดังนี้ครับ
ในฟอร์มที่ผมสร้าง ผมต้องการให้ใส่บ้านเลขที่ แล้วค้นหารายชื่อจากบ้านเลขที่ ในsheet ที่ชื่อว่า record ครับ แต่ทำไม พอใส่บ้านเลขที่แล้วกด ค้นหา ผลที่ออกมากลายเป็นเลข 0 ครับ

ขอบพระคุณครับ

[niwat2811]

Code: Select all

Public Sub name_bycode()
Dim code As String
Dim i As Integer
Dim cell_value As String
Dim net_quantity As Single
Const code_col = 1
Const quantity_col = 2
code = homenumber.Value
cell_value = Worksheets("record").Range("a2").Value
i = 2
Do Until cell_value = ""
cell_value = Worksheets("record").Cells(i, code_col).Value
If cell_value = code Then
    Me.postname.Value = Worksheets("record").Cells(i, quantity_col).Value
End If
i = i + 1
Loop
End Sub

ลองแบบนี้ใช้ได้ตรงตามต้องการไหมครับ

[snasui]

ใน Code ที่แนบมาไม่ได้เป็นการหาบ้านเลขที่กับบ้านเลขที่

ลองปรับเป็นด้านล่างครับ

Code: Select all

'Other code
If cell_value = entry_form.homenumber.Text Then
    net_quantity = net_quantity_ & Worksheets("record").Cells(i, quantity_col).Value
End If
'Other code

[marupong]

ขอบคุณมากครับ ได้ตามที่ต้องการแล้วครับผม

[yodpao.b]

อาจารย์
ครับขอไฟล์นี้ใหม่ได้ไหมครับ
"สำเนาของ พัสดุ-ไปรษณีย์ LT-NS1.xls" ไฟล์ที่เขาให้ พอเปิดได้ แล้วเข้าไปเปิดการใช้ มาโคร มัน Error ครับ

[snasui]

ผมไม่มีไฟล์ใดนอกเหนือไปจากที่คุณ marupong แนบมาถาม และปกติแล้วผมจะไม่เก็บไฟล์ไว้ในเครื่องตัวเอง ดาวน์โหลดมาตอบแล้วจะลบทิ้งไปครับ

[yodpao.b]

ครับ