|
こんにちは。
>A列にある文字が入力されると
ということで、
Changeイベントで組んでみました。
シートモジュール(シートタブ右クリック、コードの表示)
にコピペして試してください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myStr As String
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
Application.EnableEvents = False
Select Case .Value
Case "あ": myStr = "123"
Case "い": myStr = "456"
Case "う": myStr = "789"
End Select
.Offset(0, 1).Value = myStr
Application.EnableEvents = True
End If
End With
End Sub
|
|