[接龙...]部分程序代码注释，目录更新20051222

bruce001

QUOTE:

以下是引用bruce001在2007-4-5 14:12:28的发言：

sorry, add the attachment.

不過, 這個代碼要完善還是有得做. 

因運行一次, 相應的格就有了一張圖, 那下次運行, 還是要先清空這張圖才可.

另外,  如果輸入數字的不是數字也是要有個判別

另外, 改為回車即實現最好.

另外......

希望各位完善,  多謝多謝!

Long_III

To bruce001

关于这个问题，处理起来都不麻烦，建议另起新贴详细说明问题

把新贴的地址告诉我

wangtian

内容太丰富啦,好,感谢

wangtian

龙三兄,你太伟大了,向你学习

liuyouming

支持!对初学或正学VBA的朋友很有用,受益非浅!

stomach

QUOTE:

以下是引用Long_III在2005-8-5 16:45:35的发言：

5、类似分组显示数据，代码是

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    With Target
        If .Count = 1 And .Column = 1 Then    '选中一个单元格，且在第一列时
            If Not .Offset(1, 0).EntireRow.Hidden And .Value <> "" Then    '选中的下面一个单元格为显示，且但前单元格不为空白时
                Set c = .End(xlDown)    '设置c为但前单元格向下的不为空的单元格，类似于按Ctrl+向下箭头
                If c.Row = 65536 Then Set c = [b65536].End(xlUp).Offset(1, 0)    '如果这个单元格为最后一行，设置它为B列最后一个
                                                                                 '非空单元格的下一个
                If c.Row > .Row Then
                    Range(.Offset(1, 0), c.Offset(-1, 0)).EntireRow.Hidden = True    '空白区域对应的行隐藏
                End If
            Else
                Set c = .Offset(1, 0)  '如果下面一个单元格是隐藏的，则执行下面代码
                Do
                    c.EntireRow.Hidden = False    '从下一个单元格一直往下循环，直到有个单元格不为隐藏的
                    Set c = c.Offset(1, 0)
                Loop Until Not c.EntireRow.Hidden
            End If
        End If  '针对一个单元格一个单元格的选择

        If .Column = 1 And .Count = 65536 Then  '选中A列时全部显示
            Columns(1).EntireRow.Hidden = False
        ElseIf .Column = 2 And .Count = 65536 Then    '选中B列时，所有a列空白单元格隐藏
            Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
        End If

    End With
End Sub

目前这样只适用于第一列,且只有一级,我想在任何一列并且好几级子菜单可以实现吗?

pegasus101

慢慢学。

luckywin

学习了，谢谢！

charlie1979

太谢谢了,我找了两天才找到!!!谢谢,谢谢,谢谢,还要说谢谢,不知道怎么谢谢!

a229

谢谢龙哥了!