|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Intersect(Target, Range("b3:iz5")) Is Nothing Then Exit Sub
Call ido
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Intersect(Target, Range("b10:iz10")) Is Nothing Then Exit Sub
Call mati
Cancel = True
End Sub
Sub ido()
Dim c As Range
Set c = ActiveCell
c.Select
Selection.Cut
c.Offset(1, 0).Select
End Sub
Sub mati()
Dim c As Range
Set c = ActiveCell
c.Select
Selection.copy
c.Offset(-7, 0).Select
End Sub
上記のようなダブルクリックしたとき、右クリックしたときのイベントを作成したのですが、タブレットでも上記のイベントが出来るようにするには、どうすればよいのでしょうか?
座標10に移動したい内容を作り、右クリックしたときに、座標3にその内容が移動し、移動した後はダブルクリックするごとに、下に一段下がるイベントです。
|
|