不懂VBA也编程

pixy999

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

目录.rar (58.17 KB, 下载次数: 28)

2013-12-19 14:49 上传

点击文件名下载附件

多谢您的耐心 我上传了附件 要求写在每个表里了，请指教

一玩就中

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

山菊花

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

供参考。

pixy999

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

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

fffox

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

我爱你！

学习学习！

山菊花

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

1. 
   
2. Sub Test()
   
3.     t = Timer
   
4.     Calculate
   
5.     MsgBox Timer - t & "秒"
   
6. 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次：

1. Sub Test2()
   
2.     t = Timer
   
3.     For i = 1 To 100
   
4.         Me.Calculate
   
5.     Next
   
6.     MsgBox Timer - t & "秒"
   
7. End Sub
   

复制代码

江陵小鱼

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

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

rumengruyun

http://club.excelhome.net/forum. ... =1088571&extra=

版主  能给解决这个问题么

山菊花

在工作表中，用三列显示“完成情况”的当前状态，直观效果很强，有较好的可读性。

制作步骤：
1、右键单击工作表标签，在VBE编辑框中编辑代码（见附件）。
2、如有必要可选择C:E区域，设置条件格式，突出显示当前选项。

示例2，用单元格代替选项按钮组录入绩效等级，计算总分。


在工作表中使用复选框实例：


复选框运用实例：