文字操作 フリガナを付ける

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 フリガナを付ける]

Private Sub フリガナを付ける()
'*******************************************************************************
'フリガナを付ける
'*******************************************************************************
Dim sht As Worksheet, a As Long, b As Long, c As Long, d As String, e As String

'Set sht = ThisWorkbook.Worksheets("Sheet2")
Dim Xname As String
'***********************************
Xname = "給料_外注先.xls"
'***********************************
Set sht = Workbooks(Xname).Worksheets("Sheet1")

With sht
    b = Fnc最終行(sht)
    For a = 1 To b
        If a <> 1 Then
            For c = 2 To 2
                .Cells(a, c + 1).Value = Application.GetPhonetic(.Cells(a, c))
            Next c
        Else
            .Cells(a, 3).Value = "フリガナ"
        End If
    Next a
End With
End Sub





Production Japan Import Application. Since 1998