- ベストアンサー
ExcelのVBAでカタカナをチェックしたい
noname#4564の回答
> あるセルの値が半角カタカナであった場合 ASCIIコードで、0xA1 ～ 0xDF（161 ～ 223）の範囲なら半角カナです。 > 半角カタカナ→全角カタカナに自動修正させたい StrConv(Arg, vbWide) で可能です。
関連するQ&A
- Excel。英数字カタカナ混ぜこぜのセルで、カタカナのみ全角にする方法は？
とっても基本的なことで困ってます。 Excelの1つのセルの中に、英数字カタカナがごちゃ混ぜのデータが入っています。英数字は全角の場合もあれば半角の場合もありです。片仮名もしかり。 そのデータを、英数字のみ半角にし、カタカナは全角に修正したいんです。 間違ってASC関数を使ったら、カタカナまで半角になっちゃった・・・・。 本日午後一のミーティングにそろえなきゃいけない資料なんです！ 誰かーーー！ 助けてーーーー！！
- ベストアンサー
- Windows 95・98
- Excel：全角カタカナを入力時に自動的に半角カタカナにしたい
恐れ入ります。 Excel2007にて全角カタカナをASC関数などで半角カタカナに修正をしているのですが、列がふたつできてしまうため少し面倒です。 （元の全角の列、半角になおした列） 入力時に設定をしてしまうことは可能でしょうか。 入力の際に、カタカナが自動的に半角になるようにできれば とてもたすかります。 ご存じの方、どうぞよろしくお願い致します。
- 締切済み
- オフィス系ソフト
- ExcelのVBAで・・・
VBA初心者です。。 Excelのある列のセルの値が全角文字の場合に、 隣の列に全角カタカナに変換した値を転送するVBAがあります。 変換元の列の中に空白セルがあった時は変換先のセルに 文字があっても空白に置き換えたいのですが、方法がわかりません・・・。 使用しているVBAの内容は下の通りですが、どういう風に 修正すれば実現できるかアドバイスを頂けないでしょうか？ よろしくお願い致します！ Dim C As Range For Each C In Range("E3", Range("E65536").End(xlUp)) If C.Value <> "" Then _ C.Offset(, 1).Value = Application.GetPhonetic(C.Value) Next
- 締切済み
- その他（プログラミング・開発）
- エクセル VBA 入力内容チェック
エクセルVBAの初心者（昨日から勉強）です。 以下のVBAを作りたいです。 C１からH12までの範囲に半角“-”が入力されています。 しかし、入力ミスで全角“－”が入力される場合が多発していますので、 C1からH12までの範囲内で、全角“－”が入力されたら、エラーを出すチェックツールを作りたいです。 何か知恵をお借りいただけますでしょうか？ 宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- 全角カタカナを半角カタカナへ
エクセルを使っています。 セルの中の全角カタカナの部分だけを半角カタカナへ 変えるにはどのようにしたらよいでしょうか。 例えば ”アイウエオ 青空 ” → ”アイウエオ 青空 " 複数のセルを上記のようにしたいので宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel カタカナと英数字の混在セルでカタカナのみ全角にする
同じセルの中に、半角カタカナと英数字が混在しています。 カタカナのみ全角にし、英数字は半角の設定のままにする関数を教えてください。 アイウエABCショウジ（半角カタカナ+半角英数字） ⇒ アイウエABCショウジ（全角カタカナ+半角英数字）
- ベストアンサー
- オフィス系ソフト
- Excelでカタカナや英数字の変換
１つのセルの中に【漢字】と【全角カタカナ】と【全角英数字】が入力してあります。この【全角カタカナ】と【全角英数字】を、「範囲選択後Ｆ10キー」等ではなく簡単に手際よく半角に変換する方法はありますか？
- ベストアンサー
- オフィス系ソフト
- エクセルで入力文字のチェック
エクセルのセルに入力された値がUnicodeで****から****までの範囲内のみの文字で記述されているかのチェックをしたいのですが、 例：B3には電話番号を入力したいので半角数字と()のみで構成されているかをチェックする。 ＶＢＡでどのように記述すればよいのでしょうか？ もう一つ、 セルB3に文字を入力し終えた時または、B3にあるカーソルを他のセルに動かした時に ＶＢＡが走る…と言う記述方法はあるのでしょうか？ ボタンを用意し、入力後[CHECK]を押すとＶＢＡが動くと言うのは出来るのですが… 以上よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで英数字を半角にするマクロ
すでにデータが入力されたエクセルで、全角の英数字を半角にするマクロを探しています。 条件があり、なかなか合う物がなく、質問させて頂きました。 条件は ・アルファベット→半角 ・数字→半角 ・カタカナ→全角 ・伸ばし棒（例えば「データ」の「ー」）→全角 ・同一セルに上書きで変換 下の2点はできたら半角になると嬉しいです。 ・ナカグロ→半角 ・＜＞→半角 よろしくお願い致します。
- ベストアンサー
- Excel（エクセル）
補足
ご回答ありがとうございます。 以下のように記述してみたのですがうまくいきません。 If SheetName.Cells(1, 2).Value >= &H161 Then If SheetName.Cells(1, 2).Value >= &H223 Then msgRC = MsgBox(ErrMsg, vbOKOnly) End If End If どんくさい記述で・・・すみません。 もしよろしければ、具体的なコーディング例を教えていただけませんでしょうか？ あと、全角カタカナの場合のコードの範囲も教えてください。 すみませんが・・・よろしくお願いいたします。