[已解决]listbox和combobox问题请教

w201109

我在组合使用listbox和combobox的时候出现以下几个问题，情高手帮忙解决下，先谢谢了！
问题1：
在选择combobox内容后listbox内容会根据combobox内容变化，这点达到了我的要求，但是在第一次选择完listbox内容填充到excel中后，第二次要选择和上一个单元格相同内容时，listbox就选择不了，必须先选以下不同的内容才能切换回来.请问这个问题怎么解决？
问题2：
第一次选择了combobox和listbox内容后，第二次激活这两个控件后，两个控件上还显示上次选择的内容，我想让这两个控件恢复到第一次激活时的状态，请问怎么实现？

在线等，请高手帮帮忙 ！

最佳答案

月排行榜 / 总排行榜

zyouong

2012-4-19 08:58

Private Sub ListBox1_Click()
Selection.Value = ListBox1.Value
ListBox1.Value = ""
ListBox1.Visible = False
ComboBox1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode <> 0 Then Exit Sub

If (Target.Column = 1 And Target.Row > 1) Then
      
    ComboBox1.Top = Target.Top
   ComboBox1.Left = Target.Left + Target.Width + 20
    ListBox1.Top = Target.Top + ComboBox1.Height
   ListBox1.Left = ListBox1.Left
    ListBox1.Visible = True
    ComboBox1.Visible = True
              Else
           
           ListBox1.Visible = False
           ComboBox1.Visible = False
           End If
  Range("H6") = "一"
End Sub

跳转到最佳答案楼层

125202505

顶下。。。。我也在关注listbox的问题。

w201109

怎么没人帮忙啊  郁闷死了  等的好着急！！！！

zyouong

Private Sub ListBox1_Click()
Selection.Value = ListBox1.Value
ListBox1.Value = ""
ListBox1.Visible = False
ComboBox1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode <> 0 Then Exit Sub

If (Target.Column = 1 And Target.Row > 1) Then
      
    ComboBox1.Top = Target.Top
   ComboBox1.Left = Target.Left + Target.Width + 20
    ListBox1.Top = Target.Top + ComboBox1.Height
   ListBox1.Left = ListBox1.Left
    ListBox1.Visible = True
    ComboBox1.Visible = True
              Else
           
           ListBox1.Visible = False
           ComboBox1.Visible = False
           End If
  Range("H6") = "一"
End Sub