7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-2-16 19:30 | 只看該作者

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

如何運用 UserForm表單方式輸出至excel的工作表儲存格中，
且依序逐筆的輸出到工作表中(黃色儲存格內)，筆數不限
懇請協助謝謝!!

報表.gif (88.44 KB)

報表1.rar (197.78 KB)

樓主熱帖

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-2-17 21:58 | 只看該作者

回復 1# 7777
開啟表單

Sub 開啟登錄表單()
UserForm1.Show
End Sub

複製代碼

寫入資料

Private Sub CommandButton1_Click()
With Sheet2
Set a = .[D65536].End(xlUp).Offset(1, 0)
a.Resize(, 3) = Array(TextBox1, TextBox2, TextBox3)
End With
End Sub

複製代碼

報表1.rar (179.16 KB)

學海無涯_不恥下問

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

3^#

發表於 2013-2-17 22:49 | 只看該作者

回復 2# Hsieh

可以了ㄝ! 感謝大大

可否能再請教一下大大

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

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

謝謝!!

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-2-17 23:16 | 只看該作者

回復 3# 7777

Private Sub CommandButton1_Click()
With Sheet2
Set a = .[D65536].End(xlUp).Offset(1, 0)
a.Resize(, 3) = Array(TextBox1, TextBox2, TextBox3)
End With
Unload Me '卸載表單
UserForm1.Show '重啟表單
End Sub

複製代碼

學海無涯_不恥下問

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

5^#

發表於 2013-2-17 23:44 | 只看該作者

回復 4# Hsieh

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

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

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

6^#

發表於 2013-2-18 00:41 | 只看該作者

不解? 再請教一下大大
表單方式輸入的格式
似乎與鍵盤輸入的格式不一樣如圖...
謝謝!!

報表1.gif (147.22 KB)

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

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

7^#

發表於 2013-2-18 21:47 | 只看該作者

回復 4# Hsieh

不解? 再請教一下大大
表單方式輸入的格式
似乎與鍵盤輸入的格式
登錄鈕的方式~~ 不一樣
無法計算ㄝ!! 如圖...附檔
敬請協助~~~~感謝!!

33.gif (82.69 KB)

報表1.rar (201.43 KB)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2013-2-18 22:36 | 只看該作者

回復 7# 7777

確定都是輸入數值?

Private Sub CommandButton1_Click()
With Sheet2
Set a = .[D65536].End(xlUp).Offset(1, 0)
a.Resize(, 3) = Array(Val(TextBox1), Val(TextBox2), Val(TextBox3)) '轉成數值輸入
End With
Unload Me
UserForm1.Show
End Sub

複製代碼

TextBox4無法自動停駐的問題
表單物件要自動取得駐點必須指定TabIndex

學海無涯_不恥下問

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

9^#

發表於 2013-2-18 23:07 | 只看該作者

回復 8# Hsieh

可以了! 真的非常非常感謝大大

麻辣家族園地真的很棒，
有這麼多的先進高手，及幫人助人的好人
讓我們可以學習發問進步

以下是爬文後，相關性的資料與大家分享一下
http://tw.myblog.yahoo.com/smile-1000miles/article?mid=2495&next=2460&l=f&fid=15

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

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

10^#

發表於 2013-8-8 12:09 | 只看該作者

請問各位大大 1 改 2 要如何....改寫?? 謝謝!!

'1.選擇商品(週期)
[A1] = InputBox(" 請輸入 # 週期 #", " 選擇：商品(週期)")

'2.選擇商品(週期)
UserForm3.Show

UserForm 表單

選擇商品(週期).gif (179.71 KB)

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

TOP