Excel VBA質問箱 IV

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

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


6152 / 76734 ←次へ | 前へ→

【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 質問
【76192】Re:タブレット端末で実行できるようにした... γ 14/10/12(日) 11:42 発言
【76201】Re:タブレット端末で実行できるようにした... おかわりくん 14/10/13(月) 18:27 発言
【76204】Re:タブレット端末で実行できるようにした... γ 14/10/13(月) 19:08 発言

6152 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free