有關於ComBoBox 使用方法 - Excel程式區

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

　暱稱: VBA向前衝

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

複製代碼

學習才能提升自己

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。