人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAについての質問です。次のようなマクロを作ろうと思ったのですがうまくいきません。
?ワークシートを挿入
?そのワークシート名は本日の日付と曜日とする。ただし西暦はいれない。(例)5月18日(木)

実際に動くものを作ってください。よろしくお願いします。

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:5月18日 VBA エクセル マクロ 曜日
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● villain
●60ポイント

どう上手く動かなかったのかは分かりませんが以下でいいのでは?

Sub AddSheets()
 NowDate = Date
 Name = Mid(NowDate, 6, 2) & "月" _
 & Mid(NowDate, 9, 2) & "日" & _
 "(" & Mid(WeekdayName(Weekday(Date)), 1, 1) & ")"
 For i = 1 To Sheets.Count
 If Sheets(i).Name = Name Then
 MsgBox Name & ": 既に存在しています。"
 Sheets(i).Activate
 Exit Sub
 End If
 Next i
 Sheets.Add.Name = Name
End Sub

http://q.hatena.ne.jp/1147896445

◎質問者からの返答

完全に理想としていたものです。

ありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ