[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『日付』の両端揃えをしたい(よっちゃんパパ)
(例) 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.