
No.12ベストアンサー
- 回答日時:
教えて!goo を使っているのですが、今まで、gooからのメールが、ストップしていて
返事が遅れて、すみません。
>「全角」の「大文字」を「半角」の「大文字」にするのが目的なのです。
タイトルと本文の内容が、反対でしたね。
でも、全角の小文字(a、b、c)を変換対象外にするという意味ですか?
取り敢えず、「英数」全部を [全角]-->[半角大文字]に変換する場合です。
Sub 全角英数を半角大文字に変換()
Dim Rng As Range
Dim Wd As String
Dim ChgStr As String
Dim N As Integer
For Each Rng In Selection
ChgStr = vbNullString
Wd = Rng.Value
For N = 1 To Len(Wd)
If Asc(Mid(StrConv(Wd, vbNarrow), N, 1)) >= 48 And _
Asc(Mid(StrConv(Wd, vbNarrow), N, 1)) <= 122 Then
ChgStr = ChgStr & StrConv(Mid(Wd, N, 1), vbNarrow + vbUpperCase)
Else
ChgStr = ChgStr & Mid(Wd, N, 1)
End If
Next N
Rng.Value = ChgStr
Next Rng
End Sub
お礼が遅くなりすみません。
これでまたひとつ勉強になりました。
数度の質問にお答えくださり感謝してます。
ありがとうございました。
No.11
- 回答日時:
ごめんなさい。
ちょっと飲みながら書いたらクドくなっちゃったぁ~。「小文字」→「大文字」の追加は、12行目を
ChgStr = ChgStr & Mid(StrConv(Wd, vbWide + vbUpperCase), N, 1)
また、「大文字」→「小文字」は、12行目を次のように変更します。
ChgStr = ChgStr & Mid(StrConv(Wd, vbWide + vbLowerCase), N, 1)
この回答への補足
お世話になっております。
ANo.10の方法で「半角英数全角変換()」を
全角→半角にしようと「半角」と「全角」を
入れ替えたらなるのかな?と思って実行しましたが
案の定だめでした(笑)。
これで仕舞いにしますので、「全角」→「半角」
への方法を教えてください。
実は今エクセルで打った大量の
「全角」の「大文字」を「半角」の「大文字」
にするのが目的なのです。
(質問では全角でとありますが間違えました)
お手数かけますが、宜しくお願いします!!
No.10
- 回答日時:
> で、また欲張りにも教えていただきたいのですが(汗)
>「小文字」→「大文字」「大文字」→「小文字」
> にするのはどの部分にどういうコードを入力すればよいのでしょう?
この際ですから、お気軽にどうぞ・・・
「小文字」→「大文字」の追加は、次の通りです。
Sub 半角英数全角変換()
Dim Rng As Range
Dim Wd As String
Dim ChgStr As String
Dim N As Integer
For Each Rng In Selection
ChgStr = vbNullString
Wd = Rng.Value
For N = 1 To Len(Wd)
If Asc(Mid(StrConv(Wd, vbNarrow), N, 1)) >= 48 And _
Asc(Mid(StrConv(Wd, vbNarrow), N, 1)) <= 122 Then
ChgStr = ChgStr & StrConv(Mid(StrConv(Wd, vbWide), N, 1), vbUpperCase)
Else
ChgStr = ChgStr & Mid(Wd, N, 1)
End If
Next N
Rng.Value = ChgStr
Next Rng
End Sub
「大文字」→「小文字」は、12行目を次のように変更します。
ChgStr = ChgStr & StrConv(Mid(StrConv(Wd, vbWide), N, 1), vbLowerCase)
No.9
- 回答日時:
> コンパイルエラー:End Sub、・・・・・
> どうしたらよいのでしょうか。
余分なコードが入っていると思われますので、コードを一旦、全部消してから、
Sub 半角英数全角変換() から End Sub の19行をコピペして実行してみてください。
コードウィンドウを大きくして、貼り付けてください。
貼り付けたとき、赤い文字があればダメですよ。
開いたときすでに入力されているコードが
いけなかったのですね。
それらを消して改めてコード入力しましたら、
正常にできました。補足ありがとうございます。
で、また欲張りにも教えていただきたいので
すが(汗)、
「小文字」→「大文字」
「大文字」→「小文字」
にするのはどの部分にどういうコードを
入力すればよいのでしょう?
ついでといってはナンですが、
教えていただければ幸いです。
No.8
- 回答日時:
#6です。
>ところで質問ついでなのですが、小文字→大文字に
することきもこの公式でよいと思いますが(JIS)
の代わりに何を入力すればよいのでしょうか?
それぞれの変換は以下の関数を使います。
カッコ内は引数で、参考にA1をいれてあります。
大文字→小文字 =LOWER(A1)
小文字→大文字 =UPPER(A1)
先頭文字のみ大文字 =PROPER(A1)
全角→半角 =JIS(A1)
半角→全角 =ASC(A1)
文字(数値)→数字 =VALUE(A1)
No.7
- 回答日時:
> 半角英数字を全角に「自動」で「一括変換」することは可能でしょうか??
記号は、除くのですね。
VBAですが、次の手順で操作してみてください。
・変換するセル範囲を選択します。
・そのシートのシート名タブを右クリックして「コードの表示」を指定します。
・開いたコードウィンドウに下記コードをコピーして貼り付けます。
・貼り付けたコードの何処かにカーソルがある状態で、[実行]-->[Sub/ユーザーフォームの実行]を
クリックします。
・先程貼り付けたコードを全部消去します。
・Alt+ Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
これで、一気に半角英数字を全角に変換されると思います。
・記号とカナは、変換しません。
・数字だけのセルは、書式が文字列でないと、全角になりません。これも全角にする場合は、
先に書式を「文字列」にしてから、実行してください。
Sub 半角英数全角変換()
Dim Rng As Range
Dim Wd As String
Dim ChgStr As String
Dim N As Integer
For Each Rng In Selection
ChgStr = vbNullString
Wd = Rng.Value
For N = 1 To Len(Wd)
If Asc(Mid(StrConv(Wd, vbNarrow), N, 1)) >= 48 And _
Asc(Mid(StrConv(Wd, vbNarrow), N, 1)) <= 122 Then
ChgStr = ChgStr & Mid(StrConv(Wd, vbWide), N, 1)
Else
ChgStr = ChgStr & Mid(Wd, N, 1)
End If
Next N
Rng.Value = ChgStr
Next Rng
End Sub
この回答への補足
今挑戦してます。
「Private Sub…」
と「End Sub」との間にカーソルがあるので上記の
コードを貼り付けました。
そして「実行」したのですが、
「コンパイルエラー:End Sub、End FunctionまたはEnd Property以降には、コメントのみが記述できます」
とでます。
また「Sub 半角英数全角変換()」の部分だけ
矢印が指され、黄色でマーカーがひかれています。
どうしたらよいのでしょうか。
No.6
- 回答日時:
#4です。
>(2)をやると「#BEF!」とエラーがでます…。
ただしくは#REF!(レファレンスエラー)です。
これは、参照先がないときに出るエラーです。
原因は、値貼り付けをしなかったからです。
ここでは、それ以上の説明をいたしませんが、貼り付けの際、そのまま貼り付けを実行しませんでしたか。
ここで行うのは値貼り付けです。
B1をコピーした後、A1を選択した状態で、メニューから、編集/形式を選んで貼り付け、から○値(V)をクリックします。
すると、A1には式でなく値が貼り付きます。
「値」でコピペするのを見逃していまいした。
できました。ありがとうございました。
ところで質問ついでなのですが、小文字→大文字に
することきもこの公式でよいと思いますが(JIS)
の代わりに何を入力すればよいのでしょうか?
No.4
- 回答日時:
#2です。
一括変換とは、もとのセル(半角)を全角に変換すると言う意味ですよね。
本格にそれを実行するにはマクロの手を使わないとできませんが、簡易的(半自動的)という意味では、#2の回答です。
具体的には、A1に変換したい英数字がある場合、
(1)B1(作業用)に=JIS(A1)を入力
(2)B1をコピーして、元のセルA1に値貼り付ける。
(3)完了後、作業用に使ったA2は削除する
という手順です。
この回答への補足
>簡易的(半自動的)
今回の場合はそれでもよいのです。
テスト用にあらしいシートを用意して
やってみたのですが、
(1)B1(作業用)に=JIS(A1)を入力
まではできたのですが、
(2)をやると「#BEF!」とエラーがでます…。
No.3
- 回答日時:
自動で一括変換となると、VBAを組む必要があります。
関数で変換できるのでセルを複写するなりの工夫で変換してはいかがでしょう。
=JIS(セル値)
セル値・・・A1とか
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) Excel 365 フリーズ 頻発 エクセルのセルの中に日本語の文章を全角半角和文英文数字を混ぜて入 3 2022/12/12 15:09
- デスクトップパソコン 40年間の悩み キーボードにおいて初期値として漢字ローマ字変換に設定する方法 8 2023/05/08 14:50
- Excel(エクセル) エクセルでのデータの統一に関して リストを作成する際、元データをコピペでリストに転記しており、元デー 2 2022/08/31 15:33
- マウス・キーボード 何故、ローマ字や英語を全角で打つ? 5 2022/05/15 09:36
- Mac OS Macにおける全角・半角の切り替え(自動のそれの停止) 2 2022/09/13 16:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カタカナを小文字から大文字に...
-
半角カタカナがVBAだと全角...
-
ハイパーリンクの中の半角カタ...
-
文字を打つときに文字に下線が...
-
ァ→ア (アクセス)
-
ATOKの入力がおかしくなること...
-
VBAでUPPER関数を使用したい。
-
日本語入力On/Offを音などで知...
-
select case 大文字小文字を...
-
漢字変換が異常に遅いPC
-
「トゥ」をローマ字で打ちたい...
-
小さい「ウ」ってキーボードで...
-
「”」と対になる「チョンチョン...
-
ローマ字入力のキーボードで最...
-
shifキーを押しながらの半角英...
-
=を縦にした キーボードの入力...
-
PCで大文字と小文字が逆になり...
-
ウィンドウズパソコンを立ち上...
-
どうでもいいような質問ですい...
-
プラス(足す)キーはどうやっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カタカナを小文字から大文字に...
-
ハイパーリンクの中の半角カタ...
-
半角カタカナがVBAだと全角...
-
ATOKの入力がおかしくなること...
-
文字を打つときに文字に下線が...
-
ァ→ア (アクセス)
-
EXCEL 「ASC」関数 ...
-
ATOK ローマ字入力モードに一発...
-
select case 大文字小文字を...
-
特定の文字列を検索し、HITした...
-
スカイプでひらがな入力が使え...
-
全角と半角のA、Aそれぞれ大文...
-
日本語入力On/Offを音などで知...
-
ピボットテーブルでワイルドカード
-
Enterキー左横上のキーの小さい...
-
エクセルでひらがな全角~カナ...
-
Google日本語入力でカタカナを...
-
[半角/全角 漢字]キーを押さず...
-
PS3 キーボード 「かな入力」 ...
-
Photoshopでローマ字が打てなく...
おすすめ情報