- ベストアンサー
ひっかけ問題にするためですか？
Sub M_Proc() Dim a As Long a = F_Proc(3) MsgBox a End Sub Function F_Proc(Optional x As Long = 5) As Long F_Proc = x * 2 End Function vbaのサンプル問題なのですが、 F_Procの値は6になり、M_Procのaは６と表示されるのですが a= 5は何のためにあるのでしょうか？ ひっかけ問題にするためですか？ 「= 5」は意味のないコードなのでしょうか？
- GVHZUWNTL3
- お礼率100% (40/40)
- オフィス系ソフト
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- okormazd
- ベストアンサー率50% (1224/2412)
別に「ひっかけ問題」ではないです。 a = F_Proc() のように呼んだとき、x=5で計算した値を返します。 他のsubからも呼ばれるなど、値を指定して呼ばれるとは限らないようなとき、いわばdefaultの値10を返します。
お礼
ありがとうございました。
- neKo_deux
- ベストアンサー率44% (5541/12319)
> a= 5は何のためにあるのでしょうか？ 引数が省略された時のためです。 Optional (Visual Basic) http://msdn.microsoft.com/ja-jp/library/09yx51zh(v=vs.80).aspx MsgBox F_Proc(3) MsgBox F_Proc(2) MsgBox F_Proc(1) MsgBox F_Proc(0) MsgBox F_Proc() なんかの結果を比べてみるとか。
お礼
ありがとうございました。
関連するQ&A
- Optional について
エクセルのvbaエキスパートのスタンダードの問題でわからないのがあります。 Sub M_Proc () Dim a As Long a = F_Proc(3) MsgBox a End Sub Function F_Proc(Optional x As Long = 5) As Long F_Proc = x * 2 End Function というコードで 質問１ Optional はどういう意味でしょうか？ 質問２ Optional x As Long = 5 となっているのに ｘには３が代入されています。 この5は意味がないのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡについて質問させて下さい。
ＶＢＡについて質問させて下さい。 Sub Exsample() Dim a As String a = "aaa" MsgBox Ketugou(a) End Sub Function Ketugou(x As String) Ketugou = x End Function このサンプルコードについて質問が2つあります。 【質問１】 なぜ x=a、 と言う式はないのに xにが代入されるのでしょうか？ 【質問２】 なぜ MsgBox Ketugou(a) では aaa(aaa) とならないのでしょうか？ a = "aaa" Ketugou= "aaa" になってるはずですが。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- msgboxの表示
Ａ列の値とC列の値をMsgboxに表示するにはどうしたらいいのでしょうか？C列で一番高い商品とその品名A列を表示させたいのですが・・ Sub hinmei() Dim i As Long For i = 2 To Range("C65535").End(xlUp).Row Dim x As Long Dim a As Long x = Cells(i + 1, 5) If Cells(i, 5).Value < x Then a = x End If Next MsgBox a End Sub
- 締切済み
- Visual Basic
- エクセルVBAで2つの画像を比較したい
こんにちは。VBAの初心者です。 エクセル2003のVBAを使って、シートに読み込んだ縦横24ピクセルの2つの画像（picA、picB）を比較したいと考えています。VBなどのページを参考に、APIのGetPixel関数を使えばなんとかなりそうだというところまではたどり着いて、以下のコードを組んでみたのですが、うまく動きません。 Private Declare Function GetPixel Lib "gdi32" _ (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Sub CommandButton1_Click() Dim picA As Image Dim picB As Image Dim p1 As Integer Dim p2 As Integer Dim ScreenhDC As Long For x = 1 To 24 For y = 1 To 24 p1 = picA.GetPixel(ScreenhDC, x, y) p2 = picB.GetPixel(ScreenhDC, x, y) If p1 <> p2 Then MsgBox "違う画像です" Exit Sub End If Next Next MsgBox "同じ画像です" End Sub 「p1 = picA.GetPixel(ScreenhDC, x, y)」のところで「実行時エラー'91': オブジェクト変数またはWithブロック変数が設定されていません。」というメッセージが出て止まってしまいます。解決法をご教示いただけませんでしょうか。 そもそもエクセルのVBAではAPIは使えないなどということはありますか？
- 締切済み
- その他（プログラミング・開発）
- 違いを教えてください。
VBAについて質問です。 ///////////////////// Sub sample1(a As String) a = "abc" MsgBox a End Sub --------------------- Sub sample2() Dim a As String a = "abc" MsgBox a End Sub ///////////////////// sample1とsample２の違いは何でしょうか？ どちらも標準モジュールに記載しました。 sample2はF5で実行できますが、sample１はF5を押しても何も起きません。 それだけの違いでしょうか？ Sample1の使い道がわかりません。 ///////////////////// Option Explicit Sub sample2() Call sample1 End Sub --------------------- Sub sample1(a As String) a = "abc" MsgBox a End Sub ///////////////////// にしたら、 「引数は省略できません。(Error 449)」というコンパイルエラーになりました。
- ベストアンサー
- Visual Basic
- EXCEL VBA でユーザー定義型データーをproperty get let を使って受け渡しをしたい
Excel2002Sp3を使用しています。 （WindowsはXpSp3です） ユーザー定義型の各メンバーに対して、property get/let/set を使用してデーターの受け渡しを行いたいのですが、うまくいきません。 以下に作成したプログラムを載せてみます。 main1()とmain2()がありますが、 main2()だとうまくいきます。 しかし、メンバー個別のやりとりにはなっていません。 main1()のようにメンバー個別でやりとりできるようにする方法がわかりません。 property get/let/setの書き方でできるようになるのでしょうか。 それとも、メンバー個別でのやり取りは仕様上できないのでしょうか。 もしできるのであれば、サンプルコードを教えていただけると助かります。 よろしくお願いします。 ------------------- Class1 ------------------- Option Explicit Private m_xx As X Public Property Get xx() As X xx = m_xx End Property Public Property Let xx(p As X) m_xx = p End Property ------------------- Module1 ------------------- Option Explicit Type X a As Long b As Long End Type Sub main1() '個別にやり取り Dim cc As New Class1 Dim p As Long Dim q As Long cc.xx.a = 5 cc.xx.b = 2 p = cc.xx.a q = cc.xx.b MsgBox p & "," & q End Sub Sub main2() 'yyを用意してまとめてやり取り Dim cc As New Class1 Dim p As Long Dim q As Long Dim yy As X yy.a = 5 yy.b = 2 cc.xx = yy p = cc.xx.a q = cc.xx.b MsgBox p & "," & q End Sub ----------------------------------------
- ベストアンサー
- Visual Basic
- これも「デバッグをしている」と言う事になりますか？
ＶＢＡです。 プログラミングの知識が浅いので教えてほしいのですが ------------------- Sub test() Dim a As String a = "abc" MsgBox a End Sub ------------------- のコードをF8を押しながら実行する事を 「デバッグをしている」と言う事になりますか？ それとも「ステップインをしている」と言う事になるのでしょうか？
- ベストアンサー
- Visual Basic
- VBAのプロシージャーと変数の名前の区別について
VBAの初心者です。教えてください。 Sub ex() Dim a As Integer Dim b As Integer a = 2 a a, b MsgBox b End Sub Sub a(a As Integer, b As Integer) b = a End Sub 上記のプログラムを実行するとうまくいきません。VBAのプロシージャーと変数って同じ名前を使うとだめなのですか？教えてください。
- ベストアンサー
- Visual Basic
- プロシージャーの外で宣言した変数の値の破棄の仕
プロシージャーの外で宣言した変数の値の破棄の仕方について教えてください。 ++++++++++++++++++ Dim i As Long Sub test() i = i + 10 MsgBox i End Sub ++++++++++++++++++ を実行すると、どんどん値が増えていきますが、 回避するには、 ++++++++++++++++++ Dim i As Long Sub test() i = i + 10 MsgBox i i = 0 End Sub ++++++++++++++++++ とするしかないのでしょうか？ ++++++++++++++++++ Dim i As Long Sub test() i = i + 10 MsgBox i Set i = Nothing End Sub ++++++++++++++++++ としたら、エラーになりました。
- ベストアンサー
- Visual Basic
- As Longって二つ必要ですか？
Sub test() MsgBox 税込み金額(100) & "円" End Sub Private Function 税込み金額(金額 As Long) As Long 税込み金額 = Int(金額 * 1.05) End Function 公式サイトのマクロなのですが As Longが２つあるのですが、二つ必要な理由を教えてください。 '2個目のAs Longが無くても問題なく動きました。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。