Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6153 / 76735

←次へ　｜　前へ→


	【76184】タブレット端末で実行できるようにしたい。

おかわりくん - 14/10/9(木) 18:24 -


	引用なし

	パスワード

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にその内容が移動し、移動した後はダブルクリックするごとに、下に一段下がるイベントです。

0 hits

▼

【76184】タブレット端末で実行できるようにしたい。 おかわりくん 14/10/9(木) 18:24

≪