Excel VBA質問箱 IV

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

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


8418 / 13644 ツリー ←次へ | 前へ→

【33411】エクセル表示形式のユーザ定義型について こぼ 06/1/11(水) 15:05 質問[未読]
【33415】Re:エクセル表示形式のユーザ定義型について Statis 06/1/11(水) 15:45 回答[未読]
【33417】Re:エクセル表示形式のユーザ定義型について こぼ 06/1/11(水) 16:07 質問[未読]
【33419】Re:エクセル表示形式のユーザ定義型について Blue 06/1/11(水) 16:19 回答[未読]
【33420】Re:エクセル表示形式のユーザ定義型について Blue 06/1/11(水) 16:27 回答[未読]
【33421】Re:エクセル表示形式のユーザ定義型について こぼ 06/1/11(水) 16:32 お礼[未読]

【33411】エクセル表示形式のユーザ定義型について
質問  こぼ  - 06/1/11(水) 15:05 -

引用なし
パスワード
   エクセルのあるセルについて、
書式設定にて表示される表示形式タブのユーザ定義型について質問させていただきます。現在、

ggge"年"mm"月"dd"日"

と入力を行い、「平成18年01月01日」と表示されている状況です。
この表示を平成18年でセル内の改行を行ない、改行後に01月01日と表示されるようにしたいとおもいます。いろいろ試してみましたが、わかりませんでした。
できないのかな??

どなたかご存知の方がいらっしゃいましたらご教授お願いいたします。

【33415】Re:エクセル表示形式のユーザ定義型につ...
回答  Statis  - 06/1/11(水) 15:45 -

引用なし
パスワード
   こんにちは
アクティブセルを対象として。

Sub test()
With ActiveCell
   .Value = Left(.Text, InStr(1, .Text, "年", 1)) & _
   Chr(10) & Mid(.Text, InStr(1, .Text, "年", 1) + 1)
End With
End Sub

【33417】Re:エクセル表示形式のユーザ定義型につ...
質問  こぼ  - 06/1/11(水) 16:07 -

引用なし
パスワード
   ▼Statis さん:
早速のご返信ありがとうございました。
実際にvbaで記述すると、ご回答くださったコードで問題ありませんでした。
ありがとうございます。

コードでなく実際のエクセルのユーザ定義での設定はできるのでしょうか?

>こんにちは
>アクティブセルを対象として。
>
>Sub test()
>With ActiveCell
>   .Value = Left(.Text, InStr(1, .Text, "年", 1)) & _
>   Chr(10) & Mid(.Text, InStr(1, .Text, "年", 1) + 1)
>End With
>End Sub

【33419】Re:エクセル表示形式のユーザ定義型につ...
回答  Blue  - 06/1/11(水) 16:19 -

引用なし
パスワード
   VBAでなく一般操作ですが参考にどうぞ
http://www.relief.jp/itnote/archives/000051.php

【33420】Re:エクセル表示形式のユーザ定義型につ...
回答  Blue  - 06/1/11(水) 16:27 -

引用なし
パスワード
   ちなみに VBAでは

With Range("A1")
  .NumberFormatLocal = "ggge""年""" & vbLf & "mm""月""dd""日"""
  .WrapText = True
  ' 実験用に今日の日付を入れてみる
  .Value = Date
End With

てな感じでしょうか。

【33421】Re:エクセル表示形式のユーザ定義型につ...
お礼  こぼ  - 06/1/11(水) 16:32 -

引用なし
パスワード
   ▼Blue さん:
大変参考になりありがとうございました。
ただ、エクセルの幅が小さい場合は改行編集(Ctrl+j)を入力しても
######になってしまうんですね。
(平成18年01月01日がはいる幅が必要になるのですね。)

ほんとにありがとうございました。

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