- 151 名前：デフォルトの名無しさん [2008/06/15(日) 11:59:36 ]
- 全くの初心者の質問ですみません。
Sub syozoku()
Dim busyo As String
Select Case Range("C10").Value
Case "a"
busyo = "総務部"
Case Else
busyo = "正しいコードを入力してください"
End Select
MsgBox busyo
End Sub
これで、C10にaを入力しても、
メッセージボックスに”正しいコードを入力してください”とでます。
Office 2007 professional edition＞Excel 2007、windows XPですが、
新たにDLなどが必要なのでしょうか。
