2022-08-12から1日間の記事一覧
Option Explicit Private Function plngOmomi(ByVal intRow As Integer) As Double Dim intCol As Integer Dim lngSum As Double lngSum = 0 For intCol = 3 To 43 If Cells(intRow, intCol) = "" Then Else lngSum = lngSum + CDbl(Cells(2, intCol)) End I…