• 締切済み

エクセルのインデント

教えてください。 エクセルでインデントした部分を空白に変更するマクロ（？）とか ありますか？ インデントで指示したものをテキストにして、他で流用する場合に 頭揃えになって困ってます。 できれば、インデント１→１文字の空白 　　　　　インデント２→２文字の空白　になると嬉しいです。

みんなの回答

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

インデントってセル内でのことですよね？ こんなのはいかがでしょう。 Sub test01() With ActiveSheet For Each c In .UsedRange If c.Value <> "" Then If c.IndentLevel > 0 Then c.NumberFormatLocal = "@" c.Value = Application.Rept(" ", c.IndentLevel) & c.Value c.AddIndent = False c.HorizontalAlignment = xlGeneral End If End If Next End With End Sub

kusatudesu
質問者

お礼

早速の回答ありがとうございます。 VBAはほとんど解らないのですが、コピーペーストで試してみたと ころ望むと形になりました。一部空白を和文に変更しましたが…… 直ぐに書けちゃうんですね！ じっくりプログラムを拝見して勉強いたします。 　御　礼

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルのインデント

    エクセルにインデントという機能があるのを知りましたが、ヘルプをみても使い方がわかりません。 イメージとしてはセル毎に左揃えの場合、左の空間の幅を変えられる？？と思ったのですが。。 やり方を教えて下さい！！

  • インデントと空白について

    インデントを使った場合と空白を使った場合の使い勝手を教えて下さい。 「空白を使うと後で文字の修正をするたびに空白のいちを修正しなければならない」と、テキストに書いてあるのですが、よく分りません。 例をあげて教えていただけたらと思っています。 よろしくお願い致します。　

  • インデントの文字数と書式のみを貼り付け

    Ｗｏｒｄ　９７でのインデントについて教えてください。 １．通常のＴＡＢの文字数は設定できますが、インデント（リターンのある個所まで全ての行の頭に空白を入れる）の空白文字数は設定できますか？ ２．通常は左詰めの文章ですが、所々、インデントの文が混ざっています。そのインデントは同じ形なのですが、その文毎に何回もインデント設定するのが面倒なので、ＥＸＣＥＬの書式のみ貼り付けのような、インデントの書式のみを貼り付ける方法はありますか？

  • ExcelのCell内の文字列の書式設定について

    Win XP　office 2003です。 Excelについて質問致します。 Cell内にある文字列を打ち込み、書式設定で、 ・「両端揃え」にしても文字列は左づめに配置されます。 ・「均等割り付け（インデント）」にすると、中央に配置されます。 別途「左づめ」、「中央揃え」の書式設定があり、この設定はどのような時に利用するんでしょうか。 そもそも両者の使い分けはどのようなものでしょうか。 ・また、「均等割り付け（インデント）」の「（インデント）」とはどのような意味でしょうか。 ・ある文字列の間に空白を入れて、「均等割り付け（インデント）」を設定するとCell内の両端一杯に 　文字列が配置されますが、空白を入れない場合でも文字列をCell内の両端一杯に配置させる設定は出来ないのでしょうか。 以上宜しくお願い致します。

  • Word：ぶら下げインデントだけを動かしたい

    ご覧いただきましてありがとうございます。 Wordでの入力時に、左インデントの深さはそのままでぶら下げインデントだけを深くしたい場合、どのようにすればよいのでしょうか。Ctrl+Tとすると、左インデントも一緒に動いてしまいます。 １回実行するごとにぶら下げインデントが１文字分ずつ深くなるという動作をしてほしいのですが、書式メニューから手動で実行するしかないのでしょうか。もしもマクロで実現可能でしたら、コードを教えていただければ大変ありがたく存じます。なお、当方の動作環境は、WIndows XP及びWord2002です。 よろしくお願いいたします。

  • ワード２００７での頭揃え

    文字を箇条書きをする際に 　行の先頭から、空白４文字（全角）を入力して、文字列を入力する場合と文字列を入力してからカーソルを先頭列に移動させ空白４文字（全角）を入力する場合では、前者は空白で全角４文字分になりますが、後者は、インデントの位置が動き、場合によっては、文字列の先頭文字が頭揃えにならない場合があります。 　ゆえに、後者のように文字列を先に入力した場合は、その文字列の前にＥｎｔｅｒキーで改行→空白４文字（全角）を入力→文字列の最後にカーソルあわせ、Ｄｅｌｅｔｅで改行削除させて頭揃えしています。 　後者の場合も前者と同じように、インデントの位置が動くのではなく、空白４文字（全角）が文字列の前に入るように設定変更が出来ないのでしょうか。 　…以外と文書作るのにも時間ロスするので…。

  • エクセルのセルの中で指定した行のインデントを変える方法はありますか？

    Excel2000を使用しています。 エクセルを使って文章を書かなければならないのですが、同じセル内ですべての行のインデントを変更するのではなく、２行目以降のインデントだけを変えることはできますでしょうか？ 以下のようにしたいと思っています。 （1）あああああああああああああああああああああああああああああ 　　 ああああああ ↑ このように文字の開始位置を同じセル内で揃えたいのです。セル内での段落機能があれば可能なのですが見当たりません。よろしくお願いします。

  • エクセル・ワード2010での文字の中央揃えについて

    office2010を使っている者です。 まず、エクセルのセルの中での文字の中央揃えのことで伺います。 ホームのリボン→配置→中央揃えでできますが、文字の折り返しをしていた場合、２行目まで１行目と同じような形の中央揃えになってしまいます。 ２行目は左端が１行目と同じ位置から、又は１行目より１文字分左側から位置が開始されるように中央揃えをすることは可能でしょうか？ 次にワードでの中央揃えのことで伺いたいことがあります。 ホームのリボン→段落→中央揃えで中央ぞろえができますが、エクセルと同じ問題が発生します。 文字が１行で収まらなかった場合、エクセルと同じように２行目まで１行目と同じような形の中央揃えになってしまうのですが、２行目は左端が１行目と同じ位置から、又は１行目より１文字分左側から位置が開始されるように中央揃えをすることは可能でしょうか？ ワードの場合は、インデントで調節することが可能ですが、最初から希望する中央揃えができると便利なのですが。 よろしくお願いいたします。

  • インデント・タブについて。

    こんにちわ。 近々WordとExcelの資格を取得しようとしています。 そこで質問なのですが、インデントとタブ（あと段落設定？）に関して質問がございます。 質問内容は、 http://www.k-s-p.co.jp/lemon/word/index_2.html 先の 『3. 実践1 - 学校行事案内の作成 ( 書式設定 ・インデント・タブ・均等割付・オートシェイプ)』 に関してなのですが 中盤の１.日時～--きりとり---までの事でいくつか質問があります。 １.日時の段に関しては平成１６年～５校時終了まではなんとかインデントやタブ（またはスペースキー）などで同じようにはできるのですが、２.その他のあとの、今回～お願いしますまでの段落？に関して図のような設定ができません・・・ 自分が挑戦すると ２.その他は段落設定でできます。 がその後の 『今回、～お願いします』間でのインデント設定がうまくいきません・・・ 最初に段落設定をし『その他・今回』の『・』の部分でTabキーを押してタブ設定でそろえようかとしたのですが、１行目は揃うものの２行目にいくと『２.その他』の下に文字が来てしまいます・・・ 他の設定方法があるのですよね？？ また、---きりとり----に関してですが、『以下の用紙にて』の行を選択し、下線を引くとこまではいいのですが、『きりとり』の文字に関してうまく挿入できません。 テキストボックスなどで塗りつぶしなし等でやってみたもののうまくいきません。 上記の２事に関してアドバイスいただければと思います。 長くなりましたが、解答の方よろしくお願いします。

  • Excelのセルにインデントを設定するVBAはありますか

    Excel2003のセルに文字列を入力し、ボタンをクリックするとインデントが設定され1文字分ずつ右へずれるようにしたいのです。 マクロで、書式→セル→配置タブ→インデント設定を記録してボタンを作成しました。 VBAでは以下の記録になりました。 With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 1 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With これだとボタンをクリックすると確かに1文字分ずれるのですが、「IndentLevel = 1」と固定されてしまいます。 2文字や3文字ずらすセルがあるため、ボタンをクリックするたびに1文字分ずつ続けてずれるようにする必要があります。 構文を変更すればこのようなことは可能なのでしょうか。 どうかお知恵をお貸しください。よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する