回答編集履歴
5
再度訂正
answer
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
```VBA
|
|
3
3
|
If selectSeq = 0 Then
|
|
4
4
|
ListView.ListItems.Add
|
|
5
|
-
selectSeq = ListView.Items.Count
|
|
5
|
+
selectSeq = ListView.Items.Count
|
|
6
6
|
End If
|
|
7
7
|
With ListView.ListItems(selectSeq)
|
|
8
8
|
' 同じ処理
|
4
訂正
answer
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
```VBA
|
|
3
3
|
If selectSeq = 0 Then
|
|
4
4
|
ListView.ListItems.Add
|
|
5
|
-
selectSeq = ListView.Items.Count
|
|
5
|
+
selectSeq = ListView.Items.Count - 1
|
|
6
6
|
End If
|
|
7
7
|
With ListView.ListItems(selectSeq)
|
|
8
8
|
' 同じ処理
|
3
修正
answer
CHANGED
|
@@ -1,8 +1,8 @@
|
|
|
1
|
-
ADDする際に、selectSeq の値が決定できれば、以下は同じ処理で
|
|
1
|
+
ADDする際に、selectSeq の値が決定できれば、以下は同じ処理で出来そうですけど。
|
|
2
2
|
```VBA
|
|
3
3
|
If selectSeq = 0 Then
|
|
4
4
|
ListView.ListItems.Add
|
|
5
|
-
selectSeq=
|
|
5
|
+
selectSeq = ListView.Items.Count
|
|
6
6
|
End If
|
|
7
7
|
With ListView.ListItems(selectSeq)
|
|
8
8
|
' 同じ処理
|
2
訂正
answer
CHANGED
|
@@ -1,1 +1,10 @@
|
|
|
1
|
+
ADDする際に、selectSeq の値が決定できれば、以下は同じ処理できそうですけど。
|
|
2
|
+
```VBA
|
|
3
|
+
If selectSeq = 0 Then
|
|
4
|
+
ListView.ListItems.Add
|
|
5
|
+
selectSeq=XXX
|
|
6
|
+
End If
|
|
7
|
+
With ListView.ListItems(selectSeq)
|
|
1
|
-
|
|
8
|
+
' 同じ処理
|
|
9
|
+
End With
|
|
10
|
+
```
|
1
修正
answer
CHANGED
|
@@ -1,15 +1,1 @@
|
|
|
1
|
-
Withでの指定が誤っています。
|
|
2
|
-
[With ステートメント](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/with-statement)
|
|
3
|
-
> With object [ statements ] End With
|
|
4
|
-
|
|
5
|
-
Withで指定するのはobjectですので、コードは以下の様になると思います。
|
|
6
|
-
```VBA
|
|
7
|
-
With ListView
|
|
8
|
-
If selectSeq = 0 Then
|
|
9
|
-
.ListItems.Add
|
|
10
|
-
Else
|
|
11
|
-
.ListItems(selectSeq)
|
|
12
|
-
End If
|
|
13
|
-
|
|
1
|
+
訂正 / 編集中
|
|
14
|
-
End With
|
|
15
|
-
```
|