Excel VBA質問箱 IV

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

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


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

【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 -

引用なし
パスワード
   ▼初心者 さん:
VBAなら、
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 -

引用なし
パスワード
   ありがとうございました。

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