- ベストアンサー
変数にnullを代入するには
諸事情で、変数の値をNullにしたいのですが、 Sub a() Dim mystr As String mystr = "moji" '他の処理 mystr = Null End Sub だと、実行時エラー94になります。 多分、NULLは値じゃないから代入できないんだと思いますが、どうすれば変数をnullにできるのでしょうか？ String型が問題であれば、何にすればいいですか？
- vepkkaocnbj
- お礼率100% (37/37)
- オフィス系ソフト
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
ふつーに sub macro1() dim x as variant x = null end sub とかで。
その他の回答 (2)
- kmee
- ベストアンサー率55% (1857/3366)
Nullにしたい理由は? mystr="" や mystr=vbNullString ではだめなのでしょうか?
お礼
ありがとうございました。
- 山田 太郎（@f_a_007）
- ベストアンサー率20% (955/4574)
Option Compare Database Private Sub コマンド0_Click() Dim myArg As Variant Dim myStr As String Let myArg = Null Let myStr = "" MsgBox "IsNull(myArg)=" & IsNull(myArg) & Chr$(13) & _ "Len(myStr)=" & Len(myStr & "") End Sub Null を代入するには変数を Variant 型に。 文字列で宣言した場合は、nullではなく""を。
お礼
ありがとうございました。
関連するQ&A
- サブフォームに変数を代入し、RecordSourceの値を取得したい
サブフォームに変数を代入し、RecordSourceの値を取得したいのですがうまくいきません。 Sub test1() Dim サブフォーム As String Dim フォーム As String フォーム= "土台" サブフォーム = "フォーム1" MsgBox Form_フォーム1.RecordSource End Sub ******************************************************************* Sub test2() Dim サブフォーム As String Dim フォーム As String フォーム= "土台" サブフォーム = "フォーム1" MsgBox Form_フォーム1.RecordSource MsgBox Forms(フォーム).Controls(サブフォーム).RecordSource End Sub オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438) ******************************************************************* Sub test3() Dim サブフォーム As String Dim フォーム As String フォーム = "土台" サブフォーム = "フォーム1" MsgBox Forms(サブフォーム).RecordSource End Sub 実行時エラー'2450' マクロの式またはVisual Basic コート゛で参照されている 'フォーム名'フォームが見つかりません。 ******************************************************************* test1～3のうち test1のみはうまくいくのですが 変数を代入したいです。 ヘルフ゜のには Forms![受注]![受注サブフォーム].Formとなってますが これじゃ変数を代入できないですよね。 どうすればサブフォームに変数を代入しつつ、RecordSourceの値を取得できるのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 参照渡しをする時は、渡される側は違う変数を使う？
参照渡しをする時は、渡される側は違う変数を使うべきなのでしょうか？ ＶＢＡのお勉強をしているのですが Sub test1() Dim mystr As String mystr = "a" Call test2(mystr) Call test3(mystr) End Sub Sub test2(ByRef mystr As String) MsgBox mystr End Sub Sub test3(ByRef mystr2 As String) MsgBox mystr2 End Sub この場合、test2とtest3ではどちらを使ったほうがいいのでしょうか？ test3は、mystr2 というmystrとは違う変数を使っていますが、 test2は、test1のmystrと同じ変数を使っています。 test1と同じ変数を使おうが違う変数を使おうが どちらにしろ (ByRef 変数名 As String) で宣言するから、変わらないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- vbaで配列に値を格納する場合
vbaで配列に値を格納する場合 変数の宣言はどちらを使った方が良いのでしょうか？ Sub Sample1() Dim i As Long Dim myStr As String Dim tmp() As String myStr = "a,i,u,e,o" tmp = Split(myStr, ",") End Sub か Sub Sample1() Dim i As Long Dim myStr As String Dim tmp As Variant myStr = "a,i,u,e,o" tmp = Split(myStr, ",") End Sub でも問題なく動くのですが、 Variant型での宣言はあまりしない方が良いですか？ あと Dim tmp() As String ならエラーにならないのですが Dim tmp As String だとエラーになってしまう理由がよくわからないので教えて頂けますか？
- ベストアンサー
- オフィス系ソフト
- 数値かどうかを取得したい IsNumberではダメ
Sub Macro2() Dim mystr As String mystr = "1" If IsDate(mystr) = False Then MsgBox "NO" End If End Sub これなら日付型かどうかを取得できるのに、 Sub Macro1() Dim mystr As String mystr = "1" If IsNumber(mystr) = False Then MsgBox "NO" End If End Sub だと、IsNumberがコンパイルエラーになります。 変数に入っている値が数値として評価できるかを取得する方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- VBA 変数にアスタリスクが含んでるかどうか
変数にアスタリスクが含んでるかどうかをＩＦステートメントで取得するには？ Sub test() Dim mystr As String mystr = "*/" If mystr Like "*" Then MsgBox "mystrはアスタリスクを含んでます。" End If End Sub このようなことをしたい場合、 mystr = "*/" でも mystr = "/" でも、結局は*が、どの文字でも含まれると認識してしまいます。 変数にアスタリスクが含まれてるかどうかを判定する方法を教えてください。
- 締切済み
- オフィス系ソフト
- 変数の中に指定した値が何回登場するかを取得したい
変数の中に指定した値が何回登場するかを取得したいのですが どうやら、WorksheetFunction.CountIfは使えないようです。 Sub tset() Dim mystr As String Dim i As Integer mystr = "abcabc" i = WorksheetFunction.CountIf(mystr, "*a*") End Sub とすると、 コンパイルエラーが発生します。 ヘルプを見ると「セルの個数を求めるセル範囲を指定します。」と書いてあることから、変数は指定できないのだと思いますが では、変数の中に指定した値が何回登場するかを取得する場合は、どのようなコードを作成すればいいのでしょうか？ 上記の例であれば、 2が返ってきてほしいです。
- ベストアンサー
- Excel（エクセル）
- 定数と変数、どちらを使った方がいいか？
vbaの勉強中なので教えてください。 Sub 定数を使った場合() Const moji = "あああ" MsgBox moji End Sub Sub 変数を使った場合() Dim moji As String moji = "あああ" MsgBox moji End Sub 二つのサンプルは答えは一緒なのですが プログラムを作るにおいてどちらを使った方が良いのでしょうか？ このサンプルならどっちでもいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 配列 変数の宣言 ＶＢＡ
こんばんは。 Sub test() Dim myStr(200) As String For 行 = 0 To Cells(Rows.Count, 1).End(xlUp).Row myStr(行) = Cells(行 + 1, 1) Next MsgBox Join(myStr, "_") End Sub のようなコート゛を作成し、 アクティブシートのＡ列の最終行までを取得し、一つにまとめたいのですが 「Dim myStr(200) As String」の部分で 最終行を取得することは不可能でしょうか？ 今回は２００行なので大丈夫なのですが 場合によっては1行～65536行までさまざまです。 なので Dim myStr(Cells(Rows.Count, 1).End(xlUp).Row) As String としたらエラーになりました。 最初から Dim myStr(65536) As String とするべきでしょうか？ しかしそうすると myStrの最後がずっと「________」となってしまいます。 どうするのが適切なのかわかりません。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- コードの添削お願いします(変数エラー)
Option Explicit Private Sub CommandButton1_Click() Dim myStr As String If myStr <> "" Then myStr = TextBox.Value Label1.Caption = LTrim(myStr) Label2.Caption = RTrim(myStr) Label3.Caption = Trim(myStr) Else MsgBox "終了" End If End Sub 変数のエラーが出ますが、何処がおかしいですか？ 宜しくお願い致します。
- ベストアンサー
- Visual Basic
お礼
ありがとうございました。