次のコードで2.は動くのですが、1.が動きません。「オブジェクトが必要です。」エラーになります。
何が違うんでしょうか? 教えてください。よろしくお願いします。
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) ' ←1.これだとエラーになる
' hoge (ThisWorkbook.Worksheets("Sheet1").Range("G10")) ' 2.こちらはOK
End Sub
No.5ベストアンサー
- 回答日時:
Helpより
Call ステートメント
プロシージャを呼び出すとき、キーワード Call は省略できます。キーワード Call を使って、引数が必要なプロシージャを呼び出す場合は、引数リスト (引数 argumentlist) をかっこで囲む必要があります。キーワード Call を省略するときは、引数リストを囲むかっこも省略しなければなりません。Call 構文で組み込み関数またはユーザー定義型関数を呼び出す場合、その関数の戻り値を取得することはできません。
つまり、
hoge a ○
Call hoge (a) ○
hoge (a) ×
Helpより
Call ステートメントの使用例
次の例は、Call ステートメントが Private Sub プロシージャ、組み込み関数、ダイナミックリンク ライブラリ (DLL) プロシージャ、および Macintosh のコード リソース プロシージャに対して、どのように制御を渡すかを説明します。DLL は、Macintosh では使用できません。
' Private Sub プロシージャを呼び出します。
Call PrintToDebugWindow("Hello World")
' 上記のステートメントは、次の Private Sub プロシージャに制御を渡します。
Sub PrintToDebugWindow(AnyString)
Debug.Print AnyString ' イミディエイト ウィンドウに表示します。
End Sub
' 組み込み関数を呼び出します。関数の戻り値は、破棄されます。
Call Shell(AppName, 1) ' AppName には、実行可能ファイルのパスが格納されています。
' Microsoft Windows の DLL プロシージャを呼び出します。Declare ステートメントは、クラス モジュールではプライベートにする必要がありますが、標準 モジュールではプライベートにする必要はありません。
Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
Sub CallMyDll()
Call MessageBeep(0) ' Windows DLL プロシージャの呼び出し。
MessageBeep 0 ' キーワード Call を省略した呼び出し。
End Sub
No.4
- 回答日時:
Call hoge(a) 'これはOK
hoge (ThisWorkbook.Worksheets("Sheet1").Range("G10"))
ですが、VBAのエディタ上見てもらえれば、「hoge」と次の括弧の間にスペースがあるのが分かると思います。
hoge ThisWorkbook.Worksheets("Sheet1").Range("G10")
のように括弧を除いてもエラーになりません。
なかなか微妙な仕様かもしれません。
No.3
- 回答日時:
『エクセルvba (ByVal Target As Range)について』
過去の質問も参考になるかと思います。
No.2
- 回答日時:
参考で・・・。
エラーでは「・・・が必要」とありますから、
普通に考えて何かが不足しているというのはどうか。
ヘルプでも『オブジェクト修飾子を明示的に・・・』とある。
それと、
SUBと違ってFUNCTIONを使うので戻り値があるのは基本形。
aだけに着目しているが、
r=hoge (a)
にすると状況が変わったので参考。
「a」と「ThisWorkbook.Worksheets("Sheet1").Range("G10")」、
http://members.jcom.home.ne.jp/rex-uchida/vba060 …
使い方が違うのかもしれない。
No.1
- 回答日時:
Function hoge(aa As Range)
aa.Value = "Hello!!"
End Function
Sub test03()
Dim aa As Range
Set aa = Worksheets("Sheet1").Range("b1")
hoge aa
End Sub
で動きましたよ。
Worksheets("Sheet1").が無いと、どのシートのRangeかきめられないのでは。Activesheetというような限定でも良いと思う。
私はこれで苦労しているので、限定が無いため、とそう思ったが、
その後やってみるとWorksheets("Sheet1"). が無くても動いた。
()をつけるとエラーになった。
余り意識したことがなかったが
http://www.gizcollabo.jp/vbtomo/boards/vbchoshoq …
でも言及していることかな。
Call hoge(cc)
とするとOKです。
回答、ありがとうございます。
1,2,3がダメで、3,4,5,6,7がOKというのが理由が分かりませんが、プログラムはなんとか
動くようになりました。
1. hoge (a)
2. call hoge a
3. hoge (Range("G10"))
4. hoge a
5. hoge Range("G10")
6. call hoge (a)
7. hoge (ThisWorkbook.Worksheets("Sheet1").Range("G10"))
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
セルのコピーで「オブジェクトが必要です。」
Visual Basic(VBA)
-
DATE型変数を初期化する方法
Visual Basic(VBA)
-
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
-
4
UserForm1.Showでエラーになります。
工学
-
5
VBAのエラーについて、”実行時エラー424オブジェクトが必要です”
Excel(エクセル)
-
6
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
7
含まない言い方ってどうしたらいいんでしょうか
日本語
-
8
ウォッチ式の文字数制限について
Visual Basic(VBA)
-
9
マクロ 実行ボタンを押さずに常に実行
Excel(エクセル)
-
10
(初心者です)VBAについて。「実行時エラー424、オブジェクトが必要です」について
Visual Basic(VBA)
-
11
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
Vba初心者です。下記のコード助けてください Loopに対するDoがありませんと表示されます Sub
オープンソース
-
14
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
15
エクセルVBAでオブジェクトが必要です
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vb.netのグローバル変数の宣言...
-
【正規表現】【javascript】CR...
-
hoge の謎
-
Linux バイナリ実行できない "...
-
「オブジェクトが必要です。」...
-
C# .NET DataGridView の行を追...
-
ASP+アクセスでのSQLコメントに...
-
static と externについて
-
static constメンバ変数(配列)...
-
【Jquery】changeイベント毎にa...
-
ボタンをクリックすると数が増...
-
『名前空間』の意味を教えてく...
-
プログラムの関数の例でよく使...
-
同じIDで定義した要素の配列を...
-
<a>タグのテキストを取得
-
C#OpenCv V4にのエラーに関する...
-
GASでundefinedエラーが出ます
-
C#テキストボックスの文字を配...
-
window.openでタイトル名の指定
-
ActiveXobjectが作成できない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Boolean型配列中のTrueの有無を...
-
Linux バイナリ実行できない "...
-
ASP+アクセスでのSQLコメントに...
-
「オブジェクトが必要です。」...
-
Excel VBA の ChangeFileAccess
-
static constメンバ変数(配列)...
-
【Jquery】changeイベント毎にa...
-
HTTPSのとき":"が"%3A"ではなく...
-
【正規表現】【javascript】CR...
-
C# .NET DataGridView の行を追...
-
サブウインドウから親ウインド...
-
Vb.netのグローバル変数の宣言...
-
ボタンをクリックすると数が増...
-
MFCのキャプション変更
-
Perlから送信するメールのヘッ...
-
正規表現で半角数字1桁のみを全...
-
Imageコントロール vba
-
Option Strictと構造体とArrayL...
-
関数を呼び出すHTMLタグ<body o...
-
onclick指定関数の引数へローカ...
おすすめ情報