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

mickey5772

是啊，这样一来看程序我对编写者的思路更容易理解，否则对我们菜鸟来说简真是天书一样。赞！！！[em08][em04]

york888

其实这样既有解释又有例子说明, 这样的VBA想学不识都好难!

支持 LONG 兄!

Long_III

谢谢大伙支持，不过我的本意是大家都来参加接龙，如Plxmm和17小菜，不管代码复杂还是简单，只要有注释学习就会快点

UNARTHUR兄，你也来点啊

今天工作比较忙，也就没写东西，有空我一定会继续充实本贴的，谢谢大家的关注

plxmm

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ' 用于鼠标右键点击到B列时自动创建‘数据有效性’ On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕刷新 If Target.Column = 2 And Target.Count = 1 Then '判断是否在B列右击鼠标 Application.CommandBars("CELL").Enabled = False '如果是，关闭鼠标右击弹出菜单 With Selection.Validation '对所单击的单元格，创建数据有效性 .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="Hello,Very good,Every day,898,0044,44944" '内容可以自己修改 .IgnoreBlank = True '设置单元格 允许空值 .InCellDropdown = True '提供下拉列标 .InputTitle = "友情提示" '提示标题 .ErrorTitle = "" '出错提示，可以自己添加 .InputMessage = "你在此单元格，可以选择一个费用类别。也可以自己添加实际发生的新类别。但必须是符合规定的类别。" '提示语句 .ErrorMessage = "" '出现非有效性中内容时的提示。可以自己添加 .IMEMode = xlIMEModeOff '关闭输入法 .ShowInput = True '如果用户输入了无效数据,显示数据有效性检查输入消息 .ShowError = False '如果用户输入了无效数据,显示错误消息， End With Else '判断不在B列右击鼠标，则打开鼠标右击弹出菜单 Application.CommandBars("CELL").Enabled = True End If '结束判断 Application.ScreenUpdating = True '恢复屏幕刷新 End Sub '结束过程

[此贴子已经被作者于2005-8-9 16:35:53编辑过]

Long_III

那就麻烦点，也是先这样 arr = rng '定义一个数组等于rng区域（包含所有数据哦）

然后判断arr(i,1)是否为空，不为空就增加到新数组中【这个新数组，可得用动态数组哦】，自己试试了

青山依旧

谢谢各们GG、JJ的倾情奉献，要努力学习才能回报。

lthero

来完了，从头慢慢看拉～～学习ing

hejun_2008

我是新手，看了你们的帖子非常易懂，谢谢，辛苦了!!!!!!

lj1226189

在龙三老师提示下改的！

Sub hjs() Dim irow%, icol%, k% Dim rng As Range Dim arr, arr1() Dim aa aa = Timer Application.ScreenUpdating = False Set rng = Sheet1.[a1].CurrentRegion '转换成数组之后操作,速度可以提高N倍 arr = rng '定义一个数组等于rng区域 k = 1 ReDim arr1(1 To rng.Count, 0) '重新定义一个与转换之后的单元格大小相等的数组，这个0一定要 For icol = 1 To rng.Columns.Count For irow = 1 To rng.Rows.Count If arr(irow, icol) <> "" Then '如果单元格不为空的时候 arr1(k, 0) = arr(irow, icol) '行列转换赋值 k = k + 1 End If Next Next Sheet2.Range("a:a").ClearContents Sheet2.Range("a1:a" & rng.Count) = arr1 '给第二个表的a列赋值 Application.ScreenUpdating = True MsgBox "Done！共" & Format(Timer - aa, "0.0000") & "秒" '记录所用的时间 End Sub

konggs

龙哥，你怎么不说你的每个代码是什么的干活。

我看了，不知道干什么的。（其实就是我太菜的原故）