Excel VBA質問箱 IV

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

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


68262 / 76738 ←次へ | 前へ→

【13016】Re:Columnプロパティについて
発言  ichinose  - 04/4/21(水) 13:24 -

引用なし
パスワード
   ▼kz さん:
こんにちは。

>   すみません。リストボックス(ColumnCount=4)にデータを表示させる際、2列目だけを左揃えにし、それ以外は右揃えにしたいと思ってます。後者はプロパティで設定可能ですが、前者はプロパティで設定ができなかったので、構文で処理させなくてはいけないかと思います。「マニュアル分リスト.Column(1, i - 始発行).textalign=fmtextalignleft」を入力し、実行するとオブジェクトが必要です、というエラーが出るのですが、この構文ではまずいのでしょうか?
>どなたか、教えてください。宜しくお願い致します。
>
>
>マニュアル分リスト.Column(0, i - 始発行) = .Cells(i, 1).Value
>マニュアル分リスト.Column(1, i - 始発行) = .Cells(i, 2).Value
>マニュアル分リスト.Column(2, i - 始発行) = Format(.Cells 
>                          (i,3).Value, "#,##0")
>マニュアル分リスト.Column(3, i - 始発行) = Format(.Cells                                  (i,4).Value, "#,##0")

textalignプロパティは、リストボックスのプロパティです。
右寄せ、左寄せの設定は、リストボックス全体にしか設定できないですね。

私は、上記のような列によって右寄せ、左寄せに分ける場合には、
設定(textalign)は、左寄せに設定しておいて、
右寄せしたい列のメンバには、計算で頭空白を追加しています。

よって、ColumnWidthsプロパティによって、各列の幅を設定したりすることも必要です。

だいたいの目安で列幅72ポイント(1インチ)で文字サイズの値の文字数が格納可能です(若干の微調整は必要、尚、フォントがMSゴシック、MS明朝の場合です)。

何回か試行錯誤すれば、規則がわかると思いますが・・・。

空白を先頭に埋めるのは、データが半角文字ならRsetステートメントでも
OKだと思いますが、漢字が入っていたりするとStrconv関数を用いての
計算が必要になります。

もっとも、私が上記のような事をするなら、リストボックスではなく、
Spreadsheetコントロールを使ってしまいますが・・・。

それからこのリストボックスって、シートに貼り付けたものですか?
それともユーザーフォームですか?
0 hits

【12970】Columnプロパティについて kz 04/4/20(火) 16:41 質問
【13016】Re:Columnプロパティについて ichinose 04/4/21(水) 13:24 発言
【13037】Re:Columnプロパティについて kz 04/4/21(水) 17:26 質問
【13038】Re:Columnプロパティについて ichinose 04/4/21(水) 18:09 発言
【13046】Re:Columnプロパティについて kz 04/4/21(水) 21:09 質問
【13071】Re:Columnプロパティについて kz 04/4/22(木) 12:54 質問
【13085】Re:Columnプロパティについて ichinose 04/4/22(木) 18:28 発言
【13093】Re:Columnプロパティについて kz 04/4/23(金) 8:14 お礼

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