|    | 
     ありがとうございました。お二人様からの内容を早速試してみたらうまくいきました。 
3日間ほど悩んでいたのがあっというまに解決しました。 
またご指導お願いします。 
感謝です。 
 
>色々調べたのですがわからなくて、ここへたどり着きました。どなたかご教授いただけると幸いです。 
> 
>Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3")の複数のセルが全て空白の際に 
>ある一定の処理をするIf構文を作成したいです。 
>素人である私が考えた構文は以下の通りです。 
> 
>Sub テスト() 
>  Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3").Select 
>   
>  If Selection.Cells = Empty Then 
>    MsgBox ("全て空白") 
>  Else 
>    MsgBox ("一部埋まっている") 
>  End If 
>End Sub 
> 
>上記の構文を実行すると、Activecellである、Range("C3")のみで判断されてしまうようです。私が求めているのは、 
>Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3") の10個のセル全てが空白の際に、Trueの処理を行い、10個のセルのうち一つでもセルが空白でなければElseの処理をしてほしいというものです。 
>このような時はどのような構文をかけばいいのでしょうか?どなたか教えてくださいませ。 
 
 | 
     
    
   |