返回列表 上一主題 發帖

查詢a欄資料填入代號

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-7-19 19:17 | 只看該作者

查詢a欄資料填入代號

111.rar (267.81 KB) 各位大大你們好
小弟有資料表。想用巨集表單查詢a欄資料。在填入e欄裡代號按更新後填入該列e欄位置
謝謝。如下
收藏 分享

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

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 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

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
3#
發表於 2018-7-21 07:09 | 只看該作者
回復 2# faye59


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

TOP

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

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
4#
發表於 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

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題