No.3ベストアンサー
- 回答日時:
こんにちは。
vba_minaraiさん。もし、ご存知でしたら、お見捨てください。私自身も、1年目ぐらいに、掲示板で教わりました。
VBAで、Empty を使う時に、#2さんのお書きになったように、変数は、Variant型のみに用いられる、変数が空の状態です。いくつかの型の戻り値が発生し、数値の「0」が入れられたか、それとも「空」なのかを、「0」 か「Empty」 かで区分けする必要がある時に使います。ただ、一般的には、文字型でしたら、="" ですし、数値型でしたら、=0 で良いわけです。
私は、しばらくの間、
If ActiveCell.Value = Empty Then
こういうことは良いのだと思っていましたが、間違っていました。
この場合、セルが 0 で、True になりますね。
セル上が、="" の場合は、
If ActiveCell.Value = "" Then
で、Trueになります。
だから、これでは、Empty や ="" では取れません。以下のようにすべきはずなのです。
If IsEmpty(ActiveCell.Value) Then
では、VBA上で、Empty 値でなければならない場合はなにかというと、私自身、何かわかりません。前回の話の続きのような気もしますが、Variant型では、エラーが発生した時に使われるとは、ヘルプで書かれているかとは思いますし、今まで、私もそう信じていましたが、それは、受ける側の変数の型の問題であって、戻り値の期待される型に、文字型か数値型か曖昧な例にめぐり合ったことは、ないといっても過言ではありません。Array関数の配列の格納でも、Emptyは直接関係がありません。VBA上では、特殊な値だと考えてよいかもしれませんね。
見本:
Sub testMatchFunction()
Dim rng As Range
Dim i As Long
Dim rtn As Variant '戻り値
Set rng = Range("A1", Range("A65536").End(xlUp))
On Error Resume Next
rtn = Empty '戻り値を空にする。
rtn = WorksheetFunction.Match(Range("B1").Value, rng, 0)
On Error GoTo 0
If Not IsEmpty(rtn) Then
MsgBox Cells(rtn, 1).Address
End If
Set rng = Nothing
End Sub
改良型
このようにすれば、大きなメモリを使うVariant 型でなくてもよいわけです。戻り値がエラーであるかは関係がありません。時々、掲示板で、Cellsの中で、エラーを発生させて、トラップを取ろうとしている方がいますが、これは好手だとは思えません。なお、なぜ、Match関数を使うのかの意義は、また考えてみてください。
Sub testMatchFunctionR()
Dim rng As Range
Dim i As Long
Dim rtn As Long '戻り値
Set rng = Range("A1", Range("A65536").End(xlUp))
On Error Resume Next
rtn = 0 戻り値を0にする。
rtn = WorksheetFunction.Match(Range("B1").Value, rng, 0)
On Error GoTo 0
If rtn > 0 Then
MsgBox Cells(rtn, 1).Address
End If
Set rng = Nothing
End Sub
なお、単独のプロシージャでは、rtn 変数をEmptyや0にする必要はありませんが、ループやサブルーチンで、変数で、On Error トラップを使う前に、rtnに何も入れられていない状態に戻す必要があります。
この回答への補足
いつも、いつも有難うございます。
>もし、ご存知でしたら、お見捨てください。
勿体無い、お言葉有難うございます。
変数の型って時に厄介に思います。(変数の基本を理解した上での発言でない無謀な意見であることは既にご承知のことと思いますが!)直接、メモリーを操作すれば変数の型なんて概念は自己責任の範囲ですが、それでは、効率があまりにも悪すぎ、ある程度の制約を加えることにより総合的な効率を追求すべきだということも、またそれが効率的であうることは明白だと思います。アスキー文字で単純に比較することは簡単ですが、Emptyのような抽象的な表現では、いったい何を比較すれば良いのかとの疑問から質問しました。いつもながら的確なご指導感服いたします。有難うございます。
私も、= Empty でエラーが引っかかったので質問したのがきっかけでした。その場合の、エラーの原因は、帰り値が配列だったためのエラーでしたが、物事の本質は= Empty とは何か?に変わりありません。
今回ご指導頂いた内容は、まだ理解するに至っておりませんが、もう少しお時間を頂いてじっくり考えていただきたいと思います(すみません、今酔っ払っています!!爆笑)
メモリーがある値で初期化せず単に空間を割り振った状態で取り扱う必要がある場合、予期せぬトラブルが発生すると思います。特に、文字列などで、アドレスと、EOFのみを割り振った場合など顕著だと思います。重箱の隅をつつくような質問をすると思いますが今後ともよろしくお願いいたします。
尚、本件とはズレますが、以前にご指導頂いた、Extensibilityの件ですが、なんとか、"ThisWorkbook"同士の移動は出来るようになりました。(オブジェクト思考って凄いですね?)有難うございました。本当に、本当に助かっております。有難うございました。(前回、同様、お礼の部分は残しておきます。ご了承ください。)
No.1
- 回答日時:
値が入っていない状態を表す値です。
ある変数が、ByteでもBooleanでもIntegerでもLongでもCurrencyでもShortでもSingleでもDoubleでもStringでもArrayでもObjectでもNothingでも無い場合にこの値になります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 英語 取り込み詐欺は英語で何と言いますか? 4 2022/08/27 09:22
- Visual Basic(VBA) B列の最終行までA列をオートフィル 2 2022/09/05 05:50
- Visual Basic(VBA) セルが空白だった時の処理 5 2022/09/01 07:07
- 英語 意味を教えてください 4 2022/04/20 13:08
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) Excelについて質問です。 シート1の検索値例えば *ABC* をシート2.3.4から検索して、シ 5 2023/02/17 23:30
- PHP 「if (!empty($_POST) ){ /」と「ポイント2★」の関連性? 1 2022/07/11 03:59
- PDF EXCEL ページを指定してPDF出力するVBAを教えてください。 2 2023/02/09 10:27
- Word(ワード) 質問タイトル Word2021で作成した文書を「ネットプリント」で写真画質印刷したい Word202 1 2022/08/23 13:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
Variant型で宣言してるのにEmptyになる
Visual Basic(VBA)
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
InputBoxの入力値を半角数字のみと限定する方法
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
9
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
10
IF関数でEmpty値を設定する方法。
Excel(エクセル)
-
11
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
12
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
13
VBAで文字列を数値に変換したい
Excel(エクセル)
-
14
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
15
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
16
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
17
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
18
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
19
別のシートから値を取得するとき
Visual Basic(VBA)
-
20
Excel VBAで「プログラム実行」ボタンと「プログラム停止」ボタンをつけたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
これって喉仏ですか? 私は女性...
-
腕を見たら黄色くなってる部分...
-
至急!尿検査前日にオナニーし...
-
精子が黄色?
-
舌の裏の痛みのないプツプツの...
-
口の中に黒い血の塊
-
風俗店へ行く前のご飯
-
筋トレするとチンコが縮んじゃ...
-
射精をして1週間以内に尿検査を...
-
中出しをするとお腹が痛い・・・。
-
喉が痛く、初診の病院にいった...
-
納豆食べた後の尿の納豆臭は何故?
-
甲状腺腫れ
-
便潜血検査(検便)で柔らかい...
-
おへその少し上が痛いのですが…
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報