標題: [發問] VB插入某列與列上某選單方塊選取 [打印本頁]

---

作者: liebe    時間: 2017-7-10 16:49     標題: VB插入某列與列上某選單方塊選取

各位大大們好!
目前我正要使用VB寫個增加列的按鈕
我的想法是當按下增加鈕後，會在指定列新增一列，並將最後一列剪下並貼到指定列，使整個表格範圍保持在12筆資料內，不會隨著插入列數改變表格範圍
但目前每列中都有兩個選單方塊，且選單方塊的輸入範圍(定義名稱)均隨著所在列數而改變，如若在21列，輸入範圍定義名稱為"ONE" ，儲存格連結為c21; 在2列;輸入範圍定義名稱為"TWO"，儲存格連結為c22
且每次插入一列後要選取最後一列，但每次最後一列的選單方塊的名稱都不同，這樣該如何選取呢?
目前我的程式如下，請問我該如何寫才比較完整?或是大大們有更好的想法麻煩告訴我!
麻煩大家了!感謝!
表格樣式如下:
[attach]27455[/attach]

程式碼:
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

---

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