VBA下拉式選單(已解決) - Excel程式區

[發問] VBA下拉式選單(已解決)

1^# 跳轉到 »

發表於 2011-5-17 11:23 | 顯示全部帖子

例如：
Private Sub UserForm_Initialize()
Dim i%
i = Range("A65536").End(xlUp).Row
Me.ComboBox1.List = Sheet1.Range("A1:A" & i).Value
End Sub

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。