Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29442 / 76732 ←次へ | 前へ→

【52571】リストボックスの列ごとの表示形式指定
質問  ハナ  - 07/11/20(火) 10:55 -

引用なし
パスワード
   お世話になっております
ListBoxやComboBoxで複数カラム指定をして表示する場合に
それぞれのColumnごとに文字ぞろえを指定する方法はありませんでしょうか?

下に現状のコードを提示しますが
現状、リストボックスのデータの指定はListBox.Listでおこなっています。

表示は5列構成で、1,2列目が文字列(左揃え)、3列目が金額(カンマつき右揃え)4列目、5列目が日付(右揃え)を指定しようとして、Formatの指定はできているようなのですが、TextAlign指定が上手くいきません。

Private Sub UserForm_Initialize()
Dim myRng As Range
Dim myList As Variant
Dim c As Variant
Dim i As Integer
Set myRng = Range("A2", Range("A65536").End(xlUp))
'配列の再定義
ReDim myList(myRng.Rows.Count - 1, 5)
For Each c In myRng
  myList(i, 0) = c.Offset(, 0).Value
  myList(i, 1) = c.Offset(, 1).Value
  myList(i, 2) = Format(c.Offset(, 2).Value, "##,##0")
  myList(i, 3) = c.Offset(, 3).Value
  myList(i, 4) = Format(c.Offset(, 4).Value, "yyyy/mm/dd")
 i = i + 1
Next c
 ListBox1.List() = myList
 Set myRng = Nothing
End Sub

プロパティー側のRowsorceは空白、TextAlignは左詰(1-TextAlign_Left)です
ご教授、ご指導をお願いします。

2 hits

【52571】リストボックスの列ごとの表示形式指定 ハナ 07/11/20(火) 10:55 質問
【52575】Re:リストボックスの列ごとの表示形式指定 Jaka 07/11/20(火) 11:49 発言
【52578】補足 Jaka 07/11/20(火) 12:08 発言
【52581】Re:リストボックスの列ごとの表示形式指定 ハナ 07/11/20(火) 14:06 お礼
【52582】Re:リストボックスの列ごとの表示形式指定 Jaka 07/11/20(火) 14:30 発言

29442 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free