[已解决]高手帮忙看一下

股网千王

本想出现这样的效果：点击sheet2的A列3行以下单元格就在列表框中出现sheet1A列的资料，刚开始弄好了，有的，可是现在没了。请高手看看我的代码哪里出问题了。另一个问题是：点击F8怎么不能调试呢？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim i As Integer
      If Target.Count = 1 Then
          If Target.Column = 1 And Target.Row > 3 Then
              With TextBox1
                  .Visible = True
                  .Top = Target.Top
                  .Left = Target.Left
                  .Width = Target.Width
                  .Height = Target.Height
                  .Activate
              End With
              With ListBox1
                  .Visible = True
                  .Top = Target.Top
                  .Left = Target.Left + Target.Width
                  .Width = Target.Width * 5
                  .Height = Target.Height * 10
                  For i = 3 To Worksheets("sheet1").Range("a:a").End(xlUp).Row
                      .AddItem Worksheets("sheet1").Cells(i, 1).Value
                  Next
              End With
          Else
              ListBox1.Clear
              TextBox1 = ""
              ListBox1.Visible = False
              TextBox1.Visible = False
          End If
      End If
  End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-3 20:24

1. For i = 3 To Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

复制代码

跳转到最佳答案楼层

hwc2ycy

TEXTBOX是做什么的，是不是列表中选中后，直接进入单元格就成了？

股网千王

TEXTBOX是文本框啊。其它的代码我还没写呢。

sliang28

1. 点击sheet2的A列3行以下单元格就在列表框中出现sheet1A列的资料
   
2. 这句不知道条件,没法出结果.
   
3. 另一个问题是：点击F8怎么不能调试呢？
   
4. 这个你在代码中设置断点,断点你设在合适的地方就好了,然后逐句调试

复制代码

股网千王

For i = 3 To Worksheets("sheet1").Range("a:a").End(xlUp).Row
                      .AddItem Worksheets("sheet1").Cells(i, 1).Value
这句没作用啊？
楼上的你给改改啊，附件给了

股网千王

谁给改改啊?和断点没关系啊？不能调试的嘛！

sliang28

股网千王 发表于 2013-5-3 20:01
谁给改改啊?和断点没关系啊？不能调试的嘛！

设置断点后,点击单元格,程序自动运行后到断点处停止,然后按F8逐句运行。

sliang28

股网千王 发表于 2013-5-3 19:59
For i = 3 To Worksheets("sheet1").Range("a:a").End(xlUp).Row
                      .AddItem Workshe ...

1. For i = 3 To Worksheets("sheet1").Range("a65536").End(xlUp).Row

复制代码

hwc2ycy

1. For i = 3 To Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

复制代码

hwc2ycy

你原来的结果是1，for i=3 to 1，当然一次也不会执行了。