Excel VBA質問箱 IV

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

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


60669 / 76732 ←次へ | 前へ→

【20700】Re:データのカウントについて
発言  [名前なし]  - 04/12/15(水) 21:39 -

引用なし
パスワード
   >名前なしさんもありがとうございました。
まだなんの役にも立ってなかったんですが・・・。
なんか申し訳ないんで、下のコードを提供させていただきます。
結局どんな処理がわからないのかわからなかったんで、既に解決済みの
内容なのであればごめんなさい。

Private Sub 指定列の各数値の数を取得(ByVal 列番号 As Variant)
Dim 数値の総数 As Long
Dim 数値 As Long
Dim A1形式列標記 As Variant
Dim 結果表示 As String

  If Application.IsText(列番号) Then
   列番号 = Range(列番号 & "1").Column
  End If
  A1形式列標記 = Split(Cells(1, 列番号).Address(True, False), "$")
  MsgBox 列番号 & "列目(" & A1形式列標記(0) & "列)の数値を数えます。"
  結果表示 = Cells(1, 列番号).Value & vbCrLf
  For 数値 = Application.Min(Columns(列番号)) To Application.Max(Columns(列番号))
    数値の総数 = Application.CountIf(Columns(列番号), 数値)
    If 数値の総数 > 0 Then
      結果表示 = 結果表示 & 数値 & "は" & 数値の総数 & "個あります。" & vbCrLf
    End If
  Next 数値
  
  MsgBox 結果表示
End Sub

Sub 使い方()
 'どちらの指定の仕方でも可
 Call 指定列の各数値の数を取得(7) '7番目の列(G列)
 Call 指定列の各数値の数を取得("G") 'G列
End Sub

0 hits

【20573】データのカウントについて さゆりン 04/12/12(日) 16:01 質問
【20574】Re:データのカウントについて かみちゃん 04/12/12(日) 16:11 発言
【20578】Re:データのカウントについて さゆりン 04/12/12(日) 17:26 質問
【20581】Re:データのカウントについて かみちゃん 04/12/12(日) 18:34 回答
【20582】Re:データのカウントについて さゆりン 04/12/12(日) 19:31 お礼
【20594】Re:データのカウントについて さゆりン 04/12/13(月) 1:54 質問
【20595】Re:データのカウントについて wizik 04/12/13(月) 4:26 発言
【20642】Re:データのカウントについて [名前なし] 04/12/13(月) 21:47 発言
【20645】Re:データのカウントについて さゆりン 04/12/14(火) 0:05 質問
【20647】Re:データのカウントについて [名前なし] 04/12/14(火) 0:28 発言
【20649】Re:データのカウントについて さゆりン 04/12/14(火) 0:56 質問
【20652】Re:データのカウントについて かみちゃん 04/12/14(火) 7:25 回答
【20684】Re:データのカウントについて さゆりン 04/12/15(水) 1:08 お礼
【20700】Re:データのカウントについて [名前なし] 04/12/15(水) 21:39 発言
【20708】Re:データのカウントについて さゆりン 04/12/16(木) 1:44 お礼

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