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