vba工具箱附加控制項

① 如何向EXCEL 的 VBA中添加時間控制項

到visual
basic
編輯器里右鍵控制項面板--附加控制項-選擇-micsoft...
listview...

② vba的附加控制項中沒有listview

listview控制項在php的使⽤⽅法,VBA窗體之ListView控制項的基本

應⽤VBA實例教程

今天我們來看⼀下VBA窗體中的ListView控制項的基本⽤法。ListView控制項的最基本⽤法是在窗體中以表格形式顯⽰數據，是應⽤⾮常⼴泛的⼀個窗體控制項。控制項⼯具箱在初始狀態下是沒有ListView控制項的，需要我們在⼯具-附加控制項中勾選"Microsoft ListView

Control,Version 6.0"，這樣ListView控制項就會顯⽰在控制項⼯具箱中了。ListView分為表頭和數據兩部分，⽽數據部分的第⼀列和其他列⼜是分開的，需要⽤不同的⽅式來訪問。假設我們在Sheet1中有⼀個5⾏4列的表格，現在我們看下怎樣將這個表格中的數據導⼊到ListView控制項中。

下⾯我們先來看怎樣給ListView控制項添加表頭。有兩種⽅法，先來看第⼀種

Private Sub UserForm_Initialize()

ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft '列數，key，text，寬度，對齊⽅式，圖⽚

ListView1.ColumnHeaders.Add 2, "B", "性別", ListView1.Width / 4, lvwColumnCenter

ListView1.ColumnHeaders.Add 3, "C", "年齡", ListView1.Width / 4, lvwColumnCenter

ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter

ListView1.View = lvwReport '顯⽰⽅式

ListView1.FullRowSelect = False '是否整⾏選取

ListView1.Gridlines = True '是否顯⽰表格線

End Sub

添加表頭的第⼀種⽅法是⽤ColumnHeaders.Add的⽅法，該⽅法包括6個參數，⽐如上⾯第⼀⾏代碼中1代表第⼀列，"A"是該列的⼀個簡稱(不寫也可以)，「姓名」是要顯⽰的⽂字，下⼀個參數是寬度，這⾥我們⼀共4列，所以第⼀列寬度設為控制項寬度(ListView1.Width)的

1/4，第5個參數是對齊⽅式，其中第⼀列必須是左對齊的，其他列可以設置左右或居中對齊，第6個參數是圖標索引，我們後⾯再講，這⾥其中所有的參數都是可省略的，⼀般寫上顯⽰的⽂字和寬度即可。ListView1.View是設置ListView控制項的顯⽰⽅式，⼀共四種，這⾥lvwReport是報表形式顯⽰，其他的我們後⾯再講。FullRowSelect是指可否整⾏選取，Gridlines是否顯⽰⽹格線，這些屬性⾃⼰試下就知道了。

當然我們也可以⽤循環的⽅式來簡化代碼

Private Sub UserForm_Initialize()

Dim i

For i = 1 To 4

ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4

Next

ListView1.FullRowSelect = True

ListView1.View = lvwReport

ListView1.Gridlines = True

End Sub

對列加了個For循環⽽已，其實是完全相同的。

下⾯我們來看怎樣向ListView控制項中添加數據。兩種⽅法，下⾯來看第⼀種

Private Sub CommandButton1_Click()

Dim itm As ListItem, i, List, li

ListView1.ListItems.Clear '清除數據

For i = 2 To 5

Set itm = ListView1.ListItems.Add '添加⼀個空⾏

itm.Text = Cells(i, 1) '添加第⼀列

itm.SubItems(1) = Cells(i, 2) '添加第⼆列

itm.SubItems(2) = Cells(i, 3)

itm.SubItems(3) = Cells(i, 4)

Next

End Sub

當然添加新數據之前要把原有數據先刪除，⽤的是ListItems的Clear⽅法ListItem對象就是控制項的⾏。先⽤ListItems的Add⽅法添加⼀個空⾏，⽤變數itm來表⽰，下⾯就要向這個空⾏中添加數據，我們上⾯說過第⼀列和其他列的表⽰⽅法是不同的，第⼀列賦值要⽤Text，之後各列⽤SubItems數組來賦值，第2列序號是1，第3列序號是2，依次類推。

下⾯來看添加數據的另⼀種⽅法，ListSubItems對象

' For i = 2 To 5

' Set List = ListView1.ListItems.Add(Text:=Cells(i, 1))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 2)) 'subitems是個數組，Listsubitems是個對象集合

' Set li = List.ListSubItems.Add(Text:=Cells(i, 3))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 4))

' Next

前⾯都⼀樣，我只把For循環這段貼出來了，同樣是⽤ListItems.Add新建⼀個空⾏，不同的是直接給其賦了⼀個值，這個值就是賦在第⼀列的，之後⼜⽤List(剛添加的空⾏)的ListSubItems的Add⽅法，相當於在該⾏添加⼀個列，再賦值，有⼏列就添加⽤個ListSubItems。ListSubItems和SubItems的區別在於前者是⼀個對象集合，既然是對象就有可以設置格式(可以和⼯作表的Range對象類⽐)，⽽後者僅僅是⼀個數組，因此也就不存在格式之類的屬性了，所以如果需要給ListView控制項改變格式就要⽤ListSubItems對象。

￥
5.9
網路文庫VIP限時優惠現在開通,立享6億+VIP內容
立即獲取
listview控制項在php的使用方法,VBA窗體之ListView控制項的基本應用VBA實例教程
listview控制項在php的使⽤⽅法,VBA窗體之ListView控制項的基本

應⽤VBA實例教程

今天我們來看⼀下VBA窗體中的ListView控制項的基本⽤法。ListView控制項的最基本⽤法是在窗體中以表格形式顯⽰數據，是應⽤⾮常⼴泛的⼀個窗體控制項。控制項⼯具箱在初始狀態下是沒有ListView控制項的，需要我們在⼯具-附加控制項中勾選"Microsoft ListView

第 1 頁
Control,Version 6.0"，這樣ListView控制項就會顯⽰在控制項⼯具箱中了。ListView分為表頭和數據兩部分，⽽數據部分的第⼀列和其他列⼜是分開的，需要⽤不同的⽅式來訪問。假設我們在Sheet1中有⼀個5⾏4列的表格，現在我們看下怎樣將這個表格中的數據導⼊到ListView控制項中。

下⾯我們先來看怎樣給ListView控制項添加表頭。有兩種⽅法，先來看第⼀種

第 2 頁
Private Sub UserForm_Initialize()

ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft '列數，key，text，寬度，對齊⽅式，圖⽚

ListView1.ColumnHeaders.Add 2, "B", "性別", ListView1.Width / 4, lvwColumnCenter

ListView1.ColumnHeaders.Add 3, "C", "年齡", ListView1.Width / 4, lvwColumnCenter

第 3 頁
ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter

ListView1.View = lvwReport '顯⽰⽅式

ListView1.FullRowSelect = False '是否整⾏選取

ListView1.Gridlines = True '是否顯⽰表格線

第 4 頁
End Sub

添加表頭的第⼀種⽅法是⽤ColumnHeaders.Add的⽅法，該⽅法包括6個參數，⽐如上⾯第⼀⾏代碼中1代表第⼀列，"A"是該列的⼀個簡稱(不寫也可以)，「姓名」是要顯⽰的⽂字，下⼀個參數是寬度，這⾥我們⼀共4列，所以第⼀列寬度設為控制項寬度(ListView1.Width)的

第 5 頁
1/4，第5個參數是對齊⽅式，其中第⼀列必須是左對齊的，其他列可以設置左右或居中對齊，第6個參數是圖標索引，我們後⾯再講，這⾥其中所有的參數都是可省略的，⼀般寫上顯⽰的⽂字和寬度即可。ListView1.View是設置ListView控制項的顯⽰⽅式，⼀共四種，這⾥lvwReport是報表形式顯⽰，其他的我們後⾯再講。FullRowSelect是指可否整⾏選取，Gridlines是否顯⽰⽹格線，這些屬性⾃⼰試下就知道了。

第 6 頁
當然我們也可以⽤循環的⽅式來簡化代碼

Private Sub UserForm_Initialize()

Dim i

For i = 1 To 4

ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4

Next

第 7 頁
ListView1.FullRowSelect = True

ListView1.View = lvwReport

ListView1.Gridlines = True

End Sub

對列加了個For循環⽽已，其實是完全相同的。

下⾯我們來看怎樣向ListView控制項中添加數據。兩種⽅法，下⾯來看第⼀種

第 8 頁
Private Sub CommandButton1_Click()

Dim itm As ListItem, i, List, li

ListView1.ListItems.Clear '清除數據

For i = 2 To 5

Set itm = ListView1.ListItems.Add '添加⼀個空⾏

itm.Text = Cells(i, 1) '添加第⼀列

第 9 頁
itm.SubItems(1) = Cells(i, 2) '添加第⼆列

itm.SubItems(2) = Cells(i, 3)

itm.SubItems(3) = Cells(i, 4)

Next

End Sub

當然添加新數據之前要把原有數據先刪除，⽤的是ListItems的Clear⽅法ListItem對象就是控制項的⾏。先⽤ListItems的Add⽅法添加⼀個空⾏，⽤變數itm來表⽰，下⾯就要向這個空⾏中添加數據，我們上⾯說過第⼀列和其他列的表⽰⽅法是不同的，第⼀列賦值要⽤Text，之後各列⽤SubItems數組來賦值，第2列序號是1，第3列序號是2，依次類推。

第 10 頁
下⾯來看添加數據的另⼀種⽅法，ListSubItems對象

' For i = 2 To 5

' Set List = ListView1.ListItems.Add(Text:=Cells(i, 1))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 2)) 'subitems是個數組，Listsubitems是個對象集合

第 11 頁
' Set li = List.ListSubItems.Add(Text:=Cells(i, 3))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 4))

' Next

前⾯都⼀樣，我只把For循環這段貼出來了，同樣是⽤ListItems.Add新建⼀個空⾏，不同的是直接給其賦了⼀個值，這個值就是賦在第⼀列的，之後⼜⽤List(剛添加的空⾏)的ListSubItems的Add⽅法，相當於在該⾏添加⼀個列，再賦值，有⼏列就添加⽤個ListSubItems。ListSubItems和SubItems的區別在於前者是⼀個對象集合，既然是對象就有可以設置格式(可以和⼯作表的Range對象類⽐)，⽽後者僅僅是⼀個數組，因此也就不存在格式之類的屬性了，所以如果需要給ListView控制項改變格式就要⽤ListSubItems對象。

③ VBA 中的控制項無法添加到工具箱中

說明你的電腦中沒復有這個ActiveX控制項制,你可以從別的電腦上拷貝來一個,需要注冊,注冊方法可以從網上查(加一句代碼的事)
你還要考慮到你的軟體發布給別人用,他的電腦上有沒有這個控制項,防止沒有,建議你發布的時候把這個控制項文件打包進去,並且程序中加上控制項注冊的代碼.

④ VBA控制項怎麼添加

步驟如下：

1.選擇文本框

⑤ 如何在VBA用戶窗體中添加TreeView控制項

在工作表界面按下組合快捷鍵Alt+F11進入VBA編輯環境，在「工程資源管理器」滑鼠右鍵→「插入」→「用戶窗體」，如下圖所示

⑥ EXCEL2007 VBA里如何添加控制項

我的在插入裡面有這些東西,為何你的沒有.有圖有真相.

⑦ 如何在VBA的用戶窗體中插入日歷控制項

在工具箱點滑鼠右鍵——附加控制項，在附加控制項窗口中選擇如圖的控制項，如沒有，請上網下載安裝。確認後選擇控制項在窗體中添加。 控制項代碼如下 Private Sub DTPicker1_Change()[O2] = Me.DTPicker1.ValueEnd SubPrivate Sub DTPicker2_Change()[O3] = ...

⑧ 請教VBA附加控制項的使用方法

ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=269.25, Top:=86.25, Width:=54.75, Height _
:=14.25
這是附加命令按鈕的語句

⑨ 為什麼我的Excel2007的VBA界面菜單中"附加控制項"是灰色不可用, 怎樣啟用或修復它

正確答案：你的工具箱隱藏了，調出工具箱就可以使用附加控制項了。

⑩ 怎樣在VBA用戶窗體上文本框中添加日歷控制項

問：文本框右側的向下三角按鈕是怎樣做出來的？
答：使用「復合框」控制項即可。

要求：日歷在文本框底部顯示
實現：在窗體中將日歷控制項放在復合框控制項之下，調整大小對齊。然後通過日歷控制項的visible屬性實現日歷的顯示與隱藏。

功能說明：雙擊「復合框」顯示，再次雙擊隱藏。在日歷上選擇日期後，雙擊日歷將選擇的日期輸入復合框。窗體打開後日歷控制項默認不顯示。
功能代碼：
Private Sub Calendar1_DblClick()
Me.ComboBox1.Value = Me.Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Calendar1.Visible = Not Me.Calendar1.Visible
End Sub
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
End Sub

註：其中「復合框」的控制項名稱為ComboBox1，日歷的控制項名稱為 Calendar1.
你可以直接新建窗體，拖入一個復合框和一個日歷控制項，雙擊窗體後將以上代碼復制粘貼到代碼區域即可。
以上可以實現你要的功能。如需示例附件，請發Email到[email protected]，我會回復給你。