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