12
返回列表 上一主題 發帖

[發問] 如何運用 UserForm表單方式輸出至excel的工作表儲存格中

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
5# 跳轉到 »
發表於 2013-2-17 23:44 | 只看該作者
回復 4# Hsieh

可以了ㄝ!
再請教一下大大
本人 試這想 多加了解 與研究下
自以為 再加一欄 TextBox4
改為
a.Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
可行.
但游標似乎 不會自行跑到 TextBox4區 ??
不懂下 懇請大大 解惑..
感謝大大
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2013-2-17 23:16 | 只看該作者
回復 3# 7777
  1. Private Sub CommandButton1_Click()
  2. With Sheet2
  3. Set a = .[D65536].End(xlUp).Offset(1, 0)
  4. a.Resize(, 3) = Array(TextBox1, TextBox2, TextBox3)
  5. End With
  6. Unload Me  '卸載表單
  7. UserForm1.Show   '重啟表單
  8. End Sub   
複製代碼
學海無涯_不恥下問

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
3#
發表於 2013-2-17 22:49 | 只看該作者
回復 2# Hsieh

可以了ㄝ! 感謝大大

可否 能再請教一下大大

資料就輸入到 (TextBox1, TextBox2, TextBox3)，而表單內 按 Enter 後，

如何能 清除內容後，游標再停留再 帳號欄TextBox1內，方便 再繼續輸入作業

謝謝!!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-2-17 21:58 | 只看該作者
回復 1# 7777
開啟表單
  1. Sub 開啟登錄表單()
  2. UserForm1.Show
  3. End Sub
複製代碼
寫入資料
  1. Private Sub CommandButton1_Click()
  2. With Sheet2
  3. Set a = .[D65536].End(xlUp).Offset(1, 0)
  4. a.Resize(, 3) = Array(TextBox1, TextBox2, TextBox3)
  5. End With
  6. End Sub
複製代碼
報表1.rar (179.16 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 得理要饒人，理直要氣和。
12
返回列表 上一主題