Excel VBA質問箱 IV

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

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


29432 / 76732 ←次へ | 前へ→

【52581】Re:リストボックスの列ごとの表示形式指定
お礼  ハナ  - 07/11/20(火) 14:06 -

引用なし
パスワード
   ▼Jaka さん:
>右詰、気持ちは解ります。
アリガトウございます。早速、下記のような記述で実行したところ
上手くいきました。ホント苦労していた部分なので助かりました。

Option Explicit
Private Const 固定文字数 As Integer = 16

Private Sub UserForm_Initialize()
Dim myRng As Range
Dim myList As Variant
Dim c As Variant, i As Integer
Dim ST1 '------問題のFORMAT後データです
☆ST1は変数の形としてはstringかと思いましたが、念のためバリアントに・・・ 
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
  ST1 = Format(c.Offset(, 2).Value, "##,##0")
  myList(i, 2) = Space(固定文字数 - Len(ST1)) & ST1
  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

また、よろしくお願いします。

0 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 発言

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