teratail
回答率
85.47%
質問するログイン新規登録
トップVBAに関する質問VBAで同じ種類を横並びにする

編集履歴

質問編集履歴

3

コードを少し変更

2022/04/07 20:51

投稿

SatoToy
SatoToy

スコア5

test CHANGED
File without changes
test CHANGED
@@ -30,7 +30,6 @@
30
30
  name = Cells(i, 1).Value '荷受人の列の名前を1つずつ取得
31
31
  order_number = Cells(i, 2).Value '注文番号を1つずつ取得
32
32
 
33
-
34
33
  Dic.Add name, order_number ' Dicに追加していく
35
34
 
36
35
  Next i
@@ -42,11 +41,9 @@
42
41
  Range("C" & i + 1).Value = mykeys(i)
43
42
  Range("D" & i + 1).Value = myItems(i)
44
43
 
45
-
46
44
  'オブジェクトを開放する
47
45
  Set Dic = Nothing
48
46
 
49
-
50
47
  Next i
51
48
 
52
49
  End Sub
VBA

2

タイトルを変更。

2022/04/07 20:48

投稿

SatoToy
SatoToy

スコア5

test CHANGED
@@ -1 +1 @@
1
- VBAで同名のところに番号を足していく
1
+ VBAで同じ種類を横並びにする
test CHANGED
File without changes
VBA

1

コードの間違いの編集

2022/04/07 13:57

投稿

SatoToy
SatoToy

スコア5

test CHANGED
File without changes
test CHANGED
@@ -19,17 +19,18 @@
19
19
  ```VBA
20
20
  Sub teratail()
21
21
 
22
- Dim Dic, Number, i As Integer, name As String
22
+ Dim Dic, i As Integer, name As String
23
23
  Dim order_number As Long
24
24
  Set Dic = CreateObject("Scripting.Dictionary") 'Key(キー)とItem(データ)をセットで格納して、リストなどを作成するときに使用。Pythonでいうところのたぶん辞書型
25
- Set Number = CreateObject("Scripting.Dictionary")
25
+
26
26
  On Error Resume Next
27
27
 
28
28
  For i = 1 To 10
29
29
 
30
- name = Cells(i, 1).Value '列の名前を1つずつ取得
30
+ name = Cells(i, 1).Value '荷受人の列の名前を1つずつ取得
31
- order_number = Cells(i, 1).Value '番号を1つずつ取得
31
+ order_number = Cells(i, 2).Value '注文番号を1つずつ取得
32
32
 
33
+
33
34
  Dic.Add name, order_number ' Dicに追加していく
34
35
 
35
36
  Next i
@@ -41,9 +42,11 @@
41
42
  Range("C" & i + 1).Value = mykeys(i)
42
43
  Range("D" & i + 1).Value = myItems(i)
43
44
 
45
+
44
46
  'オブジェクトを開放する
45
47
  Set Dic = Nothing
46
48
 
49
+
47
50
  Next i
48
51
 
49
52
  End Sub
VBA