Excel VBA質問箱 IV

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

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


8882 / 76732 ←次へ | 前へ→

【73418】Re:オートフィル
発言  UO3  - 13/1/6(日) 0:52 -

引用なし
パスワード
   ▼ミミ さん:

一応コードをアップしておきますね。

Sub Sample()
  Dim m As Long
  Dim mV As Variant
  Dim shn As String
  
  mV = Split("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec")
  For m = 1 To 12
    shn = mV(m - 1)
    Cells(2, m + 1).Formula = "=SUMIF(" & shn & "!$A:$A,$C12," & shn & "!$B:$B)"
  Next
  
End Sub

218 hits

【73406】オートフィル ミミ 13/1/5(土) 17:13 質問
【73413】Re:オートフィル UO3 13/1/5(土) 21:55 発言
【73414】Re:オートフィル UO3 13/1/5(土) 22:16 発言
【73415】Re:オートフィル ミミ 13/1/5(土) 22:48 質問
【73416】Re:オートフィル ミミ 13/1/5(土) 22:56 発言
【73417】Re:オートフィル UO3 13/1/6(日) 0:38 発言
【73418】Re:オートフィル UO3 13/1/6(日) 0:52 発言
【73419】Re:オートフィル UO3 13/1/6(日) 1:24 発言

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