Excel VBA質問箱 IV

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

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


37214 / 76732 ←次へ | 前へ→

【44691】Re:クリックしてコピー
発言  Kein  - 06/11/29(水) 1:00 -

引用なし
パスワード
   ダブルクリックイベントのコードに追加します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
  Dim Cnt As Integer
 
  If MyR Is Nothing Then Exit Sub
  If Not Intersect(Target, MyR) Is Nothing Then Exit Sub '←追加
  Cnt = WorksheetFunction.CountA(MyR)
  If Cnt = MyR.Count Then
   MsgBox "これ以上、値の転記をすることはできません", 48
   Exit Sub
  End If
  Cancel = True
  MyR.Cells(Cnt + 1).Value = Target.Value
End Sub

つまり転記先になるセル範囲をダブルクリックするのを、無効にするわけです。

0 hits

【44689】クリックしてコピー 悩みすぎ 06/11/29(水) 0:11 質問
【44690】Re:クリックしてコピー Kein 06/11/29(水) 0:55 回答
【44691】Re:クリックしてコピー Kein 06/11/29(水) 1:00 発言
【44692】Re:クリックしてコピー Kein 06/11/29(水) 1:12 発言
【44695】Re:クリックしてコピー 悩みすぎ 06/11/29(水) 11:38 質問
【44703】Re:クリックしてコピー Kein 06/11/29(水) 14:41 回答
【44704】Re:クリックしてコピー 悩みすぎ 06/11/29(水) 15:29 質問
【44711】Re:クリックしてコピー Kein 06/11/29(水) 17:29 発言
【44716】Re:クリックしてコピー 悩みすぎ 06/11/29(水) 18:52 お礼

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