按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
来个＇随插即用＇
以上利用三个个对象
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