|
▼ponpon さん:
>こんにちは。
>
>>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
ありがとうございました。
関数で組んでしまったあとに拝見したので・・・
考えていただいたのにすいません。
参考に保存させていただきます(^^)
|
|