Excel

質問

こちらの教えて頂いた数式に
=IF(O4="◯",TODAY(),"")

手動でも日付を入力できるように、出来ますでしょうか❓

回答No.3

kkkkkm · ベストアンサー

数式を入れたセルに直接値を入れると式が無くなるのでその場合はマクロで対応します。
該当するシートのタブを右クリックして「コードの表示」で出た画面の右側に下のコードをコピペしてください。
添付画像のようになると思います。
O4のセルに◯を入力したり◯以外を入力もしくは消したりすると式と同じ結果になると思います。
K4とM4を手動で入力しても上記の動作は保たれます。

◯はO4のセルいある◯を記載してください。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> Range("O4").Address Then
Exit Sub
End If

Application.EnableEvents = False

If Range("O4").Value = "◯" Then
Range("M4").Value = Date
Range("K4").Value = Date
Else
Range("M4").ClearContents
Range("K4").ClearContents
End If

Application.EnableEvents = True

End Sub

お礼

ありがとうございました❗️

Powered by GRATICA

回答No.4

mimazoku_2

２０１９で試しました。

=IF(B4="◯",TODAY(),B4)

都合で「Ｏ４」は、｛Ｂ４｝でテストしました。
「○」の時は、システムから日時を抽出し、それ以外は任意の日付を入力することで反映出来ました。
ただ、○のある場所に数式があるのかが分かりませんでした。

お礼

ありがとうございました❗️

Powered by GRATICA

回答No.2

fu5050

もとの質問を見ましたが、O5,O6……と同じようなものがら続き、手入力する（今日でない日付）のはすべて同じなら、条件式で入れることはできます。
離れたところのあるセルがブランクなら隣にTODAY()そうでなければ入力値というセルを作りそれを参照すればよい。

お礼

ありがとうございました❗️

Powered by GRATICA

回答No.1

are_2023

手動で（キー入力で）日付は入力できます
でもそれをすると計算式は消えて手動で入力した物だけになります