Objectで宣言するのとObject型で宣言するのではどちらがいいでしょうか？
- VBAコードにおいて、Objectで宣言するのとObject型で宣言するのは同じ動作をします。
- Objectは汎用の型であり、動作が保証されています。
- 一方、Object型で宣言すると、より具体的な型を指定できるため、エラーを事前に検出しやすいです。
- ベストアンサー
Objectで宣言するのとObject型で宣言する
Objectで宣言するのとObject型で宣言するのではどちらがいいでしょうか？ エクセルです。 ＶＢＡでコードを作るにおいて、どちらのほうがいいのでしょうか？ どちらも同じ動きをします。 Sub Sample1() Dim buf As Range Set buf = Range("A1") MsgBox buf.Value End Sub Sub Sample2() Dim buf As Object Set buf = Range("A1") MsgBox buf.Value End Sub ご回答よろしくお願いします。
- LDUZOAF
- お礼率100% (30/30)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
一般には（当然ながら）固有オブジェクト型（例えばrange）が良いとされています。 ちなみにＶＢＡのヘルプには ----以下抜粋 特定のオブジェクトを指定して、固有オブジェクト型として宣言すると、データ型のチェックが自動的に行われると共に、コードの実行速度やコードの読みやすさも向上します。 ----ここまで のように解説されており、そのようなものであると広く考えられています。 一方、一般にcreateobjectで生成した場合や、何らかの理由で事前に固有オブジェクト型を特定できない場合などでは、objectで宣言しておく場合も確かにあります。
関連するQ&A
- Range.Name プロパティの使い方
ＶＢＡの勉強中のものです。（エクセル） 一つ一つヘルプを見て、検証して勉強していこうと思ってるのですが 使い方がわからないので教えてください。 Range.Value プロパティならうまくいくのですが、 Range.Name プロパティの使い方がわかりません。 ----------------------- Sub test1() MsgBox Range("a1").Name End Sub Sub test2() Dim R As Range Set R = Range("a1") MsgBox R.Name End Sub ----------------------- どちらも、アプリケーション定義またはオブジェクト定義のエラーです。になります。 ----------------------- Sub test1() MsgBox Range("a1").Value End Sub Sub test2() Dim R As Range Set R = Range("a1") MsgBox R.Value End Sub ----------------------- rangeにすればうまくいきます。 Range.Name プロパティの使い方を教えてください。アドバイスよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクセス（2003）のVBAでビット演算方法
エクセルのマクロではビット演算ができましたが、アクセスではどのような方法があるのでしょうか？ where in 文で値の自動生成も考えられますが、VBやVCでアドインも可能でしょうか教えてください。 '*********** Excel VBA Bit 演算 ************ Private Sub Boln() Dim MyBln As Boolean Dim Object1 As Range Dim Object2 As Range Set Object1 = Range("B11") Set Object2 = Range("B12") MyBln = Object1 And Object2 MsgBox MyBln End Sub '*********** Excel VBA Bit 演算 ************ 以上、宜しくお願いします。
- ベストアンサー
- Visual Basic
- データ型とオブジェクト型 プログラムとしてどちらが適切なのか？？
Sub test1() Dim R As String R = Cells(1, 1) MsgBox R End Sub Sub test2() Dim R As Range Set R = Cells(1, 1) MsgBox R End Sub どちらも同じ結果が返ってきます。 プログラムとしてどちらが適切なのでしょうか？ サンプルなどで多く見かけるのはtest2なのですが 気のせいでしょうか？
- ベストアンサー
- オフィス系ソフト
- オブジェクト？？
またまた困っております inputboxで入力した日付を検索して複数選択しようとしたのですが unionの使い方がよくわかりません(・・;) どこが間違っているのかもしくは何が足りないのか教えてください<m(__)m> どうかよろしくお願いします！ Option Explicit Sub グラフ() Const SH_NAME As String = "VBA" Dim art As String Dim i Dim ws As Worksheet Dim endrow As Long Dim msg As String Dim writerow As Integer Dim grahu As Chart Dim target As Range Set ws = ThisWorkbook.Worksheets(SH_NAME) writerow = 2 art = InputBox("日付を入力してください") With ws endrow = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To endrow If art = .Range("A" & i) Then Set target = Union(target, "D" & i) Else If InStr(msg, .Range("A" & i)) = 0 Then msg = msg & .Range("A" & i) & vbCrLf End If End If Next i target.Select End With If msg <> "" Then MsgBox msg End If MsgBox "グラフベースを作成しました" End Sub Set target = Union(target, "D" & i) ↑ここでエラーが起きて 「オブジェクトが必要です」と言われました どうすればよいのでしょうか？
- ベストアンサー
- Visual Basic
- 「オブジェクトが必要です。」エラーになります。
次のコードで２．は動くのですが、１．が動きません。「オブジェクトが必要です。」エラーになります。 何が違うんでしょうか？ 教えてください。よろしくお願いします。 Function hoge(aa As Range) aa.Value = "Hello!!" End Function Sub Worksheet_Activate() Dim a As Range Set a = ThisWorkbook.Worksheets("Sheet1").Range("G10") hoge (a) ' ←１．これだとエラーになる ' hoge (ThisWorkbook.Worksheets("Sheet1").Range("G10")) ' ２．こちらはOK End Sub
- ベストアンサー
- Visual Basic
- ＶＢＡを始めたばかりです。
ＶＢＡを始めたばかりです。 下記でエラー「オブジェクトが必要です」が出ます。 何故ですか。 Sub A_Sample048() Dim mySht1 As Object Dim mySht2 As Worksheet '準備ここまで Set mySht1 = ActiveSheet If mySht1.Type = xlWorksheet Then Set mySht2 = mySht1 MsgBox mySht2.Name Else MsgBox "最前面のシートはワークシートではありません" End If Set mySht1 = Nothing 'オブジェクトの解放 Set mySht2 = Nothing End Sub よろしくお願いします。
- ベストアンサー
- Visual Basic
- rangeオブジェクトについて
こんばんわ。 rangeオブジェクトの行数と列数を出したいのですが、やりかた教えていただけませんでしょうか。 以下のように、方法１と方法２を試しましたが、「オブジェクトが必要です」というエラーになります（；；）ついでに、以下２つがなぜだめかも後学のために教えてください（；；） よろしくお願いします。 方法１-- dim rng as range set rng = range(cells(1,1),cells(2,2)) with rng msgbox .columns(.columns.count).column end with 方法２-- dim rng as range set rng = range(cells(1,2),cells(2,2)) msgbox ubound(range,1) -- エクセル2003
- ベストアンサー
- Visual Basic
- Excel VBA 定数にオブジェクトを指定したい
Excel VBA 定数にオブジェクトを指定したい いつもお世話になりますm(__)m Excel VBAで、定数としてオブジェクトの指定はできないのでしょうか？ 例えば、WorkSheets("Sheet1")を定数「Srt1」として設定したいのですが、 Public Const Srt1 As Object = Worksheets("Sheet1") としても「定数のデータ型が不正です」とエラーがでます。 例えば、セルに値をセットする時に Worksheets("Sheet1").Range("A1").Value="あああ" Worksheets("Sheet1").Range("A2").Value="いいい" Worksheets("Sheet1").Range("A3").Value="ううう" と書きますが、これを Srt1.Range("A1").Value="あああ" Srt1.Range("A2").Value="いいい" Srt1.Range("A3").Value="ううう" と書ければプログラムも見やすく、書きやすくなると思いました。 プログラムの最初に Dim Srt1 As Object Set Srt1 = Worksheets("Sheet1") とすれば使えるのですが、複数のシート名をまずは定数として登録したいと思っていますが、オブジェクト(ワークシート名)は定数として登録することは出来ないのでしょうか？ お詳しいかた、是非ともご教授お願い致しますm(__)m
- 締切済み
- Visual Basic
- 参照渡し（ByRef）
参照渡しについてわからないのですが Option Explicit Dim buf As String Sub Sample1() buf = "aaa" Call Sample2("bbb") MsgBox buf End Sub Sub Sample2(ByRef a As String) a = "ccc" End Sub を実行すると、msgboxには、aaaが表示されますが、 途中のbbb,cccはどんな意味があるのでしょうか？ また、 Sub Sample2(ByRef a As String) を Sub Sample2(a As String) にしてもコードは問題なく動きますが、 ByRefは役に立ってるのですか？
- ベストアンサー
- オフィス系ソフト
- 配列のメリットは？
下記のコードは同じ動作をします。 Sub 普通() Dim moji1 As String Dim moji2 As String moji1 = Range("a1").Value moji2 = Range("a2").Value MsgBox moji1 & moji2 End Sub --------------------------------------------- Sub 配列() Dim moji(2) As String moji(1) = Range("a1").Value moji(2) = Range("a2").Value MsgBox moji(1) & moji(2) End Sub こういう場合は配列を使ったほうがいいのでしょうか？ それとも配列は避けたほうがいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
変数の型をデータ型で宣言するかVariant型で宣言するかみたいなことですね。 Dim buf As Objectよりも Dim buf As Rangeのほうが実行速度が速いなら そちらを使って行くことにします。ありがとうございました。