回答編集履歴
1
追記
test
CHANGED
@@ -117,3 +117,93 @@
|
|
117
117
|
|
118
118
|
|
119
119
|
```
|
120
|
+
|
121
|
+
|
122
|
+
|
123
|
+
追記
|
124
|
+
|
125
|
+
```VBA
|
126
|
+
|
127
|
+
Sub color()
|
128
|
+
|
129
|
+
Dim max_row As String
|
130
|
+
|
131
|
+
Dim i As Integer
|
132
|
+
|
133
|
+
|
134
|
+
|
135
|
+
max_row = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
|
136
|
+
|
137
|
+
|
138
|
+
|
139
|
+
For i = 2 To max_row
|
140
|
+
|
141
|
+
Dim color_code As String
|
142
|
+
|
143
|
+
' 行数をstr2に渡す
|
144
|
+
|
145
|
+
color_code = str2(i)
|
146
|
+
|
147
|
+
MsgBox str2
|
148
|
+
|
149
|
+
Next i
|
150
|
+
|
151
|
+
End Sub
|
152
|
+
|
153
|
+
|
154
|
+
|
155
|
+
' 何行目の情報が欲しいのかを受け取る
|
156
|
+
|
157
|
+
Function str2(r as Integer) As String
|
158
|
+
|
159
|
+
|
160
|
+
|
161
|
+
Dim str1 As String
|
162
|
+
|
163
|
+
|
164
|
+
|
165
|
+
' 引数で受け取った行の値を得る
|
166
|
+
|
167
|
+
str1 = Sheets("Sheet1").Cells(r, 2)
|
168
|
+
|
169
|
+
|
170
|
+
|
171
|
+
Select Case str1
|
172
|
+
|
173
|
+
Case "赤"
|
174
|
+
|
175
|
+
str2 = "red"
|
176
|
+
|
177
|
+
Case "黄"
|
178
|
+
|
179
|
+
str2 = "yellow"
|
180
|
+
|
181
|
+
Case "紫"
|
182
|
+
|
183
|
+
str2 = "purple"
|
184
|
+
|
185
|
+
Case "茶"
|
186
|
+
|
187
|
+
str2 = "brown"
|
188
|
+
|
189
|
+
Case "オレンジ"
|
190
|
+
|
191
|
+
str2 = "orange"
|
192
|
+
|
193
|
+
Case "緑"
|
194
|
+
|
195
|
+
str2 = "green"
|
196
|
+
|
197
|
+
Case Else
|
198
|
+
|
199
|
+
str2 = "不明"
|
200
|
+
|
201
|
+
End Select
|
202
|
+
|
203
|
+
|
204
|
+
|
205
|
+
End Function
|
206
|
+
|
207
|
+
|
208
|
+
|
209
|
+
```
|