痔になりやすい生活習慣とは?

初めまして。
エクセルで住所録があるのですがそれを封筒に縦印刷しようとしたのですが
住所の数字の部分が22とかだと縦に2が二つでてきて非常に見にくいので横並びの22にするか漢数字の22にするかしかないと思うのですが漢数字にする関数を使おうとしたところ文字が入ってるとダメみたいでうまく生きません。
どうすればイイでしょうか?
良い方法があれば教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

下記のような変換例でよければ、短いVBAで一発変換できるが。



A列   B列(変換結果)
新宿区大京町2-2-23新宿区大京町二‐二‐二三
新宿区大京町2-32-241新宿区大京町二‐三二‐二四一
新宿区大京町2-234新宿区大京町二‐二三四
新宿区大京町2-2 301新宿区大京町二‐二 三〇一
新宿区大京町12-227 F234新宿区大京町一二‐二二七 F二三四
新宿区大京町3-233-28新宿区大京町三‐二三三‐二八
新宿区大京町223新宿区大京町二二三
新宿区大京町8-2 暁マンション1-301新宿区大京町八‐二 暁マンション一‐三〇一
ーーー
標準モジュールに
Sub test01()
n = "1234567890-"
s = "一二三四五六七八九〇‐"
For i = 1 To 10
x = Cells(i, "A")
For j = 1 To Len(x)
p = InStr(n, Mid(x, j, 1))
If p > 0 Then
x = Mid(x, 1, j - 1) & Mid(s, p, 1) & Right(x, Len(x) - j)
End If
Next j
Cells(i, "B") = x
Next i
End Sub
ーー
半角ハイフンについては
上記のコード
s = "一二三四五六七八九〇‐"

s = "一二三四五六七八九〇ノ"
にすれば
新宿区大京町二ノ二ノ二三
のようになる。
    • good
    • 0

> 漢数字にする関数を使おうとしたところ文字が入ってるとダメみたい


何を使ったんでしょう。 NUMBERSTRING関数や TEXT関数での漢数字変換
は確かに数値に対してのみ有効です。

数式でやるなら1式ではできません。

A1セルにデータがあるとして

■B1セル
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
A1,"1","一"),"2","二"),"3","三"),"4","四"),"5","五")

■C1セル
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
B1,"6","六"),"7","七"),"8","八"),"9","九"),"0","〇")

百やら千やらも対応させるなら その分 作業列を増やして下さい。
    • good
    • 1

ワードやアクセスのはがきウィザードを利用するか


http://www.hobby-navi.com/kouritu_up/hagaki_2.html
下記のサイトのフリーソフトのマクロを利用する。
http://www.vector.co.jp/soft/win95/writing/se210 …
    • good
    • 0

「にじゅうに」と入力して変換では駄目なんですか?

    • good
    • 0

もっと良い方法があるかもしれませんが、


自分なら変更したいデータの範囲を指定した後にCtrl+Fで
検索・置換ウィンドウを出して、変更します。
オプションで、詳細置換も可能です。
    • good
    • 0

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

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

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

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

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

Qエクセルで住所の半角数字を漢数字に一括変換するには?

 エクセル87で住所録を作って「1-2-34」等と入力していますが、それをワード98のはがき宛名印刷で印字すると「1-2-34」が横になります。
 エクセルで住所の列だけ「1-2-34」を「一-二-三四」などのように一括で漢数字に変換したいのですが、簡単な方法はあるでしょうか? よろしくお願いします。

Aベストアンサー

表示形式=TEXT(C1,"[DBNum1]G/標準")などはC1セルが半角数字で無いと上手く行かないようです。住所を数字部分と漢字部分に部分に別セルに分けられれば使えるかもしれない。
住所漢字部分と丁目番地が1セルに混在しているときのために、数字を漢数字に変える、ユーザー定義の関数を作ってみました。
ツール-マクロ-BVEでVBEの画面になる。
そこで挿入-標準モジュールで出てくる画面に下記を
コピペする。
Function kansuj(a)
tb = Array("〇", "一", "ニ", "三", _
"四", "五", "六", "七", "八", "九")
For i = 1 To Len(a)
s = Mid(a, i, 1)
'---ハイフン
If s = "-" Then
st = st & "-"
GoTo p01
End If
'----数字 全角、半角
If IsNumeric(s) Then
If s >= "0" And s <= "9" Then
p = Application.WorksheetFunction.Asc(s)
st = st & tb(p)
GoTo p01
Else
st = st & tb(Val(s))
GoTo p01
End If
End If
'----その他全角文字
st = st & s
p01:
Next i
kansuj = st
End Function
使い方はA列に住所があるとして、B1に
=kansuj(A1)といれてB2以下に式を複写する。
(結果)
大田区目黒123-1大田区目黒一ニ三-一
関東1-23関東一-ニ三
三七,六五三三七六五三
一一
三八,〇四八三八〇四八
あ1-2-3あ一-ニ-三
三七,六五三三七六五三
2no3ニno三
三三
1-2-3一-ニ-三
二三四ニ三四
1-2一-ニ
大阪市中央区道修町2-34大阪市中央区道修町ニ-三四
ASC234ASCニ三四
0〇

表示形式=TEXT(C1,"[DBNum1]G/標準")などはC1セルが半角数字で無いと上手く行かないようです。住所を数字部分と漢字部分に部分に別セルに分けられれば使えるかもしれない。
住所漢字部分と丁目番地が1セルに混在しているときのために、数字を漢数字に変える、ユーザー定義の関数を作ってみました。
ツール-マクロ-BVEでVBEの画面になる。
そこで挿入-標準モジュールで出てくる画面に下記を
コピペする。
Function kansuj(a)
tb = Array("〇", "一", "ニ", "三", _
"四", "五", "六", "七", "八...続きを読む

Qエクセル2000で、漢数字から算用数字へ変換する関数

算用数字から漢数字へ変換する関数はあるようですが、その逆の漢数字を算用数字に変換する関数ってありますか?
住所録ですが、
○○四丁目
××三丁目
□□2丁目
の表示を、算用数字を用いて統一させたいのですが…、よろしくお願いします。

Aベストアンサー

> 地名に数字を含む場合はとりあえず置いておいて

番地と地名を分けては考えられません。
関数を使うと文字列に含まれる全ての文字を置き換え対象とするので、「三重県」は「3重県」になります。

SUBSTITUTE関数を使用した場合の例・・・

A1に"三重県松阪市五十鈴町九四ー七" と入力します。
B1の数式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"一","1"),"二","2"),"三","3"),"四","4"),"五","5")
C1の数式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B1,"六","6"),"七","7"),"八","8"),"九","9"),"〇","0"),"ー","-")

関数のネスト(重ね合わせ)には限界があるので、2つに分けています。

結果は、「3重県松阪市5十鈴町94-7」 となってしまいます。

番地のみを変換することができれば問題は解決します。

> 地名に数字を含む場合はとりあえず置いておいて

番地と地名を分けては考えられません。
関数を使うと文字列に含まれる全ての文字を置き換え対象とするので、「三重県」は「3重県」になります。

SUBSTITUTE関数を使用した場合の例・・・

A1に"三重県松阪市五十鈴町九四ー七" と入力します。
B1の数式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"一","1"),"二","2"),"三","3"),"四","4"),"五","5")
C1の数式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTIT...続きを読む

Qエクセルで縦書きに設定した時に、数字は横書きにしたい。

エクセルで、セルを縦書きに設定した場合に、全角、半角問わず数字だけは横書きにしたいんですが出来ますか??教えてくださいm(_ _)m

Aベストアンサー

セル単位で簡単に設定する方法はありません。文字単位で設定する必要があり、すこし面倒ですが、それでもよければ....

(1)対象セルの「セルの書式設定」-「配置」タブで「方向」を(「縦書き」ではなく)「-90」度に設定する

(2)対象セルを編集状態にして、数字以外の文字列を選択してから「フォント」欄のフォント名の先頭に「@」をキー入力する(例:「MS Pゴシック」→「@MS Pゴシック」)

(3)数字以外の文字列すべてに(2)の操作を繰り返す

以上で、縦書きセルの中で、数字だけが横書き状態となります。

Q差し込み印刷で番地を漢数字にしたいのですが

Word2007を使っています。

封筒に縦書きで住所を入れたいと思っています。
名簿から差し込み印刷をしようとしています。
名簿は住所の番地を半角で入力しました。

横書きならスムーズなのかもしれませんが、今回縦書きにしたいと思うので漢数字にしたいのですが、1枚1枚直すことはできますが、そうしなくても自動的に漢数字に変換されるようにどこかで設定ができるのでしょうか。

教えてください。
宜しくお願い致します。

Aベストアンサー

自動的に漢数字に変換されます。
住所を表示した状態で、住所部分を右クリックして、フィールドの編集で、数字を漢数字に変換する、にチェックが入っていることを確認して下さい。

Qハガキ宛名の住所の数字を漢数字に直すには?

年賀状の宛名を印刷しようとしています。
exelで作った名簿の住所の番地はアラビア数字です。印刷の時に住所を縦書きにして、漢数字に変換したいのですが、うまく行きません。ハガキ印刷のウィザードで、「宛先、差出人の住所を縦書きにする時は、数字を漢数字に変換する」というところにチェックを入れると、差出人のところは上手く変換できるのですが、宛先のところだけが上手く変換されず、アラビア数字のままで縦書きになります。
住所録を全部漢数字に書き直すのは、とても大変です。
どなたか、助けてください。お願いします。

Aベストアンサー

Wordのはがき印刷の場合、「数字を漢数字に変換する」には半角の数字でなければ漢数字に変換できません。
もしかしたら、アラビア数字は全角で入力されていませんでしょうか?

すべての住所を書き換えるのは大変ですので、最初の2~3行を変えてみて、漢数字に変換されたのをご確認下さい。

なお、フィールドコードが間違っていないことを確認するには、下記URLをご参照ください。

「差込印刷で縦書き&漢数字に」
http://www.relief.jp/itnote/archives/001624.php

Q算用数字(半角)から漢数字への変換(エクセル2000)

ワード2000で差し込み印刷をしたいと思っています。
しかし、2000ではエクセルから住所録を読み込む場合、
算用数字を読み込むと横で表示されてしまいます。
そこでエクセル2000で算用数字を漢数字に変換しなければなりません。
算用数字を漢数字に変換するのに簡単な方法はないですか?

私が考えている方法は、1~9の数字を検索して
漢数字に変換していく方法です。
住所の列だけを対象に一括で変換することはできないのでしょうか?
全ての範囲を対象とすると一括変換できるのですが、
郵便番号は算用数字のままでいいので、
変換する必要がないのです。

質問が分かりにくいかもしれないですが、
宜しくお願いします。

Aベストアンサー

???
>> 私が考えている方法は、1~9の数字を検索して
>> 漢数字に変換していく方法です。

これでできるでしょう。
例えばB列が住所であるなら,
B列を選択して,そのままの状態で,
「編集」→「置換」で
検索する文字列 1
置換後の文字列 一
「すべて置換」をクリック。

マクロを使う方法もありますが,大量のExcelファイルを短時間で処理する場合には良いかもしれませんが,
ほんの数ファイルのExcelファイルだとこれの方が早い気がします。

Qワードの差込印刷で、郵便番号を封筒の枠内にキレイに印刷する方法は??

こんにちは。お世話になります。
会社規定の封筒には、郵便番号枠がもともと書き込んであります。
ここに、きれいにエクセルのデーターから、差込印刷するには、どうしたら良いのでしょうか??

Aベストアンサー

No2です。
フリーソフトなら、KOKUYOの「合わせ名人2簡易版」
というフリーソフトを使用しては。
http://www.sapulife.com/dnload2/awase.html

過去ログのzenjeeさんが詳しく書いています。参考に。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1677859

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む


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

人気Q&Aランキング