質問編集履歴

1

試した内容を追加

2021/06/30 01:47

投稿

First_Rabbit
First_Rabbit

スコア1

test CHANGED
File without changes
test CHANGED
@@ -47,3 +47,117 @@
47
47
  End Subコード
48
48
 
49
49
  ```
50
+
51
+ 試した内容を追加します。
52
+
53
+ 新しいブックに以下のようにリストボックスを作成し、kの値をいろいろ変えて試してみました。
54
+
55
+
56
+
57
+ k=1000のとき、全選択、全解除ともに1秒程度
58
+
59
+ k=3000のとき、全選択、全解除ともに3秒程度
60
+
61
+ k=4000のとき、全選択、全解除ともに5秒程度
62
+
63
+ k=5000のとき、全選択、全解除ともに8秒程度
64
+
65
+
66
+
67
+ 業務用に実際に作成したブックでの処理時間
68
+
69
+ 4000件で全選択1秒、全解除10秒以上というのをどう評価すればいいのか
70
+
71
+ わかりません。
72
+
73
+
74
+
75
+
76
+
77
+ ```ここに言語を入力
78
+
79
+ Private Sub CommandButton1_Click()
80
+
81
+
82
+
83
+ Dim i As Long
84
+
85
+ Dim k As Long
86
+
87
+ Dim arr As Variant
88
+
89
+
90
+
91
+ ListBox1.Clear
92
+
93
+
94
+
95
+ k = 5000
96
+
97
+
98
+
99
+ ReDim arr(k - 1, 3)
100
+
101
+ For i = 0 To k - 1
102
+
103
+ arr(i, 0) = i + 1
104
+
105
+ arr(i, 1) = i + 1
106
+
107
+ arr(i, 2) = i + 1
108
+
109
+ arr(i, 3) = i + 1
110
+
111
+ Next i
112
+
113
+
114
+
115
+ ListBox1.List = arr
116
+
117
+
118
+
119
+ With ListBox1
120
+
121
+ .MultiSelect = fmMultiSelectMulti
122
+
123
+ .ListStyle = fmListStyleOption
124
+
125
+ End With
126
+
127
+
128
+
129
+
130
+
131
+ End Sub
132
+
133
+
134
+
135
+ Private Sub CommandButton2_Click()
136
+
137
+ Dim i As Long
138
+
139
+ For i = 0 To ListBox1.ListCount - 1
140
+
141
+ ListBox1.Selected(i) = True
142
+
143
+ Next i
144
+
145
+ End Sub
146
+
147
+
148
+
149
+ Private Sub CommandButton3_Click()
150
+
151
+ Dim i As Long
152
+
153
+   For i = 0 To ListBox1.ListCount - 1
154
+
155
+ ListBox1.Selected(i) = False
156
+
157
+ Next i
158
+
159
+ End Sub
160
+
161
+
162
+
163
+ ```