シートを作成しながら、累計を計算 - stgtの日記 クリップボード貼り付け - stgtの日記 ドキュメントをあさる際のあれこれ - stgtの日記

Private Declare PtrSafe Function OpenClipboard Lib "USER32" (Optional ByVal hwnd As Long = 0) As Long Private Declare PtrSafe Function CloseClipboard Lib "USER32" () As Long Private Declare PtrSafe Function EmptyClipboard Lib "USER32" () A…

Sub Create() Dim DataRange As Range Dim DataArr As Variant, Row As Variant Dim StartTime As Date, EndTime As Date Dim Cumulative As Double Set DataRange = Worksheets("form").Cells(5, 9).CurrentRegion IsErr = CheckData(DataRange) If IsErr =…