トップ | ログイン
カタカナをひらがなに
2008年 12月 08日
ひらがなをカタカナにしたいとのこと。

Excelのふりがなの機能を使って、隣のセルにPHONETIC関数を使って表記してあるのなら、簡単にできると思ったのですが、そうではなかったようです。
↓のページの最後のほうに書いていますが、ふりがなの設定では変更できませんでした。
関数を使って表記されているわけではありませんでした。
ふりがなを別のセルに表示したい

こういうときVBAの出番です。
↓は職場の男の子がささっと作ってくれました。さすがです!!

カタカナ表記の隣の列にひらがな表記を一気に表示することができました。
a0030830_2235308.gif

                ↓
a0030830_2236076.gif

============================================
Sub かな変換()

Dim i As Long
Dim EndRow As Long
Dim kanaValue As String

'B列の最終行番号を取得
EndRow = ActiveSheet.Range("B65536").End(xlUp).Row

'最終行まで繰り返し
For i = 2 To EndRow
'B列の文字列を取得
kanaValue = Cells(i, 2)
'ひらがなに変換した内容をC列に入力(32がひらがな変換コード)
Cells(i, 3).Value = StrConv(kanaValue, 32)
Next

End Sub
============================================

StrConv 関数をヘルプで調べてみると、ふむふむ・・・・
a0030830_223527.gif

by hama_y | 2008-12-08 09:05 | Excel |▲TOPへ

<< セルの選択ができない プレフィックス表示 >>


パソコンのお役立ち機能を一緒に学びませんか?[初心者のためのOffice講座 hamachan.info]のサポートブログです。
by はま
サイト内検索
リンク
PROFILE
問い合わせ
プライバシーポリシー
初心者のためのOffice講座
はじめてのMac

[アフィリエイトやるなら]
カンファレンスバナー
[MVP]

Microsoft MVP for Word
(2016.1-2017.12)
Microsoft MVP for Office System
(2009.1-2015.12)

Google+
外部リンク
記事ランキング
最新の記事
フォームのテキストボックスを..
at 2017-03-20 17:29
Windows10でタスクバ..
at 2017-03-11 19:06
メールリンクをクリックしてG..
at 2017-03-07 19:30
Wordの裁ちトンボの印刷は..
at 2017-03-05 14:28
重要なファイルは拡張子を変え..
at 2017-02-23 23:32
カテゴリ
全体
Windows
IME
Office共通
Word
Excel
PowerPoint
Access
Outlook
Internet Explorer
Outlook Express
ホームページビルダー
ATOK
一太郎
筆まめ
筆王
筆ぐるめ
PhotoshopElements
ネットワーク
PCインストラクター
ああ~お客様
(@_@)
iPhone
SharePoint
未分類
以前の記事
2017年 03月
2017年 02月
2017年 01月
more...
検索