Excel VBA 輸入文字傳送至工作表

excel vba

yh45632 2018-09-19 11:36:30 ‧ 1866 瀏覽

分享至

各位大大您好,
如標題,以下是圖片與寫的VBA程式:

VBA程式如下:
Sub 按鈕5_Click()
X = Application.CountA(Worksheets("工作表4").Range("A:A"))
Worksheets("工作表4").Cells(X, 1) = Worksheets("工作區").Range("C10")
Worksheets("工作區").Range("C10") = ""
End Sub

雖然知道要用Loop,可是還是想不出該如何套用?
麻請各位大大了!!

補充:
我是希望,
工作區內的空白地方,輸入文字後並按下按鈕,傳送到工作表4。
按照順序輸入下去。

小魚 iT邦大師 1 級 ‧ 2018-09-19 12:12:29 檢舉

看不懂你想要做什麼,
多筆資料的來源是哪裡?

yh45632 iT邦新手 5 級 ‧ 2018-09-19 13:22:19 檢舉

您好,
已補充!

登入發表討論

直播研討會

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

直播中

1 個回答

小魚

iT邦大師 1 級 ‧ 2018-09-19 21:19:01

最佳解答

不過我有個疑問，你的C10只有一格，你是想複製到幾格啊 @@
試試這樣

Set Sheet = Worksheets("工作表4")
'最後一列
RowCount = Sheet.Cells(Sheet.Rows.Count, 1).End(xlUp).Row
Worksheets("工作表4").Cells(RowCount + 1, 1).Value = Worksheets("工作區").Range("C10").Value

回應 3
分享
檢舉

yh45632 iT邦新手 5 級 ‧ 2018-09-19 21:48:53 檢舉

您好,
"工作表4"的建立時間("A:A")
也就是說每當我有一筆新資料,打在"工作區"裡的空白區域後,按下"新增",文字會複製到對應的"工作表4"裡的每個欄位裡。
時間(工作區)=建立時間(工作表4)....依此類推。
新增一筆,而那一筆也會一直往下!

小魚 iT邦大師 1 級 ‧ 2018-09-20 00:04:21 檢舉

可是你一次只新增一筆吧...
所以我的方法有什麼問題嗎?

yh45632 iT邦新手 5 級 ‧ 2018-09-20 09:43:04 檢舉

沒有!非常感謝大大的幫忙!!

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

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

IT邦幫忙