有關於ComBoBox 使用方法 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 有關於ComBoBox 使用方法

返回列表下一主題上一主題發帖

[發問] 有關於ComBoBox 使用方法

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 »

發表於 2012-3-15 10:28 | 顯示全部帖子

回復 1# a703130

這個應該可以滿足你
沒有編號~ 我們可以自己設呀~ ^^
下圖是我模擬的格式~ 您再自行修改您要的

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.Clear
A = Range("A65536").End(xlUp).Row
For I = 2 To A
With ActiveSheet.ComboBox1
.AddItem I - 1 & Range("A" & I)
End With
Next
End Sub

複製代碼

學習才能提升自己

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

返回列表下一主題上一主題