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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで重複データを合算したい(時間) 1 2022/12/08 23:06
- Ruby パイソンエラーについて 1 2022/12/24 14:07
- Visual Basic(VBA) VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます 1 2022/10/15 16:30
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
- Java コンソールから所属財産を入力(単位:万円 1000~100000以内でIntegerに変換できない場 2 2022/05/31 21:32
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクセスのクエリでSplit関数は使えないのですか
Access(アクセス)
-
Accessフィールド分割
その他(データベース)
-
Accessの桁区切りについて教えてください。
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
Access で 特定の文字の個数をしりたい
Access(アクセス)
-
6
<ACCESS>別テーブルのレコードのテキストデータが中に含まれるレコードを抽出する方法を教えてください
Access(アクセス)
-
7
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
8
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
9
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
10
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
11
特定の文字列で列を区切るには?
その他(データベース)
-
12
ACCESSで和暦を西暦に・・・
Access(アクセス)
-
13
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
14
新規レコード行を非表示にしたい
Access(アクセス)
-
15
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
16
アクセスで追加した項目に全て同じ値を一発で入れたい
Access(アクセス)
-
17
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
18
アルファベットの入った文字列の抽出の仕方について。
Excel(エクセル)
-
19
文字列をsplitするSQL文を教えて下さい
SQL Server
-
20
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBA 都道府県から市を選択し詳...
-
フランスの生年月日(jj/mm/aaaa)
-
VBAのエラーについて
-
【VBAエラー】Nextに対するFor...
-
CreateObjectでエラー発生(Exc...
-
オブジェクト型の変数にフォー...
-
LaTeXのエラーについて(コンパ...
-
エクセルVBA で、実行時エラー9...
-
グラフを表示するとき「’~’メソ...
-
VBA エクセル で FIND でのエラ...
-
HTMLソースが表示のページのも...
-
CDatabase::ExecuteSQL()について
-
VBAでfunctionを利用しようとし...
-
エクセル 足し算引き算で 空...
-
VBスクリプトでIEの404 not fou...
-
実行時エラー9:インデックス...
-
VBAコード実行を中止する方法は...
-
【VBA】ワークブックを開く時に...
-
ACCESSで値を代入できないとは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
ApplicationとWorksheetFunctio...
-
「実行時エラー '3167' レコー...
-
【VB.NET】 パワポ操作を非表示で
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報