![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
こんばんは。
この質問は久々なので、思い出すのに時間がかかってしまいました。
コードを見れば分かるとは思いますが、一旦、マクロで文字列を加工してから代入します。
'文字列の最大文字長(半角)
Const MAXLEN As Integer = 20
*ここは、ご自身で設定してください。
文字列には、半角スペースが入っていますから、Trim や RTrim を使います。
以下のマクロでは、A列,B列を使用していますので、適当な場所に書き換えてください。
'-------------------------------------------
Sub ListEntringTest1()
'2列に文字と数字を、リストにいれるマクロ
Dim buf() As Variant
Dim i As Long, j As Long
Dim strBuf As String
'文字列の最大文字長(半角)
Const MAXLEN As Integer = 20
With ListBox1
.ListFillRange = ""
.Clear
.ColumnCount = 2
'右寄せ
.TextAlign = fmTextAlignRight
j = Cells(Rows.Count, 1).End(xlUp).Row 'A列
ReDim buf(j, 1)
For i = 1 To j
strBuf = Cells(i, 1).Value 'A列
'文字
buf(i - 1, 0) = strBuf & String(MAXLEN - LenB(StrConv(strBuf, vbFromUnicode)), Space(1))
'数字
buf(i - 1, 1) = Cells(i, 2).Value 'B列
Next i
'リストに代入
.List() = buf
End With
End Sub
この回答へのお礼
お礼日時:2010/01/16 12:11
早速の回答有難うございました。
やはり文字列の後方にスペースを入れて文字数を揃えてTextAlignRightにしてリスト表示するしかないのですね、お教え頂いた方法で作成したいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- その他(プログラミング・Web制作) テキストエディタで複数行にわたる文字列の行頭に番号を振る方法 4 2023/03/11 12:57
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) エクセル関数 複数の列に文字が有れば一番右側にある文字を表示 8 2023/08/22 23:06
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) LEFT関数で文字数を指定しないで取りだす方法 7 2023/06/30 09:49
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
エクセルで離れた列を選択して...
-
LEFT関数とIF関数の組み合わせ...
-
エクセルで住所を県と市・郡と...
-
「段」と「行」の違いがよくわ...
-
Excelの行数、列数を増やしたい...
-
リストからデータを紐付けしたい
-
エクセルのソートで、数字より...
-
Excel文字列一括変換
-
エクセルマクロの組み方
-
「コピー → 行列を入れ替えて貼...
-
VBA 指定した列にある日時デー...
-
VBA
-
VBAで結合セルを転記する法を教...
-
ListViewで列を指定して表示さ...
-
エクセルマクロで表の途中の集...
-
エクセルで?
-
VBA エラーコード1004について
-
条件付きの標準偏差をVBAを用い...
-
エクセル マクロ 範囲指定で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで住所を県と市・郡と...
-
Excelの行数、列数を増やしたい...
-
エクセルで複数列の検索をマク...
-
エクセルマクロの組み方
-
Alt+Shift+↑を一括で行うには、...
-
えABのある列って
-
エクセルのソートで、数字より...
-
エクセル マクロ 範囲指定で...
-
VBAで結合セルを転記する法を教...
-
VBAで別ブックの列を検索し、該...
-
エクセルマクロPrivate Subを複...
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
Accessのレポートで繰り返し表...
おすすめ情報