Excel VBA質問箱 IV

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

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


1122 / 13645 ツリー ←次へ | 前へ→

【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 発言[未読]

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

【76192】Re:タブレット端末で実行できるようにし...
発言  γ  - 14/10/12(日) 11:42 -

引用なし
パスワード
   こんにちは。
コード内容をつぶさに拝見していませんが、
タブレット以外の通常のPCでは動作すると思います。
(Selectを多用している点や、インデントがつけられていないなどの
 改善点はありますが。)
タブレッドだからといって、特別なExcelコードがあるわけではないと思います。

むしろ、タブレットでは、(タブレットではないPCの)ダブルクリックなどに
相当する操作がきちんとできているのか、
そちらを確認することが大切ではないでしょうか。

【76201】Re:タブレット端末で実行できるようにし...
発言  おかわりくん  - 14/10/13(月) 18:27 -

引用なし
パスワード
   ▼γ さん:
ご回答ありがとうございます。
他の端末で動作確認はできました。が、やはりタブレット端末だけ動作が確認出来ません。
改善点をこうすれば、という記述をご面倒お掛けいたしますが、お願いできないでしょうか?

【76204】Re:タブレット端末で実行できるようにし...
発言  γ  - 14/10/13(月) 19:08 -

引用なし
パスワード
   コードの問題じゃなく、タブレット端末の使い方の問題だと思います。

>タブレットでは、(タブレットではないPCの)ダブルクリックなどに
>相当する操作がきちんとできているのか、
と尋ねているのにそれに関する返答もなく、自分の要求を繰り返すだけなら、
時間の無駄です。

ここは、ExcelVBAに関する質問をするところなので、
他の方からコメントありませんでしたし、
どうしても自分で調べる気がしないなら、
別のところで質問したほうが良いですね。

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