No.5ベストアンサー
- 回答日時:
問題は解決済みと思いますが、数字のみ全角→半角にするマクロです。
ご参考まで。Sub MacroR()
Dim idx As Integer, trg As Range
Set trg = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
For idx = 0 To 9
trg.Replace What:=Right(StrConv(str(idx), vbWide), 1), _
Replacement:=Right(str(idx), 1)
Next
End Sub
マクロはALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はALT+F8を押して、マクロ名を選択します。
ご回答ありがとうございます!
表の修正にはまだ手をつけておりませんでしたので、
早速試してみました。
“マクロアレルギー”で、パッと見ただけで一瞬くらくらしてひるんでしまいましたが、
ご説明のとおりに冷静にひとつずつ作業していったら、
無事、「数字のみを半角にする」という課題が解決しました!
すごいですね~~!!
おぉ~~~~みるみるうちに変換されていくでわありませんかっ!!
カンドーしましたっ!!!(涙)
エクセルっておもしろいですね。もっと勉強したいと思いました。
ホントにホントに、ありがとうございました。
No.4
- 回答日時:
こんばんは。
お聞きになる前に、ここのカテゴリを検索しても良かったと思います。
同じような質問は、何度もありますね。いろんな人が回答しています。
以下の私の場合は、以下のようなものがあります。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2301108
(http://okwave.jp/kotaeru.php3?q=2301108)
SpecialCells で、セルを取得すればよいと思いますが、少し手直ししました。あまりきちんと調べてはいませんが、大丈夫のような気がします。
'標準モジュール
Sub HenkanMcr()
Dim r As Range
Dim c As Range
Const MPATTERN As String = "([0-9]+)[^0-9]*"
On Error Resume Next
Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not r Is Nothing Then
For Each c In r.Cells
If StrConv(c.Value, vbNarrow) Like "*#*" Then
c.Value = myRegExp2(c.Value, MPATTERN)
End If
Next c
End If
Set r = Nothing
End Sub
Private Function myRegExp2(str As Variant, STRPATTERN As String)
Dim Matches As Object 'MatchCollection
Dim Match As Object 'as Match
Dim buf As String
Dim buf2 As String
Dim rep As String
With CreateObject("VBScript.RegExp")
.Pattern = STRPATTERN
.IgnoreCase = False
.Global = True
If .test(str) Then
Set Matches = .Execute(str)
buf2 = str
For Each Match In Matches
rep = .Replace(Match.Value, "$1")
buf = StrConv(rep, vbNarrow)
buf2 = Replace(buf2, rep, buf)
Next
myRegExp2 = buf2
Set Matches = Nothing
Else
myRegExp2 = str
End If
End With
End Function
ご回答ありがとうございます!
せっかく詳細なお答えをいただいたのにもかかわらず、
私の知識ではよく理解することができませんでした。。
ごめんなさい。もっと勉強します。
No.3
- 回答日時:
有料ですが下記のサイトのアドインを使うのが便利ですね。
仕事を加速する!Excel魔法のボタンコレクション」1,580円
http://www.freeformat.co.jp/AddInIndex.htm
へぇ~こんなのがあるんですね。
大変興味深いです。
まず、「仕事を加速する!」というキャッチコピーにやられました(笑)。かなりそそられますね!
使ったことありますか?大活躍ですか?
どれくらいエクセルやる人が使った方がいいのでしょう??
最近、データ入力・グラフ作成など、エクセルを使う機会が多くなってきましたので、
やっとエクセルのことを勉強し始めたしだいです。
と、言っても「こんなことできないだろうか」という疑問が生じたときに、調べてやってみるというようなカンジですが。
私が知らないだけで、世の中にはいろいろ便利なものがあるんだろうに、なかなか手を出せずじまいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- その他(Microsoft Office) 英数字のみ全角から半角に変換 4 2023/07/28 14:48
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
【関数】先頭だけにある、半角...
-
関数を使わずに一括で全角を半...
-
半角の×(かける)は?
-
半角の『°(単位の度)』
-
ギリシャ文字 μの出し方
-
メールアドレスの上ハイフン入...
-
【VBA】ファイルパスに半角スペ...
-
ビジネスの文書における、数字...
-
エクセル関数で文字列の中のス...
-
契約書や 公文書・私文書などに...
-
EXCEL95 VLOOKUP関数で半角と全角
-
1, (1),(1)の使い分け
-
半角英数で♭の入力
-
ワードへの差し込みで数字一桁...
-
半角スペース
-
EXCELの文字列操作で文字数不足...
-
ヘッダー(フッター)の全角・...
-
℃の半角表示
-
Excel2016 検索の窓を常時表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
半角の『°(単位の度)』
-
メールアドレスの上ハイフン入...
-
半角スペース
-
契約書や 公文書・私文書などに...
-
半角の×(かける)は?
-
EXCELの文字列操作で文字数不足...
-
関数を使わずに一括で全角を半...
-
EXCEL95 VLOOKUP関数で半角と全角
-
℃の半角表示
-
Excel2016 検索の窓を常時表示...
-
EXCELで、セル内の半角カ...
-
エクセル関数で文字列の中のス...
-
半角の漢字の入力方法
-
ビジネスの文書における、数字...
-
エクセルで、JIS関数、ASC関数...
-
【VBA】ファイルパスに半角スペ...
-
Excel 文字列の中から数字だけ...
-
エクセルでひらがな・漢字はそ...
-
お名前(姓)」には「カタカナ(...
おすすめ情報