12
返回列表 上一主題 發帖

請問如何用Textbox新增資料到Sheet?

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2013-7-17 16:04 | 只看該作者
本帖最後由 GBKEE 於 2013-7-17 16:09 編輯

回復 10# jeffrey628litw
在物件模組中(表單也是物件模組)  With UserForm2 => With Me  或可以不用  With
  1.   r = d2(myname & "-" & mycase)  'r=無 -> Cells(r, i + 1)所以錯誤        
  2.         For i = 1 To 9
  3.             Sheets("Sheet1").Cells(r, i + 1).Value = .Controls("TextBox" & i).Value
複製代碼
試試這附檔

Tset.rar (31.91 KB)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

jeffrey628litw

帖子
228 
主題
62 
精華
0 
積分
364 
點名
0  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2025-1-28 

2011兔年全勤獎章
12#
發表於 2013-7-17 21:52 | 只看該作者
本帖最後由 GBKEE 於 2013-7-18 06:02 編輯

版大非常感謝您的幫助，您的檔案已經完全符合我的需求，我會好好研習您的程式，再次感謝您，建議您可以將此檔案發文分享給其他人下載。

TOP

jeffrey628litw

帖子
228 
主題
62 
精華
0 
積分
364 
點名
0  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2025-1-28 

2011兔年全勤獎章
13#
發表於 2013-7-18 15:47 | 只看該作者
版主大大，我已經將檔案整理好了，我想我就替你發文分享給大家下載使用好了。

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
12
返回列表 上一主題