Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45989 / 76732

←次へ　｜　前へ→


	【35724】Re:日付型への変換について

tora - 06/3/10(金) 23:25 -


	引用なし

	パスワード

データ数が多いのでしたら、こちらをどうぞ

Sub test2()
Dim Deta As Range, MyCell As Range
Dim MyMsg As String, MyTitle As String

MyMsg = "変更するセルの範囲を指定して下さい"
MyTitle = "Format"

On Error Resume Next
Set MyCell = Application.InputBox(Prompt:=MyMsg, Title:=MyTitle, Type:=8)
For Each Deta In [MyCell]
Deta = Format(Deta, "yyyy/mm/dd")
Next Deta
End Sub

0 hits

▼

【35710】日付型への変換について よう 06/3/10(金) 18:49