Excelの数式について教えてください。
セルE4に設定した数式を自動更新する方法を教えてください。
セルA2に基準日:数式「=EOMONTH(TODAY()+1,-MOD(MONTH(TODAY()+1),3)-1)」があります。現在は2022年11月30日と表示されており、自動で3か月毎に更新(例えば次は2023年2月28日、2023年5月31日、2023年8月31日等々)となります。
セルA4にはプルダウンで日付が選択できるように設定しております。
セルC4には「=MAX($A$2,$A$4)」の数式があります。
セルE4には「=IFS(NOT(ISNUMBER(C4)),"",C4<DATE(2023,3,1),DATEVALUE("2022/11/30"),1,DATEVALUE("2023/2/28"))」の数式があり、この数式はセルC4の日付により表示が変わります。
C4が2023年2月28日以前の日付だと「2022年11月30日」と表示
C4が2023年3月1日以降の日付だと「2023年2月28日」と表示されます。
この式のDATE(2023,3,1),DATEVALUE("2022/11/30"),1,DATEVALUE("2023/2/28")は固定式ですが、この固定部分をセルA2の基準日に合わせて3か月毎に更新できる方法を教えてください。
基準日:2023年2月28日の場合は
C4が2023年5月31日以前の日付だと「2023年2月28日」と表示
C4が2023年6月1日以降の日付だと「2023年5月31日」と表示
基準日:2023年5月31日の場合は
C4が2023年8月31日以前の日付だと「2023年5月31日」と表示
C4が2023年9月1日以降の日付だと「2023年8月31日」と表示
等々と変更できる方法を教えてください。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
C4って数値以外が入ることあるんですか?
とりあえずざっと見た感じでつくっただけですが
E4=IF(C4>EOMONTH(A2,3),EOMONTH(A2,3),A2)
ではどうでしょう?
C4の数値判定は入れてません。
No.1
- 回答日時:
こんにちは
私は関数を全然わからないのですが、すでに使われている関数を組み合わせれば出来そうですね
ご質問をよく理解していないかも知れません
セルE4に
=IFS(NOT(ISNUMBER(C4)),"",C4>EOMONTH(A2+1,MOD(MONTH(A2),3)),EOMONTH(A2+1,MOD(MONTH(A2),3)),1,EOMONTH(A2+1,MOD(MONTH(A2),1)-1))
使われている関数を組み合わせているだけなので もっと良い書き方があると思います
ご質問とは関係ない事で恐縮ですが、
私が回答した
https://oshiete.goo.ne.jp/qa/13299658.html
での回答は間違いです 間違いのまま認識されるのは本意ではありませんので こちらに訂正回答させて頂きます
問題は結合セルへのAutoFitが機能しない為です(改行コードは関係ありません)
VBAで処理を行う場合
AutoFitした行で作業セル(単セル)へフォントサイズなど考慮し値を代入して
得られたRowHeightを再設定し作業セルを.Clearするような手順になると思います
参考コード(ご質問表組を対象にしています 複雑な結合セルがある場合、結合セルの検証などを追加、書き直す必要があります)
作業用セルの取得は仮で40行目としていますが一番右迄使われている見出しなどがあれば その行に変更してください
訂正コード
Sub 行調整()
Dim r As Range, workCell As Range
Dim n As Integer, i As Integer, existingWidth As Single
Const C As Integer = 4
Const DefaultRowHeight As Double = 27
Application.ScreenUpdating = False
For Each r In Range("B26:B60") 'MergeArea(1) B~E = C =4
If WorksheetFunction.CountIf(r.Resize(, C), "<>") > 0 Then
'値ありセル
r.Rows.AutoFit
'40行目 最終列取得行
n = Cells(40, Columns.Count).End(xlToLeft).Column + 2
For i = 0 To C - 1
If r.Offset(, i).MergeCells Then
Set workCell = Cells(r.Row, n).Offset(, i)
With workCell
existingWidth = .ColumnWidth
.Column Width = GetMaregeColumnWidth(r.Offset(, i).MergeArea)
.WrapText = True
.Font.Size = r.Offset(, i).MergeArea.Font.Size
.Value = r.Offset(, i).Value
End With
End If
Next
If Not workCell Is Nothing Then
r.RowHeight = r.RowHeight
Cells(r.Row, n).Resize(, C).Clear
Cells(r.Row, n).Resize(, C).ColumnWidth = existingWidth
Set workCell = Nothing
End If
Else
'空白行のみ
r.RowHeight = DefaultRowHeight
End If
Next
Application.ScreenUpdating = True
End Sub
Function GetMaregeColumnWidth(RngMarge As Range) As Long
Dim n As Long, r As Range
For Each r In RngMarge.Columns
n = n + r.ColumnWidth
Next
GetMaregeColumnWidth = n
End Function
参考まで
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 3 2022/12/22 17:29
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/12/23 14:57
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/04/13 10:55
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) Excelで2つのセルにある日付を参照させ期間として1つのセルに表示したいです。 例 c9セルに開始 3 2023/04/06 12:16
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) 【関数】ハイフン(-)を月や日に変えたい。スペースを削除したい。 4 2023/07/12 08:49
- Excel(エクセル) 計算式 5 2023/04/21 23:43
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報