- ベストアンサー
エクセルのセルにマクロによる左右余白挿入について
いつもお世話になっております。 エクセル２０１３を使用しています。 行いたいのはエクセルのセルの左右に、マクロによって左右へ同じ余白を入れたいと考えています。いろいろ調べてみましたが、分からず困っています。 どうか、ご教示をお願いいたします。
- ankle
- お礼率42% (85/202)
- Excel（エクセル）
- 回答数5
- ありがとう数1
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- Prome_Lin
- ベストアンサー率42% (201/470)
「選択しているセルに」というご要望でしたので、エクセルの画面でちゃんとセルを選択しておられるでしょうか？ もしかして、カーソルが「A1」にあって、その状態で実行されたのでは？ ご要望が「選択しているセル」なのか、「すべてのセル」なのか、どちらでしょう？ 私の方では、「選択しているセル」のみ、ちゃんと前後にスペースが入ったことを確認しています。
補足
Prome_Linさん、お忙しい中お教えいただきありがとうございます。 さて、私の伝え方が良くないようで、大変申し訳ございません。 セルの選択は1つのセル、または複数のセル（A1～A3）を選択しています。 この状況でマクロを実行すると、そのセルの最初の頭だけ余白が入る状況です。 何度も申し訳ございませんが、どうぞよろしくお願いいたします。 画像を添付しようと思いましたが補足入力ではできないようでしたので、 文字で表現させていただきました。
- Prome_Lin
- ベストアンサー率42% (201/470)
回答No.1です。 Sub Test() Dim c For Each c In ActiveWindow.RangeSelection c.Value = " " & c.Value & " " Next c End Sub で、エクセルの画面上で選択しているセル、すべてに対して、左右に全角スペースを１つずつ、付け加えています。
補足
Prome_Linさん、お教えいただきありがとうございます。 さて、このマクロで行ってみましたが、一行目の頭にだけ余白が入り、 一行目の最後と２行目以降には余白が入りませんでした。 どのようにしたら、入るようになるのでしょうか？ すみませんが、またご教示をお願いいたします。
- neKo_quatre
- ベストアンサー率44% (747/1666)
- Prome_Lin
- ベストアンサー率42% (201/470)
「インデント」のことでしょうか？ 「インデント」では、前にしか設定できませんので、左右となると、スペースを挿入するしかないと思います。 すなわち、 Cells(1, 1).Value = " " & Cells(1, 1).Value & " " とするしかないと思います。
補足
Prome_Linさん、お教えいただきありがとうございます。 選択しているセルに、一度に設定する方法はどのようにしたら良いのでしょうか。 あまりマクロに詳しくなく、申し訳ありません。
お礼
Prome_Linさん、いろいろとお教えいただき誠にありがとうございました。