VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/08/16(Fri) 17:24
投稿者： おみし
Ｅメール： smsinsin@yahoo.co.jp
ＵＲＬ：
タイトル： エクセルを利用してフリガナを取得について

初めまして、こんにちは。
いろいろお世話になっています、おみし　と申します。

「Excel & Word 関係」のサンプルに、
「エクセルを利用してフリガナを取得」というのがありますが、
以下のコードで同じ事が出来ます。

Private Sub Text1_Change()
    Text2.Text = ""
End Sub

Private Sub Text1_LostFocus()
    If Text1.Text <> "" Then
        Text2.Text = CreateObject("Excel.Application").GetPhonetic(Text1.Text)
        Text2.Text = StrConv(Text2.Text, vbHiragana)
    Else
        Text2.Text = ""
    End If
End Sub

基本的にやっていることは同じ事なんですけどね。

私のとこの動作環境は、Win98SE、VB6＋SP5、EXCEL2000です。
Excel Object の参照設定はもちろん必要です。

ご参考まで。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -