[[20041030153104]]　『小数点の位置をあわせる』（なみ）　ページの最後に飛ぶ

『小数点の位置をあわせる』（なみ）

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

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

 知り合いに頼まれて作ったものがありますが、
 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 ゴシック"って、表示されてますね？？
ア～っ、全角で"ＭＳ ゴシック"ですな。
（みやほりん）

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

 「＃，＃＃０．？？？　」ってのはいかがですか？

 　　　　（浦上）

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

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

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

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

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

コメント返信：

[ 一覧(最新更新順) ]

[[20041030153104]] 『小数点の位置をあわせる』（なみ） ページの最後に飛ぶ

[[20041030153104]]　『小数点の位置をあわせる』（なみ）　ページの最後に飛ぶ