ここから本文です

A1セルの文字の末尾に全角スペースがあり、そのスペースを削除したいです。 よろ...

asp********さん

2013/11/2820:28:29

A1セルの文字の末尾に全角スペースがあり、そのスペースを削除したいです。
よろしくお願いします。

下記の仕様で動作したいです。

・ブックを開いたときに自動で起動する。
・ブックはひとつではなく複数あるが、同じコードですべてのブックを動作したい。
・A1セルの文字の末尾に全角スペースがあり、VBA起動後はA1セルのスペースが削除される。
・A1セルの文字は特定の文字列ではなく、ブックごとに違う。

rtrimやreplaceの記述がよくわからないため、お願いします。

閲覧数:
159
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

tan********さん

2013/11/2823:15:46

こんばんは。

1つ確認ですが、質問にお書きの”ブック”とは、ワークシートのことですね?
下記要件でコードを書いた一例です。
<要件>
ブックを開いた時に、ブックに含まれるすべてのシートのA1セルの、右側余白を削除する。
<実装>
ThisWorkbook モジュールに下記コードをコピペしてください。
<コード>
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
sh.[A1].Value = RTrim(sh.[A1].Value)
Next
End Sub

もし、全てのシートでなく、特定のシートだけ、A1セルの右側余白を削除したい場合は、こうなります。
(シート名を MySheet とします。)
<コード>
Private Sub Workbook_Open()
With Worksheets("MySheet")
.[A1].Value = RTrim(.[A1].Value)
End With
End Sub

こんな感じですか?

質問した人からのコメント

2013/11/29 07:16:11

ありがとうございます。無事にできました。A1セルを[]で囲むのですね。勉強になりました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる