ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 291079|回复: 438

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

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2005-8-5 14:27 | 显示全部楼层 |阅读模式

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

VBA入门资料链接 100楼

~ ~ ~ 在OFFICE精英俱乐部的VBA接龙贴

应部分朋友的要求,我在一楼做一个大致目录。以后更新也会在这里增加(对于其他朋友的代码注释没有注明,望见谅)
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编辑过]

soCmSWT0.rar

23.05 KB, 下载次数: 2776

[接头]大家都把自己的代码都注释出来,供一些入门选手学习!

TA的精华主题

TA的得分主题

发表于 2005-8-5 14:43 | 显示全部楼层
Long_III GG 辛苦啊。[em24][em23][em22][em17]

TA的精华主题

TA的得分主题

发表于 2005-8-5 15:03 | 显示全部楼层
这样的帖子应该置顶,很容易看明白呀。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-5 15:12 | 显示全部楼层

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

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

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


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

m6YjgbWu.rar

23.05 KB, 下载次数: 584

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-5 15:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

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编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-5 16:03 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-8-5 16:19 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

呵呵,响应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编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 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编辑过]

TA的精华主题

TA的得分主题

发表于 2005-8-5 16:50 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

赞,各位大侠辛苦了

TA的精华主题

TA的得分主题

发表于 2005-8-5 17:12 | 显示全部楼层

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

再谢。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-1 08:35 , Processed in 0.051400 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表