Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4626 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55508】セル範囲の指定 きよ 08/5/9(金) 9:30 質問[未読]
【55509】Re:セル範囲の指定 ひげくま 08/5/9(金) 9:41 発言[未読]
【55511】Re:セル範囲の指定 きよ 08/5/9(金) 10:11 発言[未読]
【55514】Re:セル範囲の指定 ひげくま 08/5/9(金) 10:26 発言[未読]
【55515】Re:セル範囲の指定 わいわい 08/5/9(金) 10:31 発言[未読]
【55516】Re:セル範囲の指定 わいわい 08/5/9(金) 10:38 発言[未読]
【55518】Re:セル範囲の指定 きよ 08/5/9(金) 10:55 お礼[未読]
【55508】セル範囲の指定
質問  きよ  - 08/5/9(金) 9:30 -
引用なし
パスワード
   いつも参考にさせていただいてお世話になっております。
ところで、特定の範囲に○×を右クリックで入力したく、下記のVBAを組んだのですがうまく動きません。ご教授のほどよろしくお願いいたします。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim ss As String
　Dim i As Range
　
　
　If Target.Range(i) = Range("C5:E8") Then
　　Cancel = True
　　ss = Left$(Target(1, 1).Text & " ", 1)
　　i = InStr("〇Ｘ ", ss)
　　Target.Offset(0, 0).Value = Mid$("〇Ｘ 〇", i + 1, 1)
　End If

End Sub
【55509】Re:セル範囲の指定
発言  ひげくま  - 08/5/9(金) 9:41 -
引用なし
パスワード
   >ところで、特定の範囲に○×を右クリックで入力したく、下記のVBAを組んだのですがうまく動きません。ご教授のほどよろしくお願いいたします。

どのようにうまく動かないのでしょうか？
F8キーでステップ実行して確認はしてみましたか？
【55511】Re:セル範囲の指定
発言  きよ  - 08/5/9(金) 10:11 -
引用なし
パスワード
   ▼ひげくま さん：
>>ところで、特定の範囲に○×を右クリックで入力したく、下記のVBAを組んだのですがうまく動きません。ご教授のほどよろしくお願いいたします。
>
>どのようにうまく動かないのでしょうか？
>F8キーでステップ実行して確認はしてみましたか？

早速のご回答ありがとうございます。
”実行時エラー'1004'
アプリケーション定義またはオブジェクト定義のエラーです”と出て
"If Target.Range(i) = Range("C5:E8") Then"
の部分がエラー箇所のようなので、"If Target.Range(i) = "" Then"など、書き換えてはいるのですが、思うように動きません。よろしくお願いいたします。
【55514】Re:セル範囲の指定
発言  ひげくま  - 08/5/9(金) 10:26 -
引用なし
パスワード
   >"If Target.Range(i) = Range("C5:E8") Then"

これは、何をしたくてこのようなコードを書いたのか、文章で説明してもらえますか？
【55515】Re:セル範囲の指定
発言  わいわい  - 08/5/9(金) 10:31 -
引用なし
パスワード
   >>"If Target.Range(i) = Range("C5:E8") Then"
これをしたいのかなぁ？？

Dim ss As String
Dim i As Range
Cancel = True
Set i = Application.Intersect(Target, Range("C5:E8"))　'これかなぁ
If Not i Is Nothing Then
　　ss = Left$(Target(1, 1).Text & " ", 1)
　　i = InStr("〇Ｘ ", ss)
　　Target.Offset(0, 0).Value = Mid$("〇Ｘ 〇", i + 1, 1)
End If
End Sub
【55516】Re:セル範囲の指定
発言  わいわい  - 08/5/9(金) 10:38 -
引用なし
パスワード
   すみません。
Cancel = True
の位置を代えるの忘れてました。
If分の中です。
【55518】Re:セル範囲の指定
お礼  きよ  - 08/5/9(金) 10:55 -
引用なし
パスワード
   ▼わいわい さん：
>すみません。
>Cancel = True
>の位置を代えるの忘れてました。
>If分の中です。

解決しました。
どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4626 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free