excel，請問能否用Active X控件中的列表框加VB做成下圖的效果，麻煩附上VB代碼。

這個當然可以做，是VBA不是VB。代碼：

Private Sub ListBox1_Click()

ActiveCell = Me.ListBox1.Value

Me.ListBox1.Visible = False

End Sub

---------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Me.ListBox1

If Target.Column = 1 Then

.Clear

.AddItem ("未安排")

.AddItem ("已安排")

.AddItem ("已完成")

.AddItem ("提醒")

.Width = 80

.Height = .ListCount * 16

.Top = Target.Top + Target.Height - 6

.Left = Target.Left + Target.Width - 10

.Visible = True

Else

.Visible = False

End If

End With

End Sub

------------------------------------