IDでもっと便利に新規取得

Yahoo!知恵袋

JavaScriptが無効です。ブラウザの設定でJavaScriptを有効にしてください。
JavaScriptを有効にするには

亜紀さん

2022/1/22 9:33

44回答

VBAで”型が違います”っていう実行時エラーがでるんですがよくわかりません。よろしくお願いします。 aEKindNameは、string タイプです。この行で・・・

VBAで”型が違います”っていう実行時エラーがでるんですがよくわかりません。よろしくお願いします。 aEKindNameは、string タイプです。この行で・・・ While (aEKindName <> vbNull)

Visual Basic・68閲覧・50

ベストアンサー

関数は苦手

関数は苦手さん

カテゴリマスター

2022/1/22 9:38

String型なら While (aEKindName <> "") で動くと思います。

関数は苦手

関数は苦手さん

2022/1/22 9:58

ちなみに As Stringを取る(Variant型にする)と、動作しますよ。

質問者からのお礼コメント

質問の意図が不明ですが、String型なのを変更したくない + vbNull を使いたいという話ですか？そうですね。関数の返り値なので変えたくないのと、vbNULL をエラーコードとしてつかってるので、変えたくありません。でも、書いてくださった（手間がかかったみたいですね。ありがとうございます）ものでかまいません。ありがとうございました。＼(^o^)／

お礼日時：1/22 12:03

その他の回答（3件）

Ｅｘ３さん

2022/1/22 10:00

aEKindName As Variant にすれば？

どうしても勝ってみたい！！

どうしても勝ってみたい！！さん

2022/1/22 9:59

空白セルは""であってNullではないから？ ? IsNull(Range("A1").Value), Range("A1").Value = "" False True セルＡ１が空白セルの時。

sen**********さん

2022/1/22 9:50

https://docs.microsoft.com/ja-jp/dotnet/api/microsoft.visualbasic.constants.vbnull?view=net-6.0 http://www.officetanaka.net/excel/vba/function/VarType.htm

カテゴリQ&Aランキング

Visual Basic

34.5年余り、ソフトウェア開発を行ってきましたが、わけあって転職しました。転職先で今までに比べると極めて小規模なソフトウェアを作成していますが、評判が良かったらしくVB.netで作成したソフトウェアをAccessのフォームからも呼び出したいとの依頼を受けました。VBでは他のプロジェクトからも使える様にクラスライブラリとして作成しました。今までVBAから呼び出したことがないので良く解らない部分があり、質問させて頂きました。プロジェクトのプロパティでCOMとして使えるように設定してビルドを行いました。DLLとTLBファイルは作成されました。他のPCで使うにはregasmを実行しないと使えな...

VBAって難しいですか？

VBAコードなのですが、依頼で作ってもらったものですが、マクロコードでActiveCell.FormulaR1C1=_"=IF(R8C="""","""",IF(OFFSET(集計!R[-9]C2,0,3)=R8C,OFFSET(集計!R[-9]C2,0,6),""""))"となってます。エクセルバーではこの表示になってます。=IF(C$8="","",IF(OFFSET(集計!$B2,0,3)=C$8,OFFSET(集計!$B2,0,6),""))これを下記のように表示させるには、どのようにコードを修正すればよいですか？また不可能の場合マクロコードを書き直せばよいでしょうか？=IF(B...

VBAについて先輩からVBAを現在進行形で教わっているのですが、その先輩がやった莫大な数あるコードから検索機能？を使った小技を見逃してしまいました。これはここのコードを参考にして～みたいな感じでショートカットキーを使いその検索機能を表示し、そこに単語を打ち込んだらその単語が黄色く表示されるという技です。どなたかやり方がわかる方、ご教授ください。

VBAでIfの使い方について質問です。Sub知恵袋()IfRange("A1")=""ThenRange("A1")="yahoo"Range("B1")="知恵袋"EndIfEndSub調べものをしている時に上記のコードを見かけました。私はIfを使う時は必ず"Else"を使わないといけないと思っていたのですが、別に"Else"は必要ないのでしょうか？

VBA初心者です。やりたい事が上手く出来ないので質問させて下さい。A列には、乱数を割り振る関数が入っています。最終的に、C5~C8セルに、2,9,3,8とか、9,22,0,4みたいに数字が割り振られるようにしたいです。可能ならばループしている最中はドラムロールのように数字が徐々に増えていく様が表現出来たら助かります。エラーで弾かれてしまいますが、コードも載せておきます。詳しくは画像を参照お願いします。------------------------------------------------submacro()j=0k=0l=0m=0DoIfRange("c9")=""AndRang...

マクロ（VBA)の書き方を教えて下さい。ExcelシートのB列に8桁の数字が並んでおり、その数字の4桁目と5桁目の数（2桁の数）を吸い出し、更にその2桁の数を10分の1した数をC列に表示させたいです。例）23105478→0.5詳細は画像の通りです。ご教示の程お願い致します。

エクセル、マクロを教えてください。その日に宿泊予約が何件入っているかわかる表を作りたいです。見づらいかもしれませんが写真の様に、お客さまの名前、イン、アウトを別シートに入力するとその期間にお客様の名前が入る様にしたいです。（画像では同じシートにしていますが）本当は縦の番号を部屋として空き状況も管理したいのですが、インとアウトが別のお客様で重なることもあるので上から見ていって空白だったら名前を入力するようにしようとしていました。予約は変更になる場合もあるので、インとアウトを修正したら表も直るようにしたいです。家にあるパソコンがエクセルもどきしか使えず、職場ではパソコンが使える時間が限られて...

vba初心者です。過去のQ&Aを拝見し近いものはあったのですが、無知な自分にどうかご教授下さい。＜内容＞ﾌｫﾙﾀﾞを指定。複数Excelﾌｧｲﾙが存在しますが、このexcel内のｼｰﾄ名を検索してhitすればﾌｧｲﾙを一つ下の階層ﾌｫﾙﾀﾞに移動させたいのです。（例）重複してしまいますが・・・。ﾌｫﾙﾀﾞを指定して、このﾌｫﾙﾀﾞ内にある複数のexcel（最大1500ﾌｧｲﾙ）の中から、ｼｰﾄ名に「赤」が付いたexcelﾌｧｲﾙを抽出し（excelﾌｧｲﾙには「赤」が付いていないﾌｧｲﾙも存在します）、このﾌｫﾙﾀﾞの一つ下のﾌｫﾙﾀﾞに移動させたいのです。・できればﾌｫﾙﾀﾞの指定に（...

マクロ初心者です。どこがまちがっているのかわかりません【指示したい内容】「売上」ワークシートをシート内の一番右端にコピーするコードを次の条件で記述する。【作成条件】・シートのコピーには「Copy」メソッドを使用し、引数は参照シート（一番右端のシート）の後ろ（After）を指定する・一番右端のシート位置は「Worksheets」プロパティのコレクション番号を「Count」プロパティで参照する・シートの名前はセル「H1」の値と文字列"月売上"を連結演算子「&」でつなげたものを設定する※「&」演算子：P.88参照（「&」の前後には必ずスペースを入力）例）セル「H1」が数値の「2」でマクロを実行...

【新機能】アンケート投票のテストを実施中

アンケート投票

ゴールデンウィーク、どう過ごした？

アンケート中

1824人投票中

リモートワークのテレビ会議、ビデオはオンにしてる？

アンケート中

809人投票中

あなたが好きなラーメンの種類は？

アンケート中

2636人投票中

もっと見る

カテゴリ一覧

コンピュータテクノロジー

プログラミング

C言語関連

Java

PHP

Ruby

JavaScript

HTML、CSS

Visual Basic

カテゴリ一覧を見る

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。