No.1ベストアンサー
- 回答日時:
次の方法は如何でしょうか。
(1)シートは名は、1~31とします。
(2)シート2~31までを選択→A1に=DATE(YEAR(Sheet1!$A$1),MONTH(Sheet1!$A$1),MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,2))を入力
(3)シート1を選択、A1に日付を入力
因みに小の月の場合、シート31は「翌月の一日」になります。
早速ありがとうございます!
やってみたのですがうまくいきません。
(3)の日付を入力というのはどのような方法で入力するのでしょうか?2008/8/1と入力すると2008年8月1日のように変換されるとダメですか?
No.6
- 回答日時:
式をコピーしたり31シートを作成したりするのも面倒なので、1シートだけ作成すればコピーまで行うマクロにしてしまいました。
(できあがるシート名を1~31としています。)
準備:下のマクロをマクロのモジュールにコピペ
(投稿の都合上でインデントを全角ブランクにしています)
1)シートのフォーマットの雛型となるものを作成し、シート名は1(英数字の1)として、他にシートが無い状態にしておく。
2)この状態のものを雛型のブックとして保存
[ ある1ヶ月分を作成するとき ]
1)雛型のブック(上のブック)のコピーを作成
2)シート1のA1に日付を入力する(日にち形式のものならOK 例:08/8/1)
3)セットしておいた、マクロを実行。
注)マクロは原型のみなので、入力された値(日にち)のチェックや、シート名が正しいかなどのチェックは一切行っていません。
(実際に使用するには、この辺のチェックを入れておかないと、誤操作の時にエラーが出ます)
------------------------------------------
Option Explicit
Dim s1 As Worksheet, s2 As Worksheet
Dim d_date As Date
Dim m_str As String, d_str As String, w As String
Dim d As Integer
Const L_week = "日月火水木金土"
Sub BookSet()
Set s1 = Sheets("1")
d_date = s1.Cells(1, 1).Value
m_str = Str(Format(d_date, "yyyy")) & "年" & Str(Format(d_date, "m")) & "月"
d = 1
d_str = m_str & Str(d) & "日"
While IsDate(d_str)
If (d = 1) Then
Set s2 = s1
Else
s1.Copy after:=Worksheets(Worksheets.Count)
Set s2 = ActiveSheet
s2.Name = Str(d)
End If
With s2.Cells(1, 1)
.NumberFormatLocal = "@"
.HorizontalAlignment = xlLeft
.Value = d_str & "(" & Mid(L_week, Weekday(d_str), 1) & ")"
End With
d = d + 1
d_str = m_str & Str(d) & "日"
Wend
s1.Activate
End Sub
No.5
- 回答日時:
NO4です。
軽率でした。
以下の訂正版をお試し下さい。
=DATE(YEAR(1!$A$1),MONTH(1!$A$1),MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,2))として下さい。
今度は貼り付けてすぐに、A1に「#VALUE!」と表示され、その後シート1に日付を入力しても変化なしです。
なにか、私のやり方がマズイのかも知れません。
No.4
- 回答日時:
NO3です。
以下の手順でお試し下さい。
(1)シート名を1~31に設定
(2)シートタグの2をクリック→shiftキーを押しながらシートタブの31をクリック(シート2~シート31が選択された状態になる)
(3)シート2のA1に関数を入力(シート2~シート31のA1に関数が入力される)
(4)シートタブ1をクリック→A1に日付を入力
ご親切にありがとうございます!
おっしゃる通りにしてみたのですが・・・
(3)シート2のA1・・・というところで、mu2011さんが教えてくださったものをコピーして貼り付けたのですが(これが悪いのかな?)
貼り付けると「値の更新:Sheet1」というのが出ます。
ここで何かを選択するのですか?それが出ている時はシート2のA1には「1900/1/0」と表示されています。
その「値の更新」というのをキャンセルするとA1には「#REF!」と表示されます。
よろしくお願いします!
No.2
- 回答日時:
まずはじめに1日のシートのA1に日付を入力。
表示形式を調整。次に2日のシートのA1のデータを張り付ける。そのままの状態で、「形式を選択して貼り付け」を選択し、「リンク貼り付け」を選択。そのままの状態で、F2ボタンを押して、Sheet1!$A$1のうしろに半角で+1と入力。
3日のシートのA1に2日のシートのA1を張り付ける。F2ボタンを
押して+1を+2に修正。
以降は31日まで足す数字を1つずつ増やしながら、3日のシートの
手順を繰り返す。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 再質問です。エクセルでシートが1から31まであり、日付けが入力されているセルがあります。シート1から 4 2022/08/02 23:08
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) Excelで日報を自動で作成したい 売上管理シートに入力した売上データを、日報に自動反映させたいと考 1 2023/04/29 18:07
- Excel(エクセル) Excel 売上管理シートに入力した売上データを、日報に自動反映させたいと考えています。 売上管理シ 3 2023/04/29 18:08
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
- Excel(エクセル) エクセルでタブ全ての日付を変えたい 1 2022/07/25 18:50
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) Excelで行削除をすると… 1 2023/07/26 11:57
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
EXCELで同一フォーマットのシートを31日分簡単に作成する方法は?
PowerPoint(パワーポイント)
-
EXCELで1ヶ月分の連続した日付をシート名+セルに表示させたい
Excel(エクセル)
-
シートをたくさんコピーするには?シートを日付順にコピーするには?
Excel(エクセル)
-
-
4
Excelで同じシートのコピーを一気に複数作りたい
Excel(エクセル)
-
5
エクセルで日付別にシートを分けたい
Excel(エクセル)
-
6
再質問です。エクセルでシートが1から31まであり、日付けが入力されているセルがあります。シート1から
Excel(エクセル)
-
7
エクセルで日付を別のシートに引用したい
Excel(エクセル)
-
8
Excelでシートに年月を自動で変更するやり方
Excel(エクセル)
-
9
エクセル シート毎 連続で曜日を入れる
Excel(エクセル)
-
10
エクセルのシート間で連続した日付データを作りたい
Excel(エクセル)
-
11
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
12
1ヶ月分の日付を一度に出す方法はありますか?
その他(パソコン・スマホ・電化製品)
-
13
エクセルの複数シートに、順次”年、月、日、曜日”を入れたいのですが、入
その他(暮らし・生活・行事)
-
14
エクセル関数:業務日報の日付自動入力
Excel(エクセル)
-
15
Excelのシートごとの日付の追加
Excel(エクセル)
-
16
Excelで日報を自動で作成したい 売上管理シートに入力した売上データを、日報に自動反映させたいと考
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】スペースがいくつ入っ...
-
西暦や和暦の表示をyyyymmdd表...
-
Excelのセルを飛ばして入力する
-
Excelのオートフィル
-
別シートからの文字を変更
-
Excel 2019 のピボットテーブル...
-
エクセルの行の抽出について質...
-
【マクロ】エクセルにかいてあ...
-
スプレッドシート クエリ関数 1...
-
エクセルでセルに「氏名を入力...
-
MOS365 Excel Expert / Excel R...
-
excelの不要な行の削除ができな...
-
EXACT関数とIF関数の組み合わせ...
-
スプレッドシートの関数VLOOKUP...
-
Excelで全角を半角にしたいので...
-
Excel初心者です。 詳しい方、...
-
エクセルの数式で教えてください。
-
4つのパターンを表示するEXACT...
-
スマートな関数を教えて下さい。
-
【Excel】セル内の時間帯が特定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報