Excel VBA質問箱 IV

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

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


10307 / 13644 ツリー ←次へ | 前へ→

【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)を知ることができ、勉強になりました。
有り難うございます。

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