看看这个表用vba怎样编

白月清风

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Long
With ListView1
If Target.Column > 0 And Target.Column < 6 Then
       .Visible = True
       .Left = Columns(6).Left
       .Top = Target.Top + 10
       .ColumnHeaders.Clear
       .ListItems.Clear
       .ColumnHeaders.Add , , "数字", 50
       .ColumnHeaders.Add , , "百位次数", 80, lvwColumnCenter
       .ColumnHeaders.Add , , "十位次数", 80, lvwColumnCenter
       .ColumnHeaders.Add , , "个位次数", 80, lvwColumnCenter
       .View = lvwReport         
    .Gridlines = True        
       .FullRowSelect = True   
  For I = 0 To 9
  Set ITM = .ListItems.Add()
    ITM.Text = I
    ITM.SubItems(1) = Application.WorksheetFunction.CountIf(Range("C2:C" & Target.Row), I)
    ITM.SubItems(2) = Application.WorksheetFunction.CountIf(Range("D2:D" & Target.Row), I)
    ITM.SubItems(3) = Application.WorksheetFunction.CountIf(Range("E2:E" & Target.Row), I)
   Next
   Set ITM = Nothing
Else
    .ListItems.Clear
    .Visible = False
End If
End With
End Sub

nmll316

原帖由 白月清风 于 2009-3-24 22:58 发表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Long
With ListView1
If Target.Column > 0 And Target.Column < 6 Then
       .Visible = True
       .Left = Columns(6).Left
   ...

谢谢!代码贴到哪里？

nmll316

原帖由 白月清风 于 2009-3-24 22:58 发表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Long
With ListView1
If Target.Column > 0 And Target.Column < 6 Then
       .Visible = True
       .Left = Columns(6).Left
   ...

验证了好像执行完统计的和实际的不对啊！拜托再帮忙修改！

nmll316

原帖由 nmll316 于 2009-3-24 21:02 发表

楼上的高人你的表能给发一份吗！谢谢!

netman007 在吗为什么不回复呢？

[ 本帖最后由 nmll316 于 2009-3-25 16:08 编辑 ]