VBA入门之二《一夜暴富》

hu841128

谢谢

zgx854

辛苦了!谢谢你!

还是那么一句话,既晕又不过瘾!

forrest

QUOTE:

以下是引用山菊花在2006-8-12 20:16:32的发言：

练习还顺畅吗？

工作表具有Visible属性，改变它的值，即是隐藏或显示指定的工作表。

其它对象是否有这属性？打开下面的附件看看：

习题中的第三小问：在一个按钮上实现“显示/屏蔽图像”的功能没实现。

Image1.visible=Not Image1.visible 

这个解法真酷，但想实现按钮随着按动来交互实现“显示”/“屏蔽”字样。未果，留待研究。

dgwdgw

向版主好好学习

口是心非

山版，一夜暴富中有个相对引用，它是在录制新宏确定后自动出现的一个窗体（这是你演示中的），但我的机子在照着您的指令操作是，并为出现那个窗体，也没有那个相对引用，请问可以用别的方法让它显示出来吗？？？

山菊花

点击“视图—工具栏—自定义”。

在“自定义”对话框中的“工具栏”页中，选择“停止录制”。

forrest

QUOTE:

以下是引用山菊花在2007-4-12 13:08:27的发言：

To hbhfgh4310版主：5楼附件中使用的是一个图像控件，你的VBA练习工作表中是一个插入到工作表的图片，这两者貌似相同，实质不同。

先弄清两个概念：控件与图形，参考：

羊和披着羊皮的狼—闲话控件与图形
  

重新温故才深刻理解,图形和图像控件的区别.只有控件才有属性和方法.

forrest

QUOTE:

以下是引用山菊花在2007-6-29 23:50:53的发言：

默认情况下，Range("A1")表示工作表的第1行第1列的那个单元格，还可以指定工作簿中特定的工作表，如Sheet2.Range("A1")。

其实，工作表中任意一个区域，也存在“第1行第1列的单元格”，这个单元格也可以称作“这个区域的Range("A1")”，如区域I6:K10，它的“第1行第1列所在单元格”是I6，这个单元格可以表示为：Range("I6:K10").Range("A1")，同理，Range("I6:K10").Range("B2")表示J7单元格。

 

问题问得好,老师解答的更浅显易懂.

forrest

QUOTE:

以下是引用57wk在2007-9-4 21:20:07的发言：

请教菊花版主，学了5楼讲的按钮隐藏后还没得要领。我希望当某一单元格（如B5）为空时，按钮1就隐藏；反之，当（如B5）不为空时，按钮1就显示。这代码应怎样写？我下面这段代码错在何处？

Private Sub Calendar1_Click()

 If Sheet1.[b5] = "" Then
  CommandButton1.Visible = False
  If Sheet1.[b5] <> "" Then
   CommandButton1.Visible = True
  End If
 End If

End Sub

不理解,还是看楼下版主的解释.

[此贴子已经被作者于2007-10-7 21:22:55编辑过]

山菊花

QUOTE:

以下是引用57wk在2007-9-4 21:20:07的发言：

请教菊花版主，学了5楼讲的按钮隐藏后还没得要领。我希望当某一单元格（如B5）为空时，按钮1就隐藏；反之，当（如B5）不为空时，按钮1就显示。这代码应怎样写？我下面这段代码错在何处？

Private Sub Calendar1_Click()

 If Sheet1.[b5] = "" Then
  CommandButton1.Visible = False
  If Sheet1.[b5] <> "" Then
   CommandButton1.Visible = True
  End If
 End If

End Sub

当单元格的值发生变化时，影响到按钮Visible属性的变化。这种情况下，应该把代码写在工作表的Worksheet_Change事件中：

QUOTE:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$5" Then
        If Target = "" Then
            CommandButton1.Visible = False
        Else
            CommandButton1.Visible = True
        End If
    End If
End Sub

 

代码可以这样写：

QUOTE:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
CommandButton1.Visible = Target <> ""
End If
End Sub

 

或者：

QUOTE:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$5" Then CommandButton1.Visible = Target <> ""
End Sub

rjFqJReQ.zip (6.84 KB, 下载次数: 77)

2007-10-6 23:31 上传

点击文件名下载附件
VBA入门之二《一夜暴富》