A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
リストボックスのフォントを等幅のフォントに設定します(例えばMS ゴシック)
list1.additem 項目1 & vbtab & 項目2
こうすれば項目1と項目2が全角文字を含んでも項目の先頭は並びます。
ただし項目1は8バイト未満である必要があります。
もしくは
ColPos = 8
strData = 項目1
List1.AddItem strData & String$(ColPos - LenB(StrConv(strData, vbFromUnicode)), " ") & 項目2
こんな感じですかね。
No.3
- 回答日時:
どうしても1つのListBoxに収めたいなら、ANo.2氏のような
考え方が必要になると思います。
1つでなくても構わないなら、多少面倒にはなりますが
(&見かけが多少変わりますが)以下のような方法も考えられます。
・ListBoxを2つ、横に並べて、スクロールバーが隠れるぐらいに重ねる
(もちろん右側が前面に来るように)
以下、左側をList1、右側をList2とします。
・List1に項目1の内容を、List2に項目2の内容を、Indexがシンクロするように
AddItemするよう処理を記述
・List2_Scrollイベントで、List1.TopIndexをList2と同じ値にするように処理を記述
・List1_Click、List2_Clickイベントで、選択されたときに
もう片方のListIndexも同じになるように処理を記述
…これで、2つのListBoxのスクロールがシンクロし、選択もシンクロします。
(多少、不恰好かもしれませんが… これならプロポーショナルフォント使おうが
問題無く並びます)
なお、上のやり方は単独選択の場合です。複数選択を可能にするには
もう少し工夫が必要かと思います。
No.2
- 回答日時:
私も質問の意味が良く解らないけど、
VBのMID関数は文字数を数えてしまうので、全角と半角が混在した文字列の長さを揃えられない。
と言う質問でしょうか?
バイト数を数えるユーザー定義関数 Bmid を定義しておきます。
Function Bmid(ByVal str As String, start, length)
Bmid = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function
ここで Da$ = "A1B2C345 " なる文字列があるとすると
Bmid(Da,1,2) は "A" を返します。
Bmid(Da,1,3) は "A1" を返します。
外れていたら御免。
No.1
- 回答日時:
質問の内容ですが、実例を挙げて説明したほうがよいと思う。
>リストに項目1、項目2を 複数行表示する。
とはどういうことをしようとしているのですか。
ーー
質問の「項目1」などが下記のItemに当たるならば
VBAの場合ですが、(VB6でも同じではないかと思います)
Sub test01()
With Worksheets("Sheet1").ListBox1
.Clear
.AddItem "八王子市"
.AddItem "三鷹市"
.AddItem "武蔵野市"
.AddItem "静岡市"
End With
End Sub
を実行した場合、リストボックス内で
八王子市、三鷹市、・・は先頭がそろいます。
ですから半角文字を含む文字列と全角文字の文字列を結合して
1つのItemにしているとかあるのですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【至急】 当方初心者です。 マクロについて知恵をお貸しください。 ★したい動作 ①リストE列2行目か 4 2022/09/29 18:56
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- その他(Microsoft Office) (至急)Googleのスプレッドシートの条件付き書式について 2 2022/09/11 08:50
- Excel(エクセル) ExcelVBAでリストの項目に必要数と同じ手配数を分配していくマクロを作りたいです。 1 2022/07/29 18:36
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチでcsvファイルの指定のカ...
-
SQLで特定の項目の重複のみを排...
-
DataViewで複数条件の...
-
google formsで回答者をスプレ...
-
リストビューの項目の内容を変...
-
VBAでエラー時にメッセージを表...
-
リストボックス
-
GoogleMapsAPI都道府県市区町村...
-
DataGridView 右詰め
-
DBから値を取得しあるセッショ...
-
javaの文字列で特定の文字列置換
-
SQLiteで大きな数字を扱う場合
-
差し込み後、元データを変更し...
-
フィルターかけた後、重複を除...
-
for whichの使い方
-
列のヘッダーを含めるのをデフ...
-
SQL文で、合計が0のレコードを...
-
外部参照してるキーを主キーに...
-
There is not/ There is noの違い
-
エクセルでリピート率
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQLで特定の項目の重複のみを排...
-
バッチでcsvファイルの指定のカ...
-
DataViewで複数条件の...
-
php mysql で WHERE句内に変数...
-
COBOLについて
-
リストビューの項目の内容を変...
-
DataGridView 右詰め
-
Zend_DBを使ったselectで文字が...
-
fgetcsvでCSVを取得した際のnul...
-
初心者)DataGridViewの入力桁...
-
ListViewのカラムの色の変更
-
COBOL プログラミング
-
FormulaR1C1でSUMIF変数指定
-
テキスト幅にあわせた表の作り...
-
Sheet3から2つの条件でオートフ...
-
[WHS]定数宣言の際にリテラル文...
-
google formsを使ったタスク依...
-
前回ご教授いただいたコードに...
-
ListView
-
【VBA】特定の文字列を含む場合...
おすすめ情報