返回列表 上一主題 發帖

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

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

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

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

回復 12# 7777
試試看
選擇權.rar (25.14 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 做好事不能少我一人,做壞事不能多我一人。
返回列表 上一主題