Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29397 / 76738 ←次へ | 前へ→

【52623】Re:OptionBaseステートメント
発言  りん E-MAIL  - 07/11/21(水) 20:25 -

引用なし
パスワード
   MMG さん、こんばんわ。

>何か理解するためのヒントいただければ幸いです。どなたかよろしくお願い
>いたします。

Bookに標準モジュールを二つ追加し、
片方に。
'=========================
Sub main()
  MsgBox test1, vbInformation, "Option Base 0"
  MsgBox test2, vbInformation, "Option Base 1"
End Sub
Function test1() As String
  '同じようにバリアントで宣言し、配列に。
  Dim dt As Variant
  dt = Array(1, 2)
  test1 = LBound(dt) & " to " & UBound(dt)
End Function
'=========================

もう一方に。
'=========================
Option Base 1
Function test2() As String
  '同じようにバリアントで宣言し、配列に。
  Dim dt As Variant
  dt = Array(1, 2)
  test2 = LBound(dt) & " to " & UBound(dt)
End Function
'=========================

これでMainを実行してみてください。
慣れたらどうってことない事ですが、インデックス値は0から始まるよりも1からの方がわかりやすいと思いませんか?

0 hits

【52620】OptionBaseステートメント MMG 07/11/21(水) 20:06 質問
【52621】Re:OptionBaseステートメント かみちゃん 07/11/21(水) 20:20 発言
【52623】Re:OptionBaseステートメント りん 07/11/21(水) 20:25 発言
【52625】Re:OptionBaseステートメント neptune 07/11/21(水) 20:38 発言
【52630】Re:OptionBaseステートメント Yumi 07/11/21(水) 21:49 お礼
【52641】Re:OptionBaseステートメント MMG 07/11/23(金) 13:54 質問
【52642】Re:OptionBaseステートメント neptune 07/11/23(金) 14:04 回答
【52658】Re:OptionBaseステートメント りん 07/11/24(土) 9:52 発言
【52660】Re:OptionBaseステートメント ichinose 07/11/24(土) 10:09 発言
【52662】Re:OptionBaseステートメント りん 07/11/24(土) 10:34 発言

29397 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free