Excel セルに数字を打ち込むと特定のセルにレ点が入力されるようにしたい。

K-18に数字を打ち込むとK-10,11,12,13,14,16のセルにレ点が入力されるようにしたい。

よろしくお願いします！

No.1 ベストアンサー 回答者： hnks192059 回答日時： 2025/01/21 16:27

Private Sub Worksheet_Change(ByVal Target As Range)

' K18 が変更されたとき
If Not Intersect(Target, Me.Range("K18")) Is Nothing Then
' K18 が数字の場合にレ点を表示
If IsNumeric(Target.Value) Then
Me.Range("K10").Value = "✔"
Me.Range("K11").Value = "✔"
Me.Range("K12").Value = "✔"
Me.Range("K13").Value = "✔"
Me.Range("K14").Value = "✔"
Me.Range("K16").Value = "✔"
Else
' K18 が数字でない場合にレ点を消す
Me.Range("K10:K14").ClearContents
Me.Range("K16").ClearContents
End If
End If
End Sub

No.3 回答者： 河内のおやじ 回答日時： 2025/01/21 17:15

Private Sub Worksheet_Change(ByVal Target As Range)

Dim chkRange As Range
Set chkRange = Me.Range("K18") ' K-18が対象セル

If Not Intersect(Target, chkRange) Is Nothing Then
Application.EnableEvents = False ' 無限ループを防ぐ
If IsNumeric(Target.Value) And Target.Value <> "" Then
Me.Range("K10").Value = "✓"
Me.Range("K11").Value = "✓"
Me.Range("K12").Value = "✓"
Me.Range("K13").Value = "✓"
Me.Range("K14").Value = "✓"
Me.Range("K16").Value = "✓"
Else
Me.Range("K10:K14, K16").Value = "" ' 数字がない場合はリセット
End If
Application.EnableEvents = True
End If
End Sub

No.2 回答者： angkor_h 回答日時： 2025/01/21 16:35

数字かどうかを判断する関数は、ISNUMBERになります。

K-10,11,12,13,14,16に記入する式は、以下になります。
=IF(ISNUMBER(K18),"レ","※")

「"※"」は、そうではない場合に対する処理を記述します。