返回列表 上一主題 發帖

查詢a欄資料填入代號

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 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
複製代碼
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 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
複製代碼
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題