Excel Vba inputbox 依序帶入B欄儲存格, 煩請大師指點迷津!?

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2015-9-18 16:11 | 顯示全部帖子

１．〔未輸入文字〕，保持待輸入狀態
２．按〔Enter〕或〔確定〕，輸出至Ｂ欄底下
３．按〔取消〕結束

Sub 輸入B()
Dim xR As Range, T
Set xR = Cells(Rows.Count, 2).End(xlUp)(2)　'定位〔待填入〕儲存格
　
Do: T = InputBox("請輸入Project name：")
　　If StrPtr(T) = 0 Then Exit Sub '按〔取消〕結束
　　If T <> "" Then xR = T: Set xR = xR(2, 1)　'填入文字，再定位下一個〔待輸入〕格
Loop
End Sub

複製代碼

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2015-9-21 11:24 | 顯示全部帖子

本帖最後由准提部林於 2015-9-21 11:26 編輯

回復 3# EddieLiang

１．知識+，改版改得面目全非，偶爾看一下！
２．至于〔開班授課〕？可能沒二天招牌就要拆下來（只懂EXCEL的千分之一不到）
３．從〔Ｂ９〕填入？每次都重新在這格往下填，原有的資料怎辦？還是每次Ｂ９以下都是空白，只是等輸入？
　　可以再清楚描述需求嗎？

另．若想對某樓層發表對應意見，請按該樓層左下方的〔回復〕！

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2015-9-21 15:16 | 顯示全部帖子

回復 5# EddieLiang

Sub 輸入B()
Dim xR As Range, T
Set xR = Cells(Rows.Count, "B").End(xlUp)(2) 　'Ｂ欄最後一筆的下一空白格
If xR.Row < 9 Then Set xR = [B9] 　'若此格列號小于９，則從Ｂ９開始
Do
　　T = InputBox("請輸入Project name：")
　　If StrPtr(T) = 0 Then Exit Sub 　'按〔取消〕結束
　　If T <> "" Then xR = T: Set xR = xR(2, 1) 　'填入文字，再定位下一個〔待輸入〕格
Loop
End Sub

複製代碼

　
除了看書，VBE內建說明檔也是非常好的學習管道，輸入關鍵字即可找到相關資料及範例，

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2015-9-22 13:40 | 顯示全部帖子

回復 7# EddieLiang

～～我能夠將輸入的值(字串)依序帶入B欄位中嗎?
將 inputbox 輸入值填入Ｂ欄啊！！！

大大的問題神龍見首不見尾，咱摸不清，光看檔內程式碼也不懂！！！

還有，寫程式碼時，〔變數〕儘量不要使用VBA內建的〔屬性．方法〕，
例如：VALUE,CLEAR,COUNT，容易造成不可預料的錯誤！