到某特定时期后工作表“Sheet1”中的ActiveX按钮隐藏（不删除）。

opklnm1108 · 发表于 2024-1-21 22:08

到某特定时期后工作表“Sheet1”中的ActiveX按钮隐藏（不删除）。感谢！

qline302 · 发表于 2024-1-22 11:26

’在sheet1表下运行
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'有数据显示按钮，没数据隐藏
Me.CommandButton删除.Visible = ActiveSheet.UsedRange.Rows.Count > 2
End Sub

opklnm1108 · 发表于 2024-1-22 11:49

qline302 发表于 2024-1-22 11:26
’在sheet1表下运行
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'有数据显示按钮， ...

非常感谢，个人觉得不是太理想

qline302 · 发表于 2024-1-22 11:51

因为你没有指明特点时期如何判断，所以仅供参考。

opklnm1108 · 发表于 2024-1-22 11:56

qline302 发表于 2024-1-22 11:51
因为你没有指明特点时期如何判断，所以仅供参考。

我的意思是时间写在代码里，>=它时就隐藏。感谢

qline302 · 发表于 2024-1-22 12:03

哦. Me.CommandButton删除.Visible = Date >= #2024/01/23#

opklnm1108 · 发表于 2024-1-22 15:34

qline302 发表于 2024-1-22 12:03
哦. Me.CommandButton删除.Visible = Date >= #2024/01/23#

好像不起作用

qline302 · 发表于 2024-1-22 16:27

测试可以用的呀，范例中代码内日期修改成明天的就会不见按钮。

opklnm1108 · 发表于 2024-1-22 17:33

qline302 发表于 2024-1-22 16:27
测试可以用的呀，范例中代码内日期修改成明天的就会不见按钮。

如果将时间修改能不能恢复过来啊

qline302 · 发表于 2024-1-22 18:13

试试不就知道了

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

[求助] 到某特定时期后工作表“Sheet1”中的ActiveX按钮隐藏（不删除）。