Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : Microsoft 365)
入力規則(ドロップダウンリスト)の規制について
投稿日時: 25/01/29 01:08:30
投稿者: masa77

お世話になります
 
エクセルで入力規則を使用し入力に制限を設けている列があります。
当然、一定の入力しかされたくないからですが
違うセルからコピー、ペーストして違う文字を入力されてしまいます
セルのロックをかけてみましたが
入力規則も使用できなくなります
 
何かいい方法はありませんでしょうか?

回答
投稿日時: 25/01/30 09:02:13
投稿者: んなっと

値貼り付けもダメなんですね。修正します。
   
VBAが使える環境なら...
●C2:C10に入力規則が設定されている場合の例
        
 Alt+F11 同時押し
→Sheet1(Sheet1)のようなシートモジュールに以下のコード貼り付け
   
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim VRng As Range, IRng As Range
  Dim UStr As String
  Set VRng = Range("C2:C10") '飛び飛びは Union(Range("C2:C10"), Range("E2:E10"))
  On Error Resume Next
  Set IRng = Application.Intersect(Target, VRng)
  On Error GoTo 0
  If IRng Is Nothing Then Exit Sub
  Application.EnableEvents = False
  On Error Resume Next
  UStr = Application.CommandBars("Standard").FindControl(ID:=128).List(1)
  On Error GoTo 0
  Select Case True
    Case UStr Like "*貼り付け", UStr = "ドラッグ アンド ドロップ", UStr = "オートフィル"
      MsgBox VRng.Address(0, 0) & "は貼り付け禁止だよ"
      Application.Undo
  End Select
  Application.EnableEvents = True
End Sub
   
→Excelマクロ有効ブック(*.xlsm)で保存

トピックに返信