回答編集履歴
1
追記
answer
CHANGED
@@ -57,4 +57,49 @@
|
|
57
57
|
Next i
|
58
58
|
End Function
|
59
59
|
|
60
|
+
```
|
61
|
+
|
62
|
+
追記
|
63
|
+
```VBA
|
64
|
+
Sub color()
|
65
|
+
Dim max_row As String
|
66
|
+
Dim i As Integer
|
67
|
+
|
68
|
+
max_row = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
|
69
|
+
|
70
|
+
For i = 2 To max_row
|
71
|
+
Dim color_code As String
|
72
|
+
' 行数をstr2に渡す
|
73
|
+
color_code = str2(i)
|
74
|
+
MsgBox str2
|
75
|
+
Next i
|
76
|
+
End Sub
|
77
|
+
|
78
|
+
' 何行目の情報が欲しいのかを受け取る
|
79
|
+
Function str2(r as Integer) As String
|
80
|
+
|
81
|
+
Dim str1 As String
|
82
|
+
|
83
|
+
' 引数で受け取った行の値を得る
|
84
|
+
str1 = Sheets("Sheet1").Cells(r, 2)
|
85
|
+
|
86
|
+
Select Case str1
|
87
|
+
Case "赤"
|
88
|
+
str2 = "red"
|
89
|
+
Case "黄"
|
90
|
+
str2 = "yellow"
|
91
|
+
Case "紫"
|
92
|
+
str2 = "purple"
|
93
|
+
Case "茶"
|
94
|
+
str2 = "brown"
|
95
|
+
Case "オレンジ"
|
96
|
+
str2 = "orange"
|
97
|
+
Case "緑"
|
98
|
+
str2 = "green"
|
99
|
+
Case Else
|
100
|
+
str2 = "不明"
|
101
|
+
End Select
|
102
|
+
|
103
|
+
End Function
|
104
|
+
|
60
105
|
```
|