Board logo

標題: UserForm1裡的查詢寫入 [打印本頁]
作者: man65boy    時間: 2013-7-16 07:17     標題: UserForm1裡的查詢寫入

UserForm1裡的查詢寫入
編號欄位輸入=20120322
品名欄位輸入=燙金版費
數量欄位傳回=370

編號欄位輸入=20120320
品名欄位輸入=喜帖貼紙
數量欄位傳回=5

然後按下寫入鈕，把相關的資料寫入在"列出"活頁指定上的欄位B1,B3,B7。
謝謝先進老師們幫忙!

[attach]15452[/attach]
作者: GBKEE    時間: 2013-7-16 08:29

回復 1# man65boy
試試看
  1. Private Sub CommandButton1_Click()   '寫入
  2.     Dim k As Integer
  3.     k = 2
  4.     Label5 = ""
  5.     With Sheets("進貨資料")
  6.         Do While .Cells(k, "A") <> ""
  7.             If .Cells(k, "A") & .Cells(k, "B") = TextBox1 & TextBox2 Then
  8.                 Label5 = .Cells(k, "D")
  9.                 Exit Do
  10.             End If
  11.             k = k + 1
  12.         Loop
  13.     End With
  14. End Sub
複製代碼
作者: man65boy    時間: 2013-7-16 20:53

回復 2# GBKEE

謝謝GBKEE老師的回答，在請教一下，如何讓TextBox2輸入後，Label5立即出現答案，感謝老師指導!
作者: GBKEE    時間: 2013-7-16 21:21

回復 3# man65boy
  1. Private Sub TextBox2_Change()
  2.     Dim k As Integer
  3.     k = 2
  4.     Label5 = ""
  5.     With Sheets("進貨資料")
  6.         Do While .Cells(k, "A") <> ""
  7.             If .Cells(k, "A") & .Cells(k, "B") = TextBox1 & TextBox2 Then
  8.                 Label5 = .Cells(k, "D")
  9.                 Exit Do
  10.             End If
  11.             k = k + 1
  12.         Loop
  13.     End With
  14. End Sub
複製代碼
作者: man65boy    時間: 2013-7-16 22:15

回復 4# GBKEE

謝謝GBKEE老師的解題，謝謝你!
作者: 518587    時間: 2014-3-27 16:42

你好!!!
請問一下，我將
  1. Private Sub CommandButton1_Click()   '寫入
  2.     Dim k As Integer
  3.     k = 2
  4.     Label5 = ""
  5.     With Sheets("工作表1")
  6.         Do While .Cells(k, "D") <> ""
  7.             If .Cells(k, "D") = TextBox1 Then
  8.                 Label5 = .Cells(k, "P")
  9.                 Exit Do
  10.             End If
  11.             k = k + 1
  12.         Loop
  13.     End With
  14. End Sub
複製代碼
貼入後，稍作修改，為什麼執行沒有反應呢?
不是會跳出視窗嗎?
還是因為還需要其他的程式碼?



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)