問一下高手們

表單設計 vba excel 查詢

john083423 2019-03-14 16:26:50 ‧ 3719 瀏覽

分享至

Sheets("異動檔").Activate
 For i = 2 To Sheets("異動檔").Range("C2").End(xlDown).Row
  If T1.Text = Cells(i, "D") And T2.Text = Cells(i, "B").Text Then
   data1.Text = Cells(i, "C")
   T3.Text = Cells(i, "E")
   Else
   msg = MsgBox("找不到該筆資料", vbOKOnly)
   End If
 Next

我輸入日期跟工作地點
然後去查詢如果有的話把我想要知道的資料放在我表單但卻跑出找不到該筆資料
且類似當機那樣
小弟這樣寫為何出現當機問題如果高手有方法希望多指教小弟
小弟的D欄位是日期,B欄位是工作地點
然後如何讓對話盒不會出現就算出現只出現1次

純真的人 iT邦大師 1 級 ‧ 2019-03-14 16:40:59 檢舉

無窮迴圈...最好設定若跑100次就強制跳出迴圈

一級屠豬士 iT邦大師 1 級 ‧ 2019-03-14 16:45:07 檢舉

你的題目不是很好的描述問題,有想過好好把題目描述好嗎?
寫程式也是像作文一樣,人怎樣想,程式怎樣寫,電腦就怎樣跑.

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

來杯拿鐵

iT邦新手 2 級 ‧ 2019-03-14 22:52:02

最佳解答

以下為虛擬碼不能運作，純解說用

Sheets("異動檔").Activate

 For i = 2 To Sheets("異動檔").Range("C2").End(xlDown).Row
      If(T1和T2符合條件)Then
            data1.Text = Cells(i, "C")
            T3.Text = Cells(i, "E")
       Else
           msg = MsgBox("找不到該筆資料", vbOKOnly)
       End If
 Next

從C2到C2最後一列
    如果日期和工作地點符合
        將data1資料改為同列C欄
        將t3資料改為同列E欄
    否則
        跳出訊息
尋找下一個

每找一欄無論有沒有找到
都要報備一次

從C2到C2最後一列
    如果日期和工作地點符合
        將data1資料改為同列C欄
        將t3資料改為同列E欄 
        結束程式
尋找下一個
跳出訊息

找到資料就退出程式
找過一遍沒找到再回報訊息
參考離開程式

回應
分享
檢舉

登入發表回應

賽門

iT邦超人 1 級 ‧ 2019-03-14 17:10:36

For loop裏, 變數i值一直沒變, 所以一直是2, 成了無窮迴圈, 就像當機一樣, 只能從工作管理員停掉Excel.
你要在迴圈內加一行

i=i+1

試試看加在那裏.

回應 1
分享
檢舉

來杯拿鐵 iT邦新手 2 級 ‧ 2019-03-14 22:29:47 檢舉

vba印象中可以不加
https://docs.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/for-next-statement

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙