Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10309 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22563】Splitで作った配列要素の個数を知るには kobasan 05/2/23(水) 20:22 質問[未読]
【22564】Re:Splitで作った配列要素の個数を知るには ichinose 05/2/23(水) 20:27 発言[未読]
【22565】Re:Splitで作った配列要素の個数を知るには kobasan 05/2/23(水) 20:43 お礼[未読]
【22563】Splitで作った配列要素の個数を知るには
質問  kobasan  - 05/2/23(水) 20:22 -
引用なし
パスワード
   今晩は
　　data = "a,b,c"
　　a = Split(data, ",")
aの配列要素の個数を知るいい方法がありますか。

現在は、これで代用してますが、もっといい方法があれば教えて下さい。
Function ArrayCount(data As String)
Dim a As Variant
　　On Error GoTo exitFunction
　　a = Split(data, ",")
　　For i = 0 To Len(data)
　　　　b = a(i)
　　Next
exitFunction:
　　ArrayCount = i
End Function
【22564】Re:Splitで作った配列要素の個数を知るに...
発言  ichinose  - 05/2/23(水) 20:27 -
引用なし
パスワード
   ▼kobasan さん：
こんばんは。

>今晩は
>　　data = "a,b,c"
>　　a = Split(data, ",")
>aの配列要素の個数を知るいい方法がありますか。

MsgBox UBound(a) - LBound(a) + 1

確認して下さい（-Lbound(A)は、本当は、要りませんが・・）


>
【22565】Re:Splitで作った配列要素の個数を知るに...
お礼  kobasan  - 05/2/23(水) 20:43 -
引用なし
パスワード
   ▼ichinose さん今晩は。
素早い解答有り難うございます。
配列要素の個数を得ることができました。

UBound(a),LBound(a)を知ることができ、勉強になりました。
有り難うございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10309 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free