| タイトル | ： 配列のセット |
| 記事No | ： 11921 |
| 投稿日 | ： 2008/03/27(Thu) 19:09 |
| 投稿者 | ： くま |
Option Explicit
Dim arr1(1 To 4, 1 To 3) As String
Dim arr2(1 To 4, 1 To 3) As String
Sub Initdata()
arr1(1, 1) = "00"
arr1(1, 2) = "09"
arr1(1, 3) = "01"
arr1(2, 1) = "09"
arr1(2, 2) = "12"
arr1(2, 3) = "02"
arr1(3, 1) = "12"
arr1(3, 2) = "15"
arr1(3, 3) = "03"
arr1(4, 1) = "15"
arr1(4, 2) = "24"
arr1(4, 3) = "04"
End Sub
Private Sub Command1_Click()
Initdata
End Sub
---------------------
画面テキスト画面から入力されたデータによって配列データを作成します。
arr1のデータ (昇順）
1. 00 09 01
2. 09 12 02
3. 12 15 03
4. 15 24 04
配列の1列目がFrom値 配列の2列目がTo値となっていて 1番目では00〜09となります。
適正な位置にデータを追加し新規の配列データを作成しますが、
元の範囲にテキストのデータが含まれる場合配列の3列目を複写します。
テキストS :08 テキストE :10 値：09と入力された時
該当位置は1行目から2行目までなりますので下記のようになります。
1. 00 08 01
2. 08 10 09
3. 10 12 02
4. 12 15 03
5. 15 24 04
テキスト値にどんな値が来てもセットしたいのですがどうもきれいに出来ません。
いい方法を教えてください。
arr1配列の値は固定ではありません。1行目が大きい値が来る場合もあります。
その時テキスト値が小さい場合はテキスト値が1行目より前になります。
テストデータはきれいにつながってはいっていますが、つながらない場合もあります。
1.00〜08
2.10〜12というような場合09が空きです。1行で同じ値や逆転値は来ません。
|