No.3ベストアンサー
- 回答日時:
こんにちは。
maruru01です。一般操作による方法です。
(といっても実際はマクロですが)
日付ですので、どこかに年と月を入れる場所を用意した方がいいです。
そこで、1日のシート(Sheet1)のA1に年、B1に月を入力するとします。
まず、どのシートを選択していてもいいので、メニューの[挿入]→[名前]→[定義]で、
[名前]:適当な名前(仮に「シート位置」とします。)
[山椒範囲]:「=GET.DOCUMENT(87)+NOW()*0」
として、[OK]します。
これで、試しにどのシートのどのセルでもいいので、
=シート位置
と入力すると、そのシートの位置が表示されます。
シート位置というのは、シート下部のシートタブの左からの位置です。
したがって、各日にちのシートが左から順に並んでいれば、シートに渡った連番になります。
仮に各シートのA2に日数、B2に曜日を表示するとします。
全シートを(シートタブで)選択して、A2に、
=シート位置
と入力します。
次に、そのままB2に、
=DATE(Sheet1!$A$1,Sheet1$B$1,A2)
と入力して、B2のセルの表示形式をユーザー定義で、
「aaa」
とすれば、曜日を表示出来ます。
曜日は、数式を、
=TEXT(DATE(Sheet1!$A$1,Sheet1$B$1,A2),"aaa")
とすれば、表示形式を変えなくても直接表示出来ます。
年と月を直接数式中に入れて、
=DATE(2005,8,A2)
のようにしてもいいし、今日の日付から、
=DATE(YEAR(TODAY()),MONTH(TODAY()),A2)
としてもいいでしょう。
No.2
- 回答日時:
数式初心者・マクロ初級者です。
(万年)一般機能の方はちょっとわからないので、VBAです。
VBAも使われますか?
既存シートに対する入力だと、こんなのかなぁ。。。
Sub 日付入力したいシートを選択してから実行してね()
Dim Sh As Worksheet
Dim Rng As Range
Dim myYmd As Variant
Dim Rsp As Integer
Do
myYmd = Ymd()
Rsp = MsgBox(myYmd & "から始めますよ!", vbYesNoCancel)
If Rsp = vbCancel Then End
Loop Until Rsp = vbYes
On Error GoTo myCancel
Set Rng = Application.InputBox("入力セルをクリック!", "セルの指定", "=$A$1", , , , , 8)
On Error GoTo 0
Application.ScreenUpdating = False
On Error Resume Next
For Each Sh In ActiveWindow.SelectedSheets
With Sh.Range(Rng.Address)
.Value = myYmd
.NumberFormatLocal = "d""日"" aaa"
End With
myYmd = myYmd + 1
Next Sh
On Error GoTo 0
Application.ScreenUpdating = True
myCancel:
End Sub
Function Ymd() As Variant
Dim myY As Long
Dim myM As Long
Dim myD As Long
myY = Year(Date)
myM = Month(Date) + 1
myD = 1
On Error GoTo myCancel
myY = Application.InputBox(myY & "年でいい?", "セルの指定", myY, , , , , 1)
If myY = False Then End
myM = Application.InputBox("何月?", "セルの指定", myM, , , , , 1)
If myM = False Then End
Ymd = DateSerial(myY, myM, myD)
On Error GoTo 0
Exit Function
myCancel:
MsgBox "終了しますよ。"
End
End Function
半年振りくらいにコード組んだので、あんまり自信ありません。
あと、ざっと書きなぐったので、細かい設定は端折ってます。
動作チェックはしたけど、試す時はバックアップとってからにして下さいね。
(動作check:Excel97)
VBAなら分かるけど、一般機能だったら・・・という質問だったら流して下さい。
No.1
- 回答日時:
シート名は、原理的に、関数ではセットできません。
1シート1シートひとつづつ、名前をセットするほかには、VBAでないとできないでしょう。
Sub test01()
yymm = InputBox("年月例200508")
nextM = DateSerial(Val(Mid(yymm, 1, 4)), Val(Mid(yymm, 5, 2)) + 1, 1)
For i = 1 To 31
d = DateSerial(Val(Mid(yymm, 1, 4)), Val(Mid(yymm, 5, 2)), i)
If d >= nextM Then Exit Sub
wd = Format(d, "aaa")
Worksheets.Add(after:=ActiveSheet).Name = i & "日" & wd
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
複数シートの特定の位置に連番を振る方法??
その他(Microsoft Office)
-
エクセルのシートごとに連番を入れたい
Excel(エクセル)
-
エクセルでシート名を連続で参照するには
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
エクセル 入力があった場合のみ...
-
エクセルの関数
-
Excelでの勤怠表の関数を教えて...
-
【Excel】効率的な関数式の組み...
-
エクセルの数式について教えて...
-
Excelの更新日時が自動で更新さ...
-
考えた式の戻り値が期待通りに...
-
(マクロ)参照渡しにて、違う...
-
if関数。半角文字や全角文字で...
-
エクセルを使ってQRコードを作...
-
FからI列で期限切れ及び期限7日...
-
(マクロ)値を返す時は subで...
-
ExcelやLibreOffice Calcの関数...
-
エクセルでファイルの最終更新...
-
EXCELの散布図で日付が1900年に...
-
エクセルについての質問です。 ...
-
エクセルの数式バーのフォント...
-
【Excel】 1つのセルの日にちを...
-
Excelの計算が合いません。 諸...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルデーターから必要な項...
-
エクセルでファイルの最終更新...
-
複数のテキストファイルをexcel...
-
Excelの複数条件の関数
-
【マクロ】ファイル名の一括変...
-
EXCELの散布図で日付が1900年に...
-
マクロの処理が遅くなった
-
Excelの時刻の不思議
-
エクセルでの2項目比較および...
-
Excelマクロで空白セルを詰めて...
-
エクセルの数式バーのフォント...
-
ExcelでASCを使って全角を半角...
-
エクセルで80万行、50列位のデ...
-
今まで文字化けなく開けていたc...
-
エクセルのことで教えてくださ...
-
エクセルVBA 月の中で、月~土...
-
Excelでの表の作り方
-
Excel セルにおけるフォント設...
-
エクセルの質問です。 F列からL...
おすすめ情報