Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

151:デフォルトの名無しさん
08/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などが必要なのでしょうか。

次ページ

続きを表示

1を表示