Excel VBA質問箱 IV

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

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


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

【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("〇X ", ss)
  Target.Offset(0, 0).Value = Mid$("〇X 〇", 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("〇X ", ss)
  Target.Offset(0, 0).Value = Mid$("〇X 〇", 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分の中です。

解決しました。
どうもありがとうございました。

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