Ｐａｇｅ 895 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼教えて下さい。お願いします 777 03/3/19(水) 13:46 ┗Re:教えて下さい。お願いします ポンタ 03/3/19(水) 14:18 ─────────────────────────────────────── ■題名 ： 教えて下さい。お願いします ■名前 ： 777 ■日付 ： 03/3/19(水) 13:46 -------------------------------------------------------------------------
| 下記のようにSheet2に表を作成しておき、Sheet1のA1に10と入れるとA1に東京と表示することは可能でしょうか？ A B 1 10 東京 2 20 茨城 3 30 埼玉 |
| Sheet1のシートモジュールに以下のコードを貼り付けて お試しください。 （A1以外のセルでも動くようにしてあります） Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim R1 As Range, R2 As Range For Each R1 In Target Set R2 = Worksheets("Sheet2").Range("A:A").Find(R1.Value, , , xlWhole) If Not R2 Is Nothing Then R1.Value = R2.Offset(0, 1).Value End If Next Application.EnableEvents = True End Sub |