返回列表 上一主題 發帖

[發問] VBA userform textbox 值的傳送

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-6-25 11:51 | 只看該作者

[發問] VBA userform textbox 值的傳送

tb1是要傳送的值，我想要讓tb2來控制輸入的次數，但是要怎樣才能讓資料一直往下輸入，而不洗掉前面的?
收藏 分享

ciboybj

帖子
47 
主題
19 
精華
0 
積分
82 
點名
0  
作業系統
win  
軟體版本
xp 
閱讀權限
20 
註冊時間
2014-7-4 
最後登錄
2021-9-4 
2#
發表於 2019-6-25 21:30 | 只看該作者
回復 1# s13030029
一點建議供你參考
在你的FOR迴圈前 先取得A欄最後一筆的列數 （變數K）
接著 把原本FOR迴圈中 CELLS(1,A)改成 CELLS(K,A)

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
3#
發表於 2019-6-26 00:08 | 只看該作者
本帖最後由 n7822123 於 2019-6-26 00:22 編輯

回復 1# s13030029


你沒給檔案，我不知道工作表名稱，隨便取一個工作表名稱，你自己改吧

Set sht = Sheets("工作表1") '自己改要填入值的工作表名稱
n& = sht.UsedRange.Rows.Count '該工作表有資料的列數
If n = 1 And sht.[A1] = "" Then n = 0 '若[A1]無資料UsedRange.Rows.Count也會給1，所以n要改為0
For i = n + 1 To n + tb2.Value '從n+1開始，往下填，無資料:n=0
  Cells(i, "A") = tb1.Value
Next
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題