VBA　下記ソースについて質問です。

Question

前回質問と同じソースなのですが、質問内容が違う為、新たに質問させていただきました。

★１　毎回繰り返し処理をする時に、ワークシートをセレクトしていますが、このやり方でよいのでしょうか？良い方法がありましたら教えてください。

★２　この繰り返しで、空白ではない場合に変数へ値を入れて処理をしているのですが、何故か新しいシート( _案内)を作成して、空白の部分も抜き取って処理してしまいます。
この場合は、空白の時に処理しない(GoTo でＮext iの前に行くなど)　の指示を書きこまないといけないのでしょうか？

☆　まだソース書いていませんが、Ｑ列処理後でＱ列と同様にＳ列にも案内場所C(コード)が書かれた時に同じ処理をして、Ｓ列i行目がシート名と同じ場所の時に、Ｑ・Ｒ列i行を削除して左方向へシフトしたいのですが、　この手順は　flag=Trueの部分にＱ・Ｒ列i行を削除、左方向へシフト　の指示を書けば良いのでしょうか？

次々と失敗ばかりで……質問長くなりすみませんが、アドバイスよろしくお願いいたします。

Sub 外注別案内書作成()
Dim ws As Worksheet 'オブジェクト格納
Dim i As Long, j As Long '繰り返す回数格納
Dim annaicode As Variant '案内場所C格納
Dim addwsname As Variant 'シート名前格納(※案内場所名)
Dim flag As Boolean '真偽
Dim r As Range 'Findメソッドの返り値格納

'レポート元でQ列の情報が入っている時に、案内場所別で情報を作成する。
'レポート元でQ列に値がある時に、annaicode変数へ格納。
  For i = 2 To Worksheets("レポート元").Cells(Rows.Count, "A").End(xlUp).Row
    Worksheets("レポート元").Select
    annaicode = ""
    If Cells(i, "Q").Value <> "" Then
      annaicode = Cells(i, "Q").Value
    End If

'外注一覧でannai変数と一致した時に、addwsname変数へ格納。　Findメソッド
    With Worksheets("外注一覧").Columns("A")
      Set r = .Find(What:=annaicode, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
      If r Is Nothing Then
        MsgBox i & "行目の案内場所Cの入力が不正です。" & vbCrLf & "処理を中断しますね", _
        vbOKOnly + vbExclamation, "お知らせ"
        Exit Sub
      Else
        addwsname = r.Offset(0, 1) + "_案内"
      End If
    End With

'ワークシートオブジェクト内でaddwsname変数と一致した時に、flag変数をTrueにする。
    For Each ws In Worksheets
      If ws.Name = addwsname Then
        flag = True
      End If
    Next ws

'flag変数の値により、各々処理をする。
    If flag = True Then
      Worksheets("レポート元").Cells(i, "A").EntireRow.Copy _
      Destination:=Worksheets(addwsname).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
      flag = False
    Else
      Worksheets.Add
      ActiveSheet.Name = addwsname
      Worksheets("レポート元").Rows(1).EntireRow.Copy _
      Destination:=Worksheets(addwsname).Rows(1)
      Worksheets("レポート元").Cells(i, "A").EntireRow.Copy _
      Destination:=Worksheets(addwsname).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    End If

Next i
End Sub

MARU4812 · Accepted Answer

自分が納得いかない回答に反論するのは、私には好印象です。
(サイト的にはトラブルを極力回避して社交辞令で済ます方を
好対応と評価するのでしょうが)

で、補足を踏まえた上でこちらから更に言わせてもらえば、
> With～End Withもアドバイス通り全て「．」をつけて試しましたが、
> うまく処理されなかった
とか
> ＧoToを書いて試しましたが動きませんでした。
って基本文法ですよね。動く動かないの世界の話ではありませんよ。
日本語で「主語の後に述語を書く」とかいうレベルのルールです。
ルールを守って書けば動くし、動くように書くルールを覚えるわけです。
その段階で疑問が残ってるのに、「それぞれのコードの意味を理解」
しているとは言えませんよ。

プログラムは、確実に動く基本文法を１つ１つ積み上げていく作業です。
本来なら、そこに疑問など沸かないのです。技術的に特殊な知識を
必要とする、経験やテクニック・裏技を知らないとできない部分も
ありますが、基本文法レベルでそれは無いです。

結局、土台となる基本の知識が不安定の状態で、自分勝手な解釈を
するしかなく、動くサンプルコード１セットを中心にしか考え
られていないのでは？

With～End With　に絞って突き詰めた質問をなぜしないのですか？
ＧoTo　に絞って突き詰めた質問をなぜしないのですか？
> 応用、実践でつまずいてるので質問しています。
基本でつまずいてますよね？

mu2011 · Answer

>★１
>★２
　⇒マクロ記録ならいざ知らずＶＢＡではオブジェクトを記載しましょう。
　　回答等を丸映ししているから応用が利かない。もう少しそれぞれのコードの意味を
　　理解しましょう。
　　余談ですがコード中のコメントはコードを説明するのではなく処理内容を記載しましょう。

一例です。
　　With～End Withで統一しては如何でしょうか。
　　Worksheets("レポート元")のオブジェクトを使用している箇所は全て「．」に
　　忘れずに変更して下さい

With Worksheets("レポート元")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(i, "Q").Value <> "" Then
annaicode = .Cells(i, "Q").Value
End If　⇒ ★２後述のNext iの直前に移動
　～
End If
Next i
End With

>☆
　⇒　ご質問内容がよく判りませんので改めて質問しては如何でしょうか。

lupin-333333 · Answer

＞ワークシートをセレクトしていますが、このやり方でよいのでしょうか？良い方法がありましたら教えてください

アクティブのオブジェクトに対して、処理する関数、メソッド、プロパティ、など明示的に、オブジェクトを指定しなくても良い。

と言う、決まりごとなので、そのような関数などを使う場合は、それでいいということです。それ以外は、フルパスで指定すればいいだけのこと（オブジェクト.メソッド　or プロパティ　｜　Get(Object)関連の関数を使う）。

相対指定（パス）、絶対指定（パス）なんて言う概念と一緒です。

後の答えは、実際に動作するコードを記載してください。解析するの面倒です。

VBA 下記ソースについて質問です。

自分が納得いかない回答に反論するのは、私には好印象です。

この回答への補足

>★１

この回答への補足

＞ワークシートをセレクトしていますが、このやり方でよいのでしょうか？良い方法がありましたら教えてください

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

VBA　下記ソースについて質問です。