台灣最大程式設計社群網站
線上人數
1644
 
會員總數:239058
討論主題:185504
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> VBA 插入一列後跳出inputbox代入填寫資料
[ 變換順序 ]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VBA 插入一列後跳出inputbox代入填寫資料
價值 : 30 QP  點閱數:53 回應數:0

樓主

Jay
門外漢
0 6
110 7
發送站內信

Dim xR As Range, T
Set xR = Cells(Rows.Count, "A").End(xlUp)(2) 'A欄最後一筆的下一空白格
If xR.Row < 35 Then Set xR = [A35] '若此格列號小于35,則從A35開始
Do
T = InputBox("請輸入Project name:")
If StrPtr(T) = 0 Then Exit Sub '按〔取消〕結束
If T <> "" Then Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
R = T: Set xR = xR(2, 1) '填入文字,再定位下一個〔待輸入〕格
Loop
End Sub

上述程式碼可以運行在A欄沒有值的情況下依序填入資料

想修改成插入A35整列後, 跳出inputbox自行填入資料, 再帶入A36

還請大大們指點迷津.


搜尋相關Tags的文章: [ vba ] ,
本篇文章發表於2017-03-17 15:36
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
[ 變換順序 ]   

回覆
如要回應,請先登入.