如何運用 UserForm表單方式輸出至excel的工作表儲存格中 - Excel程式區

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

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

1^# 跳轉到 »

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2013-8-9 22:52 | 顯示全部帖子

回復 12# 7777
試試看

選擇權.rar (25.14 KB)

學海無涯_不恥下問

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]