標題: [發問] VBA插入指定ROW (EXCEL) [打印本頁]

---

作者: liebe    時間: 2017-7-4 20:38     標題: VBA插入指定ROW (EXCEL)

各位大大們好!
目前我正嘗試以VBA製作一個可以輸入某數值，然後EXCEL就能依照指定數值在指定的那列新增某ROW
我目前用自訂表單，內容物只有一個TextBox和一個CommandButton
我的想法是在EXCEL寫個按鈕，按鈕一按下去會進入UserForm1，在TextBox輸入想加入的指定row後按下CommandButton就會自動新增指定列並隱藏UserForm1
其他部份都OK了!就只剩CommandButton的程式部份不知道錯在哪
因為是新手，不太清楚到底錯在哪，還請大大們幫我看看!
或者大大們有更好的想法麻煩教教我!萬分感謝!!!!!
程式碼目前如下:
Private Sub CommandButton1_Click()
Sheets("Tabelle3").Select
Range("A1").Value = Val(TextBox1) = r
Dim r As Long
r = Selection.Row
ActiveSheet.Row(r).Insert
UserForm1.Hide
End Sub

---

作者: Hsieh    時間: 2017-7-5 09:36

回復 1# liebe

1. Private Sub CommandButton1_Click()
   
2. ActiveSheet.Rows(TextBox1).Insert '插入列
   
3. Unload Me '關閉表單
   
4. End Sub

複製代碼

---

作者: liebe    時間: 2017-7-5 14:53

Hsieh超級版主真得很感謝你!
但對於程式碼我有些疑問
第三行 Unload Me 的用法和UserForm1.Hide
不知道差異在哪?
懇求解答!感謝!
(抱歉剛接觸VB所以問題比較多)

---

作者: Hsieh    時間: 2017-7-5 15:06

回復 3# liebe

Unload會卸載自訂表單
Hide則是隱藏表單

[attach]27430[/attach]

---

作者: liebe    時間: 2017-7-5 15:49

OK!真得很詳細!
感謝超級版主大大!

---

作者: liebe    時間: 2017-7-10 19:23

Hsieh超級版主大大你好!
突然有個小問題想再請教你!
若這個程式只有ABC三欄要增加一列的話而不是全部插入一列要如何更改寫法呢?
感謝你!

---

作者: Hsieh    時間: 2017-7-11 11:46

回復 6# liebe


    Range("A:C").Rows(TextBox1).Insert xlShiftDown

---

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