按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
准之三层式结构 （3…Tier）
大量储存格有公式；如何才能看到连结部分？
CTRL＋~ ，TAB 键上那一撇，此物用来切换；看两个容器内摆甚么东西 ，刚才用F9 键转出公式
容器内之＇内嵌＇部分，F9 键用来检查复杂函数内某部分函数所产生之值 ，通常打 x 不打勾 ，
VBA 有个实时运算窗口
工作表环境：F9键取代此物 。
使用者者很难见识到如此操作：东西断层了；因而始终搞不清楚到底怎么一回事，这东西叫作
OLE ，任何对象都有的；当然对象内还有其它东西 ，统称 ，ponent Object Model（），
范例文件 SAMPLES。XLS 提到了一句话；从此没有下文 ，难怪使用者用不到 Excel 20％功能 ，
结构先搞清楚；剩下来就很容易操作了 ，3 个 组组件组合起来 ，即是个应用模块 ，用不
着 VBA 的。Excel 工作表 A4 纸直印是 8 栏；横印是 12 栏 。选 HI》》CTRL＋ 向下键》》至
H65536》》H65536 随便给个字》》检视分页模式》》100％》》25％ 。直印显示 1425 页 。横印显示2260
页。分页线可以手动调整字段大小 。一张工作表不够使用吗？以上操作证明是足够的 。观察
一般使用者习惯；一张工作表使用范围；只有一张A4 纸大小；很浪费 。原因是切换到各区块不
方便；只好开 16 张工作表；使用工作表名称当按钮使用。Excel 5。0 版留下之默认值；造成此习
惯；一个档案开 16 个工作表给使用者用 。当时无超级链接功能；但可以直接用名称方块作切换；
或用 VBA 解决。解决方法： A。在此缩小比例及分页模式状态下双击任意储存格上外框回第一列
397
…………………………………………………………Page 398……………………………………………………………
滚动条微调显示分页第 2 页；选取 A47：A92 范围命名为第 2 页
重复此工作在 A 栏命名至第 16 页；然后存盘
B。选 B1 储存格按地球》》选书签》》选第 2 页》》确定
重复此工作；作连结工作
不用储存格使用 ART 对象来作也可以；作好以后把它组成群组当操作面板使用
C。冻结窗格
由于跳书签该范围是在选取状态下；碍眼；可将 A 栏隐藏
工具》》选项》》一般新活页簿内的工作表》》将 3 改为 1》》最低消费者
试用满意的话；删除多余工作表；只使用此一张工作表；另存新文件选模板文件
关闭 Excel》》开启 Excel》》选 Sheet1》》右键》》插入》》双击该刚才作好之模板文件
来个＇随插即用＇
以上利用三个个对象
1。命名＇对象包装法＇
2。超级链接
3。冻结窗格
用 VBA 实现会计的先进先出法则
解答：'先进先出法
If sl。Value 》 0 Then
Cells（I2； H） = sj。Text
Cells（I2； H ＋ 1） = sl。Value
Cells（I2； H ＋ 2） = je。Value
Cells（I2； H ＋ 3） = fhks。Value
Cells（I2 ＋ 1； H ＋ 1）。Formula = 〃=SUM（R＇〃 & …I2 ＋ 2 & 〃＇C：R＇…1＇C）〃
Cells（I2 ＋ 1； H ＋ 2）。Formula = 〃=SUM（R＇〃 & …I2 ＋ 2 & 〃＇C：R＇…1＇C）〃
MsgBox （〃现在〃 & wp。Value & 〃库存为〃 & Cells（I2 ＋ 1； H ＋ 1）。Value）
Unload Me
Exit Sub
Else
If Abs（sl。Value） 》 Cells（I2； H ＋ 1）。Value Then
MsgBox （〃现在〃 & wp。Value & 〃库存为〃 & Cells（I2； H ＋ 1）。Value & 〃超库存容量〃）
Unload Me
End If
End If
I3 = I2 1
B1 = sl。Value * 1
B2 = sl。Value * 1
Cells（I3； H ＋ 1）。Activate
Cells（I2； H ＋ 2）。Value = 0
B3 = 1
LINE4：
If Cells（I3； H ＋ 1）。Value ＋ B1 》 B2 Then
If Cells（I3； H ＋ 1）。Value ＋ B1 》 0 Then
Cells（I2； H ＋ 2）。Value = Cells（I3； H ＋ 2） / Cells（I3； H ＋ 1） * B1 ＋ Cells（I2； H ＋ 2）。Value
398
…………………………………………………………Page 399……………………………………………………………
MsgBox （Cells（I2； H ＋ 2）。Value）； ； 〃总数〃
Cells（I2； H） = sj。Text
Cells（I2； H ＋ 3） = fhks。Value
Cells（I2； H ＋ 1） = sl。Value
Cells（I2 ＋ 1； H ＋ 1）。Formula = 〃=SUM（R＇〃 & …I2 ＋ 2 & 〃＇C：R＇…1＇C）〃
Cells（I2 ＋ 1； H ＋ 2）。Formula = 〃=SUM（R＇〃 & …I2 ＋ 2 & 〃＇C：R＇…1＇C）〃
Unload Me
Exit Sub
Else
B3 = B2 Cells（I3； H ＋ 1）。Value B1
MsgBox （B3）； ； 〃沉淀数量〃
MsgBox （Cells（I2； H ＋ 2）。Value）
MsgBox （Cells（I3； H ＋ 2） / Cells（I3； H ＋ 1） * B3）
Cells（I2； H ＋ 2）。Value = Cells（I3； H ＋ 2） / Cells（I3； H ＋ 1） * B3 ＋ Cells（I2； H ＋ 2）。Value
MsgBox （Cells（I2； H ＋ 2）。Value）； ； 〃过程金额〃
B2 = Cells（I3； H ＋ 1）。Value ＋ B1
B1 = B2
I3 = I3 1
MsgBox （B1）； ； 〃差额数量〃
GoTo LINE4：
End If
Else
B1 = B1 ＋ Cells（I3； H ＋ 1）。Value
I3 = I3 1
GoTo LINE4：
End If
使用了循环语句
使用了 b1 b2 b3 作为数量的传递。
简单测试通过。
一个加密系统
在打开 EXCEL 时，先运行我的加密窗口（用 VBA 编写的 LOCK。frm），现在请问，如何在当关闭
…加密窗口 （lock。frm）时，自动关闭 EXCEL？？我曾经见过其它 EXCEL 模块有此功能，但不知
如何编写的。
解答：********ThisWorkbook program *********
Private Sub Workbook_Open（）
UserForm1。Show
End Sub
*********** UserForm1 program *********
Private Sub mandButton1_Click（）
UserForm1。Hide
If UCase（input1） 〃ULOCK〃 Then 'input1》》textbox
399
…………………………………………………………Page 400……………………………………………………………
MsgBox 〃密码错误〃
ActiveWindow。Close
End If
MsgBox 〃欢迎使用本系统。。。。。。。〃
End Sub
在不同工作表里位置相同的单元格里相同的公式，根据工作表名称引用不同的单元格
解答：如果工作表的名称做的有规律就比较简单，可以用变量生成序号，然后合成工作表名
称，比如：
i=5
j=〃sheets〃＋ctsr（i）
m=j。cells（2；1）。value
更改 i 的值就能引用不同工作表了。
如果没有规律，可以求工作表的序号，进而得到工作表的名称，然后如何引用就很类似了。
快速撤销工作表保护
有一工作表，在其中的几列中有计算公式，比如 B、F、K 列等，且其中有一列公式使用的函数
为 HYPERLINK（），直接点击该单元格时会打开一个网页。当我要在工作表中进行插入行操作时，
如何快速完成如下工作：1：撤销工作表保护；2、将所有公式复制到新插入行中；3、进行工
作表保护。
如果使用宏该如何设计？
解答：1。在你的宏前先取消保护
ActiveSheet。Unprotect （〃1234〃）
此例假设密码为 1234
执行完宏再次保护工作表
ActiveSheet。Protect Password：=〃1234〃
此例假设密码 1234。
2：你的第 1；3 问如楼上所说，或写个过程：
Sub sSheetProtect（Protect As Boolean）
With ActiveSheet
If 。ProtectContents = True Then
。Unprotect Password：=〃password〃
End If
If Protect = True Then
If 。ProtectContents = False Then
。Protect Password：=〃password〃； DrawingObjects：=True；
Contents：=True； Scenarios：=True
End If
End If
End With
End Sub
第 2 个问：
Rows（〃4：4〃）。Insert Shift：=xlDown
400
…………………………………………………………Page 401……………………………………………………………
Rows（〃3：3〃）。Copy
Rows（〃4：4〃）。PasteSpecial Paste：=xlFormulas
关于加密窗口的问题
问题一：关于加密窗口的问题！上次请教了一个关闭 EXCEL 函数的问题！现在又发现一个问题：
即在VBA 的FRM 窗口右上方的“X”如果去掉？因为它关闭了我的加密窗口就不起作用？或者
如果按“X”的时候，自动关闭EXCEL 就行，如何？问题二，我每次经过加密窗口后进入工作
表，总是被隐藏了，用什么函数把隐藏的 自动打开？
解答：1、Private Sub UserForm_QueryClose（Cancel As Integer； CloseMode As Integer）
If CloseMode 1 Then Cancel = 1
UserForm1。Caption = 〃The Close box won't work！ Click me！〃
End Sub
2、Sub dd（）
For i = 1 To Worksheets。Count
Sheets（i）。Visible = True
Next i
End Sub
加密窗口为何总是出现 424 出错信息
*********** UserForm1 program *********
Private Sub mandButton1_Click（）
UserForm1。Hide /// 这里总是出错 424
If UCase（input1） 〃ULOCK〃 Then 'input1》》textbox
MsgBox 〃密码错误〃
ActiveWindow。Close
End If
MsgBox 〃欢迎使用本纟统。。。。。。。〃
End Sub
解答：1。你要先自订 Form；Form 的名称为UserForm1
2。form 中有 textbox 设名称为 input1
以上若未设则error
我在做自定