【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集

このサイトで学習して、とあるエクセルシートに"A1"セルの内容を
そのまま書き込むマクロを造りました。
With ActiveSheet.PageSetup
'セルA1の値をへッター左にセットする
LeftHeader = Range("A1")
End With
ですが、ここに"A1"と"B1"をセットすると言うふうにするには?
あるいは"A1"セルと定数”御中”を一緒にセットさせるにはどのように記述したらよいでしょうか。
よろしくお願いします。

A 回答 (2件)

内容をどれほど理解してるかわからないので処理解説と回答とします。



With ActiveSheet.PageSetup
LeftHeader = Range("A1")
End With
上記では左ヘッダーにレンジつまりセルの中身を代入しますよという処理です。

そのためB1のセル内容をくっつけたい場合
LeftHeader = Range("A1") & Range("B1")
とすればOKです。
&は文字列を結合するという意味です。

また""(ダブル クォーテーション)で囲んだ文字列も結合できます
fred2000 さんの回答のように
LeftHeader = Range("A1").Value & "御中"
とすれば文字列が連結できます。

つまり「Range("セル番地")」この"セル番地"で任意の場所のデータを取得でき、「&」を使えば好きなだけ文字を連結できるという事です。


ちなみにfred2000 さんのつけている.Valueはセルの中身の取得形式です。valueとtextを指定できますがない場合自動でvalueとして処理されます。
    • good
    • 0
この回答へのお礼

うまくいきました。
ご回答ありがとうございました。

お礼日時:2008/09/05 08:39

With ActiveSheet.PageSetup


'セルA1の値をへッター左にセットする
.LeftHeader = Range("A1").Value & "御中"
End With

ということでしょうか?
    • good
    • 0
この回答へのお礼

うまくいきました。
ご回答ありがとうございました。

お礼日時:2008/09/05 08:39

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