Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5522 / 76735

←次へ　｜　前へ→


	【76825】Re:シート1とシート2の内容で一致するものがあれば結果表示をさせたい

あや - 15/3/19(木) 9:38 -


	引用なし

	パスワード

▼β さん：
標準モジュールに記入することでエラーは消えました！
有難うございます！！
ですがショートカットキーで飛んでくれません・・・
該当のセルは赤く表示されているのに・・・泣

Sub Test()
　　Application.MacroOptions Macro:="TestRed", ShortcutKey:="j"
End Sub

はSheet3上に記入して良いのですよね？
あと、この記述だとCtrl+Jをすると飛ぶということでよいのですよね？？

>▼あやさん：
>
>>▼β さん：
>>ショートカットキーの割り当てでエラーが出てきてしまいます・・・
>>以下のようだとだめなのでしょうか。
>
>こちらで、標準モジュールにコードをコピペして、そのまま実行しましたが
>正常に登録されますよ。
>不思議ですねぇ。
>
>もちろんコード実行時に標準モジュールに TestRed が書かれているという前提ですが。
>
>あっ、いいわすれてましたが、TestRed は標準モジュールに書きます。
>
>>また、下記のプログラムをそのままコピーして使用させていただきましたが、”重複はありません”と常に表示されてしまいます・・・
>
>↑で書きましたがシートモジュールではなく標準モジュールです。
>で、このマクロは、B列の赤色のセルを捜しています。
>この赤は、シートモジュールのCommandButton1_Click()　ルーティンで塗られます。
>赤に塗られたセルがない場合は、重複がないとみなされます。
>
>この実行は、Sheet3をアクティブにして行われると理解しています。
>
>
>>画面左側のワークシート選択するところでSheet3を選択し、(General)のところに下記のプログラムを記入すればよいのでしょうか？
>>
>>Sub TestRed()
>>　　Dim c As Range
>>　　With Application.FindFormat.Interior
>>　　　　.PatternColorIndex = xlAutomatic
>>　　　　.Color = 255
>>　　　　.TintAndShade = 0
>>　　　　.PatternTintAndShade = 0
>>　　End With
>>　　If ActiveCell.Column <> 2 Then Range("B1").Select
>>　　Set c = Columns("B").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
>>　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
>>　　　　　　MatchByte:=False, SearchFormat:=True)
>>　　If c Is Nothing Then
>>　　　　MsgBox "重複セルはありません"
>>　　Else
>>　　　　c.Select
>>　　End If
>>　
>>　　Application.FindFormat.Clear
>>　
>>End Sub
>>
>>
>>>▼あやさん：
>>>
>>>>（CommandButton1 がActiveXなので、一致箇所もActiveXのほうがいいと思いますが）
>>>
>>>思いなおして。
>>>この処理はSheet3を見ながらの処理になるので、標準モジュールに書きましょう。
>>>で、これをボタン登録してもいいのですが、ボタンがシートの上のほうにあって
>>>検索せるが下のほうにあると、「次へ」の操作で、シートをまた上のほうにスクロールする
>>>必要があり操作が煩雑になります。
>>>
>>>なので、マクロにショートカットキーを割り当てて、Ctrl/●　とやったほうが操作しやすいかも。
>>>
>>>なお、ボタン（マクロ）は１つでまかないましょう。
>>>
>>>Sub TestRed()
>>>　　Dim c As Range
>>>　　With Application.FindFormat.Interior
>>>　　　　.PatternColorIndex = xlAutomatic
>>>　　　　.Color = 255
>>>　　　　.TintAndShade = 0
>>>　　　　.PatternTintAndShade = 0
>>>　　End With
>>>　　If ActiveCell.Column <> 2 Then Range("B1").Select
>>>　　Set c = Columns("B").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
>>>　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
>>>　　　　　　MatchByte:=False, SearchFormat:=True)
>>>　　If c Is Nothing Then
>>>　　　　MsgBox "重複セルはありません"
>>>　　Else
>>>　　　　c.Select
>>>　　End If
>>>　　
>>>　　Application.FindFormat.Clear
>>>　　
>>>End Sub

0 hits

▼

【76750】シート1とシート2の内容で一致するものがあれば結果表示をさせたい あや 15/3/9(月) 16:01