teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2018/05/31 05:46

投稿

ttyp03
ttyp03

スコア17002

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
  ```