Excel VBA質問箱 IV

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

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


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

62019 / 76732

←次へ　｜　前へ→


	【19323】changeの作業が出来なくなりました。

bokuden - 04/10/28(木) 11:09 -


	引用なし

	パスワード

ずいぶん昔になりますが、sheet1に表がありまして、その表にsheet３゛教師名″に縦に並べられた、人名を行番号を打つとsheet1にでるというマクロを下のように、つくって
いただいたのですが、今現在動かなくなってしまいました。何か原因が考えられますか？
つぎのようなマクロです。

Private Sub TextBox1_Change()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim MyRow As Long, MyEnd As Long
　　Dim Ws As Worksheet
　　Application.EnableEvents = False
　　If Target.Count <> 1 Then Exit Sub
　　MyRow = Val(Target.Value)
　　Set Ws = Worksheets("教師名")
　　MyEnd = Ws.Cells(65536, Target.Column).End(xlUp).Row
　　If MyEnd = 1 Then Exit Sub
　　If MyRow > 0 And MyRow <= MyEnd Then
　　　　Target.Value = Ws.Cells(MyRow, Target.Column).Value
　　End If
　　If Application.WorksheetFunction.CountIf(Target.EntireColumn, Target.Value) > 1 Then
　　　　MsgBox ("( ﾟДﾟ)ﾊｧ?")
　　　　Target.Value = ""
　　End If
　　Application.EnableEvents = True
End Sub

よろしくお願いします。

1 hits

▼

【19323】changeの作業が出来なくなりました。 bokuden 04/10/28(木) 11:09

≪