ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】InputBoxとMsgBoxを使用したエクセルマクロ。




どうも、ゴリラストロングです。

 

今回もエクセルマクロの記事を書きたいと思います。

InputBoxとMsgBoxを使って作成してみました。

機能としては、InputBoxで入力したお店の情報をMsgBoxで表示するというものです。

 

以下が元データです。

f:id:gorilla-strong:20200221054858p:plain

マクロを実行するとInputBoxで店名の入力を求められます。

f:id:gorilla-strong:20200221055111p:plain

店名を入力すると、MsgBoxにより情報が吐き出されます。

f:id:gorilla-strong:20200221055302p:plain

上図のようになります。

これだけです。すいません。。。

 

 

スポンサーリンク

 

以下がソースコードです。

Sub ラーメン記録()

    Dim ramen As Object
        Set ramen = Workbooks("ゴリラストロングの雑記帳.xlsm").Worksheets("ラーメン屋さん記録")

    Dim shop As String
        shop = InputBox("店名を入力してください。")
    Debug.Print shop


    Dim Rnum As Long
        Rnum = Range("C:C").Find(shop).Row
    Debug.Print Rnum

    Dim nichiji, hyouka As Long
        nichiji = ramen.Range("B" & Rnum)
        hyouka = ramen.Range("D" & Rnum)

    Dim komennto As String
        komennto = ramen.Range("E" & Rnum)

MsgBox shop + "は" & nichiji & "に行きました。" & vbCrLf & "評価は" & hyouka & "です。" & vbCrLf & komennto + "とのコメントがあります。"

End Sub

 

MsgBox shop + "は" & nichiji & "に行きました。" & vbCrLf & "評価は" & hyouka & "です。" & vbCrLf & komennto + "とのコメントがあります。"

 

最後のコードですが、ここだけ躓きました。

Long型の変数のつなぎ方ですが、「+」ではつなぐことができず、「&」でつなげばよいということが分かりました。

コードを書いているといろいろと勉強になりますね。

 

以上、ゴリラストロングでした。

 

 

スポンサーリンク