Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6835 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42765】日付タイプについて 初心者 06/9/21(木) 10:48 質問[未読]
【42769】Re:日付タイプについて 飛ばない豚 06/9/21(木) 11:33 回答[未読]
【42933】Re:日付タイプについて 初心者 06/9/26(火) 8:54 お礼[未読]
【42770】Re:日付タイプについて パン 06/9/21(木) 11:35 発言[未読]
【42765】日付タイプについて
質問  初心者  - 06/9/21(木) 10:48 -
引用なし
パスワード
   テキストの日付データを日付タイプ読み込ませて、間違って元テキスト削除してしまい
文字タイプに戻せなくなり大変こまっております。（文書がわかりずらくすいません）

日付タイプのデータを文字タイプにする方法をお願いします。

2006/9/7　→　20060907
【42769】Re:日付タイプについて
回答  飛ばない豚  - 06/9/21(木) 11:33 -
引用なし
パスワード
   ▼初心者 さん：
ＶＢＡなら、
Format("2006/9/7","yyyymmdd")

ワークシート関数なら
TEXT("2006/9/7","yyyymmdd")

です。(^･ω･^)
【42770】Re:日付タイプについて
発言  パン E-MAIL  - 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
【42933】Re:日付タイプについて
お礼  初心者  - 06/9/26(火) 8:54 -
引用なし
パスワード
   ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6835 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free