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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
アクセスのクエリでSplit関数は使えないのですか
Access(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
Accessフィールド分割
その他(データベース)
-
-
4
新規レコード行を非表示にしたい
Access(アクセス)
-
5
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
6
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
7
Accessの桁区切りについて教えてください。
Access(アクセス)
-
8
<ACCESS>別テーブルのレコードのテキストデータが中に含まれるレコードを抽出する方法を教えてください
Access(アクセス)
-
9
split関数で区切り文字がない場合
Visual Basic(VBA)
-
10
Access で 特定の文字の個数をしりたい
Access(アクセス)
-
11
ACCESSで和暦を西暦に・・・
Access(アクセス)
-
12
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
13
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
14
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
15
アクセスの初心者の質問です(空白の場合に他のフィールドを表示させたい。)
Access(アクセス)
-
16
文字列をsplitするSQL文を教えて下さい
SQL Server
-
17
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
18
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
19
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
20
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WindowsでのPythonの挙動について
-
String""から型'Double'への変...
-
UserForm1.Showでエラーになり...
-
-2147418107 (&H80010005)
-
VBAでfunctionを利用しようとし...
-
VBA データ(特定値)のある最...
-
フランスの生年月日(jj/mm/aaaa)
-
On ErrorでエラーNoが0
-
エクセル関数を教えてください
-
mailstorehomeのエクスポートで...
-
数式は残し値をクリアするマク...
-
VC++2010で作成中に特定のエラ...
-
インポート時のエラー「データ...
-
文字列内で括弧を使うには
-
【VBA】ワークブックを開く時に...
-
ExcelVBAのDoEventsによるエラー?
-
マクロで"#N/A"のエラー行を削...
-
.VBSだとADODBのプロバイダが見...
-
Excel ピボットテーブル平均・...
-
error C2664: 'LPCTSTR' に変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報