Excel VBA質問箱 IV

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

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


6265 / 76734 ←次へ | 前へ→

【76071】Re:日付表示について
発言  kanabun  - 14/9/15(月) 22:27 -

引用なし
パスワード
   ▼素人です さん:
>0416 を 01-Apr-16 と表示したいのです。
>0519 を 01-May-19 以下同じく
>1213   01-Dec-13
>1017   01-Oct-17
>0322   01-Mar-22

結果の出力先はどこですか?
以下は 結果を配列vに代入し、イミディエイト・ウィンドウに出力しています。
A列の元テキストを B列に出力なら、
配列v の出力先をシートB列に変更ください。

Sub test()
 Dim v, d As Long
 Dim s As String
 Dim i As Long
 
 v = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value
 For i = 1 To UBound(v)
   s = v(i, 1)
   d = DateSerial(Val(Mid$(s, 3)), Val(Left$(s, 2)), 1)
   v(i, 1) = Format$(d, "dd-mmm-yy")
   Debug.Print s, v(i, 1)
 Next
 
End Sub
3 hits

【76070】日付表示について 素人です 14/9/15(月) 21:56 質問
【76071】Re:日付表示について kanabun 14/9/15(月) 22:27 発言
【76076】Re:日付表示について 素人です 14/9/16(火) 17:34 お礼
【76081】Re:日付表示について γ 14/9/19(金) 0:09 発言
【76086】Re:日付表示について γ 14/9/20(土) 10:05 発言
【76087】Re:日付表示について 素人です 14/9/20(土) 10:30 お礼
【76088】Re:日付表示について γ 14/9/20(土) 10:55 発言
【76072】Re:日付表示について γ 14/9/15(月) 22:28 発言
【76073】Re:日付表示について γ 14/9/15(月) 22:30 発言

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