回答編集履歴

1

実態に合わせる

2020/08/27 07:38

投稿

radames1000
radames1000

スコア1925

test CHANGED
@@ -6,11 +6,11 @@
6
6
 
7
7
 
8
8
 
9
- s = Range("a1").Text
9
+ s = Worksheets("データ").Cells(1, 9).Text
10
10
 
11
11
 
12
12
 
13
- ListBox1.AddItem s
13
+ ListBox2.AddItem s
14
14
 
15
15
 
16
16