excel VBA についての質問です。 inputboxを用いて5つの数字を入力し、それらの合計と平均値をmsgboxで表示するマクロの式?を教えてください。

excel VBA についての質問です。 inputboxを用いて5つの数字を入力し、それらの合計と平均値をmsgboxで表示するマクロの式?を教えてください。

Visual Basic | Excel21閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

Sub test() Dim i As Long, Num As String, Nums As Variant, newNums As Variant Num = InputBox("カンマ区切りで数字を入力してください", Default:="1,2,3,4,5") Nums = Split(Num, ",") ReDim newNums(UBound(Nums)) For i = 0 To UBound(Nums) newNums(i) = Val(Nums(i)) Next MsgBox "合計:" & Application.Sum(newNums) _ & vbCrLf & "平均:" & Application.Average(newNums) End Sub

ThanksImg質問者からのお礼コメント

ありがとうございました

お礼日時:7/2 11:44