
Split()関数を1つの項目を3つに別けようとしているのですが、「インデックスが有効範囲にありません。」というエラーがでます。このエラーを回避する方法はありますか。
エラーになっている箇所を例で記入します。
strData = Split(DATA, ",")
OT(1) = strData(0)
OT(2) = strData(1)
OT(3) = strData(2) <=ここでエラー
DATAが",AAAA,BBBB,CCCC" 3つに分かれるときは、OKですが、
DATAが",AAAA,BBBB" 2つ分かれるときは、エラーになります。
エラーになる前にSplit()関数でいくつに分かれるか判定をすることは
可能でしょうか。
または、別の回避策があるのでしょうか。
宜しくお願いします。
No.2ベストアンサー
- 回答日時:
UBound関数で配列の添字の最大値を得る事が可能です。
strData = Split(data, ",")
For i = 0 To UBound(strData)
OT(i + 1) = strData(i)
Next
http://officetanaka.net/excel/vba/function/UBoun …
http://officetanaka.net/excel/vba/tips/tips62.htm
http://www13.ocn.ne.jp/~msactown/vba_19.html
すばらしい。 出来ました。
早速、ありがとうございました。
コーディング迄、そのまま使えます。
ほんとにありがとうございました。
No.4
- 回答日時:
2つのサンプルを示します。
Private Sub コマンド0_Click()
Dim I As Integer
Dim N As Integer
Dim strDatas() As String
strDatas() = Split("AAA,BBB,CCC", ",")
N = UBound(strDatas())
For I = 0 To N
Debug.Print strDatas(I)
Next I
End Sub
[イミディエイト]
AAA
BBB
CCC
C++等では、Forループ直前に配列の数をNに代入。
そうすりゃー、Nはメモリに配置されずにスタックに。
つまり、Forループが高速化します。
VBAでは定かではありませんが、一応は・・・。
Private Sub コマンド1_Click()
Dim I As Integer
Dim strData As String
Dim strDatas As String
strDatas = "AAA,BBB,CCC"
Do
I = I + 1
strData = CutStr(strDatas, ",", I)
If Len(strData) Then
Debug.Print strData
End If
Loop Until strData = ""
End Sub
[イミディエイト]
AAA
BBB
CCC
この場合は、安直に CutStr関数で1番目、2番目と切り出しています。
該当するN番目の値が無い時はCutStr関数は""を戻します。
これを手掛かりに表示を制御するって手もあります。
もちろん、その都度に Split関数が働くので数倍の処理時間がかかります。
データ数が多い時は、当然に避けなければならない手法です。
CutStr関数は、一応、Split関数と UBound関数の組合せの典型ですので紹介しておきます。
Public Function CutStr(ByVal Text As String, _
ByVal Separator As String, _
ByVal N As Integer) As String
Dim strDatas() As String
strDatas = Split("" & Separator & Text, Separator, , 0)
CutStr = strDatas(N * Abs((N <= UBound(strDatas))))
End Function
[イミディエイト]
? CharCount("AAA,BBB,CCC", ",")
2
なお、このように配列インデックスの最大値は CharCount関数の類で取得できます。
No1さんの回答の2番目を関数化しただけですが・・・。
Public Function CharCount(ByVal Text As String, ByVal C As String) As Integer
CharCount = Len(Text) - Len(Replace(Text, C, ""))
End Function
No.3
- 回答日時:
>DATAが",AAAA,BBBB" 2つ分かれるときは
この例だと3つに分かれませんか。
Sub test01()
strData = ",AAAA,BBBB"
s = Split(strData, ",")
MsgBox UBound(s)
End Sub
では2が表示されます。すなわち3個に分かれたということだと思いますが。
ーー
いくつの分かれても、Ubound(strData)で個数ー1が取れるはずです。
実情で個数が取れるはずです。
データミスなどで(カンマ不足など)個数が足りないかどうかは、
Ubound(strData)+1と予想個数が等しいかを次の処理に入る前に、チェックすればよいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
split関数で区切り文字がない場合
Visual Basic(VBA)
-
vba 空のデータをSplitする時の処理について教えてください
Microsoft ASP
-
アクセスのクエリでSplit関数は使えないのですか
Access(アクセス)
-
-
4
特定の文字列で列を区切るには?
その他(データベース)
-
5
Cellsのかっこの中はどっちが行と列なの?
Visual Basic(VBA)
-
6
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
Access の VBA 実行中に他の操作をさせたくない
Visual Basic(VBA)
-
9
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】シートの変数へ入れ...
-
【マクロ】並び替えの範囲が、...
-
【ExcelVBA】5万行以上のデー...
-
vbsでのwebフォームへの入力制限?
-
vba textboxへの入力について教...
-
複数のExcelファイルをマージす...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
改行文字「vbCrLf」とは
-
Vba Array関数について教えてく...
-
【ExcelVBA】値を変更しながら...
-
【マクロ】開いているブックの...
-
【VBA】値を変更しながら連続で...
-
VBAの「To」という語句について
-
算術演算子「¥」の意味について
-
以下のプログラムの実行結果は...
-
VB.net 文字列から日付型へ変更...
-
[Excel VBA]特定の条件で文字を...
-
VBA ユーザーフォーム ボタンク...
-
ワードの図形にマクロを登録で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
複数のExcelファイルをマージす...
-
【ExcelVBA】5万行以上のデー...
-
vbsでのwebフォームへの入力制限?
-
vba textboxへの入力について教...
-
Vba セルの4辺について罫線が有...
-
【マクロ】シートの変数へ入れ...
-
【マクロ】並び替えの範囲が、...
-
Vba Array関数について教えてく...
-
【ExcelVBA】値を変更しながら...
-
【マクロ】開いているブックの...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルのマクロについて教え...
-
エクセルの改行について
-
VBA 入力箇所指定方法
-
[VB.net] ボタン(Flat)のEnable...
-
VBAでセルの書式を変えずに文字...
-
vb.net(vs2022)のtextboxのデザ...
-
Excelのマクロについて教えてく...
-
改行文字「vbCrLf」とは
おすすめ情報