エクセルですでに半角で入力されている数字を全角数字に一括変換する方法はありますか?

(1)住所録で半角入力されている番地等の数字のみをを全角に変換する方法
(2)電話番号など、全て数字で入力しているセルを一括で全角に変換する方法

A 回答 (2件)

両方とも「=JIS(文字列)」でできます。



参考:日経PC21 / 全角を半角に変換する
http://pc.nikkeibp.co.jp/pc21/tech/excel36/28/in …
    • good
    • 0
この回答へのお礼

NymphLuna様

早速回答を頂き、ありがとうございます!
出来ました!
本当にありがとうございました!!!

お礼日時:2007/12/21 19:37

一括ではありませんが(10回行う必要があります)



編集 → 置換 で半角の数字を全角の数字に置き換えては如何?

マクロも関数も書く必要がありませんのでファイルサイズが大きくなる事もありません。
    • good
    • 2
この回答へのお礼

Cupper様

ありがとうございます。
Cupper様から頂いた回答なら、関数を覚えなくてもできますね。
関数が苦手な私には簡単にできる方法で、助かりました。

お礼日時:2007/12/21 19:44

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QRGB値の3っつの数字に付く単位は?

 よろしくお願いします。
色を表現する方法の一つににRGB値がありますが、
例えば 255-100-20といった3つの数字の組み合わせですが、この数字にはどんな単位が付くのですか?
単位が無いことは無いと思うのですが、RGB値の個々の数字に単位が付いているのを見たことが有りません。省略しているのでしょうか?
 例えば先にあげたRGB値の255の後ろにはどんな単位が
付くのですか?
 ※ちなみRGBが光の三原色のことはわかります。
また数値が大きいほどそれに対応する色がその色に含まれている量が多い事になるのは知っております。

Aベストアンサー

再び失礼します。#1です。
補足します。

階調は、人が見たときの明るさが視覚的に概ね等間隔になるように刻んだものです。

何が言いたいかといいますと、

実際の明るさというか光の強度は等間隔でありません。

ですから、例えば、3階調と4階調との間の光量差と、200階調と201階調との間の光量差は、違います。(前者のほうが光量が小さいです。)
ということで、100階調と200階調では、人間が見た目の明るさでは2倍ぐらいになりますけども、光の実際の量は2倍どころではなく、もっと大きい差になります。

では、その刻みがどういう規則に則っているかというと、これがまた確固たる規則は規定されていなくて、例えば液晶ディスプレイですと、階調電源をいじることにより「ガンマ(γ)」という値を自在に変えられるようになっています。

以上、長くなりましたが
階調の値と言うのは物理量ではなくて、ある人間がある条件で決めた勝手な数値ということです。

Q半角→全角の一括変換

こんにちは。約1,000人分の住所録がありまして地名の後の番地が半角で入力されています。この番地部分を全角にしたいのですがスパッとまとめて出来るやり方をご存じないでしょうか?
『3-14-22』→『3-14-22』
30人分くらいセルごとにやってみましたがだめです。目が痛いです。
エクセル2002です。よろしくお願いします。

Aベストアンサー

JIS関数を使えば変換できます。下記参照ください。

参考URL:http://arena.nikkeibp.co.jp/tec/excel/20040310/107779/

Q数字だけを入れれば良かったのに単位まで入れてしまい、困っています。

本当は半角で数字だけを入れないといけないのに「1冊」「2頁」などのようにひとつのセルに数字と単位を一緒に入れてしまいました。これらを数字だけにできないでしょうか?「1冊」を「1」とする方法は無いでしょうか?しかも数字を半角で入れないといけないに全角で入れてしまいました。なんとか短時間で変換する方法がないでしょうか?今からやり直しても時間が間に合いそうに無いので、少しでも早くできる方法を教えて下さい。よろしくお願いいたします。

Aベストアンサー

Ctrl+Hで、検索する文字列に「冊」を入力し、置換後の文字列には何も入力せずに全置換すれば大丈夫だと思います。
試してみましたが、全角の数字も自動的に半角になってくれました。
但し、セルの書式は標準になっている必要があります。

Qエクセルで数字は全角、ハイフンは半角で入力したい

エクセルで住所録を作成しています。
○○丘1丁目2-3-45 の様に、「数字は全角、半ハイフン表示」を
いちいち変換せずに入力する方法を教えて下さい。
又、上記のような住所を早く入力する方法、設定があればあわせて教えて下さい。
よろしくお願いします。

Aベストアンサー

後で一括で置換、ではだめですか?

Q校閲お願いします。 長さ、重さの単位変換です 数字に誤りがないか確認してください お願いします 左

校閲お願いします。
長さ、重さの単位変換です
数字に誤りがないか確認してください
お願いします

左下は関係ありません

Aベストアンサー

重量で、「1分」が正式に単位として用いられていたかどうか知りませんが、1分 = 1/10 匁 とすると
 1分 = 0.375 g = 0.000378 kg
です。kg の数値が違っています。同様に
 1匁 = 3.75 g = 0.00378 kg

 尺貫法の「375 g 」の単位が何なのか読めませんが、あまり聞いたことがないような。

 あとは、目的が不明ですが、ヤードポンド法の重量「1ポンド」には
 1 lb = 453.59237 g = 0.45359237 kg
と kg を追加した方がよいと思います。

 それから、ヤードポンド法の ton は非常に紛らわしいので、何らかの「英トン」「米トン」「メートル法のトン」を区別する表記が必要かと思います。ここに書かれているのは「英トン」のようですが。
 「1 ship」と書かれているのが「米トン」のようですが、「ship」という単位表記は見たことがありません。

QExcel : 正規表現を利用して2文字の全角数字を半角数字に変換するには?

アクティブセルの文字を、正規表現を利用して文字の変換をしたいと考えています。
2文字の全角数字を半角数字に変換します。
かつ、3文字以上の全角数字は変換しません。

下記のようにコードを書いたのですが、希望通りに動作してくれません。
どこが悪いのでしょうか?
ご指摘いただければ幸いです。
よろしくお願いいたします。

※参照可能なライブラリファイルにて、「Microosft VBScript Regular Expressions 5.5」に
 チェックは入れています。


Sub sample()
  Dim str
  Dim strPattern As String
  Dim strReplacement As String
  
  str = ActiveCell.Value
  str = myRegExp(str, "([^0123456789])([0123456789]{2})([^0123456789])", "$1$2$3")
  ActiveCell.Value = str
End Sub

Private Function myRegExp(str, strPattern, strReplacement)
  Dim objRegExp As RegExp
  Dim test As String
  Set objRegExp = New RegExp

  With objRegExp
    .Pattern = strPattern
    .IgnoreCase = False
    .Global = True
    myRegExp = .Replace(str, "$1" & StrConv("$2", vbNarrow) & "$3")
  End With

  Set objRegExp = Nothing
End Function

アクティブセルの文字を、正規表現を利用して文字の変換をしたいと考えています。
2文字の全角数字を半角数字に変換します。
かつ、3文字以上の全角数字は変換しません。

下記のようにコードを書いたのですが、希望通りに動作してくれません。
どこが悪いのでしょうか?
ご指摘いただければ幸いです。
よろしくお願いいたします。

※参照可能なライブラリファイルにて、「Microosft VBScript Regular Expressions 5.5」に
 チェックは入れています。


Sub sample()
  Dim str
  Dim strPa...続きを読む

Aベストアンサー

こんばんは。

.Global =True にしてあるので、それをそのままにして作ってみました。

一応、CreateObject("VBScript.RegExp") で、オートメーション・オブジェクトを作っていますが、必要に応じて直してください。私は、$2 だけを取り出してみました。関数は、重複を避けるために、myRegExp2としました。

それから、myRegExp関数の strReplacement の引数は、生きていませんね。


Sub sample2()
  Dim str As String
  Dim strPattern As String
  str = ActiveCell.Value
  str = myRegExp2(str, "([^0-9])([0-9]{2})([^0-9])")
  ActiveCell.Value = str
End Sub

Private Function myRegExp2(str, strPattern)
 Dim Matches As Object 'MatchCollection
 Dim Match As Object 'as Match
 Dim buf As String
 Dim buf2 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
    buf = StrConv(.Replace(Match.Value, "$2"), vbNarrow)
    buf2 = Replace(buf2, Match.Value, .Replace(Match.Value, "$1" & buf & "$3"))
   Next
   myRegExp2 = buf2
   Set Matches = Nothing
  Else
   myRegExp2 = str
  End If
 End With

End Function
 

こんばんは。

.Global =True にしてあるので、それをそのままにして作ってみました。

一応、CreateObject("VBScript.RegExp") で、オートメーション・オブジェクトを作っていますが、必要に応じて直してください。私は、$2 だけを取り出してみました。関数は、重複を避けるために、myRegExp2としました。

それから、myRegExp関数の strReplacement の引数は、生きていませんね。


Sub sample2()
  Dim str As String
  Dim strPattern As String
  str = ActiveCell.Value
  str = myR...続きを読む

QExcelの数字とその単位のセルの連携移動について

「Excelのセルの数字の移動について教えてください」と下記の質問をさせて頂き、

Excel 2007のセルA1、B1、C1において、
(1)A1に数字が有ればB1に数字が有る無しに関係なく、C1にA1の数字が設定される。
(2)A1に数字がなくてB1に数字が有れば、C1にB1の数字が設定される。
(3)A1に数字がなくてB1にも数字がない場合は、C1は空欄とする。
ご存知の方はぜひ教えてください。
よろしくお願いいたします。

下記のご回答を頂き    ・・・           =IF(A1&B1="","",IF(A1="",B1,A1))
は「ベストアンサー」にさせて頂きましたが、
A1にはその単位X1が・・・B1にはその単位Y1があり、
C1にA1の数字が設定された場合はD1にX1が設定され、
C1にB1の数字が設定された場合はD1にY1が設定され
C1が空欄の場合はD1は空欄となる方法は如何でしょうか。
ご存知の方はぜひ教えてください。お待ちしております。よろしくお願いいたします。

Aベストアンサー

D1に以下の数式を入力してください。
=IF(OR(C1="",NOT(OR(C1=A1,C1=B1))),"",IF(C1=A1,X1,Y1))

Qエクセルで1つのセル内に半角、全角数字を入力する方法を教えてください。

エクセルで1つのセルに半角数字と全角数字の両方を入力したいのですができません。
入力方法を教えてください。例:12345

Aベストアンサー

セルの書式を文字列にするしかないのでは?

Q数字の単位を何万と表したいのですが。

同じ列にある数字を自動的に任意の単位で表したいのですが。
 例  11,000 20,000 125,000これらの数字がそれぞれ11万 2万 12.5万と表示させたいのですが、どうすれば良いのでしょうか?
すみませんが、どなたか教えて貰えないでしょうか。よろしくお願いします。 

Aベストアンサー

エクセルなら
=A1/10000 & "万"
でいいんじゃないですか?

Qエクセルのセル内に全角数字を入力したいのにエンターを押すと自動で半角になってしまいます。

お世話になっております。
エクセルのセルに「202」と全角で入力したいのですが、全角で入力してもエンターを押すと勝手に半角数字に切り替わってしまいます。
全角のまま入力する方法はありますか?
アドバイス宜しくお願い致します。

Aベストアンサー

単純に全角にしたいのなら
セルの書式設定→表示形式(分類<文字列>)

でなります。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報