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

Long_III · 发表于 2005-9-30 14:43

它有很多规格的，不同规格就是不同一种，按代码里的意思，前两项完全一致才汇总第3列，应该不会有什么问题，plxmm，能具体说哪一规格吗？

199楼的附件更新了，最后的一个if判断应该在循环的后面。再次感谢UNARTHUR兄。

plxmm · 发表于 2005-9-30 14:50

好像S-SG的：10#6#8# 规格的数量没那么多啊。其他的还没仔细瞧。

UNARTHUR · 发表于 2005-9-30 15:39

嗬嗬！现在ok了，长兄辛苦了！

Long_III · 发表于 2005-9-30 20:26

49、自动加上拼音。没事做的一个好玩的，感觉平时用不到。选择一个范围，运行程序看看

u4SmEiGL.rar (12.63 KB, 下载次数: 193)

Sub PinYin() Dim rng As Range, c As Range Dim i% Application.ScreenUpdating = False '关闭屏幕更新，防止闪屏及加快代码运行 Set rng = Selection For Each r In rng '在所有选择的单元格里做一个循环 If Len(r) <> 0 Then '假如单元格不是空白的话 With r For i = 1 To Len(.Value) '从第一个到最后一个字符 Set c = Range("c:c").Find(Mid(.Value, i, 1), lookat:=xlPart) '在g列里查找这个字符，不完全匹配查找 If Not c Is Nothing Then '假如找到了，则 .Characters(i, 1).PhoneticCharacters = c.Offset(0, 1) '设置当前字符的拼音为找到单元格右边的单元格 End If Next .Phonetics.Visible = True '显示拼音 .Phonetics.Alignment = 2 '每个字符上面的拼音居中 End With End If Next Application.ScreenUpdating = True '打开屏幕更新 End Sub

Long_III · 发表于 2005-9-30 21:34

50、简单的sleep函数，单元格来回变色。我对API函数也不熟，只知道这个而已，大家可以自己搜索，学习一点入门的即可。

TLg9enzi.rar (10.46 KB, 下载次数: 172)

，代码：

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) '调用API函数，sleep '表示停顿多少毫秒，每次要用这个函数的时候必须要有这个引用

Dim p As Boolean '定义一个过程级变量

Private Sub CommandButton1_Click() Dim i%, iMax%

p = False '初始化P With Sheets("Sheet1").Range("A1") '针对第一个单元格 iMax = Len(.Value) '等于单元格长度 i = 1 Do .Characters(Start:=i, Length:=1).Font.ColorIndex = 3 '循环，设置单元格颜色为红色 DoEvents '交换控制权，这时可以操作其他代码 Sleep 200 '停顿0.2秒，200毫秒 .Characters(Start:=i, Length:=1).Font.ColorIndex = 1 '设置单元格颜色为黑色 i = i + 1 '循环中自动增加1 If i = iMax + 1 Then i = 1 '到结尾时自动返回最开始 Loop Until p = True '循环停止的条件，也就是按stop按钮之后停止 End With End Sub

Private Sub CommandButton2_Click() '停止按钮 p = True End Sub

qgng · 发表于 2005-9-30 22:54

花了3个小时，粗略的浏览了一下这个帖子，收藏了一些范例文件。

给我的感觉，龙三老师是一个非常热心且技术很高的人，我想，即使在学校里，老师也不一定有这么耐心。我虽然年纪不小了，但刚接触VBA，对它也很感兴趣，希望能有机会经常来这里向各位老师学习。

在这个帖子的最后，祝龙三老师国庆愉快！

Long_III · 发表于 2005-9-30 23:06

谢谢qgng！也谢谢大家的支持！

帖子到现在，基本包含了普通操作中大部分的例子。再以后，如窗体、类、代码操作代码、API函数、ADO编程等高级应用，我也不会，也是沿用论坛的例子，不会作过多介绍。

建议初学者先打好良好的基础，再开始写东西。

以后我还会更新这个帖子，但例子就很会少了，因为我不想弄一些重复的在里面。祝大家学习愉快！万事如意！

邹开程 · 发表于 2005-10-4 10:16

真是我们初学者的天地！

ycooper · 发表于 2005-10-4 19:15

谢谢龙三的劳动，无私与分享。这贴子看了又看，收益颇多。来这个网站的目的不仅因为这是个讲excel的地方，更多的是因为这里有像龙三这样默默奉献的人。对于我这样的新手来说，在这里学的不仅是excel技巧，更是学习这种无私奉献的胸襟。

Long_III · 发表于 2005-10-6 14:19

51、统计一列数里的重复情况！模仿UNARTHUR兄的作的，排序之后用数组进行统计，速度相当快，20000多行只有0.79秒即可。代码没有注释，大家可以对照之前的看

53kP3qvX.rar (7.96 KB, 下载次数: 261)

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