| |
:Excel2000使用
･リストボックスの1行ごとにテーブル名とデー
タを入れていくときに
↓リストボックス内↓
--------------------------------------
List(0):XXXXXﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
List(1):XXXXXﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
List(2):XXXXXﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
List(3):XXXXXﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
List(4):XXXXXﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
--------------------------------------
このようにテーブル名とデータが揃うように入
れていき、リストボックスから選択したものを
エクセルに表示するようにしたいのですが、実
際にデータが入力されると
↓リストボックス内↓
--------------------------------------
あああﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
ＡＡＡﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
AAああﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
ああ_AAﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
あA_AAﾃｰﾌﾞﾙ XXXXXﾃﾞｰﾀ
--------------------------------------
半角や全角が入ったテーブル名があってきれい
に揃わずにうまくいきませんでした。
･はじめはテーブル名の最長のもののlengthを
求め、その長さから入力されるテーブル名の
lengthを引いた長さだけスペースを入れたりし
たのですが半角と全角の区別がつかずにダメで
した。
↓簡略ソースコード↓
Dim leng as integer
Dim spa as integer
'AAAはオブジェクト
Do Until AAA.EOF
If leng < LenB(AAA.Fields("TABLE_NAME").Value) Then leng = LenB(AAA.Fields("TABLE_NAME").Value)
AAA.MoveNext
Loop
AAA.MoveFirst
Do Until AAA.EOF
spa = 0
spa = leng - LenB(AAA.Fields("TABLE_NAME").Value)
Form1.List1.AddItem AAA.Fields("TABLE_NAME").Value & Space(spa) & AAA.Fields("TABLE_DATA").Value
AAA.MoveNext
Loop
･エクセルを使う前のところなのですが、なにか
良い方法があれば教えてください。
お願いします。
|
|
- 03/5/16(金) 16:10 -
