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