Excel VBA質問箱 IV

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

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


11704 / 13645 ツリー ←次へ | 前へ→

【14633】代入した数字の書式 アスキー 04/6/3(木) 12:45 質問[未読]
【14634】Re:代入した数字の書式 IROC 04/6/3(木) 13:06 回答[未読]
【14635】Re:代入した数字の書式 アスキー 04/6/3(木) 13:13 お礼[未読]

【14633】代入した数字の書式
質問  アスキー  - 04/6/3(木) 12:45 -

引用なし
パスワード
   こんにちわ
ちょっとわからなかったので
教えて下さい^^

sheet1と200406という二つのシートがあります
この200406というシートをsheet1のセルへ記入させる
プログラムを作りました(下記参考)


Sub シート名を取得しセルへ代入()
  Dim i As Integer
  
  ' 取得したシート名を記入するシートを選ぶ
  Worksheets("Sheet1").Select
  ' ワークシートの数だけ繰り返す
  For i = 2 To 2
    ' 取得したシート名をセルへ記入する
    Cells(4, 6 + i).Value = Worksheets(i).Name
  Next
End Sub
----------------------------------------------------------------

このセルに記入された200406という数字を
2004年06月と表記したい場合は、どのように
記述したらいいのかわかりません

Excelのセルの書式設定で、日付を変えると
2448年9月となってしまいます


どなたかご教授願います

【14634】Re:代入した数字の書式
回答  IROC  - 04/6/3(木) 13:06 -

引用なし
パスワード
   200406 だと、 日にちの情報がないので、セルで日付型は使えません。

文字列にするしかないので、文字列操作関数を使うとできます。


Dim myDate As String

myDate = "200406"

MsgBox Left(myDate, 4) & "年" & Right(myDate, 2) & "月"

【14635】Re:代入した数字の書式
お礼  アスキー  - 04/6/3(木) 13:13 -

引用なし
パスワード
   IROC様

文字列にすればよかったんですね^^;

解決いたしました

ありがとうございました

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