行列のできるパソコン相談所

パソコンの疑問やトラブルへの対処を中心にお伝えします。
↑スポンサーのグループウェア 『Aipo(アイポ)』 も宜しくお願いいたします。

メルマガ版!『行列のできるパソコン相談所』

有益情報満載の相談所速報メルマガ!読みやすい内容です。ぜひ登録を!
まぐまぐ! (マガジンID:0000151828)
メールマガジン登録 メールアドレス:
メールマガジン解除 メールアドレス:

2005年04月06日

行列のできるパソコン相談所 第2回

グループウェアといえば 『Aipo(アイポ)』
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■
■■■  〜 行列のできるパソコン相談所 〜    Vol. 002
■■   http://blog.livedoor.jp/daniel_pc/    2005.03.30
■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
────────────  スポンサー  ──────────────
え!?グループでのスケジュール調整があっという間に! 
スケジュール管理なら「アイポ」。無料体験版配布中です。
⇒ グループウェア『Aipo(アイポ)』スケジュール管理
─────────────────────────────────

 Q.あなたはパソコンについて分からないことがあったとき
   どうしますか?

 A1.自分で調べる
 A2.パソコンに詳しい知り合いに聞く
 A3.諦める

 ⇒諦める!?その前にこのメールマガジンを振り返ってみませんか?

◆ 目次 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━

【1】ご挨拶

【2】行列のできるパソコン相談所
   - Wordの数値を一括して桁区切りに!!

【3】編集後記

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

◇────────────────────────────────
【1】ご挨拶
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

 みなさん、こんにちは。
 このメールマガジンの発行を行っている「ダニエル」です。

 このメールマガジン「行列のできるパソコン相談所」は、
 実際に起こったパソコントラブルの事例とその対応方法を
  紹介していきます。

 読者のみなさんからの投稿も募集していますので、
 ぜひ「最後の駆け込み寺」としてもご利用ください。

 いよいよ、4月1日から個人情報保護法が施行されますね。
 読者の皆様のお勤め先は個人情報保護法の対象企業ではありませんか?

 ⇒ 続きは編集後記にて

◇────────────────────────────────
【2】行列のできるパソコン相談所
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

 第2回:Wordの数値を一括して桁区切りにしたい!!

 Q.[Win全般]
 Wordの文書や表の中の数値に桁区切りを
  まとめてつける方法を教えてください。

                           (K.Hさん)
 ----------------------------------------------------------------
 ----------------------------------------------------------------
 A.
 Excelであれば、セルの書式で変更可能ですが、
 Wordだと基本機能では変換できないようですね。

 この桁区切りをWordで行う方法としては、
 マクロを利用することで解決できます。

 次の手順で操作してみてください。

 1. Wordのメニューから[ツール]-[マクロ]を選択
 2. マクロ名「桁区切り」と入力して、[作成]ボタンを押す
 3. エディタが開くので、「Sub 桁区切り()」を含む文字をすべて削除
 4. 以下のコードをコピーして貼り付け
 5. メニューから[ファイル]-[上書き保存]として、エディタを閉じます
 6. Wordに戻り、桁区切り数値へと変換したい部分を範囲選択します。
   文書全体の数値を変換するならば、
     [Ctrl+a]を押すと全体を選択できます。
 7. 文書を選択した状態で、[ツール]-[マクロ]を選択し、
  sep_commaクリックして、[実行]ボタンを押してください。

---(ここから下)---------------------------------------------------
Sub sep_comma()
  Dim Rng As Range
  Dim SelectionEnd As Long
  Dim RngEnd As Long
  Dim RngRepEnd As Long
  Set Rng = Selection.Range
  SelectionEnd = Rng.End
  Rng.Find.Text = "[0-9]{4,}"
  Rng.Find.MatchWildcards = True
  Do While Rng.Find.Execute = True And Rng.End <= SelectionEnd
    RngEnd = Rng.End
    Rng.Text = Format(Rng.Text, "#,##0")
    RngRepEnd = Rng.End
    SelectionEnd = SelectionEnd + (RngRepEnd - RngEnd)
    Rng.Collapse wdCollapseEnd
  Loop
  Set Rng = Nothing
End Sub
---(ここまで)-----------------------------------------------------

 これで、桁区切りの数値へと変換されたと思います。
 無事動作しましたか?
 このマクロは半角の数値のみへの対応となっていますので、
 全角も変換したいという方は、ぜひ拡張してみてください。

 それにしても、Wordに既にありそうで存在しない機能でしたね。
 置換などでできるのではないかと私も思っていました。


 今回は読者の方からのご質問でした。
 内容が少し難しいとも思いましたが、
 私も興味があることだったので
  こちらの質問を選ばさせていただきました。

                           (ダニエル)

◇────────────────────────────────
【3】編集後記
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

 明後日からの個人情報保護法実施に伴い、私の会社にも
 個人情報保護法へ対応と見出しのついたFAXダイレクトメールが
  届きました。残念ながら、
  私の勤める会社は個人情報保護法の対象企業ではありません。

 この個人情報保護法の対象は、目安として5,000件以上の顧客情報を
 業務目的として保持している企業となっています。

 みなさんのお勤めの会社は対応が行われていますか?
 対応を急ぎましょう。

 行列のできるパソコン相談所ではみなさんからのご相談や
 ご意見をお待ちしています。
 こちらまでどしどしご連絡ください。
 ⇒ daniel_pc@leo.livedoor.com

 次回の発行は、2005年4月6日を予定しています。
 最後までご覧いただき、ありがとうございました。

 それでは、また次回お会いしましょう。
                    To be continued...
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
────────────  スポンサー  ──────────────
え!?グループでのスケジュール調整があっという間に! 
スケジュール管理なら「アイポ」。無料体験版配布中です。
⇒ グループウェア『Aipo(アイポ)』スケジュール管理
─────────────────────────────────
◆--------------------------------------------------------------◆
◆行列のできるパソコン相談所(週1回発行)
◆発行者:ダニエル
◆本誌利用により生じた結果に関して、一切の責任を負いません。
◆発行者:行列のできるパソコン相談所
◆購読の申し込み、解除 ⇒ 
◆ http://blog.livedoor.jp/daniel_pc/archives/15969503.html
◆ご相談、ご意見はこちらへ! ⇒ daniel_pc@leo.livedoor.com
◆--------------------------------------------------------------◆
              Copyright (C)2005 All Rights Reserved.
グループウェアといえば 『Aipo(アイポ)』

この記事へのトラックバックURL

http://trackback.blogsys.jp/livedoor/daniel_pc/18185750
この記事へのコメント
_法魯``討��I離泪疋淵覆箸里呂匹討皺使伺の業で≠ス里牢鵑い房{辰任呂任
Posted by cheap uggs outlet sale at 2013年10月27日 14:56