締切済み

エクセルの入力規則で「@」を含むものとするには？

2009/04/09 06:44

メールアドレスを入力するセルに、誤ってURLを入力されることがあり困っています。そこでエクセルの入力規則で、「@」を含むものしか入力できないようにしたいと考えたのですが、そのやり方がわかりません＾＾；どのようにすればよろしいでしょうか？ ※入力作業はコピー・ペーストで行います。 ※入力規則以外でも良い方法ありましたらあわせて教えてくださいませ。以上よろしくお願いいたします。

chiyobit
お礼率33% (1/3)

その他(業務ソフトウェア)
回答数2
ありがとう数1

みんなの回答 （2）
専門家の回答

みんなの回答

mu2011
ベストアンサー率38% (1910/4994)

2009/04/09 13:59 回答No.2

>※入力作業はコピー・ペーストで行います。 ⇒入力規則では無理と思いますのでＶＢＡ（マクロ）をお試し下さい。　仮にA1:A5範囲に貼り付け又は、手入力としています。（１）対象のシートタブ上で右クリック→コード表示→以下のマクロを貼り付け→alt＋F4キー押下 Private Sub Worksheet_Change(ByVal Target As Range) タイトル = "データ不正" メッセージ = "入力した値はメールアドレスではありません　　　　" & _ vbLf + vbLf & _ "コピー内容を確認して下さい " スタイル = vbCritical 範囲 = "A1:A5" On Error GoTo error If Intersect(Target, Range(範囲)) Is Nothing Then Exit Sub If Target.Value Like "*@*" Or Target.Value = "" Then Exit Sub MsgBox メッセージ, スタイル, タイトル Application.EnableEvents = False Range(Target.Address).ClearContents error: Application.EnableEvents = True End Sub

ログインすると、全ての回答が全文表示されます。