返回列表 上一主題 發帖

[發問] VBA userform textbox 值的傳送

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 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

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題