エクセルVBAについて次の2つの質問にお答えください。


質問①
以下のマクロを作成してください。
ブック内の最後尾に新しいシートを作成する。ただしシート名はその日の日付(年月日の月日だけ)になるようにしてください。

質問②
A1にその日の日付(年月日の月日だけ)入力するマクロを教えてください。

回答の条件
  • 1人2回まで
  • 登録:2007/10/11 03:18:58
  • 終了:2007/10/12 03:49:39

回答(2件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982007/10/11 07:14:42

ポイント42pt

Sub Macro1()
'
' Macro1 Macro
'
    Sheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Format(Date, "MM-DD")
End Sub

シート名の日付ですが、既に存在している場合は エラーとなります。

また MM-DDを MMDD などに してもいいでしょう。

ただし / は シート名に使えませんので MM/DD とすると エラーとなります。

Sub Macro1()

Range("A1") = Format(Date, "MM-DD")

End Sub

セルの書式設定が 標準の場合、日付として 表記されます。

id:taroemon

ご回答ありがとうございます。

どちらも完璧にできました。

2007/10/12 03:46:42
id:takejin No.2

たけじん回答回数1475ベストアンサー獲得回数1902007/10/11 14:55:44

ポイント28pt

Sheets.Add After:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = Format(Now(), "mmdd")

  CELLS(1,1) = FORMAT(NOW(),"mmdd")

で、いかがでしょうか。

id:taroemon

ご回答ありがとうございます。

今回、必要だったのはマクロです。

でも関数も大変参考になりました。

また質問しますのでご回答ください。

2007/10/12 03:47:48
  • id:takejin
    マクロじゃないとだめなのね。関数とかじゃなくて。
  • id:airplant
    No.2のコメントについて
    >今回、必要だったのはマクロです。
    >でも関数も大変参考になりました。
    → No.2もマクロです。関数ではないですね。

    なお、既にご存知のこととは思いますが、日付や時間はショートカットで簡単に入ります。
    Ctrl+; セルへ現在日を入れる
    Ctrl+: セルへ現在時刻を入れる

    >また質問しますのでご回答ください。
    → 余計なことかも知れませんが、Excel VBAの本が1冊あれば、毎回質問されなくても、簡単にマクロ作成できると思います。
  • id:taroemon
    airplant様コメントありがとうございます。

    そうでしたか、マクロについては未熟なので
    ご意見大変参考になりました。

    >Excel VBAの本が1冊あれば
    確かにそのとおりです。その方が合理的でしょう。
    ただ本やネットだとほしいマクロにたどり着くまで時間がかかります。
    ちゃんと勉強する時間もありません。
    今後も知らないことはここでお金を払って質問させていただければと思います。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません