VBA Withだけが違う同じ処理のまとめ方

Question

前提・実現したいこと

Withの値は異なりWithの中身は同じプログラムの、省略した書き方をご教授いただきたいです。

該当のソースコード

↓問題のプログラム

If selectSeq = 0 Then
    With ListView.ListItems.Add
        ' 同じ処理 
    End With
Else
    With ListView.ListItems(selectSeq)
        ' 同じ処理
    End With
End If

このプログラムはListViewにデータを反映させる際に、新規データ(If)だと新しい行に、更新データ(Else)だとその行に上書きする処理です。

試したこと

関数にしてまとめようとしたのですが、Withの部分を動的にする方法がわかりませんでした。

もし省略できれば50行ほど縮まるので何卒宜しくお願い致します。

Answer 1

ADDする際に、selectSeq の値が決定できれば、以下は同じ処理で出来そうですけど。

If selectSeq = 0 Then
    ListView.ListItems.Add
    selectSeq = ListView.Items.Count
End If
With ListView.ListItems(selectSeq)
  ' 同じ処理
End With

Comments

[D0NKAMA]

確かにそうですね！Elseの判定を省き可読性もあがりますね！
早速プログラムを修正したいと思います。ありがとうございました。

[sazi]

ADDの際に最後の行を選択するようにしてみました。

Answer 2

一度変数に入れるというのはどうですか。

    Dim myListViewItem 
    If selectSeq = 0 Then
        Set myListViewItem = ListView.ListItems.Add
    Else
        Set myListViewItem = ListView.ListItems(selectSeq)
    End If

    With myListViewItem
        ' 同じ処理
    End With

Answer 3

関数の引数で渡せばいいのでは。

    If selectSeq = 0 Then
        Proc ListView.ListItems.Add
    Else
        Proc ListView.ListItems(selectSeq)
    End If

関数

Sub Proc(Item As ListItem)
    With Item
        ' 同じ処理
    End With 
End Sub

---

あるいは、

新規データ(If)だと新しい行に、更新データ(Else)だとその行に上書きする処理です。

これも含めて関数化したほうがいいかも。

関数

Sub Proc(LV As ListView, selectSeq As Long)
    Dim Item As ListItem
    If selectSeq = 0 Then
        Set Item = LV.ListItems.Add
    Else
        Set Item = LV.ListItems(selectSeq)
    End If
    With Item
        ' 同じ処理
    End With 
End Sub

関数の呼び出しは1行ですみます。

    Proc  ListView, selectSeq

Comments

[D0NKAMA]

Withの変数の型をStringやObjectで試しており、ListItemは全くの盲点でした。
プログラムは問題なく動作いたしました！
こんな初歩的な問題に迅速回答していただいき、本当にありがとうございました。<(*_ _)>