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

lss001

——﹉﹉﹉﹉﹉——

lsdongjh

是不是这个效果

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.      Dim arr As Variant
   
5.      arr = GetAddByControlCmd(Target)
   
6.      If Not IsArray(arr) Then Exit Sub
   
7.      
   
8.      Range("A1").Resize(UBound(arr), 3) = arr
   
9. End Sub
   
10. 
    
11. Function GetAddByControlCmd(Target As Range) As Variant
    
12.     Dim strAddress As String, strAdd() As String
    
13.     Dim arrResult As Variant, intID As Integer
    
14.    
    
15.     strAddress = Target.Address(0, 0)
    
16.    
    
17.     If CheckControlCmd(Target) = True Then
    
18.         strAdd = Split(strAddress, ",")
    
19.         ' 按Control前，肯定先选择了一个单元格，因此，首个地址先取消，当然，你也可以不取消
    
20.         ReDim arrResult(1 To UBound(strAdd), 1 To 3)
    
21.         For intID = 1 To UBound(strAdd)
    
22.             arrResult(intID, 1) = strAdd(intID)
    
23.             arrResult(intID, 2) = strAdd(intID)
    
24.             arrResult(intID, 3) = strAdd(intID)
    
25.         Next
    
26.     End If
    
27.    
    
28.     GetAddByControlCmd = arrResult
    
29. End Function
    
30. 
    
31. Function CheckControlCmd(Target As Range) As Boolean
    
32.     Dim strAddress As String
    
33.     strAddress = Target.Address(0, 0)
    
34.     If InStr(strAddress, ",") Then
    
35.         CheckControlCmd = True
    
36.     Else
    
37.         CheckControlCmd = False
    
38.     End If
    
39. End Function
    

复制代码

netman007

正需要，学习了！

ArcaneJ

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

那就很简单，检查 target.addr ...

法师是真的机智

企鹅村总干事

livewire 发表于 2011-6-26 22:39

非常有用！