Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36191 / 76732 ←次へ | 前へ→

【45724】Re:VBA上で集計するフィールドの選択をしたい
回答  馬太馬  - 07/1/12(金) 17:31 -

引用なし
パスワード
   ▼自動記録編集者 さん:
ToralList:=Array(〜
の所を変数を利用して設定したいという事で良いですか?

コードの例としては、以下のようになります。

Sub subtotalsumple()
  Dim myArray As Variant
  Dim mySTR As String
  Dim myCnt As Long
  Dim myRow As Long
  Dim myCol As Long
  Dim myColSt As Long
  
  
  myCol = 20     '集計開始の列番号
  myRow = 4      '見出し行の行番号
  
  
  myColSt = Cells(myRow, myCol).End(xlToLeft).Column - 1
  Do Until Cells(myRow, myCol).Value = Empty
    mySTR = mySTR & ", " & myCol - myColSt
    myCol = myCol + 1
  Loop
  mySTR = Mid$(mySTR, 3)
  
  myArray = Split(mySTR, ",")
  
  Cells(myRow, myColSt + 1).Select
  
  Selection.Subtotal GroupBy:=5, _
            Function:=xlSum, _
            TotalList:=myArray, _
            Replace:=True, _
            PageBreaks:=False, _
            SummaryBelowData:=True
  
End Sub


エラートラップ等、加味してないので適当に改良して使ってください。

1 hits

【45698】VBA上で集計するフィールドの選択をしたい 自動記録編集者 07/1/11(木) 15:34 質問
【45699】Re:VBA上で集計するフィールドの選択を... りん 07/1/11(木) 16:31 発言
【45707】Re:VBA上で集計するフィールドの選択を... 自動記録編集者 07/1/12(金) 9:12 発言
【45724】Re:VBA上で集計するフィールドの選択を... 馬太馬 07/1/12(金) 17:31 回答
【45736】Re:VBA上で集計するフィールドの選択を... Kein 07/1/13(土) 0:05 回答
【45849】Re:VBA上で集計するフィールドの選択を... 自動記録編集者 07/1/16(火) 9:28 お礼

36191 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free