Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39286 / 76738

←次へ　｜　前へ→


	【42565】Re:シートを開く

バンボッシュ - 06/9/15(金) 11:16 -


	引用なし

	パスワード

▼TMB さん：
レスありがとうございます。
早速TMBさんの言うとおり、実行してみました。

そして、ネットでDay関数とDate関数も調べて、
Day関数を使おうと思います。

それで、入れたコードは（とりあえず、今日の日付だけで入れてみました）

Private Sub Workbook_Open()
Dim IngDay
IngDay = Day(Now)

　　If IngDay = 15 Then
　　　　Sheets("15").Select
　　　　工事日報作成.Show
　　End If
End Sub

なのですが、これを省略的なことって出来るのでしょうか？
1～31を全部入れるとなると大変なので。。。

それから
>>シート名は１～３１までとなっています。
>シート名が全角になっているのであれば、StrConvも使えるかも。

シート名は半角になっています。けど、上記のコードで
開けました。
あと、自信が無いので、間違っていればご指摘いただけますか？
宜しくお願いします。

0 hits

▼

【42545】シートを開く バンボッシュ 06/9/14(木) 17:25