请问：VBA中如何识别Ctrl键？

mansohu

在Selection Change中能否识别Ctrl键？想实现：按着Ctrl和不按Ctrl选择时执行不同的Sub。
请问可能吗？

mansohu

没人帮忙，自己顶一下，再碰碰运气

灰袍法师

如果仅仅是在 seletion change里面检测 ctrl + left click 和 left click

那就很简单，检查 target.address有没有逗号即可

因为excel的 ctrl + left click 一定会选择两个单元格区域，所以target.address必定包含逗号

[ 本帖最后由 灰袍法师 于 2011-6-19 05:57 编辑 ]

mansohu

原帖由 灰袍法师 于 2011-6-19 05:15 发表
如果仅仅是在 seletion change里面检测 ctrl + left click 和 left click

那就很简单，检查 target.address有没有逗号即可

因为excel的 ctrl + left click 一定会选择两个单元格区域，所以target.address必定包 ...

高人！简单又实用，谢谢！

mansohu

原帖由 灰袍法师 于 2011-6-19 05:15 发表
如果仅仅是在 seletion change里面检测 ctrl + left click 和 left click

那就很简单，检查 target.address有没有逗号即可

因为excel的 ctrl + left click 一定会选择两个单元格区域，所以target.address必定包 ...

好像还是不行，如果两个单元格相邻，就没有逗号，另外，如果按着Ctrl选择同一个单元格，也没有逗号啊，还有什么别的办法吗、？请指导

mansohu

请各位老师再帮帮忙吧

livewire

1. 
   
2. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
   
3. Private Const KEY_PRESSING As Integer = &H8000
   
4. Private Const KEY_PRESSED As Integer = &H1000
   
5. Private Const VK_CONTROL As Long = &H11
   
6. 
   
7. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
8. 
   
9.     If GetKeyState(VK_CONTROL) And KEY_PRESSED Then MsgBox "Ctrl key was pressed"
   
10.     If GetKeyState(VK_CONTROL) And KEY_PRESSING Then MsgBox "Ctrl key IS pressing down"
    
11. 
    
12. 
    
13. End Sub
    

复制代码

灰袍法师

原帖由 mansohu 于 2011-6-26 20:33 发表

好像还是不行，如果两个单元格相邻，就没有逗号，另外，如果按着Ctrl选择同一个单元格，也没有逗号啊，还有什么别的办法吗、？请指导

嗯？ 难道是版本差异？

我的excel2007在你说的两种情况都会返回带逗号两个区域

你就用七楼的代码好了

mansohu

原帖由 livewire 于 2011-6-26 22:39 发表

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const KEY_PRESSING As Integer = &H8000
Private Const KEY_PRESSED As Integer = &H1000
Private Const VK ...

深不可测
高深！
很好用，
非常感谢！

冰狩

那我问一下, 无论我怎么按 control 键,最后选中的(一或多个)单元格地址(可能是相邻的,可能是分开的),如何把它(/们)放到一个数组里(可能是一维的, 也可能是二维的, 三维的就先不考虑了)?