![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
こんばんは!!
EXCEL VBAを使い出して、初日からつまずいてます・・・。
みなさん、アドバイスよろしくお願いします!!
で、早速、質問なんですけど、
指定したセル範囲のいずれかに入力があるか調べたいんですけど、それができるプロパティとかってあるんでしょうか?
地道にセル毎にチェックするしかないいんでしょうか??
たとえば、範囲をA1:H1として、その範囲内のセルに何か入力があったらTrueが返ってくるとか・・・。
もし、知ってる方がいらっしゃたら教えてください!!
よろしくお願いします!!!!!
No.2ベストアンサー
- 回答日時:
>これは、まず範囲を選択して、入力チェック()を呼ぶことなのでしょうか
書いたモジュールは範囲が指定してあります。("A1:H11"は間違いです。質問からすると"A1:H1"です)何もしないで入力チェックを実行します。
モジュールを CountA(Selecton) に変えれば任意の選択範囲がチェックの対象になります。任意の範囲を選択して実行します。
メッセージは確認するためで、IF ・・・・ で入力有無が判定できます。
>ワークシート関数CountAってどうやったら出てくるんですか??
ついApplicationと書いてしまうんですが、『WorksheetFunction.』と打てば、候補の関数名が表示されると思います。
下記の fnc入力チェック は入力有無を返すユーザー定義関数です。
書き方の例です。分かりやすくなった?この例は引数に"A1:H1"をセットしています。任意の範囲にするには Selection.Address に変えます。
Sub 入力チェック()
Dim 入力有無フラグ As Boolean '入力有無の答え
入力有無フラグ = fnc入力チェック("A1:H1") 'モジュール内でA1~H1を指定(固定)
MsgBox 入力有無フラグ '帰ってきた答えをメッセージボックスで確認
End Sub
'入力有無を返すユーザー定義関数
Function fnc入力チェック(checkAddress As String)
If WorksheetFunction.CountA(Range(checkAddress)) > 0 Then
fnc入力チェック = True
Else
fnc入力チェック = False
End If
End Function
詳しい説明どうもありがとうございます!!
おかげさまで、うまくチェックできました(^-^)
なにぶん初心者なもので、またつまずいちゃったら質問にきますので、
その時はまた、どうぞよろしくお願いします~m(__)m
ありがとうございました!
No.1
- 回答日時:
地道というか、指定範囲の入力個数を調べてみました。
Range("A1:H11") を Selection に変えれば、選択した範囲のチェックができます。
Sub 入力チェック()
'ワークシート関数CountAで指定範囲の入力個数をカウントする
'数値入力か文字入力のどちらか不明なためCountAで判定。入力があれば、Ifの判別式はTrue
If Application.CountA(Range("A1:H11")) > 0 Then
'入力があればTrueでこのメッセージがでます
MsgBox "入力があります!"
Else
'入力がなければFalseでこのメッセージがでます
MsgBox "入力はありません"
End If
End Sub
この回答への補足
早速のお返事、ありがとうございます。
これは、まず範囲を選択して、入力チェック()を呼ぶということなのでしょうか??
それから、ワークシート関数CountAってどうやったらでてくるんですか??
ちなみに入力は、数値入力でも文字入力でも構いません。
範囲内にとりあえず何か入ってたらTrueでいいです。
すいません・・・。
nishi6さんのお時間が空いている時があったら、またよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBA 見つからなかった時の処理
Excel(エクセル)
-
6
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
11
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
12
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
13
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
14
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
15
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
16
UserForm1.Showでエラーになります。
工学
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
18
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
19
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
20
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
初歩的な事だと思います。 Sub...
-
VBA R1C1形式で変数の入力について
-
c#でTextBoxの入力制限
-
エクセルVBA テキストボックス...
-
VBAでInputBoxの再入力をさせる...
-
Excel-VBAでInputBox+Pulldown...
-
テキストボックスの番号を使っ...
-
「イ分」・・・フンという文字...
-
EXCEL VBA のユーザーフォーム...
-
uwsc webページ内のテキストボ...
-
InputBoxでキャンセルボタンを...
-
excel vba でユーザーフォーム...
-
TextBoxに特定の文字のみ入力を...
-
DataGridView 列ごとの入力制限
-
入力フォームの値をQRコードで...
-
複数行の入力を受け取る方法
-
電話番号かどうかを判断したい...
-
チェックボックスのCheckedとCh...
-
教えて!全角文字「μ」の半角
-
数字以外の入力をエラーにする...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスの番号を使っ...
-
エクセルVBA テキストボックス...
-
初歩的な事だと思います。 Sub...
-
Excel-VBAでInputBox+Pulldown...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
VBAでInputBoxの再入力をさせる...
-
TextBoxから数字が文字...
-
DataGridView 列ごとの入力制限
-
DataGridViewの桁数制限に関して
-
エディットボックスの入力制限...
-
c#でTextBoxの入力制限
-
「イ分」・・・フンという文字...
-
excel vba でユーザーフォーム...
-
教えて!全角文字「μ」の半角
-
アクセスのマクロ
-
入力フォームの値をQRコードで...
-
VBA R1C1形式で変数の入力について
-
ExcelVBAのユーザーフォームで...
-
TEXTAREA に入力時の位置
おすすめ情報