Board logo

標題: [發問] 如何運用 UserForm表單方式輸出至excel的工作表儲存格中 [打印本頁]
作者: 7777    時間: 2013-2-16 19:30     標題: 如何運用 UserForm表單方式輸出至excel的工作表儲存格中

如何運用 UserForm表單方式輸出至excel的工作表儲存格中，
且依序逐筆的輸出到工作表中(黃色儲存格內)，筆數不限
懇請協助   謝謝!!
作者: Hsieh    時間: 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
複製代碼
[attach]14176[/attach]
作者: 7777    時間: 2013-2-17 22:49

回復 2# Hsieh

可以了ㄝ! 感謝大大

可否 能再請教一下大大

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

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

謝謝!!
作者: Hsieh    時間: 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   
複製代碼
作者: 7777    時間: 2013-2-17 23:44

回復 4# Hsieh

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

不解? 再請教一下大大
表單方式輸入的格式
似乎與鍵盤輸入的格式 不一樣 如圖...
謝謝!!
作者: 7777    時間: 2013-2-18 21:47

回復 4# Hsieh

不解? 再請教一下大大
表單方式輸入的格式
似乎與鍵盤輸入的格式
登錄鈕的方式~~ 不一樣
無法計算ㄝ!!  如圖...附檔
敬請協助~~~~感謝!!
作者: Hsieh    時間: 2013-2-18 22:36

回復 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    時間: 2013-2-18 23:07

回復 8# Hsieh

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

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

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

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

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

UserForm 表單

[attach]15728[/attach]
作者: 7777    時間: 2013-8-9 08:41

回復 8# Hsieh


求助: 請問大大 1 改 2 要如何....改寫?? 謝謝!!

    '1.選擇商品(週期)
    [A1] = InputBox(" 請輸入  ...
7777 發表於 2013-8-8 12:09
作者: 7777    時間: 2013-8-9 15:29

回復 8# Hsieh

不解? 再煩請大大 指導一下  感謝~   


[attach]15734[/attach]
作者: Hsieh    時間: 2013-8-9 22:52

回復 12# 7777
試試看
[attach]15736[/attach]
作者: 7777    時間: 2013-8-10 00:06

回復 13# Hsieh

感謝大大!!  完全OK   

謝謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)