Excel VBA質問箱 IV

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

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


10587 / 13644 ツリー ←次へ | 前へ→

【20960】「切り取り コピー 〜」のメニューを止める kobasan 04/12/28(火) 22:24 質問[未読]
【20962】Re:「切り取り コピー 〜」のメニューを... ちゃっぴ 04/12/28(火) 23:30 回答[未読]
【20965】Re:「切り取り コピー 〜」のメニューを... kobasan 04/12/29(水) 0:37 質問[未読]
【20966】Re:「切り取り コピー 〜」のメニューを... ちゃっぴ 04/12/29(水) 0:52 回答[未読]
【20968】Re:「切り取り コピー 〜」のメニューを... kobasan 04/12/29(水) 9:45 お礼[未読]

【20960】「切り取り コピー 〜」のメニューを止...
質問  kobasan  - 04/12/28(火) 22:24 -

引用なし
パスワード
   セルを右クリックすると
「切り取り コピー 〜」のメニューが表示されますが、
これをを止めることはできますか?

なぜかというと、

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  入力規則リスト設定
End Sub

を使って入力規則のリスト表示をするとき
一瞬「切り取り コピー 〜」のメニューが表示されるので、これを表示させないためです。

【20962】Re:「切り取り コピー 〜」のメニュー...
回答  ちゃっぴ  - 04/12/28(火) 23:30 -

引用なし
パスワード
   Cancel = True にしてますか?

というかBeforeDoubleClickのほうが実用上問題が少ないかも・・?

【20965】Re:「切り取り コピー 〜」のメニュー...
質問  kobasan  - 04/12/29(水) 0:37 -

引用なし
パスワード
   ▼ちゃっぴ さん:今晩は
>Cancel = True にしてますか?
>
BeforeDoubleClickもBeforeRightClickも作っているのですが、
BeforeRightClickの方のちらつきをなくしたいです。

Cancel = True
の使い方がわかりません。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True '????
  ・・・・・・
End Sub
ではだめです。

【20966】Re:「切り取り コピー 〜」のメニュー...
回答  ちゃっぴ  - 04/12/29(水) 0:52 -

引用なし
パスワード
   >Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
>  Cancel = True '????
>  ・・・・・・
>End Sub
>ではだめです。

でいいはずですが? Excel2000/2002

ExcelのVersionは?

【20968】Re:「切り取り コピー 〜」のメニュー...
お礼  kobasan  - 04/12/29(水) 9:45 -

引用なし
パスワード
   ▼ちゃっぴ さん:
Excel2002です。
今朝やると、なぜかうまく動きました。
最近、Excelが固まったりして、不調になるためかな。???

「切り取り コピー 〜」のメニューを非表示にできました。
助かりました。有り難うございました。

ちなみに、「C列のときだメニューを非表示」のコードをのせておきます。

>BeforeDoubleClickのほうが実用上問題が少ないかも・・?

「C列のときだメニューを非表示」なら実用上問題がなく使えそうです。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = False  'reset
  Sheet1.Columns(3).Validation.Delete  'reset
  If Target.Row < 5 Then Exit Sub
  If Target.Column <> 3 Then Exit Sub
  Cancel = True
  入力規則リスト設定
  SendKeys "%{down}"
End Sub

Private Sub 入力規則リスト設定()
  With ActiveCell.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=$A$5:$A$12"
  End With
End Sub

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