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

1 hits

▼

【20573】データのカウントについて さゆりン 04/12/12(日) 16:01