| |
ずいぶん昔になりますが、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
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 04/10/28(木) 11:20 -
