Excel VBA语句咨询？

来源：百度知道 编辑：UC知道 时间：2024/04/29 00:16:58
If .Range("A4").Value > 2 Then
Target.Font.ColorIndex = 5
这个语句是说当A4单元格大于2时改变其颜色；
If .Range("A4").Value > 2 Then
x% = sndPlaySound("C:\语音.wav", uFlags%)
这个语句是说当A4单元格大于2时播放C盘的语音；
If .Range("A4").Value > 2 Then
？？？？
请教有没有办法能当A4单元格大于2时能运行Ctrl+W键，需要怎么样添加语句呢？
SendKeys "^m"
SendKeys "^（m）"
SendKeys "^m"，1
SendKeys "^（m）"，1
都不能运行Ctrl+M组合键！请高手帮助解决！
当A4单元格大于2时能启动电脑的某预设程序，这个程序的激活需要Ctrl+M，写成SendKeys "{F5}"运行F5，但上面的语句却不能运行Ctrl+M组合，请帮助解决，帮助，感激不尽！

像你所说的，你在EXCEL中用VBA，快捷命令只适合在EXCEL中存在的，如果CTRL+M是特定的命令（也可是你自己编写的过程或函数）就必须存在于VBA中，你的问题可以解决的，我已试过了：

建立一个快捷键的代码段

Sub Macro1()
'
' Macro1 Macro
' 宏由 Winday 录制，时间: 2008-6-9
'
' 快捷键: Ctrl+m
'
ActiveCell.FormulaR1C1 = "abc"
End Sub

Public Sub test()
SendKeys "^m"
End Sub

你再试试吧，我这个是思路而已，细节自己修改

如果是EXCEL外的程序，我建议你用Shell命令，参数什么的网上很多

SendKeys "^m"