ＶＢＡ 転記前の初期化

Question

連投になってもうしわけないのですが、もう少しで思ったように動きそうです。初心者ながら、的確なアドバイスがあってこそです。感謝申し上げます。
リストビューの項目を転記することができました。ここから、
リストビューの内容をワークシートに転記→修正があれば、前のものを削除して→転記としたいのですが```、削除ボタンを挟むと確かに動きますが、
これを一度のボタン操作で、削除→再転記としたいのですが、速攻で転記削除になってしまいます、、

Dim ws As Worksheet

 Dim rng As Range
 
   Dim a As String
    

      Set ws = Worksheets("送迎表")

    a = ComboBox2
    
  With ListView1
  
     Dim i As Long
       
       For i = 1 To .ListItems.Count
       
  
 If a = ws.Range("B3") Then
     
          
      ws.Range("B4").Resize(10, 30).Delete ←ここなのですが、、
         
      ws.Range("B3").Offset(i, 0) = .ListItems.Item(i).Text
      
      ws.Range("C3").Offset(i, 0) = .ListItems.Item(i).SubItems(1)
      
      
    End with  
End If
End sub
ws.Range("B4").Resize(10, 30)　＜＞”　”
とか、＜＞Notihg 
としてもエラーになります、セルに数字や文字があれば削除としたいのですが、、
よろしくご回答お願いいたします。

　それと、別建て項目にあるかもしれませんが、withがあるのに、Ｗｉｔｈがないとか、Forがあるのに、ないとか、End Ifがないとか、、そういう場合って何が違うのでしょうか、、あるのに、、みたいなことがよくあるのですが、、

Comments

[radames1000]

今回はEnd WithとEnd Ifが逆になってますよ。

[kohan]

ご回答ありがとうございます。順番があるのですね、、

Answer 1

まず、提示のコードではコンパイルエラーで実行すらできないはずですが。
コンパイルが通るように修正しましょう。

withがあるのに、Ｗｉｔｈがないとか、Forがあるのに、ないとか、End Ifがないとか、、そういう場合って何が違うのでしょうか、、あるのに、、みたいなことがよくあるのですが、、

提示のコードだと、下記の2点ですね。

With と End With, If と End If の入れ子関係がおかしい。

For に対応する Next がない。

コード書く時にインデントをきちんと入れるというのは重要です。
それができていると上記のようなミスは防げます。

VBA入門記事 インデント徹底解説！ - t-hom’s diary

現状のコード（インデントに関係あるものだけにしてます。）

Private Sub CommandButton4_Click()

With ws.Range("B3")

For i = 1 To .ListItems.Count

If a = ws.Range("B3") Then

'略

End With
End If

End Sub

インデントを入れるとそれぞれのブロックの始まりと終わりの対応がおかしいのに気がつきませんか。

Private Sub CommandButton4_Click()

    With ws.Range("B3")

        For i = 1 To .ListItems.Count

            If a = ws.Range("B3") Then

                '略

            End With
        End If

End Sub

下記のようにブロックの始まりと終わりの位置が同じになるように記述するとこのようなミスが防げます。

Private Sub CommandButton4_Click()

    With ws.Range("B3")
        For i = 1 To .ListItems.Count

            If a = ws.Range("B3") Then

                '略
           
            End If
        Next
    End With
End Sub

まずは、この修正をしてください。

あとは、「前のものを削除して」の部分は、コンパイルが通るコードを書いてから、どこで削除すればいいのかよく考えてみましょう。

Comments

[kohan]

適切なアドバイスを頂きまして、まことにありがとうございます。
自己解決ではないですが、ほかにかけるところがなさそういなので、修正して動いたものを掲載させていただきました。
　ありがとうございました。
　きれいに整理すると、違っているところ、、というか、きっちりと順番にＦｏｒやＮｅｘｔを対応さるということさえ知らなった、、という状態です。
　今後ともご教授いただけるようよろしくお願い申し上げます。

Answer 2

追加してから、元のデータを削除すれば良いのでは。

withがあるのに、Ｗｉｔｈがないとか、Forがあるのに、ないとか、End Ifがないとか、、そういう場合って何が違うのでしょうか

コンパイルエラーの事ですよね。
コンパイルのエラーについては、あまり嘘は吐きませんので、ネストで良く分からなくなって、Endの箇所が正しくなかったりしているんでしょう。

Comments

[kohan]

ありがとうございます、そのとおりでございます、きれいに書くように心がけます。こういうところで躓くんですね、、順番があることもしらなかったです、、

[sazi]

ひょっとして、ブレークポイントを設定してのデバッグの方法も知らなかったりしますか？

[kohan]

はい。そのとおりです、、

[sazi]

「VBA デバッグ」などで検索して、習得して下さい。
格段に作業効率が上がると思います。
https://www.tipsfound.com/vba/01010

Answer 3

自己解決というわけではなく、このようにアドバイスをいただいて修正しましたということを記載させていただきました。
転記が始まる前に削除の一文を入れると動作しました。
ご指摘いただいたとおり、整理すると分かることもある、、というか、振り返ると、こういうのは多々ありました、、。

　お恥ずかしい限りです。まだきれいにとはなりませんが、もっとわかりやすいことを心がけます、。

あともう少しで、完成です。

   Dim ws As Worksheet

     Dim rng As Range
 
        Dim a As String
    
          Dim i As Long
          
            Set ws = Worksheets("送迎表")

              a = ComboBox2
              
                ws.Range("B4").Resize(10, 30).Delete
    
  With ws.Range("B3")
  
       
       
      For i = 1 To ListView1.ListItems.Count
       
  
            If a = ws.Range("B3") Then
     
                
                 .Offset(i, 0) = ListView1.ListItems.Item(i).Text
      
                   .Offset(i, 1) = ListView1.ListItems.Item(i).SubItems(1)
      
                     
        
             End If

       Next i
                    
                 
   End With
          
   
End Subここに言語を入力
コード

Comments

[hatena19]

ちょっと無駄なインデントになってますね。
インデントの仕方にも人ぞれぞれで微妙にくせがありますが、ここの回答者さんのコードや、WEBのサンプルコード、MS公式のサンプルコードなどをみて、インデントの標準的な仕方を覚えるといいでしょう。

あと、
ws.Range("B4").Resize(10, 30).Delete
の部分ですが、
Deleteではなく、Clear か ClearContents がいいでしょう。違いは検索して調べてみてください。
あと、 Resize(10, 30) とサイズを決め打ちせずに、データのある範囲を削除するというコードにした方がいいでしょう。

ws.Range("B4").CurrentRegion.Offset(1).ClearContents

[kohan]

ご教授いただきまして、ありがとうございます。
美しい書き方には程遠いですが、意識するようにいたします。
　更には、適切なメソッドやコードまでいただき、感謝いたします。
今後ともよろしくお願いいたします。