二维码窗体文本框不能用右键粘贴

w8899

二维码窗体文本框不能用右键粘贴

ww87725244

猜一个

1. Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2. On Error Resume Next
   
3. Dim d As DataObject, ar, i&, k&, rng As Range, s$
   
4. Set d = New DataObject
   
5. Set rng = Sheet1.Range("a2:f3")
   
6. If Intersect(Selection, rng) Is Nothing Then
   
7.     Exit Sub
   
8. Else
   
9.     ar = Selection.Value
   
10.     For i = 1 To UBound(ar)
    
11.         For k = 1 To UBound(ar, 2)
    
12.             If k = UBound(ar, 2) Then
    
13.                 s = s & " " & ar(i, k) & Chr(10)
    
14.             Else
    
15.                 s = s & " " & ar(i, k)
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     d.SetText s
    
20.     d.PutInClipboard
    
21. End If
    
22. If Button = 2 Then
    
23.     With Application.CommandBars.Add("窗体菜单", msoBarPopup, , 1)
    
24.         With .Controls.Add(msoControlButton)
    
25.             .Caption = "粘贴"
    
26.         End With
    
27.         .ShowPopup
    
28.     End With
    
29.     Me.TextBox1.Text = s
    
30. End If
    
31. CommandBars("窗体菜单").Delete
    
32. End Sub

复制代码

w8899

ww87725244 发表于 2018-9-24 16:42
猜一个

没猜准，代码不管用

w8899

ww87725244 发表于 2018-9-24 16:42
猜一个

测试多回，关键在于A2:F3 SHEET1  只能对A2:F3区域的数据才能粘贴，但是能不能几个工作表都能通用？因为你这个代码对工作表有限制，不能多个工作表通用。