質問編集履歴
1
コードの追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -20,11 +20,7 @@
|
|
20
20
|
|
21
21
|
(例:牛肉 100,200,300など)
|
22
22
|
|
23
|
-
|
24
|
-
|
25
23
|
・上記の100, 200, 300をオプションボタンとして別シートに生成します。
|
26
|
-
|
27
|
-
|
28
24
|
|
29
25
|
・繰り返し生成したいため、オプションボタンはグループボックスで囲みます。
|
30
26
|
|
@@ -37,3 +33,99 @@
|
|
37
33
|
|
38
34
|
|
39
35
|
どうぞよろしくお願いいたします。
|
36
|
+
|
37
|
+
|
38
|
+
|
39
|
+
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
以下のようなコードを作成しましたが、
|
44
|
+
|
45
|
+
「実行時エラー '1004':
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
このオブジェクトの作成元アプリケーションを起動できません。メモリが不足している可能性があります。」
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
というエラーが出てしまいます…。
|
54
|
+
|
55
|
+
|
56
|
+
|
57
|
+
|
58
|
+
|
59
|
+
```VBA
|
60
|
+
|
61
|
+
Sub viewInputArea_Click()
|
62
|
+
|
63
|
+
|
64
|
+
|
65
|
+
Dim i As Long, j As Long
|
66
|
+
|
67
|
+
|
68
|
+
|
69
|
+
Dim workSheetInput As Worksheet
|
70
|
+
|
71
|
+
Dim workSheetMaster As Worksheet
|
72
|
+
|
73
|
+
Dim criteriaSheet As Object
|
74
|
+
|
75
|
+
|
76
|
+
|
77
|
+
Set workSheetInput = ActiveWorkbook.Worksheets("入力エリア")
|
78
|
+
|
79
|
+
Set workSheetMaster = ActiveWorkbook.Worksheets("マスタ")
|
80
|
+
|
81
|
+
|
82
|
+
|
83
|
+
Dim colsData As Long
|
84
|
+
|
85
|
+
Dim rowsData As Long
|
86
|
+
|
87
|
+
rowsData = workSheetMaster.Cells(Rows.Count, 2).End(xlUp).Row
|
88
|
+
|
89
|
+
|
90
|
+
|
91
|
+
Dim optBtn As OLEObject
|
92
|
+
|
93
|
+
Dim criteriaCell As Range
|
94
|
+
|
95
|
+
|
96
|
+
|
97
|
+
For i = 1 To rowsData - 1
|
98
|
+
|
99
|
+
workSheetInput.Cells(7 + (i - 1), 2).Value = workSheetMaster.Cells(6 + (i - 1), 2).Value
|
100
|
+
|
101
|
+
|
102
|
+
|
103
|
+
colsData = workSheetMaster.Cells(i, Columns.Count).End(xlToLeft).Column
|
104
|
+
|
105
|
+
For j = 1 To colsData
|
106
|
+
|
107
|
+
Set optBtn = workSheetInput.OLEObjects.Add( _
|
108
|
+
|
109
|
+
ClassType:="Forms.OptionButton.1", _
|
110
|
+
|
111
|
+
Link:=Flase, DisplayAsIcon:=False, _
|
112
|
+
|
113
|
+
Left:=6.3, _
|
114
|
+
|
115
|
+
Top:=2.1, _
|
116
|
+
|
117
|
+
Width:=0.7, _
|
118
|
+
|
119
|
+
Height:=0.35 _
|
120
|
+
|
121
|
+
)
|
122
|
+
|
123
|
+
optBtn.Object.Caption = workSheetMaster.Cells(6 + (i - 1), j).Value & 年
|
124
|
+
|
125
|
+
Next j
|
126
|
+
|
127
|
+
Next i
|
128
|
+
|
129
|
+
End Sub
|
130
|
+
|
131
|
+
```
|