[[20201118101850]]　『小数点やマイナス表示はそのままで、１桁の数字を』（123）　ページの最後に飛ぶ

『小数点やマイナス表示はそのままで、１桁の数字を全角表示させたい』（123）

１　　日本　　　　1　　　1.0　　　1,000
　　　東京都１　　2　　　(▲１) 　　　1
　　　東京都２　　3　　　▲２　　　　2
　　　大阪府　　　4　　（▲20）　　　0
　　　北海道　　　5　　　▲30　　　　0

数字、小数点、金額、和文などが様々入っているファイルがあります。
入力者が複数いるため規則性はなく、Ａ列は数字など列ごとのルールもありません。
１桁の数字を全角にして、エクセルとテキスト（コピペ）で使用するのですが、セルの書式設定で文字列にすると小数点やカンマが消えてしまい、標準にすると、全角だった数字が半角になってしまいます。

リストを作って文字を置き換えるマクロを見つけたので、それを参考にＡ列：半角数字　Ｂ列：全角数字（１～０）のリストを作りました。
しかし、マクロを実行させると、和文中は全角になりますが、全角数字のみのセルは半角になってしまいます。
そしてたぶん、見えてないだけで、たぶん全部全角数字にするマクロになっているようなのです…和文中が全角だらけ(^^;

長くなりましたが、つまり小数点やマイナス表示などは入力データの状態のまま、１桁の数字をデータ上も見た目も全角にしたい！！です。

現在、数字のみのセルはフィルタで表示して、１桁の数字を１つ１つ表示形式を文字列にするという作業をしていますが、▲表示はマイナスになってしまったり、和文中は全角になった２桁以上の数字を半角にする作業もあり見落としも多くて辛いです。
作業効率があげたいのですが、表示形式などで、これらすべて網羅することはできるでしょうか？
マクロならできるのでしょうか？
他にも時短テクがあれば教えてくださいm(_ _"m)

＜使用 Excel：Excel2010、使用 OS：unknown ＞

 小数点やマイナスの表示は半角のまま数字のみ全角にするということですか
 それとも小数点もマイナス表示も全角で表示させるのでしょうか
（なるへそ） 2020/11/18(水) 11:24

お世話になります。
小数点やマイナス表示が半角で入力されている部分は半角、全角で入力されているところは全角です。
よろしくお願いいたしますm(_ _"m)
（123） 2020/11/18(水) 11:51

 作業列を作って良いなら下記でどうでしょうか
 =IF(RIGHT(JIS(TEXT(A6,"#,##0.###")),1)="．",JIS(TEXT(A6,"#,##0")),JIS(TEXT(A6,"#,##0.###")))
 但し小数点以下が.0等の様に0の表示の場合表示されません
 あとはマイナス表示を-か▲に統一するとして置換してから必要なところへコピペしては
 これくらいしか思いつきませんでしたすみません
（なるへそ） 2020/11/18(水) 13:36

すみませんＡ6などの参照個所は参照する場所に書き換えてください
（なるへそ） 2020/11/18(水) 13:38

 何度もすみません。全角の．（小数点）半角に置換ください
（なるへそ） 2020/11/18(水) 13:39

なるへそさん！ありがとうございます。

=IF(D4="","",IF(RIGHT(JIS(TEXT(D4,"#,##0.###")),1)=".",JIS(TEXT(D4,"#,##0")),JIS(TEXT(D4,"#,##0.###"))))で試してみました！

すみません。伝え方が悪かったみたいです<(_ _)>
・２桁以上も全角になってしまう
　（10以上の数字は半角）
・整数のところに小数点がつき、100→１００.となってしまう
　（整数は整数のまま）
・▲30が－30になってしまう
　（-30を表示変更していますが見た目どおり▲30としたい）

.0も.00も、見たまま残さなければならず、小数点以下が消えるのは厳しいです。
また、元データに結合された部分があり、値を貼り付ける作業がエラーになってしまうので、作業列をつくるのはできれば避けたいです(;´･ω･)
難しいですかね…すみません。何かの機会に使わせていただきます。
これぐらい、なんてそんなことないです！すごいです！！
考えていただきありがとうございました。
（123） 2020/11/18(水) 14:38

 一桁で表示されている数字のみ全角にするなら0～9までの10回置換してみては
 但し数字で一文字しか記入されていないという条件だが
 ホームタブ →　編集　→　置換のオプションでセル内容が・・・にチェックを入れ
 検索する文字列　0　の時　置換後の文字列 '０　で　1の時は'１という感じで10回
 1.0等の時は'１.0等　同一で条件を付ければ同じものは置換できます
 こんな感じでよければあとはこれをマクロに書くなど（私にはわかりませんが）
 外していたらすみません
（なるへそ） 2020/11/18(水) 15:11

なるへそさん！連絡が遅くなり申し訳ありません！！
アップデートしたらつながらなくなってしまいました(-_-;)

置換も考えたのですが、マイナス表記がどのような形式で入力されるか不明なため、断念しました。
見た目が　▲1　でもセル内は　▲1・-1・(1)　とか、
見た目が（-１）（▲1）で文字列というパターンもあり…
お時間いただきありがとうございました。説明不足ですみませんm(_ _"m)
（123） 2020/11/19(木) 10:16

コメント返信：

[ 一覧(最新更新順) ]

[[20201118101850]] 『小数点やマイナス表示はそのままで、１桁の数字を』（123） ページの最後に飛ぶ

[[20201118101850]]　『小数点やマイナス表示はそのままで、１桁の数字を』（123）　ページの最後に飛ぶ