不懂VBA也编程

pixy999 · 发表于 2013-12-19 14:50

山菊花发表于 2013-12-19 13:36
无论是显示表还是隐藏表，都用VBA代码去实现，都可以用代码去实现，你的第一个要求“点击学校设置时显示其 ...

目录.rar (58.17 KB, 下载次数: 28)
多谢您的耐心我上传了附件要求写在每个表里了，请指教

一玩就中 · 发表于 2013-12-19 15:02

跟着学习，不懂VBA也会编程{:soso_e179:}

山菊花 · 发表于 2013-12-19 15:18

pixy999 发表于 2013-12-19 14:50
多谢您的耐心我上传了附件要求写在每个表里了，请指教

供参考。

pixy999 · 发表于 2013-12-19 17:06

山菊花发表于 2013-12-19 15:18
供参考。

谢谢您的耐心指教受益匪浅！多谢！

fffox · 发表于 2014-1-8 13:48

有些是没想到，有些确是不会做。谢谢山版，收藏学习

我爱你！ · 发表于 2014-1-9 21:07

学习学习！

山菊花 · 发表于 2014-1-11 14:18

常常需要测试一个或多个公式运算所需的时间，可以这样做：
右键单击工作表标签，把下面的代码粘贴到当前代码窗口中：

Sub Test()
t = Timer
Calculate
MsgBox Timer - t & "秒"
End Sub

复制代码

把光标定位到代码的任意一行，按F5运行它即可得到测试的时间。

说明：
1、代码首尾两行是VBA过程的固定格式，表示开头结束，Test是过程名称，可以自行修改。
2、Calculate 是计算指定的单元格。根据测试目的不同，可以限制计算的范围：
Calculate ：计算所有打开的工作簿;
Application.Calculate ：计算所有打开的工作簿;
Me.Calculate ：计算本工作表（右键单击的这个工作表）;
Worksheets(1).Calculate ：计算本工作簿的第一个工作表;
Sheets("成绩表").Calculate ：计算标签为“成绩表”的工作表;
Me.Range("F8:K20").Calculate：计算本工作表指定区域（F8:K20）;
还有其它用法可查看Calculate帮助。
3、代码第2行是保存开始计算前的时间。
4、代码第4行是计算并显示用去的时间。
5、有些时候测试的公式很快，眨眼就完成了，比不出结果，这种情况下，可以让工作表多计算几遍，即重复几次Calculate命令，下面的代码是计算本工作表100次：

Sub Test2()
t = Timer
For i = 1 To 100
Me.Calculate
Next
MsgBox Timer - t & "秒"
End Sub

复制代码

江陵小鱼 · 发表于 2014-1-11 16:00

、把光标放在第一个工作表希望插入目录的地方；

2、键入Alt+F11打开VBA编辑器，然后选择菜单“插入 - 模块”；

3、在代码编辑区粘贴如下代码：

Option Explicit

Sub AutoGenerateHyperlinks()

Dim nIndex As Integer
Dim oRange As Range

For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next

End Sub