- ベストアンサー
エクセルで半角を全角に変えるマクロは?
ワークシート関数の JIS のようにVBAで「半角英数かな」を「全角英数かな」に変換するにはどのように書けばいいでしょうか? たとえば、Dialogsheets("Dialog1")の Editboxes("ABC")に入力された半角文字をWorksheets("AAA")のセルA1に全角で出す場合です。 変換せずそのままなら Sub test() Sheets("AAA").Range("A1") = DialogSheets("Dialog1").EditBoxes("ABC").Text End Sub だというのはわかりますが。
- otasukey
- お礼率77% (105/136)
- オフィス系ソフト
- 回答数3
- ありがとう数2
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
あ、すみません。 JISは VBAで使用できない関数でした。 Sub test() Sheets("Panf").Range("F14") = StrConv(DialogSheets("見積").EditBoxes("名前").Text, VbStrConv.vbWide) End Sub とすればいいでしょう。 End Sub
その他の回答 (2)
- taknt
- ベストアンサー率19% (1556/7783)
VBAでも ワークシート関数は 使えますよ。
補足
ありがとうございます。URLを見てさっそく以下のように直しましたがだめでした。どこがわるいのでしょうか? Sub test() Sheets("Panf").Range("F14") = Application.WorksheetFunction.JIS(DialogSheets("見積").EditBoxes("名前").Text) End Sub
関連するQ&A
- Excelで半角カナのみを全角に変換したい
EXCELで、半角カナのみを全角に変換する方法はありますか? JISという関数がありますが、これは英数まで全角に変換されてしまいます。
- ベストアンサー
- オフィス系ソフト
- カタカナのみを半角から全角に変換したいのですが
VBAについて教えてください。 文字をHPにアップできるように、カタカナのみを半角から全角に変換したいのですが 何か良い方法はありますか? 文字は英字・ひらがな・カタカナ・漢字がランダムに入っています。 例えば Sub test() Dim a As String a = "aaaアアア<>BBB" End Sub の状態で。「アアア」のみを全角にするにはどうすればいいでしょうか? アルファベットは半角のままにしたいです。
- ベストアンサー
- オフィス系ソフト
- エクセル:半角カナを全角に、半角英数はそのままに。
エクセル:半角カナを全角に、半角英数はそのままに。 ひらがな・漢字・半角カナ・半角英数が混じったセルが縦に沢山あります。 半角カナだけを全角にし、半角英数はそのままにしたいのですが、JISでは全て全角になってしまいます。 どなたか良い関数を教えてください。
- ベストアンサー
- オフィス系ソフト
- IFステートメントで半角でも全角でもtrueとさせ
IFステートメントで半角でも全角でもtrueとさせるには? Sub test1() Dim str As String str = "ABC"’←全角のA If str Like "*A*" Then ’←半角のA MsgBox "Aがあります" End If End Sub これで、半角Aもメッセージを表示させたいのですが、 マッチバイトみたいなのってありますか?
- ベストアンサー
- オフィス系ソフト
- 半角・全角の変換できない
キーボードの左上の「全角・半角変換」キーを押しても、A(直接入力) か 下線とA(半角英数)が交互に変わるだけです。以前のようにタスクバーに「あ」になりません。 タスクバーの「A]をクリックいしてプルダウンメニューの選択でひらがなに転換はできます。 「全角・半角変換」キーを押してひらがな(全角)、英数字(半角)を切り替えるにはどうしたらよいか教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでIME入力モードの制御
エクセルVBAでIME入力モードの制御について教えてください。 Sub IMEの現在の状態() 状態 = IMEStatus() MsgBox 状態 & "です", vbInformation, "IMEの現在の状態" End Sub これでIMEStatus関数の戻り値が 1 オンの状態 2 オフの状態 4 全角ひらがな入力モード 5 全角カタカナ入力モード 6 半角カタカナ入力モード 7 全角英数入力モード 8 半角英数入力モード であることがわかりましたが、逆にIMEの状態を設定するにはどのように記述すればいいのでしょうか? たとえば、Sheets("AAA").Range("B1:B20")は「半角英数入力モード」にする場合。 DialogSheets("GGG")のダイアローグを呼び出したとき、その中のEditboxes("HHH")には「全角ひらがな入力モード」。 などです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ エラー
Sub 保存() Dim MySheetName As Variant MySheetName = InputBox("シート名を入力してください") If MySheetName = "" Then Exit Sub Sheets("1").Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = MySheetName Sheets("原本").Range("A1:K73").Copy Sheets("1原本").Range("A1") End Sub シートにグラフを乗せたらエラーが出たのですが 解除できないでしょうか?
- ベストアンサー
- Excel(エクセル)
- マクロで半角を全角に
お世話になっています。 VBの中で Application.WorksheetFunction.Asc(対象)・・・・A で全角を半角にできますが、その逆のJisが使えません。 エクセル関数のJisにあたる関数を教えて下さい。 また、Aをもっと簡単に表現できるんでしょうか? マクロは超がつく位初心者ですのでよろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- 全角、半角切り替えで??
全角、半角の切り替えで不明点がでました。 ご存知の方は教えてください。 ややこしくてスミマセン。 条件はwindows-XPのIME2002 standard v8.1 です。 ・言語バーに「あ」がでた状態で、[英数]キーを 押すと全角「A」になる。ここで「ひらがな」 キーと「英数キーで「あ」と全角「A」が切り変え が自由に出来る。また、「半角キー」で半角英数? 「A」も切り替えられる。 ・しかし、これらやっていて、「_A」がでると、 もうそれからは全角「A」に戻らない。 ・全角「A」や「あ」の場所をマウスでクリック して確認すると、「A」では「直接入力」に、 「_A」では「半角英数」なっている。 これってどうなっているのでしょか? 「A」と「_A」の違いは何でしょうか??
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。 うまくいきました! たすかりました!!