引数をフォームで入力(EXCEL)

質問

countif の引数をその都度フォームで入力したいのですが、
具体的な方法を教えてください。実例があればご紹介ください。

回答No.2

Wendy02 · ベストアンサー

こんにちは。

フォームというのは何ですか？
UserFormですか、フォームツールですか？

フォームツールには、テキストボックスはありませんね。
コントロールツールはいかがですか？

コントロールツールバーを出して、TextBox をセルに貼り付けて、
右クリック－プロパティ－LinkedCell

例：
LinkedCell　　F1

プロパティの窓を閉じます。

ツールバーのデザインモード（左端）を終了

後は、

他のセルに、

=COUNTIF(A1:A1000,F1)

とすれば、テキストボックスに書き入れたものの数が出ます。

回答No.1

merlionXX

フォームじゃないですが、InputBoxでやってみました。

Sub test01()

Dim myRange As Range, ans As String
Set myRange = Application.InputBox("セル範囲を選択してください", Type:=8)
If myRange Is Nothing Then Exit Sub
ans = Application.InputBox("条件を入力してください")

MsgBox "=COUNTIF(" & myRange.Address(0, 0) & "," & ans & ")　の答えは、" & Application.WorksheetFunction.CountIf(myRange, ans)

End Sub