ここから本文です

エクセルのマクロでお願いします。 Cells(Rows.Count, 5).End(xlUp).Offset(1) = ...

ele********さん

2010/7/2114:40:20

エクセルのマクロでお願いします。
Cells(Rows.Count, 5).End(xlUp).Offset(1) = WorksheetFunction.Sum([E:E])
で合計した数字を
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Bold = True

のようにしたいのですが、
この二つのマクロを一度に実行するには何を追加すればいいでしょうか

宜しくお願い致します。

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

違反報告

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

dan********さん

2010/7/2115:30:29

>.HorizontalAlignment = xlCenter
>.VerticalAlignment = xlCenter
>.Font.Bold = True
↑はセルの書式設定ですのでどのセルなのかを明示する必要があります。
さらに先頭がピリオド(.)で始まってますので Withを使っての事かと。
今回の場合は>Cells(Rows.Count, 5).End(xlUp).Offset(1)がそのセルになりますので以下のように。
With Cells(Rows.Count, 5).End(xlUp).Offset(1)
.Value = WorksheetFunction.Sum([E:E])
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Bold = True
End With

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

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

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

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

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

閉じる

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

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

閉じる