[问题求助] 请问如下简单VBA功能，如何在永中实现？

请问

初级会员

Rank: 1

UID: 7608
帖子: 2
精华: 0
积分: 3
阅读权限: 10
在线时间: 0 小时
注册时间: 2007-10-24
最后登录: 2007-10-26

发短消息
加为好友
当前离线

1^F 大中小发表于 2007-10-24 10:03 只看该作者

请问如下简单VBA功能，如何在永中实现？

下面是EXCEL的VBA程序

Private Sub dx1y_Click()
dx1n.Enabled = False
dx1d.Enabled = True
Cells(10, 5) = "yes"
Range("e11").Select
Selection.ClearContents
End Sub

其中，dx1y，dx1n，dx1d都是普通的button控件。
Range("e11").Select
Selection.ClearContents
是把e11的内容清空。

谢谢。

TOP

请问

初级会员

Rank: 1

UID: 7608
帖子: 2
精华: 0
积分: 3
阅读权限: 10
在线时间: 0 小时
注册时间: 2007-10-24
最后登录: 2007-10-26

发短消息
加为好友
当前离线

2^F 大中小发表于 2007-10-26 11:09 只看该作者

我自己查到了答案。

dx1y.setEnabled(false);
dx1d.setEnabled(true);
ActiveWorksheet.select("e9");
ActiveCell.setValue("yes");
ActiveWorksheet.select("e11");
ActiveRange.clearContents();

TOP

‹‹ 上一主题 | 下一主题 ››