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

Long_III · 发表于 2005-8-5 14:27

我希望大家都来参加这个接龙哦，而不是跟跟贴而已！如果有时间，我会一直更新这个帖子的。99楼有一个链接贴，有不少有用的东西，欢迎查看

应部分朋友的要求，我在一楼做一个大致目录。以后更新也会在这里增加（对于其他朋友的代码注释没有注明，望见谅）
01、一次性选择所有符合条件的行并删除 4楼第一页
02、工资表的表头自动增加、删除 4楼第一页
03、类似超链接例子（简单的选择） 5楼第一页
04、两个链接例子 “计算某列中数字与数字间的空格数及出现的次数” 6楼第一页
05、类似分组显示数据 8楼第一页
06、工作表一种格式转化为另外一种格式，简单的行列转换 11楼第二页
07、菜单操作，全部菜单记录，隐藏或使其失效操作 36楼第四页
08、基础数组学习！37楼第四页
09、用数组来转换表的格式，及几个简单的数组例子链接 38楼第四页
10、Split与动态数组（一维数组）结合例子 60楼第六页
11、单元格内容互换（split函数的应用） 61楼第七页
12、有趣的画线 64楼第七页
13、find方法的简单应用 65楼第七页
14、几个常用的自定义函数（编程中自定义函数的好处） 71楼第八页
15、链接文本的自定义函数 72楼第八页
16、录制宏在图表里的操作 78楼第八页
17、根据单元格内容，插入图片到相应的单元格中 79楼第八页
18、自动生成打印表 80楼第八页
19、提取批注里的内容，生成明细表，split函数的应用！ 82楼第九页
20、双色球的随机选择及统计各种奖项。 90楼第九页
21、自选图片的控制！根据条件找到符合条件的自选图片，然后复制过去！ 95楼第十页
22、比较单元格里的文本，相同的则加下划线！ 103楼第十一页
23、选择一个文件夹里所有的图片，然后插入进单元格里！ 105楼第十一页
24、几个自定义函数，关于一些数字的组合问题 122楼第十三页
25、组合和数组应用的较好结合! 124楼第十三页
26、简单的生成目录代码，hyperlinks方法 125楼第十三页
27、另类筛选！利用一个数组取单元格的值，然后用新数组确定所有符合条件的值，最后赋值给单元格 126楼第十三页
28、给选择的文件夹里的所有excel工作簿加密码、改密码（还有3个链接数组的例子） 129楼第十三页
29、判断一个文件夹是否存在！ 136楼第十四页
30、对文本的操作！先导入到excel，然后查找 137楼第十四页
31、另外一种选择文件的方法filedialog！ 146楼第十五页
32、byref声明在子程序中的应用 148楼第十五页
33、显示当前表里自动筛选的所有信息！ 149楼第十五页
34、读取文本文件到工作表里，两种方法 152楼第十六页
35、把工作表里的数据转到文本文件里，与上面的例子对应。 153楼第十六页
36、工作表从小到大排序（简单的冒泡排序法）。 154楼第十六页
37、irank函数，排序中忽略重复数值的自定义函数。 158楼第十六页
38、工作表按条件插入分页符！ 159楼第十六页
39、选择一个文件夹，给里面所有的excel表做一个链接！ 164楼第十七页
40、选中单元格对称转置。 168楼第十七页
41、按几种条件排序，多个数组的混和应用。 171楼第十八页
42、用数组的绝对优势！学习数组的好例子 173楼第十八页
43、对合并单元格的排序！ 174楼第十八页
44、筛选多列不重复值到新表的a列，Collection集合的应用。 180楼第十八页
45、按查询结果自动生成图形。 181楼第十九页
46、特殊的数据排序，过程需要反复理解。 182楼第十九页
46、Scripting.FileSystemObject对象的学习，用代码操作文本文件、文件夹及驱动器。 187楼第十九页
47、数组在分类汇总里的使用。 198楼第二十页
48、又一个关于不重复值的计算及统计个数。UNARTHUR兄的经典示例！ 199楼第二十页
49、自动加上拼音。 204楼第二十一页
50、简单的sleep函数，单元格来回变色。 205楼第二十一页
51、统计一列数里的重复情况！排序+数组，极至提速！ 210楼第二十一页
52、删除多余的图形。 219楼第二十二页
53、设置图形的颜色与单元格颜色一致。 220楼第二十二页
54、自定义函数的可选参数的设置和工作表页码的计算 224楼第二十三页
关于自定义函数的可选参数问题 225楼有两个很好的例子
55、二维数组的动态增加及错误值的判断。228楼第二十三页
56、自定义函数的可选参数+多重条件模糊引用。 231楼第二十四页
57、简单的公式设置。 238楼第二十四页
58、字典（dictionary）的应用。 242楼第二十五页
59、简单的二维动态数组。 246楼第二十五页
60、有条件下的随机数，200个数中1～20个可能为6～10，其他为1～5。 250楼第二十五页
61、列出某文件夹下的所有子文件及子文件。 251楼第二十六页
62、字典的应用。在200个“所在单位”里，随机选取20个单位，并统计随机单位出现的次数。254楼第二十六页
63、多条件求和。排序+动态数组+错位循环。260楼第二十六页
64、字典的运用2。统计重复、次数等，用字典处理之后，速度奇快。261楼第二十七页
65、根据12个月里的明细资料来汇总总表。 276楼第二十八页
66、按插入行数来自动小计、累计。 278楼第二十八页

Word版：http://club.excelhome.net/viewthread.php?tid=202125&extra=&page=1#605417 感谢荷花妹妹的整理！

[此贴子已经被作者于2006-11-23 17:39:21编辑过]

plxmm · 发表于 2005-8-5 14:43

Long_III GG 辛苦啊。

[em24][em23][em22][em17]

fchnipj · 发表于 2005-8-5 15:03

这样的帖子应该置顶，很容易看明白呀。

Long_III · 发表于 2005-8-5 15:12

我的意思是大家都来这样做，plxmm，你也弄两个上来啊

1、一次性选择所有符合条件的行并删除 p9SakhyX.rar (34.53 KB, 下载次数: 1086)

代码有点长，就直接在后面注释了，不复制代码了

[此贴子已经被plxmm于2006-7-28 18:24:46编辑过]

Long_III · 发表于 2005-8-5 15:42

3、类似超链接例子，其实代码都很简单，也许比较适合初级选手，代码如下 PaeQrxtN.rar (118.7 KB, 下载次数: 921)

（不知这算不算重复发贴哦，因为这个问题是我回答别人做的）

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '选择单元格的时候执行这个程序
Dim c As Range

    With Target
        If .Count = 1 And .Column = 1 Then '单独针对第一列里选择的个数为1的单元格
            Set c = Sheet2.Columns(1).Find(.Value, lookat:=xlWhole) '在表2的第一列里完全匹配查找
            If Not c Is Nothing Then '如果找到了
                Sheet2.Select
                c.Select '选择这个表，选择这个找到的单元格
            End If
        End If
    End With
End Sub

[此贴子已经被plxmm于2006-7-28 18:25:59编辑过]

Long_III · 发表于 2005-8-5 16:03

4、计算某列中数字与数字间的空格数及出现的次数 8楼

计算连续数的例子 12楼

[此贴子已经被作者于2005-8-25 13:09:32编辑过]

plxmm · 发表于 2005-8-5 16:19

呵呵，响应Long_III GG的提议。偶就献丑啦。这是一个用鼠标在工作表第二列双击得到输入日期的代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '单元格双击事件
On Error Resume Next                            '忽略错误陷阱事件
If Target.Column = 2 And Target.Count = 1 Then  '判断用户操作是否在第二列并且是一个单元格被双击
    Target = Date                               '被双击的单元格设置为日期，格式如下
    Selection.NumberFormatLocal = "yyyy-m-d"    '即 2005-8-5 之例的格式
Else                                            '非第二列并且非一个单元格被双击
Exit Sub                                        '则不录入数据直接退出过程
End If                                          '结束判断
End Sub                                         '结束本过程

[此贴子已经被作者于2006-7-28 18:26:57编辑过]

Long_III · 发表于 2005-8-5 16:45

5、类似分组显示数据，代码是 8Y7MAARl.rar (8.37 KB, 下载次数: 817)

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

[此贴子已经被plxmm于2006-7-28 18:27:50编辑过]

atmosphere · 发表于 2005-8-5 16:50

赞，各位大侠辛苦了

auteet · 发表于 2005-8-5 17:12

两位版主辛苦了。我正是初学者，真是太好了，这样来容易明白多了。

再谢。

		自动登录	找回密码
密码			免费注册