Hi,
I am a novice in VBA.
Through VBA, I am trying to select a range of cells in excel and get Phonetics in another range of cells through below code:
Sub Phonetic_Guide()
With Range("D2:D5000").Phonetic
.CharacterType = xlHiragana
.Alignment = xlPhoneticAlignCenter
.Font.Name = "MS明朝"
.Font.Size = 6
.Font.Strikethrough = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = xlAutomatic
.Visible = True
End With
End Sub
The issue:
With the above code, Phonetics generate in column D. However, phonetics are not visible in Column D unless I select each cell, click on "Edit Phonetic" option available under "Phonetics".
Once Phonetics is visible in column D it gets copied in corresponding cell when I use "=PHONETIC(D2)" formula in "C2" cell.
In the above code, is it possible to write add VBA code to automate "Edit Phonetic" option and copy Phonetic in Column C?
Regards
PJha
I am a novice in VBA.
Through VBA, I am trying to select a range of cells in excel and get Phonetics in another range of cells through below code:
Sub Phonetic_Guide()
With Range("D2:D5000").Phonetic
.CharacterType = xlHiragana
.Alignment = xlPhoneticAlignCenter
.Font.Name = "MS明朝"
.Font.Size = 6
.Font.Strikethrough = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = xlAutomatic
.Visible = True
End With
End Sub
The issue:
With the above code, Phonetics generate in column D. However, phonetics are not visible in Column D unless I select each cell, click on "Edit Phonetic" option available under "Phonetics".
Once Phonetics is visible in column D it gets copied in corresponding cell when I use "=PHONETIC(D2)" formula in "C2" cell.
In the above code, is it possible to write add VBA code to automate "Edit Phonetic" option and copy Phonetic in Column C?
Regards
PJha
