スポンサードリンク | |
更新:2025/2/4;作成:2005/9/24
漢数字に変換(NUMBERSTRING関数) | 文字列を取り出す(LEFT,RIGHT,MID関数) |
ふりがなを取り出す(PHONETIC関数) |
B | C | D | E | |
2 | 左から4文字 | 左から5文字目から4文字 | 右から6文字 | |
3 | 鹿児島県鹿児島市山下町1番地 | 鹿児島県 | 鹿児島市 | 山下町1番地 |
B | C | D | |
2 | 県名を取り出す | 県名より後の文字を取り出す | |
3 | 鹿児島県鹿児島市山下町1番地 | =LEFT(B3,FIND(”県”,B3)) | =MID(B3,FIND("県",B3)+1,LEN(B3)) |
B | C | |
2 | 住所 | 都道府県名を削除 |
3 | 鹿児島県鹿児島市鴨池新町10番1号 | 鹿児島市鴨池新町10番1号 |
4 | 大阪府大阪市中央区大手前2丁目 | 大阪市中央区大手前2丁目 |
5 | 東京都新宿区西新宿2-8-1 | 新宿区西新宿2-8-1 |
6 | 宮崎県宮崎市橘通東二丁目10番1号 | 宮崎市橘通東二丁目10番1号 |
B | C | |
2 | 都府県名 | 右1文字を削除 |
3 | 東京都 | 東京 |
4 | 大阪府 | 大阪 |
5 | 鹿児島県 | 鹿児島 |
6 | 宮崎県 | 宮崎 |
Sub myPhone() Dim c As Range For Each c In Selection c.Offset(0, 1).Value = Application.GetPhonetic(c) Next c End Sub |
Sub myPhone2() Dim c As Range For Each c In Selection c.SetPhonetic Next c End Sub |
スポンサードリンク
PageViewCounter
Since2006/2/27