Excel VBA質問箱 IV

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

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


57932 / 76732 ←次へ | 前へ→

【23534】Re:西暦に変換するには・・?
回答  ponpon  - 05/3/25(金) 18:50 -

引用なし
パスワード
   ▼saho さん:
ponpon です。こんばんは。

>もっとたくさんのデータがあって、
>
>となりのセルに表示させたいのですが、
>
>どうでしょうか?

A列の数字を隣のB列に表示します。
実際にない日なんかのエラー対策はしていません。
いかがでしょう。

Sub test()
  Dim myRng As Range
  Dim r As Range
  Dim myNen As Integer
  Dim 元号 As String
  Dim Nen As String
  Dim Gatu As String
  Dim Hi As String
  
  
  Set myRng = Range("A1", Range("A65536").End(xlUp))
  For Each r In myRng
   myNen = Left(r.Text, 1)
  Select Case myNen
    Case Is = 4
    元号 = "平成"
    Case Is = 3
     元号 = "昭和"
    Case Is = 2
     元号 = "大正"
    Case Is = 1
     元号 = "明治"
   End Select
     Nen = Mid(r.Text, 2, 2)
     Gatu = Mid(r.Text, 4, 2)
     Hi = Right(r.Text, 2)
  
     r.Offset(0, 1).Value = CDate(元号 & Nen & "年" & Gatu & "月" & Hi & "日")
    
   Next
  
End Sub
0 hits

【23528】西暦に変換するには・・? saho 05/3/25(金) 17:05 質問
【23529】Re:西暦に変換するには・・? Jaka 05/3/25(金) 17:24 回答
【23531】Re:西暦に変換するには・・? saho 05/3/25(金) 17:44 質問
【23534】Re:西暦に変換するには・・? ponpon 05/3/25(金) 18:50 回答
【23535】Re:西暦に変換するには・・? ichinose 05/3/25(金) 18:57 発言
【23539】Re:西暦に変換するには・・? [名前なし] 05/3/26(土) 2:59 回答
【23541】Re:西暦に変換するには・・? saho 05/3/26(土) 15:43 お礼

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