[求助]根据条件显示和隐藏图片

yyhd · 发表于 2006-10-18 20:48

1、我在"保存"按钮图片上指定了一个宏用来保存数据,但在工作中有时粗心大意,在上面的表格没有填写完整时,就误按了"保存"按钮,导致了错误操作.

2、我想实现的是只有当B2:B7单元格不为空时才显示"保存"按钮,否则"保存"按钮为隐藏状态.
也就是根据条件显示和隐藏图片.

3、无论是用函数还是宏只要能实现就好.

请各位大侠出手相助!先谢谢了!

0riBNsDx.rar (8.41 KB, 下载次数: 23)

yyhd · 发表于 2006-10-18 20:57

如果能实现当B2:B7任一单元格为空时为"保存"按钮指定的宏无效(也就是说点击"保存"按钮时宏不运行),当B2:B7单元格全部不为空时为"保存"按钮指定的宏有效(也就是说点击"保存"按钮时宏运行).也可以解决我的问题.

R.R. · 发表于 2006-10-18 21:18

你可在"保存"按钮的宏中设计判断语句,当B2:B7单元格存在空时作出提示,否则,执行你现在的语句.这样可能效果更好.

LangQueS · 发表于 2006-10-18 21:24

用单元格做按钮

w1JmnWjE.rar (9.6 KB, 下载次数: 90)

yyhd · 发表于 2006-10-18 21:38

R.R.能作个实例吗?

LangQueS的方法也不错,实现了目的,实在不行就用你的了.请问实现单击怎么写代码?谢谢你!

[此贴子已经被作者于2006-10-18 21:50:52编辑过]

LangQueS · 发表于 2006-10-18 21:58

C09kSMpr.rar (9.85 KB, 下载次数: 71)

yyhd · 发表于 2006-10-18 22:28

LangQueS你好!我将你的代码复制到我存有数据的工作簿内,(已有很多数据,但工作表格式和名称都是相同的)再点击"E1"却不响应,你是怎么实现单元格响应宏的呢!我只懂录制录,一点也看不懂代码,请你注释一你的下代码好吗?谢谢了!

[此贴子已经被作者于2006-10-18 22:51:48编辑过]

LangQueS · 发表于 2006-10-18 22:46

QUOTE:

以下是引用yyhd在2006-10-18 22:28:36的发言：
LangQueS你好!我将你的代码复制到我存有数据的工作簿内,(已有很多数据,但工作表格式和名称都是相同的)再点击"E1"却不响应,你是怎么实现单元格响应宏的呢!我只懂录制录,一点也看不懂代码,请你注释一你的下代码好吗?谢谢了!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("$F$1") = "关闭" Then Exit Sub
Select Case Target.Address
Case "$E$1"
Call 保存数据
End Select
End Sub
鼠标右键点击工作簿左上的Excel标识》查看代码》打开工程窗口》双击选择有关工作表》复制以上代码并粘贴到该表

（代码不能放到模块内；可以根据实际需要修改以上代码，或者在一个工作表内设置多个单元格按钮和激活多个宏）

yyhd · 发表于 2006-10-18 22:54

问题已解决。对LangQueS表示感谢！

R.R. · 发表于 2006-10-19 13:17

Sub 保存数据()
'
' 保存数据 Macro
' 宏由 dw 录制，时间: 2006-10-18
'

If Trim([B2].Text) = "" Then
[B2].Select
MsgBox [A2] & "不能为空"
ElseIf Trim([B3].Text) = "" Then
MsgBox [A3] & "不能为空"
[B3].Select
ElseIf Trim([B4].Text) = "" Then
MsgBox [A4] & "不能为空"
[B4].Select
'.下面照样子自己写,一直写到B7
Else
    Sheets("数据").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("A1:F1").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("记录单").Select
    Range("B2:B7").Select
    Selection.ClearContents
    Range("B2").Select
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助]根据条件显示和隐藏图片

抛砖引玉

单击单元按钮