標題: 查詢a欄資料填入代號 [打印本頁]

---

作者: 霸氣走全身    時間: 2018-7-19 19:17     標題: 查詢a欄資料填入代號

[attach]29009[/attach]各位大大你們好
小弟有資料表。想用巨集表單查詢a欄資料。在填入e欄裡代號按更新後填入該列e欄位置
謝謝。如下

---

作者: faye59    時間: 2018-7-19 20:42

回復 1# 霸氣走全身

1. Private Sub CommandButton1_Click()
   
2. For Each aa In Range([A2], [A2].End(xlDown))
   
3. If aa = TextBox1.Text Then
   
4. aa.Offset(, 4) = TextBox2.Text
   
5. End If
   
6. Next
   
7. End Sub

複製代碼

---

作者: 霸氣走全身    時間: 2018-7-21 07:09

回復 2# faye59


    請問如果找不到查詢不到資料。有辦法跳出小視窗顯示無資料嗎
謝謝

---

作者: faye59    時間: 2018-7-24 02:15

回復 3# 霸氣走全身


    改成For比較適用

1. Private Sub CommandButton1_Click()
   
2. For i = 1 To Application.CountA(Range("A:A"))
   
3. If Cells(i, 1) = TextBox1.Text Then Cells(i, 5) = TextBox2.Text: Exit For
   
4. If i = Application.CountA(Range("A:A")) Then MsgBox ("查無此資料")
   
5. Next
   
6. End Sub

複製代碼

---

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