Excel VBA質問箱 IV

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

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


60482 / 76738 ←次へ | 前へ→

【20894】Re:データの頻出順にリストを作りたいのですが
回答  Hirofumi  - 04/12/23(木) 18:42 -

引用なし
パスワード
   >できれば、空白セルは無視したいのですが、
>プログラムを変更しようにも、プログラムを理解してないもので
>手も足も出ません。Hirofumiさん、教えていただけないでしょうか?

「Function Frequency」の中に、以下の★印の様にコードを追加して下さい

    'データの先頭から最終まで繰り返し
    For i = 1 To UBound(vntData, 1)
      '空白を無視             '★この行追加
      If vntData(i, 1) <> "" Then     '★この行追加
        'dicIndexにKeyデータが存在するなら
        If .Exists(vntData(i, 1)) Then
          '項目に、カウントを加算
          .Item(vntData(i, 1)) = .Item(vntData(i, 1)) + 1
        Else
          'dicIndexにKeyデータと、初期値を登録
          .Add vntData(i, 1), 1
        End If
      End If               '★この行追加
    Next i
    'データ用配列を破棄
0 hits

【20864】データの頻出順にリストを作りたいのですが あいりあり 04/12/23(木) 12:47 質問
【20865】Re:データの頻出順にリストを作りたいので... IROC 04/12/23(木) 12:55 回答
【20867】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 13:33 質問
【20871】Re:データの頻出順にリストを作りたいので... ちゃっぴ 04/12/23(木) 13:51 回答
【20877】Re:データの頻出順にリストを作りたいので... IROC 04/12/23(木) 14:17 回答
【20892】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 18:15 お礼
【20893】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 18:22 お礼
【20887】Re:データの頻出順にリストを作りたいので... Hirofumi 04/12/23(木) 15:54 回答
【20891】Re:データの頻出順にリストを作りたいので... あいりあり 04/12/23(木) 18:14 お礼
【20894】Re:データの頻出順にリストを作りたいので... Hirofumi 04/12/23(木) 18:42 回答
【20890】Re:データの頻出順にリストを作りたいので... [名前なし] 04/12/23(木) 17:31 回答
【20895】Re:データの頻出順にリストを作りたいので... [名前なし] 04/12/23(木) 19:44 発言
【20896】Re:データの頻出順にリストを作りたいので... [名前なし] 04/12/23(木) 19:48 発言

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