| |
▼β さん：
> ▼北風 さん：
>
> 横から失礼します。
>
>>「ＸＸＸ」はマクロ実行名（標準モジュールで作成）「削除」となります。
> >エラーというか
> >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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
