- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
311 ：デフォルトの名無しさん[sage]：2015/11/14(土) 18:09:07.45 ID:saXVV+dT - >>309
こんな方法はどうですか? (セルの入力規則を利用する方法)
セルに入力規則をかけておく (下記例では B1 としている)
※ LinkedCellの設定が同じ(つまり B1)なら正しく制御できない為 LinkedCellの設定削除
んで
Private Sub ComboBox1_Change()
Dim Save As Variant
With Range("B1")
Save = .Value
.Value = ComboBox1.Value
If .Validation.Value = False Then
.Value = Save
MsgBox "入力規則に合っていません。"
End If
End With
End Sub
|
|