Excel VBA質問箱 IV

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

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


10898 / 13646 ツリー ←次へ | 前へ→

【19323】changeの作業が出来なくなりました。 bokuden 04/10/28(木) 11:09 質問[未読]
【19324】Re:changeの作業が出来なくなりました。 Asaki 04/10/28(木) 11:13 発言[未読]
【19325】Re:changeの作業が出来なくなりました。 IROC 04/10/28(木) 11:18 回答[未読]
【19327】Re:changeの作業が出来なくなりました。 つん 04/10/28(木) 11:20 発言[未読]

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

引用なし
パスワード
   ずいぶん昔になりますが、sheet1に表がありまして、その表にsheet3゛教師名″に縦に並べられた、人名を行番号を打つと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

よろしくお願いします。

【19324】Re:changeの作業が出来なくなりました。
発言  Asaki  - 04/10/28(木) 11:13 -

引用なし
パスワード
   こんにちは。

良く分かりませんが、ステップ実行して確認されては?

【19325】Re:changeの作業が出来なくなりました。
回答  IROC  - 04/10/28(木) 11:18 -

引用なし
パスワード
   Application.EnableEvents = False
を設定した後、Trueに戻さないでマクロが停止してしまったとか?


Sub test()
Application.EnableEvents = True
End Sub

を実行してみては?

【19327】Re:changeの作業が出来なくなりました。
発言  つん E-MAIL  - 04/10/28(木) 11:20 -

引用なし
パスワード
   こんにちは

Asakiさん、こんにちは^^
横から失礼します。

・・て、私も回答ではないですが(^^;

こちらでまるまるコピペして実行したところ、動いているようなんで、
コード自体には問題ないのでは?
一度、新しいファイルでやりなおしてみたらいかがですか?
ファイルが壊れていたりするのかも・・・

10898 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free