|
修正
>Option Explicit
>
>Private Sub TextBox2_Change()
>
> Static oldText As String
> Dim ChangeText As String
>
> If TextBox2.Value = "" Then
> oldText = ""
> TextBox1.Value = ""
> End If
>
> ChangeText = Mid(TextBox2.Value, Len(oldText) + 1)
>
If ChangeText <> "" Then
> TextBox1.Text = TextBox1.Text & Application.GetPhonetic(ChangeText)
End If
> oldText = TextBox2.Value
>End Sub
>
>Public Sub DAINYUU()
>
> Dim rg As Range
>
> Range("A1").Select
> Set rg = Selection
> rg.Value = TextBox2.Value
> rg.Phonetic.Text = TextBox1.Value
>
> TextBox2.Value = ""
>
>End Sub
|
|