No.9ベストアンサー
- 回答日時:
#2,3,5です。
imogasiさんにつられて、ついつい一文字ずつの処理にしてしまいましたが、
taisuke555さんのご指摘のとおり、文字列をそのまま渡しても問題ないですね。
まとめるとこういう感じになりますかね。
Option Explicit
Function fxStrConv(strText As String) As String
strText = StrConv(strText, vbKatakana)
fxStrConv = strText
End Function
No.10
- 回答日時:
#2,3,5,9です。
たびたびすいません。
また誤回答してしまいました。
すいません。
カタカナ→ひらがなであれば、
vbKatakanaではなくてvbHiraganaですね。
訂正します。
No.7
- 回答日時:
#6のご指摘に対し、
複数文字の中の漢字と(私の場合は)ひらがなをより分けるために1文字ずつ判別しましたが、漢字+ひらがなの文字列の中のひらがなだけをカタカナに直してくれるようであれば、結構なことです。
Sub test01()
For i = 1 To 3
Cells(i, "B") = StrConv(Cells(i, "A"), 16)
Next i
End Sub
で少数例のテストですが、うまく行くようです。
こちらの方が簡単ですね。ありがとうございました。
No.6
- 回答日時:
imogasiさん、happypointさんへ
Strconvは1文字ずつ変換しなくても良いと思いましたが、
その辺どうでしょうか?
私も考えてみたのですが、VBAしか思いつかず、
突っ込みのみですみません。
ありがとうございます。
私もAccessで使う場合は、1文字ずつの変換やVBAを使わず、更新クエリーで、strConv([フィールド名],vbHiragana)で指定して、ひらがなに変更していましたので、文字列でもいいような気がします。
それに、strConv関数の場合、変換できないものは(漢字とか最初からひらがな)、そのままだった気がしますが。
とっても便利な関数だなと思っていましたので、Excelでもワークシート関数に入れてほしいものです。
No.5
- 回答日時:
#2,3です。
どうせやるなら、ユーザー関数で、というわけで。
VBAを使用しております。
セルに
=fxStrConv(B1)
これはB1をひらがなに変換した文字列を返す関数になります。
Option Explicit
Function fxStrConv(strText As String) As String
Dim i As Long
Dim strResult As String
For i = 1 To Len(strText)
strResult = strResult & StrConv(Mid(strText, i, 1), 32)
Next i
fxStrConv = strResult
End Function
ありがとうございます。
私はstrConv関数の引数をvbKatakanaで指定していましたが、32のことみたいですね。勉強になりました。
No.4
- 回答日時:
セル単位でひらがな文字をカタカナに変換します。
漢字交じり分もOK。
ひらがな文の入っているセルの対応行の、C列に
出していますが、"h"とすれば、H列にセットします。
変換したいセルを範囲指定して、その後実行してください。
結果としてエクセル2000VBAでもStrConvは使えました。
StrConvの第二引数の「16」を色々変えると、他の変換パターンの変換が可能です。
Sub test03()
Dim cl As Range
For Each cl In Selection
s = ""
For i = 1 To Len(cl)
s = s & StrConv(Mid(cl, i, 1), 16)
Next i
Cells(cl.Row, "C") = s
n = n + 1
Next
End Sub
ありがとうございます。
strConv関数はExcelでも使えたのですか。
ワークシート関数になかっただけなんですね。
もし、AccessのstrConv関数と同じなら、taisuke555さんのいう通り、文字列でも変換可能だと思います。
ExcelのVBAはよくわからないところがありますので、上のプログラムを参考に勉強してみます。
No.2
- 回答日時:
こんばんわ。
変換する文字が一文字ずつセルに入っているなら
=CHAR(CODE(A1)+256)
でA1に入ったひらがなをカタカナに変換できます。
セルに複数のひらがなが入っている場合に、
セル単位で変換する関数は知りません。
VBAを駆使したユーザー関数の出番です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
名前(平仮名)を数字に変換する...
-
パソコンでダウンロードしたmp4...
-
フォルダ名を並び替えても必ず...
-
Aの逆さの記号の出し方
-
「第3者」という書き方
-
直径を表す記号はどうすれば出...
-
ミ の反対見たいな記号の名前は?
-
Unicodeの文字がどれか、調べた...
-
変換しようとしても字候補に上...
-
URLに〔 & 〕の文字が含まれ...
-
Sが2個ついた記号を使いたい
-
カレンダーファイルのicsをCSV...
-
出てこない漢字
-
記号の読み方
-
カシオのネームランドの使用方...
-
東西線『葛西駅』の『葛』の漢...
-
同音異義語の反対って...?
-
金(かねへん?)に利で読みは...
-
UTF-8からShift-JISへの文字コ...
-
「嶌」という字はなんと打てば...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンでダウンロードしたmp4...
-
名前(平仮名)を数字に変換する...
-
フォルダ名を並び替えても必ず...
-
ミ の反対見たいな記号の名前は?
-
Aの逆さの記号の出し方
-
「載いた」ってどう読むんですか?
-
直径を表す記号はどうすれば出...
-
「第3者」という書き方
-
Sが2個ついた記号を使いたい
-
Unicodeの文字がどれか、調べた...
-
同音異義語の反対って...?
-
<>の記号の二重の記号をだしたい
-
出てこない漢字
-
カシオのネームランドの使用方...
-
WAVデータを音楽用CDプレ...
-
カレンダーファイルのicsをCSV...
-
「史=あや」「彩=さ」は当て...
-
変換しようとしても字候補に上...
-
UTF-8からShift-JISへの文字コ...
-
金(かねへん?)に利で読みは...
おすすめ情報