5本目:セルの計算セルの消去に関する問題です。セルを使った計算結果の値をセルに入れます。表示形式も設定します。ツイッター連動企画です。ツイート文字数制限があるので、ブック・シート指定等省略可能な記述は省略しています。ダウンロードできます。マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。入門解説からマクロVBAまでエクセル全般を網羅しています。画像のようにB2から始まる表があります。B列×C列を計算した値をD列に入れ、通貨\のカンマ編集で表示してください。B列またはC列が空欄の場合は空欄表示にしてください。※ブック・シートは任意サンプルファイルです。https://excel-ubara.com/vba100sample/VBA100_05.xlsmhttps://excel-ubara.com/vba100sample/VBA100_05.zipVBA作成タイムこの下に頂いた回答へのリンクと解説を掲載しています。途中まででも良いので、できるだけ自分でVBAを書いてみましょう。他の人の回答および解説を見て、書いたVBAを見直してみましょう。解説シート及びValueを省略。"\#,##0"\の設定はNumberFormatLocalを使います。上記コードの場合、B列C列ともに空欄(つまり空行)があるような場合は、空行より下は処理されません。End(xlUp)を使う場合、非表示行が無いことが前提となります。UsedRangeを使う場合は、他の列にゴミデータがあると行数が大きくなってしまいます。これらについては、記事の補足で。上記のVBAでは表示形式を列全体で指定しています。表範囲内だけにしたいと思うかもしれませんが、エクセルのシートの列は同一書式で使う事が基本です。いえ、範囲を限定したい場合の紹介も兼ねて、少し違ったVBAの書き方をしてみます。IfNextまた、エクセルの計算では空欄は0と同じなので、構わずに計算してしまい、表示形式で0を空白表示するという方法も、やり方としては良いと思います。セルに計算式を入れてから値貼り付けするという方法もありますが、これについては今後の題材に残します。最終行の取得方法は各種ありますが、一長一短なところもあります。扱う表形式を確認して適宜良い方法を選択するようにしてください。今回の出題に対応した最終行取得のパターンをいくつか掲載しておきます。With表範囲にフィターがかかっているとか、表の外側がどうなっているかによって一長一短があります。イン実行で目で見て確認しましょう。Next)|VBA入門5.ひらがな⇔カタカナの変換|エクセル基本操作6.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門7.マクロって何?VBAって何?|VBA入門8.Excelショートカットキー一覧|Excelリファレンス9.並べ替え(Sort)|VBA入門10.エクセルVBAでのシート指定方法|VBA技術解説ホームマクロVBA入門編VBA100本ノック5本目:セルの計算このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。アクセスランキングサイトマップ事業案内お問い合わせホームマクロVBA入門編VBA100本ノック5本目:セルの計算このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。