No.4ベストアンサー
- 回答日時:
説明不足でした
先ほどの例は、月曜日起算の場合です^^;
日曜起算なら以下のとおりです
違いは、日曜日のときに日付が一週間ずれます
=TODAY()-CHOOSE(WEEKDAY(TODAY(),1),6,7,8,9,10,11,12)
素晴らしい!
答え一つ出すのにもいろいろなやり方があるのですね!
CHOOSEですか。。。実は初めて聞く関数です。
自分のバカさが身にしみてわかりました。
今日は一日かけてエクセルを勉強してみます。
No1さんのようにパパッとマクロを書ければいいのですが私はまだスキル不足みたいです。
No.1
- 回答日時:
マクロでの回答をしたいと思います。
1.該当ファイル(Excel)を開きます。
2.上部バーから[ツール]-[マクロ]-[Visual Basic Editer]を選択します。
3.エディターが起動したら、上部バーから[挿入]-[標準モジュール]を選択します。
4.プロジェクトという場所に標準モジュールの[Module1]が作成されましたらそちらをダブルクリックします。
5.下記をコピーして貼り付けてください。
Function DateConv(datDate As Date) As Date
Dim datWk1 As Date
Dim intWk1 As Integer
If IsDate(datDate) = True Then
datWk1 = DateAdd("ww", -1, datDate)
intWk1 = 2 - Weekday(datWk1)
DateConv = DateAdd("d", intWk1, datWk1)
End If
End Function
6.該当セルに=DateConv(now)と入力すれば
先週の月曜日の日付が出力されるはずです。
ただし○月○日はセルの書式設定で変更してください。
(今後の汎用性を高めるため)
作成にあたり日曜日を週の最初として捉えました。
また、週の1週前の月曜日(金曜日であっても先週の月曜日)
となっております。
また、=DateConv("2005/04/01")と入力しても動作します。
丁寧にご回答いただき大変ありがとうございました。
試してみましたが#VALUE!のエラーが出ました。
自分なりに考えてみたのですが、なにぶん勉強不足でわかりませんでした。
他の方の回答でできたので結果的には良かったのですが、大変参考になりました。
どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- Excel(エクセル) 条件付き書式で文字入力 6 2022/08/29 10:40
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) Excelにて、指定した日の午後にファイルを開いたらsheet1に UserForm1を表示させたい 2 2022/05/31 20:53
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
【至急】先週の金曜日をエクセルで
Excel(エクセル)
-
エクセルで、指定した日付(A3)から一番近い水曜日の日付を表示させる式を知りたいです。 A3が6月5
Excel(エクセル)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
5
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
6
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
7
Excel関数 基準日に一番近い指定曜日の日付が知りたい
Excel(エクセル)
-
8
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
9
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
10
EXCELの条件付き書式で数式を空白と認識してくれる方法
Excel(エクセル)
-
11
Excelで、本日、前日、1週間前、1ヶ月前を表示させたい
Excel(エクセル)
-
12
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
13
アクセスで、レポートの幅がページの幅よりもよりも広い??
Access(アクセス)
-
14
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
Dirコマンドでフォルダ内ファイルの合計サイズをだすには?(コマンドプロンプトにて)
UNIX・Linux
-
17
フォルダ内の更新日時が一番新しいファイルを開きたい
その他(プログラミング・Web制作)
-
18
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
19
エクセルで一週間単位で数値を集計する方法について質問です。
Excel(エクセル)
-
20
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
VBA 見つからなかった時の処理
-
Excelでセルをクリックす...
-
エクセルでPDFリンクを大量...
-
太字に設定されているセルの個...
-
セルがクリックされた回数をカ...
-
Excelで、図形内の文字をセルに...
-
エクセルでの検索ボックスの作...
-
フォントの色を指定して削除出...
-
Excelで挿入した図をセルの中央...
-
マクロを実行すると画像がズレ...
-
エクセル 未入力セルがあると...
-
クリックすると文章が表示され...
-
エクセルでページ数をあるセル...
-
Excel2007 色のカウント (VBA)
-
【EXCEL】先週の月曜日の日付を...
-
空白セルを空セルに置き換える...
-
エクセル シート保護された共...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
太字に設定されているセルの個...
-
クリックすると文章が表示され...
-
Excelで挿入した図をセルの中央...
-
【マクロ】ファイル名の変更に...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
Excel ハイパーリンクのURLを別...
-
フォントの色を指定して削除出...
-
Excelでセルをクリックす...
-
Excel2007 色のカウント (VBA)
-
エクセルでの検索ボックスの作...
-
現在のセルの位置を返す関数は...
-
エクセル マクロ チェックボックス
-
VBA 見つからなかった時の処理
-
アポストロフィーの一括挿入 ...
-
エクセルでPDFリンクを大量...
-
セルの値が変ると自動でマクロ...
おすすめ情報