msgboxの表示

質問

Ａ列の値とC列の値をMsgboxに表示するにはどうしたらいいのでしょうか？C列で一番高い商品とその品名A列を表示させたいのですが・・
Sub hinmei()
Dim i As Long
For i = 2 To Range("C65535").End(xlUp).Row
Dim x As Long
Dim a As Long
x = Cells(i + 1, 5)
If Cells(i, 5).Value < x Then
a = x
End If
Next
MsgBox a
End Sub

回答No.2

imogasi

文字列結合演算子＆を使って、２つ以上の項目（文字列）を結合した、文字列をつくり、msgbox表示したら仕舞い。
数値でも文字列化してくれるし、書式（表示形式）をつけたければFormat関数で加工すればよい（文字列化できます）。
見た目区切りを入れたければ（普通は入れる必要があるので
MsgBox A & " " & B
msgBox A & ", " & B
などをする。
文章文字を入れることも出来る。
MsgBox "重さは" & A & "です。"

お礼

回答ありがとうございます。
べんきょうになりました！

回答No.1

redfox63

Cells(i,5)だと E列を見ることになりますよ

Sub hinmei()
　　Dim i As Long
　　Dim x As Long
　　Dim a As Long
　　' データとしてありえない値で初期化
　　x = -1
　　a = -1
　　For i = 2 To Range("C65535").End(xlUp).Row
　　　　If Cells(i, 3).Value > x Then
　　　　　　x = Cells(i,3).Value
　　　　　　a = i
　　　　End If
　　Next
　　' 初期値と違うなら商品が見つかった
　　if a <> -1 then
　　　　MsgBox "商品名:" & Cells(a,1).Value & " 価格:" & Cells(a,3).Value
　　end if
End Sub

といった具合でしょう
# 字下げの全角スペースは置換してください

お礼

回答ありがとうございます。
間違いを指摘していただき感謝です。
さっそくやってみます！！