2024-01-01から1ヶ月間の記事一覧
円グラフ表示微調整 Function AggregateAndCopyData() As Long Dim sourceSheet As Worksheet Dim destinationSheet As Worksheet Dim sourceRow As Long Dim destRow As Long Dim sumRow3 As Double Dim sumRow6 As Double Dim i As Integer ' シートの設定…
Function AggregateAndCopyData() As Long Dim sourceSheet As Worksheet Dim destinationSheet As Worksheet Dim sourceRow As Long Dim destRow As Long Dim sumRow3 As Double Dim sumRow6 As Double Dim i As Integer ' シートの設定 Set sourceSheet = …
もちろんです。ソースシートで8行おきにデータがあり、その3行目と6行目の合計を目的シートの開始行からそれぞれ3列目と5列目にセットするようにコードを書き換えます。以下に示すコードは、この要件を満たすように調整されています。 ```vbaSub AggregateAn…