- 帖子
- 28
- 主題
- 20
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2017-7-4
- 最後登錄
- 2018-8-13
|
各位大大們好!
目前我正要使用VB寫個增加列的按鈕
我的想法是當按下增加鈕後，會在指定列新增一列，並將最後一列剪下並貼到指定列，使整個表格範圍保持在12筆資料內，不會隨著插入列數改變表格範圍
但目前每列中都有兩個選單方塊，且選單方塊的輸入範圍(定義名稱)均隨著所在列數而改變，如若在21列，輸入範圍定義名稱為"ONE" ，儲存格連結為c21; 在2列;輸入範圍定義名稱為"TWO"，儲存格連結為c22
且每次插入一列後要選取最後一列，但每次最後一列的選單方塊的名稱都不同，這樣該如何選取呢?
目前我的程式如下，請問我該如何寫才比較完整?或是大大們有更好的想法麻煩告訴我!
麻煩大家了!感謝!
表格樣式如下:
程式碼:
Private Sub CommandButton1_Click()
Sheets("輸入”).Select
ActiveSheet.Rows(TextBox1).Insert
ActiveSheet.Rows(32).Cut
ActiveSheet.Rows(TextBox1).Select
ActiveSheet.Paste
Range("D21").Value = 1
Range("D22").Value = 2
Range("D23").Value = 3
Range("D24").Value = 4
Range("D25").Value = 5
Range("D26").Value = 6
Range("D27").Value = 7
Range("D28").Value = 8
Range("D29").Value = 9
Range("D30").Value = 10
Range("D31").Value = 11
Range("D32").Value = 12
ActiveSheet.Cells(TextBox1, 4).Select
If Selection.Value = 1 Then
Range (Array(“Drop Down ”)).select
‘(第21列)-品牌下拉方塊選取
.ListfillRange(“Control”)
.LinkendCell=”A21”
Else Range(Array(“Drop down ”)) .select
‘(第21列)-型號下拉方塊選取
.ListfillRange(“one”)
.LinkendCell=”C21”
ElseIf Selection.Value = 2 Then
Range (Array(“Drop Down ”)).select
‘(第22列)-品牌下拉方塊選取
.ListfillRange(“Control”)
.LinkendCell=”A22”
Else Range(Array(“Drop down ”)) .select
‘(第22列)-型號下拉方塊選取
.ListfillRange(“two”)
.LinkendCell=”C22”
ElseIf Selection.Value = 3 Then
Range (Array(“Drop Down ”)).select
‘(第23列)-品牌下拉方塊選取
.ListfillRange(“Control”)
.LinkendCell=”A23”
Else Range(Array(“Drop down ”)) .select
‘(第23列)-型號下拉方塊選取
.ListfillRange(“Three”)
.LinkendCell=”C23”
ElseIf Selection.Value = 4 Then
Range (Array(“Drop Down ”)).select
‘(第24列)-品牌下拉方塊選取
.ListfillRange(“Control”)
.LinkendCell=”A24”
Else Range(Array(“Drop down ”)) .select
‘(第24列)-型號下拉方塊選取
.ListfillRange(“four”)
.LinkendCell=”C24”
ElseIf Selection.Value = 5 Then
Range (Array(“Drop Down ”)).select
‘(第25列)-品牌下拉方塊選取
.ListfillRange(“Control”)
.LinkendCell=”A25”
Else Range(Array(“Drop down ”)) .select
‘(第25列)-型號下拉方塊選取
.ListfillRange(“five”)
.LinkendCell=”C25”
ElseIf Selection.Value = 6 Then
Range (Array(“Drop Down ”)).select
.ListfillRange(“Control”)
.LinkendCell=”A26”
Else Range(Array(“Drop down ”)) .select
.ListfillRange(“six”)
.LinkendCell=”C26”
ElseIf Selection.Value = 7 Then
Range (Array(“Drop Down ”)).select
.ListfillRange(“Control”)
.LinkendCell=”A27”
Else Range(Array(“Drop down ”)) .select
.ListfillRange(“seven”)
.LinkendCell=”C27”
ElseIf Selection.Value = 8 Then
Range (Array(“Drop Down ”)).select
.ListfillRange(“Control”)
.LinkendCell=”A28”
Else Range(Array(“Drop down ”)) .select
.ListfillRange(“eight”)
.LinkendCell=”C28”
ElseIf Selection.Value = 9 Then
Range (Array(“Drop Down ”)).select
.ListfillRange(“Control”)
.LinkendCell=”A29”
Else Range(Array(“Drop down ”)) .select
.ListfillRange(“nine”)
.LinkendCell=”C29”
ElseIf Selection.Value = 10 Then
Range (Array(“Drop Down ”)).select
.ListfillRange(“Control”)
.LinkendCell=”A30”
Else Range(Array(“Drop down ”)) .select
.ListfillRange(“ten”)
.LinkendCell=”C30”
ElseIf Selection.Value = 11 Then
Range (Array(“Drop Down ”)).select
.ListfillRange(“Control”)
.LinkendCell=”A31”
Else Range(Array(“Drop down ”)) .select
.ListfillRange(“eleven”)
.LinkendCell=”C31”
ElseIf Selection.Value = 12 Then
Range (Array(“Drop Down ”)).select
.ListfillRange(“Control”)
.LinkendCell=”A32”
Else Range(Array(“Drop down ”)) .select
.ListfillRange(“twelve”)
.LinkendCell=”C32”
End If
Unload Me
End Sub |
|
發表於 2017-7-10 16:49
| 
