Excel VBA質問箱 IV

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

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


21408 / 76732 ←次へ | 前へ→

【60725】別方の意味
質問  こまつ  - 09/3/11(水) 15:20 -

引用なし
パスワード
   ▼kanabun様

元データに配列を格納の箇所をご教示願えないでしょうか?
お手数ですが、宜しくお願いいたします。


>別法で、連想配列で仕分けしておいて、結果の配列だけをシートに値転記
>する方法です。(つまり、シートに数式を埋め込んでいません)
>
>Sub Try1() 'by dictionary
> Dim aryDate
> Dim aryKind
> Dim r As Range
> Dim dic As Object
> Dim ss As String, sDate As String
> Dim i As Long, j As Long
> Dim xx As Long
> Const yy = 5   'A,B,C,D,E 5種類
> 
> '元データを配列に格納
> Set r = Range("D8", Cells(Rows.Count, "D").End(xlUp))
    →変数rにDの最終行からD8までを代入する。
> aryDate = Application.Text(r, "mmdd")
    →変数aryDateは、変数rに代入した配列の表示形式をmmddとする?
    →"mmdd"とは〇〇月〇〇日のことでしょうか?
    →元データの表示形式は、2009/3/1です。その場合は"yyyymd"でいいので     しょうか?
> aryKind = r.Offset(, Asc("I") - Asc("D")).Value
     →変数aryKindには、変数rのどこがはいるんだろうか?
      Range("A1").Offset(1,1)はB2ですよね?
      Asc("I")-Asc("D")っていくつになるんですか?
      
> Set dic = CreateObject("Scripting.Dictionary")
> 'D列+I列 を結合したキーで出現回数カウント
> For i = 1 To UBound(aryDate)
>   ss = aryDate(i, 1) & aryKind(i, 1)
>   dic(ss) = dic(ss) + 1
> Next
> 
> 'カウント結果を配列に出力
> Dim Kinds, Dates
> Kinds = Range("C2").Resize(yy).Value
> Dates = Application.Text( _
>     Range("D1", Cells(1, Columns.Count).End(xlToLeft)), _
>     "mmdd")
> xx = UBound(Dates)
> ReDim Ans(1 To yy, 1 To xx)
> For j = 1 To xx
>   For i = 1 To yy
>     ss = Dates(j) & Kinds(i, 1)
>     If dic.Exists(ss) Then
>       Ans(i, j) = dic(ss)
>     End If
>   Next
> Next
> Set dic = Nothing
> '結果をシートに出力
> Range("D2").Resize(yy, xx).Value = Ans
> MsgBox "完了"
>End Sub

0 hits

【60577】CountIFで集計したい nokubo 09/3/3(火) 14:08 質問
【60579】Re:CountIFで集計したい koshimizu 09/3/3(火) 16:37 発言
【60582】Re:CountIFで集計したい こまつ 09/3/3(火) 17:20 回答
【60602】Re:CountIFで集計したい kanabun 09/3/4(水) 12:12 発言
【60604】Re:CountIFで集計したい こまつ 09/3/4(水) 15:30 お礼
【60725】別方の意味 こまつ 09/3/11(水) 15:20 質問
【60757】Re:別方の意味 kanabun 09/3/13(金) 11:23 発言
【60760】Re:別方の意味 こまつ 09/3/13(金) 11:52 質問
【60763】Re:別方の意味 kanabun 09/3/13(金) 14:12 発言

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