Excel VBA質問箱 IV

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

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


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

70474 / 76734

←次へ　｜　前へ→


	【10766】ご教示お願いします。

馬詰膳次郎 - 04/2/13(金) 8:58 -


	引用なし

	パスワード

はじめまして。馬詰と申します。

１をいれて伊藤とか、２をいれて鈴木、３をいれて間宮というように、
Sheet1に名前一覧があって、Sheet2に番号を入れると名前になるようになっています。
具体的には次のような、マクロが入っています。
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) > 2300 Then
　　　　MsgBox ("?")
　　　　Target.Value = ""
　　End If
　　Application.EnableEvents = True
End Sub

しかし、別のデータから番号を貼り付けた場合、変わるようにもしたいのです。
どのような、マクロを付け加えればよいでしょうか？

0 hits

▼

【10766】ご教示お願いします。 馬詰膳次郎 04/2/13(金) 8:58

≪