[[20041030153104]] 『小数点の位置をあわせる』(なみ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『小数点の位置をあわせる』(なみ)

小数点の位置をあわせて表示させたいのですが…

    4.632
  132.5
1,465
   21.3

上記のような表示にしたいのですが…
今は、スペースで位置あわせをしているのですが、かなり時間がかかってしまいます。もっとスムーズに行える方法はありませんか?


 知り合いに頼まれて作ったものがありますが、
 Canonのプリンタではどうしても[ずれて]しまいます。
 プリンタはどこの製品を使われていますか?。
(kazu)


RICOHです。
(なみ)


 Worksheetイベントを使った試作品ですが、
 ためしに使ってみてください。
 ↓クリックして、[保存]ボタンを押します。
 pointfix0922c.xls
(kazu)


 kazuさんとは別の方針で・・・。
入力するセルと表示セルを分けて、表示を数式で整形します。
A列の入力値をB列へ表示させる場合。
 
=IF(A1=TRUNC(A1),TEXT(A1,"#,##0! ! ! ! "),TEXT(A1,"#,##0.???"))
表示後はテキストになります。
B列を右寄せ、MSゴシックなど等幅フォントで試してください。
(みやほりん)


どうもありがとうございました☆今後フル活用させていただきます。
(なみ)


 わお、[みやほりん]さんに実験台を連れて行かれてしまった。

 =IF(A1=TRUNC(A1),TEXT(A1,"#,##0! ! ! ! "),TEXT(A1,"#,##0.???"))
 ↑に拍手!

 (kazu)

 お詫びに実験台になりました。
kazuさんのファイルも該当セルを等幅フォントにすれば、
大丈夫だと思います。
少なくともこちらでフォント変更した場合にはいけています。
と書こうと思ったら、フォント名、"MS ゴシック"って、表示されてますね??
ア〜っ、全角で"MS ゴシック"ですな。
(みやほりん)


 見当違いでしたらすみません。
 表示形式でユーザー定義で、

 「#,##0.??? 」ってのはいかがですか?

     (浦上)


 それだとどうしても
    4.632
  132.5
1,465.   ←ここの小数点が残るんです。
   21.3
 
相談者の命題を満たすには関数でスペースを含むテキスト変換するか、
マクロで値による表示形式の差し替えが必要になります。
(みやほりん)


 > "MS ゴシック" 
 一瞬、えっ、まさかVBAコードのポカミス?と思ったのですが、
 "MS ゴシック"でも"MS ゴシック"でも結果は同じでした。

 [みやほりん]さんのも[私]のも

    1
   11
  111    ←右端の1 がほんのわずかに左にずれます
 1111.11
    1.11
    1.1

 やはりCanon のプリンタLBP720 のドライバーのバグでしょうかね。
 (kazu)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.