こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

小数点以下表示

averageで計算した値を表示したところ、
勝手に四捨五入されてしまいました
小数点第二位まで表示したいので
どなたかよろしくお願いいたします<m(__)m>



Option Explicit


Public Sub 平均()

Const SH_NAME As String = "VBA"
Dim art As String
Dim i
Dim ws As Worksheet
Dim endrow As Long
Dim msg As String
Dim writerow As Integer
Dim target As Range
Dim ActCell As Variant
Dim Result As Integer


Set ws = ThisWorkbook.Worksheets(SH_NAME)
writerow = 2

art = InputBox("日付を入力してください")
With ws
endrow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To endrow
If art = .Range("A" & i) Then
If target Is Nothing Then
Set target = Range("D" & i)
Else
Set target = Union(target, Range("D" & i))
End If
Else
If InStr(msg, .Range("A" & i)) = 0 Then
msg = msg & .Range("A" & i) & vbCrLf
End If
End If
Next i

If msg <> "" Then
MsgBox msg
End If

target.Select

ActCell = Selection.Address

Result = Application.WorksheetFunction.Average(.Range(ActCell))
Range("F39").Value = Result
Range("F39").NumberFormatLocal = "0.00"
End With

End Sub

投稿日時 - 2014-05-16 10:21:24

QNo.8597384

すぐに回答ほしいです

質問者が選んだベストアンサー

>Dim Result As Integer

変数Resultをsingleで宣言すれば良いのでは?

投稿日時 - 2014-05-16 11:15:06

お礼

そうでした、、、
integerは整数ですもんね(・_・;)
初歩的なミスですいません、
本当にありがとうございました<m(__)m>

投稿日時 - 2014-05-16 11:18:18

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問