Excel VBA質問箱 IV

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

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


21554 / 76738 ←次へ | 前へ→

【60578】解説して頂きたい。
質問  こまつ  - 09/3/3(火) 16:25 -

引用なし
パスワード
   Sub 支社別集計()
  Dim Sheet1, Sheet2 As Worksheet
  Const COL店舗CD = 1 ' 店舗CDの列
  →Const name = 1でなぜ、1列目みてるのでしょうか?

  Const COL分類CD = 3 ' 分類CDの列
  Const COL売上額 = 10 ' 売上額
  Dim MaxRow As Long ' 最終行
  Dim key As String ' 検索キー
  Dim c, r As Long
  
  Set dicT = CreateObject("Scripting.Dictionary") ' 連想配列の定義
  
  Set Sheet1 = Worksheets("売上明細") ' 明細シート
  Set Sheet2 = Worksheets("売上集計") ' 集計シート
  
  MaxRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row ' 最終行を求める
  →なぜ上の文で最終行を取得できるのでしょうか?
   Rows.Count,1とは、どこをみてるのでしょうか?

  ' 売上明細を連想配列へ読み込む
  With Sheet1
    For r = 2 To MaxRow ' 最終行
      key = .Cells(r, COL店舗CD) & .Cells(r, COL分類CD) ' 店舗CD & 分類CD
      →Cells(r,COL店舗CD)とは、なんですか?
       Cells(2,1列??)

      dicT(key) = dicT(key) + .Cells(r, COL売上額) ' 売上額
      →一回目のdicTには、108400という数字が入ってます。
      →なぜ上の数式で売上額になるのでしょうか?
    Next
  End With
    
  ' 集計シートへの書き出し
  With Sheet2
    For c = 3 To 12 ' 列
      For r = 4 To 12 ' 行
        key = .Cells(2, c) & .Cells(r, 1) ' 店舗CD & 分類CD
        .Cells(r, c) = dicT(key)
      Next
    Next
  End With
End Sub

宜しくお願いします。
一行一行説明して頂けるとさらに助かります。

1 hits

【60578】解説して頂きたい。 こまつ 09/3/3(火) 16:25 質問
【60580】Re:解説して頂きたい。 超初心者 09/3/3(火) 16:55 発言
【60581】Re:解説して頂きたい。 こまつ 09/3/3(火) 17:09 発言
【60584】Re:解説して頂きたい。 kanabun 09/3/3(火) 20:22 発言
【60587】Re:解説して頂きたい。 こまつ 09/3/3(火) 23:20 お礼
【60594】Re:解説して頂きたい。 kanabun 09/3/4(水) 10:30 発言
【60595】Re:解説して頂きたい。 kanabun 09/3/4(水) 10:52 発言

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