Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3896 / 76734

←次へ　｜　前へ→


	【78467】Re:セルに文字列が入力されたらマクロの実行

北風 - 16/9/27(火) 9:13 -


	引用なし

	パスワード

▼β さん：
>　▼北風さん：
>
> 横から失礼します。
>
>>「ＸＸＸ」はマクロ実行名（標準モジュールで作成）「削除」となります。
> >エラーというか
> >Private Sub Worksheet_Change(ByVal Target As Range)←ここで停止して動きません。
>
> 停止して動かないという状態で、何もメッセージはでていないのですか？

『コンパイルエラー
名前が適切ではありません　Worksheet_Chang』　となります。
>
> それと、標準モジュールに書かれた xxx のコードを見たいですねぇ。
> γさんも示唆しておられますがイベント連鎖による再入が発生しているのかもしれませんので。
（標準モジュール）
Sub 削除()
Dim rng As Range
　Dim txt As String

　For Each rng In Range("Q10")
　　txt = rng.Value
　　txt = Replace(txt, " ", "")
　　txt = Replace(txt, "　", "")
　　rng.Value = txt
　Next rng
　Range("D5:G6").Select
　　With Selection.Font
　　　　.Name = "ＭＳＰ明朝"
　　　　.Size = 14
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = xlAutomatic
　　End With
　　Range("Q15:V15").Select
　　ActiveCell.FormulaR1C1 = "未定"
　　ActiveCell.Characters(1, 2).PhoneticCharacters = "ミテイ"
　　Range("IS15").Select
　　Range("S2").Value = Date
　 End Sub

10 hits

▼

【78439】セルに文字列が入力されたらマクロの実行 北風 16/9/23(金) 16:43