Excel VBA質問箱 IV

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

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


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

39089 / 76738

←次へ　｜　前へ→


	【42770】Re:日付タイプについて

パン

- 06/9/21(木) 11:35 -


	引用なし

	パスワード

▼初心者さん：
もっとシンプルなのが出来ると良いのですが、cell(1,1)を読んで変換後同じセルにいれます、大量にあるなら、ループで。

sub 変換（）
月日 = Cells(1, 1).Value

　　a = Year(月日): b = Month(月日): c = Day(月日)
　　
　　bb = Len(b)
　　cc = Len(c)
　　
　 Select Case bb
　 Case 1
　 b = "0" & b
　 Case Else
　 End Select
　
　 Select Case cc
　 Case 1
　 c = "0" & c
　 Case Else
　 End Select
　
　 d = a & b & c
Cells(1, 1).Value = d

end sub

>テキストの日付データを日付タイプ読み込ませて、間違って元テキスト削除してしまい
>文字タイプに戻せなくなり大変こまっております。（文書がわかりずらくすいません）
>
>日付タイプのデータを文字タイプにする方法をお願いします。
>
>2006/9/7　→　20060907

0 hits

▼

【42765】日付タイプについて 初心者 06/9/21(木) 10:48