VBA100本ノック 5本目：セルの計算
セルの消去に関する問題です。
セルを使った計算結果の値をセルに入れます。
また、表示形式も設定します。
ツイート文字数制限があるので、ブック・シート指定等省略可能な記述は省略しています。
マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。エクセル関数・機能・基本操作の入門解説からマクロVBAまでエクセル全般を網羅しています。
出題
出題ツイートへのリンク
#VBA100本ノック 5本目
画像のようにB2から始まる表があります。
B列×C列を計算した値をD列に入れ、通貨\のカンマ編集で表示してください。
ただしB列またはC列が空欄の場合は空欄表示にしてください。
例.D3にはB3×C3の計算結果の値を「\234,099」で表示、D5は空欄
※ブック・シートは任意
サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_05.xlsm
https://excel-ubara.com/vba100sample/VBA100_05.zip
画像のようにB2から始まる表があります。
B列×C列を計算した値をD列に入れ、通貨\のカンマ編集で表示してください。
ただしB列またはC列が空欄の場合は空欄表示にしてください。
例.D3にはB3×C3の計算結果の値を「\234,099」で表示、D5は空欄
※ブック・シートは任意
https://excel-ubara.com/vba100sample/VBA100_05.xlsm
https://excel-ubara.com/vba100sample/VBA100_05.zip
VBA作成タイム
この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。
他の人の回答および解説を見て、書いたVBAを見直してみましょう。
頂いた回答
解説
シート及びValueを省略。
\の設定はNumberFormatLocalを使います。
上記コードの場合、
B列C列ともに空欄（つまり空行）があるような場合は、空行より下は処理されません。
End(xlUp)を使う場合、非表示行が無いことが前提となります。
UsedRangeを使う場合は、他の列にゴミデータがあると行数が大きくなってしまいます。
これらについては、記事の補足で。
Dim i As Long
For i = 3 To Range("B2").CurrentRegion.Rows.Count + 1
If Cells(i, 2) = "" Or Cells(i, 3) = "" Then
Cells(i, 4) = ""
Else
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
End If
Next
Columns("D").NumberFormatLocal = "\#,##0"
\の設定はNumberFormatLocalを使います。
B列C列ともに空欄（つまり空行）があるような場合は、空行より下は処理されません。
End(xlUp)を使う場合、非表示行が無いことが前提となります。
UsedRangeを使う場合は、他の列にゴミデータがあると行数が大きくなってしまいます。
これらについては、記事の補足で。
補足
上記のVBAでは表示形式を列全体で指定しています。
表範囲内だけにしたいと思うかもしれませんが、エクセルのシートの列は同一書式で使う事が基本です。
とはいえ、範囲を限定したい場合の紹介も兼ねて、少し違ったVBAの書き方をしてみます。
また、エクセルの計算では空欄は0と同じなので、構わずに計算してしまい、表示形式で0を空白表示するという方法も、やり方としては良いと思います。
さらに、セルに計算式を入れてから値貼り付けするという方法もありますが、これについては今後の題材に残します。
最終行の取得方法は各種ありますが、一長一短なところもあります。
扱う表形式を確認して適宜良い方法を選択するようにしてください。
最終行・最終列の取得方法（End,CurrentRegion,SpecialCells,UsedRange）｜VBA技術解説
先のRange("B2").CurrentRegion以外で、
今回の出題に対応した最終行取得のパターンをいくつか掲載しておきます。
表範囲にフィターがかかっているとか、表の外側がどうなっているかによって一長一短があります。
表範囲内だけにしたいと思うかもしれませんが、エクセルのシートの列は同一書式で使う事が基本です。
とはいえ、範囲を限定したい場合の紹介も兼ねて、少し違ったVBAの書き方をしてみます。
Dim rng As Range
Set rng = Range("B2").CurrentRegion
Set rng = Intersect(rng, rng.Offset(1, 2))
rng.ClearContents
rng.NumberFormatLocal = "\#,##0"
Dim i As Long
For i = rng.Row To rng.Row + rng.Rows.Count - 1
If Cells(i, 2) <> "" And Cells(i, 3) <> "" Then
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
End If
Next
また、エクセルの計算では空欄は0と同じなので、構わずに計算してしまい、表示形式で0を空白表示するという方法も、やり方としては良いと思います。
さらに、セルに計算式を入れてから値貼り付けするという方法もありますが、これについては今後の題材に残します。
扱う表形式を確認して適宜良い方法を選択するようにしてください。
最終行・最終列の取得方法（End,CurrentRegion,SpecialCells,UsedRange）｜VBA技術解説
・最終行取得の基本：手動ではCtrl + ↑、VBAではCells(1, 1).End(xlDown) ・最終列の取得 ・特殊な表の場合 ・CurrentRegion ・SpecialCells(xlCellTypeLastCell) ・UsedRange ・Findメソッド ・サイト内関連ページ
先のRange("B2").CurrentRegion以外で、
今回の出題に対応した最終行取得のパターンをいくつか掲載しておきます。
With ActiveSheet
Debug.Print .UsedRange.Item(.UsedRange.Count).Row
Debug.Print .Cells.SpecialCells(xlCellTypeLastCell).Row
Debug.Print WorksheetFunction.Max(.Cells(.Rows.Count, 2).End(xlUp).Row, .Cells(.Rows.Count, 3).End(xlUp).Row)
Debug.Print Range("B:C").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End With
表範囲にフィターがかかっているとか、表の外側がどうなっているかによって一長一短があります。
サイト内関連ページ
第16回．繰り返し処理（For Next）｜VBA入門
・For Next ステートメント ・For Next 例文 ・For Next をステップ イン実行で目で見て確認しましょう。 ・１行置きに処理する場合 ・Exit For ・For～Nextのネスト（入れ子） ・最後に一言
第17回．繰り返し処理（Do Loop）｜VBA入門・Do～Loopの構文 ・条件式 ・Do Loop 例文 ・Exit Do ・Do～Loopのネスト（入れ子） ・最後に一言
第18回．最終行の取得（End,Rows.Count）｜VBA入門・エクセルVBAにおける最終行取得の必要性 ・.End(xlDown)：Ctrl+↓ ・.End(xlUp)：Ctrl+↑ ・Endプロパティの方向（↑↓←→）について ・セルの行数を取得するRowプロパティ ・Cells(Rows.Count, 1).End(xlUp).Rowを日本語に訳す ・EndプロパティがRangeオブジェクトを返す ・Endプロパティの問題点 ・最終行に関するサイト内のページ
第31回．セルの書式（表示形式,NumberFormatLocal）｜VBA入門・マクロでの表示書式の指定 ・表示書式指定文字 ・表示書式指定文字の調べ方 ・Range.NumberFormatについて ・実際に表示されている形式の文字列を取得
同じテーマ「VBA100本ノック」の記事
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
3本目：セルの消去・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
4本目：セルの消去・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
5本目：セルの計算6本目：セルに計算式
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
7本目：日付データの扱い・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
8本目：点数の合否判定・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
9本目：フィルターコピー・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
10本目：行の削除・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
11本目：セル結合の警告・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
12本目：セル結合を解除・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数（セル範囲をトリム：端の空白セルを除外）｜エクセル入門(2024-08-30)
正規表現関数（REGEXTEST,REGEXREPLACE,REGEXEXTRACT）｜エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない｜エクセル雑感(2024-04-11)
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.ブック・シートの選択（Select,Activate）｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 5本目：セルの計算
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。