2004-11-18 授業連絡 Sub jcolor() If ActiveCell.Value = "応化" Then Call jred ElseIf ActiveCell.Value = "生命" Then Call jgreen ElseIf ActiveCell.Value = "機能" Then Call jblue Else Call jwhite End If End Sub