带你入门VBA，第四讲（如何控制关于工作薄与工作表）

yigepure

以下是引用兰色幻想在2004-10-15 21:35:00的发言： 你说的第二个问题，我准备以后再开一个专门关于窗体和控件应用的讨论，到时会细讲。

呵呵,好呀,你的经典之作"数据录入"和"伪正规软件的权限设置和密码登陆"非常棒,我非常期待哟.

yigepure

不过窗口录入中,

Private Sub CommandButton1_Click()
TextBox7.Value = TextBox7.Value + 1
Dim I As Integer
I = Application.WorksheetFunction.CountA(Columns("A:A")) + 1
Cells(I, 1) = TextBox7.Value - 1
Cells(I, 2) = TextBox1.Text
If OptionButton2.Value = True Then
Cells(I, 3) = 600
ElseIf OptionButton1.Value = True Then
Cells(I, 3) = 800
ElseIf OptionButton3.Value = True Then
Cells(I, 3) = 1200
ElseIf OptionButton4.Value = True Then
Cells(I, 3) = 1500
End If
Cells(I, 4) = TextBox2.Text
Cells(I, 5) = TextBox3.Text
Cells(I, 6) = TextBox4.Text
Cells(I, 7) = TextBox5.Text
Cells(I, 8) = TextBox6.Text
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox5.Value = ""
End Sub

这里是不是TextBox6.Value = ""

HXJWC

在这里学了很多，还能看明白，就是有很多问题，今晚好好学学，明天请教老师。谢谢!

yigepure

找到答案了,原来是这样的呀

Private Sub workbook_beforeclose(cancel as boolean) Dim b As Integer b = Worksheets.Count For c= 2 To b Sheets(C).Visible = False Next c End Sub

[此贴子已经被作者于2004-10-15 21:51:13编辑过]

yigepure

请问兰老师为什么是这样的呢.先前一个为什么不能通过呢.

为什么定义CANCEL为布尔数据呢

兰色幻想

以下是引用yigepure在2004-10-15 21:42:00的发言：

aOGeHDA4.rar (70.96 KB, 下载次数: 139)

2004-10-15 21:57 上传

点击文件名下载附件
带你入门VBA，第四讲（如何控制关于工作薄与工作表）

兰色幻想

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim b As Integer b = Worksheets.Count For c = 2 To b Sheets(c).Visible = False Next c

End Sub

yigepure

以下是引用兰色幻想在2004-10-15 21:58:00的发言：

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim b As Integer b = Worksheets.Count For c = 2 To b Sheets(c).Visible = False Next c

End Sub

请问兰老师为什么是这样的呢.先前一个为什么不能通过呢.

为什么定义CANCEL为布尔数据呢.它与前一个有什么区别呢

兰色幻想

以下是引用yigepure在2004-10-15 21:53:00的发言：

请问兰老师为什么是这样的呢.先前一个为什么不能通过呢.

为什么定义CANCEL为布尔数据呢

事件程序的(Cancel As Boolean)是系统自动加上的不能修改，选取方法在我上传文件的SHEET3里（SHEET3是隐藏状态，取消隐藏）。

yigepure

看到了,我是用代码将它显示出来的,其实EXCEL我还是很菜的.

一般将工作表隐藏是怎么样的呀.

我没有看见你的取消隐藏的地方.

我用的是2000