返回列表 上一主題 發帖

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

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

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

報表1.rar (197.78 KB)

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

回復 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)
學海無涯_不恥下問

TOP

回復 2# Hsieh

可以了ㄝ! 感謝大大

可否 能再請教一下大大

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

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

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

TOP

回復 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   
複製代碼
學海無涯_不恥下問

TOP

回復 4# Hsieh

可以了ㄝ!
再請教一下大大
本人 試這想 多加了解 與研究下
自以為 再加一欄 TextBox4
改為
a.Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
可行.

但游標似乎 不會自行跑到 TextBox4區 ??
不懂下 懇請大大 解惑..
感謝大大
50 字節以內
不支持自定義 Discuz! 代碼

TOP

不解? 再請教一下大大
表單方式輸入的格式
似乎與鍵盤輸入的格式 不一樣 如圖...
謝謝!!
報表1.gif
50 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 4# Hsieh

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

報表1.rar (201.43 KB)

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

TOP

回復 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
學海無涯_不恥下問

TOP

回復 8# Hsieh

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

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

以下是 爬文後,相關性的資料 與大家分享一下
http://tw.myblog.yahoo.com/smile-1000miles/article?mid=2495&next=2460&l=f&fid=15
50 字節以內
不支持自定義 Discuz! 代碼

TOP

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

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

UserForm 表單


選擇商品(週期).gif
2013-8-8 12:09
選擇商品(週期).gif
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題