返回列表 上一主題 發帖

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

1.〔未輸入文字〕,保持待輸入狀態
2.按〔Enter〕或〔確定〕,輸出至B欄底下
3.按〔取消〕結束
  1. Sub 輸入B()
  2. Dim xR As Range, T
  3. Set xR = Cells(Rows.Count, 2).End(xlUp)(2) '定位〔待填入〕儲存格
  4.  
  5. Do: T = InputBox("請輸入Project name:")
  6.   If StrPtr(T) = 0 Then Exit Sub  '按〔取消〕結束
  7.   If T <> "" Then xR = T:  Set xR = xR(2, 1) '填入文字,再定位下一個〔待輸入〕格
  8. Loop
  9. End Sub
複製代碼
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

回復 3# EddieLiang


1.知識+,改版改得面目全非,偶爾看一下!
2.至于〔開班授課〕?可能沒二天招牌就要拆下來(只懂EXCEL的千分之一不到)
3.從〔B9〕填入?每次都重新在這格往下填,原有的資料怎辦?還是每次B9以下都是空白,只是等輸入?
  可以再清楚描述需求嗎?

另.若想對某樓層發表對應意見,請按該樓層左下方的〔回復〕!
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 5# EddieLiang
  1. Sub 輸入B()
  2. Dim xR As Range, T
  3. Set xR = Cells(Rows.Count, "B").End(xlUp)(2)  'B欄最後一筆的下一空白格
  4. If xR.Row < 9 Then Set xR = [B9]   '若此格列號小于9,則從B9開始
  5. Do
  6.   T = InputBox("請輸入Project name:")
  7.   If StrPtr(T) = 0 Then Exit Sub   '按〔取消〕結束
  8.   If T <> "" Then xR = T:  Set xR = xR(2, 1)   '填入文字,再定位下一個〔待輸入〕格
  9. Loop
  10. End Sub
複製代碼
 
除了看書,VBE內建說明檔也是非常好的學習管道,輸入關鍵字即可找到相關資料及範例,
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 7# EddieLiang


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

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

還有,寫程式碼時,〔變數〕儘量不要使用VBA內建的〔屬性.方法〕,
例如:VALUE,CLEAR,COUNT,容易造成不可預料的錯誤!
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題