求高手编写一个VBA按钮命令的click代码。
要求能实现选中单元格时调用F2后调用F9后调用enter。也就是把单元格的公式变成数值。另一个是对比两个单元格的数据是不是完全相同。...
要求能实现选中单元格时调用F2后调用F9后调用enter。也就是把单元格的公式变成数值。
另一个是对比两个单元格的数据是不是完全相同。 展开
另一个是对比两个单元格的数据是不是完全相同。 展开
3个回答
展开全部
在sheet表的名字上,右键,查看代码,将下面的代码复制到代码窗中(要操作的sheet表的代码窗),然后返回sheet表就行了
---------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Dim c As Range
For Each c In Target.Cells
c.Value = c.Value
Next
Application.EnableEvents = True
End Sub
-----------------
刚才没看见是“VBA按钮命令的click代码。”,用下面这个,直接用按钮调用:
Public Sub ToVal()
On Error Resume Next
Application.EnableEvents = False
Dim c As Range
For Each c In Selection.Cells
c.Value = c.Value
Next
Application.EnableEvents = True
End Sub
---------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Dim c As Range
For Each c In Target.Cells
c.Value = c.Value
Next
Application.EnableEvents = True
End Sub
-----------------
刚才没看见是“VBA按钮命令的click代码。”,用下面这个,直接用按钮调用:
Public Sub ToVal()
On Error Resume Next
Application.EnableEvents = False
Dim c As Range
For Each c In Selection.Cells
c.Value = c.Value
Next
Application.EnableEvents = True
End Sub
展开全部
Private Sub CommandButton1_Click()
msgbox "Hello, world."
End Sub
msgbox "Hello, world."
End Sub
更多追问追答
追问
高人。请问下面的怎么写?你速度太快了。 我都没有说完。
追答
For Each cell In Selection.Cells
cell.value=cell.value
next cell
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
固定F2和F9吗?哪个跟哪个比较?F2和F9吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询