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

7777

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

Hsieh

回復 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)

下載次數: 18

2013-2-17 21:58

7777

回復 2# Hsieh

可以了ㄝ! 感謝大大

可否 能再請教一下大大

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

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

謝謝!!

Hsieh

回復 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   

複製代碼

7777

回復 4# Hsieh

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

7777

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

7777

回復 4# Hsieh

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

Hsieh

回復 7# 7777


確定都是輸入數值?

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

複製代碼

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

7777

回復 8# Hsieh

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

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

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

7777

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

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

UserForm 表單

下載 (179.71 KB)

2013-8-8 12:09