Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11724 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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様

文字列にすればよかったんですね＾＾；

解決いたしました

ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11724 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free