註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 如何運用 UserForm表單方式輸出至excel的工作表儲存格中
返回列表
下一主題
上一主題
發帖
[發問]
如何運用 UserForm表單方式輸出至excel的工作表儲存格中
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4147 小時
註冊時間
2010-4-30
最後登錄
2025-7-13
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-7-13
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)
下載次數: 18
2013-2-17 21:58
學海無涯_不恥下問
TOP
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4147 小時
註冊時間
2010-4-30
最後登錄
2025-7-13
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-7-13
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
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4147 小時
註冊時間
2010-4-30
最後登錄
2025-7-13
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-7-13
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
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4147 小時
註冊時間
2010-4-30
最後登錄
2025-7-13
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
169
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-7-13
4
#
發表於 2013-8-9 22:52
|
顯示全部帖子
回復
12#
7777
試試看
選擇權.rar
(25.14 KB)
下載次數: 15
2013-8-9 22:52
學海無涯_不恥下問
TOP
靜思自在 :
做好事不能少我一人,做壞事不能多我一人。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲