帖子: 28
主題: 20
精華: 0
積分: 70
點名: 0
作業系統: windows
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2017-7-4
最後登錄: 2018-8-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2017-7-5 09:36 | 只看該作者

回復 1# liebe

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

複製代碼

學海無涯_不恥下問

TOP

liebe

中學生 Rank: 2

帖子: 28
主題: 20
精華: 0
積分: 70
點名: 0
作業系統: windows
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2017-7-4
最後登錄: 2018-8-13

3^#

發表於 2017-7-5 14:53 | 只看該作者

[版主管理留言]

Hsieh(2017-7-5 15:08): EXCEL的VBA問題請至EXCEL程式區發問

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2017-7-5 15:06 | 只看該作者

回復 3# liebe

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

學海無涯_不恥下問

TOP

liebe

中學生 Rank: 2

帖子: 28
主題: 20
精華: 0
積分: 70
點名: 0
作業系統: windows
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2017-7-4
最後登錄: 2018-8-13

5^#

發表於 2017-7-5 15:49 | 只看該作者

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

TOP

liebe

中學生 Rank: 2

帖子: 28
主題: 20
精華: 0
積分: 70
點名: 0
作業系統: windows
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2017-7-4
最後登錄: 2018-8-13

6^#

發表於 2017-7-10 19:23 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2017-7-11 11:46 | 只看該作者

回復 6# liebe

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

學海無涯_不恥下問

TOP