素人です。誤認識などございましたらすみません。
VBAとは、EXCEL関数も利用できるものと聞きましたが、
例えば、range("A1:D10")において 5以上の数を調べることを
countif("A1:D10",>5)のEXCEL関数をもちいて表現するにはどのような記載の
仕方をすればよいでしょうか?
なおかつ、D10の部分を inputboxなどで、入力者が数値を変化させたいのです。
D10をE20とか自由に変更させたい。
他の方法もあると思いますが、countifとinputboxを用いて、入力者が範囲を自由に設定でき、5以上の数を数えさせるにはどうしたらよいでしょうか?
質問自体がおかしかったり意味がとおらないのではと心配していますが、なんとなく意味がつたわりましたでしょうか?
を
No.2ベストアンサー
- 回答日時:
その場合は次のようにします。
Range("E2") = Application.WorksheetFunction.CountIf(Range("a1:a" & 変数), ">5")
pesoさん
どうも度々 ありがとうございました。なにぶんにも、VBA等のプログラムなるものは、右も左もわからないのでチンプンカンプンな質問でしたが、ごていねいにわかりやすく教えてくださいまして大変助かりました。
No.1
- 回答日時:
>例えば、range("A1:D10")において 5以上の数を・・・
ワークシート関数を使うためには Application.WorksheetFunction.関数 とします。
例)
Range("E1") = Application.WorksheetFunction.CountIf(Range("A1:D10"), ">5")
選択範囲にテキストボックスを使う場合は CountIf(Range("A1:D10"), ">5") の部分を CountIf(Range(テキストボックス名), ">5") にします。
また、 CountIf(Selection, ">5") にすると選択範囲が適用されます。
この回答への補足
pesoさんありがとうございます。大変たすかりました。大感激です。ところで下
のようなことはできるのでしょうか?追加で教えて頂けると助かります。
Sub Macro1()
Dim 変数
変数 = InputBox("変数を入力してください")
Range("E2") = Application.WorksheetFunction.CountIf(Range(変数), ">5")
'とやり A1:A13を入力すると出来ました!(大感激!!)
'ところで、テキストボックスにA1:A13に入力すると大変なので、A1:A×と固定してしまい
'テキストボックスに数字を入力するだけで範囲を指定させることはできないのでしょうか?
'下のようにしてみましたが、デバックになってしまいました。
Range("E2") = Application.WorksheetFunction.CountIf(Range("a1:a変数"), ">5")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Visual Basic(VBA) Excel のユーザー定義関数でソルバーが動作しない 1 2022/09/05 19:51
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Excel(エクセル) Excelの関数詳しい方お願いします。 13 2023/01/18 21:11
- Visual Basic(VBA) 重複したデータ(空白は除く)のVBA表記について 5 2022/08/15 12:41
- Excel(エクセル) エクセルのマイナス表示 3 2022/03/28 16:35
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Excel(エクセル) excel関数について 3 2022/06/06 21:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
visual studio でインデントを...
-
エクセル マウスで選択した範...
-
テーブルリンク エクセルの4...
-
エクセル ダブルクリック入力の...
-
Wordで一括範囲指定について
-
エクセルのマクロで選択範囲の...
-
EXCEL VBAにて画像処理のアドイ...
-
セル削除右(又は下)方向にシフト
-
Wordデータの色を反転させたい
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
白飛びした(明るい)写真をiPhon...
-
Wordでドロップダウンリスト連動
-
Androidのスマホで毎回毎回ホー...
-
Photoshop で8bit /チャンネル ...
-
Excel VBA あるセルでENTERを押...
-
VBAでファイルを開くときにファ...
-
「無」と「未」の使い方
-
「これが」「これで」いいです...
-
PANTONE の 正しいCMYK値の調べ方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
visual studio でインデントを...
-
EXCELで、関数を使って対象の項...
-
エクセル マウスで選択した範...
-
エクセル ダブルクリック入力の...
-
テーブルリンク エクセルの4...
-
選択範囲の空白セルに0を入れる...
-
反転する時の色を変えたいのですが
-
EXCEL ボリュームゾーンごとの...
-
セル削除右(又は下)方向にシフト
-
エクセルのマクロで選択範囲の...
-
EXCEL VBA----離れたセル範囲の...
-
Wordデータの色を反転させたい
-
Cell内の一部を指定する方法(Wo...
-
EXCEL VBAにて画像処理のアドイ...
-
範囲選択すると最後の一行で急...
-
ペイントでの切り取り
-
Wordで一括範囲指定について
-
読み上げ機能について
-
エクセルのマクロを教えてくだ...
-
エクセル オートザム 範囲選...
おすすめ情報