[[20060518101455]] 『日付』の両端揃えをしたい(よっちゃんパパ)  >>BOT

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

 

『日付』の両端揃えをしたい(よっちゃんパパ)
 表示形式を「日付」にして入力した場合、日付の文字数(!?)によって
長さが違うため、「両端揃え」したのですが、うまくいきません。何か良い方法は
ありませんか。
 
 (例)
 H8,5.1         H 8, 5. 1
 H18,10.1       H18,10. 1
  H18,11.20  →  H18,11.20
  H5,1.20        H 5, 1.20

 


 おはようございます。
 結果が少し変わってしまいますが・・・

 まず日付をシリアル値で入力します。
 「2006/8/5」とか入力すると勝手に日付として認識されるはずです。

 セルの書式設定の「ユーザー定義」のところに・・・
 「[$-411]ge,mm.dd」を入力します。

 結果こうなります。
 H18,08.05

 ユーザー定義で表示方法はいろいろ変更可能なので、試してみてくださいmm
 (Null)

 マクロで文字列にする案。
http://miyahorinn.fc2web.com/sample/sample01.html
(みやほりん)(-_∂)b

 当該範囲を選択して、桁をそろえるものです。参考まで。。。       (LOOKUP)

 Sub Macro3()
 Dim R As Range
 Selection.NumberFormat = "eemmdd"
 For Each R In Selection
 R.NumberFormatLocal = "g" & IIf(Left(R.Text, 1) = 0, "_0", "") & "e," _
                           & IIf(Mid(R.Text, 3, 1) = 0, "_0", "") & "m." _
                           & IIf(Mid(R.Text, 5, 1) = 0, "_0", "") & "d"
 Next
 End Sub

コメント返信:

[ 一覧(最新更新順) ]


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