VBA練習問題解答
練習問題10(罫線の練習)解答

Excelマクロ練習問題集、エクセルVBAの学習教材
最終更新日:2019-11-03

練習問題10(罫線の練習)解答

マクロVBA練習問題10の解答ページです。

マクロVBA練習問題

・客単価を計算してD列に入れて下さい。
・客単価は小数以下2桁で表示して下さい。
・罫線を、参考図のように設定して下さい。

※客単価 = 売上 ÷ 客数

練習問題用のExcelファイル
 A     B   C   D
日付 売上 客数 客単価
1月1日 8030 81  
1月2日 3039 66  
1月3日 489 51  
1月4日 4326 91  
1月5日 526 91  
1月6日 4570 51  
1月7日 4688 14  
1月8日 549 15  
1月9日 6948 51  
1月10日 6512 83  

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

罫線の完成イメージ

マクロVBA練習問題

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始


シンキングタイム終了

当サイトのコンテンツ
ExcelマクロVBA入門
マクロVBA入門シリーズでは、Excelマクロを実務で自在に扱えるようになる事を目的として、始めはより詳しく丁寧に解説しつつ、少しずつ難易度を上げることで無理なく学習を進められるようにしています。VBAはExcelの操作を自動化するマクロ機能で使われているプログラミング言語です。

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。
※.Valueは省略しています。


Sub 練習問題10()
  Dim i As Long
  Dim lastRow As Long
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To lastRow
    Cells(i, 4) = Cells(i, 2) / Cells(i, 3)
  Next
  Range(Cells(2, 4), Cells(lastRow, 4)).NumberFormatLocal = "#,##0.00"
  Range(Cells(1, 1), Cells(lastRow, 4)).Borders.LineStyle = xlContinuous
  Range(Cells(1, 1), Cells(lastRow, 4)).Borders.Weight = xlHairline
  Range(Cells(1, 1), Cells(lastRow, 4)).BorderAround Weight:=xlMedium
  Range(Cells(2, 1), Cells(2, 4)).Borders(xlEdgeTop).Weight = xlThin
  Range(Cells(1, 2), Cells(lastRow, 2)).Borders(xlEdgeLeft).Weight = xlThin
End Sub

マクロで罫線を引く事は度々あります。
罫線を引く順序を工夫する事で、少ない行数で実現できます。。

以下も参考にして下さい。

ExcelマクロVBA入門.第35回.セルの書式(罫線,Border)
マクロVBAで罫線を引く必要が出てくる場合は結構あるものです。新規シートにデータを出力した場合やデータ範囲がマクロで変更されてしまう場合、罫線を引き直す事が必要になってきます。ネット等を検索すると、罫線を引くマクロは書き方が千差万別となっているようです。



同じテーマ「マクロVBA練習問題解答」の記事

練習問題7(メッセージボックスの練習)解答
練習問題8(表示形式の練習)解答
練習問題9(文字色・背景色の練習)解答
練習問題10(罫線の練習)解答
練習問題11(色々なコピーの練習)解答
練習問題12(日付関数の練習)解答
練習問題13(文字列関数の練習)解答
練習問題14(行の挿入・削除の練習)解答
練習問題15(Withとオブジェクト変数の練習)解答
練習問題16(WorksheetFunctionの練習)解答
練習問題17(ブック・シートの操作の練習)解答


新着記事NEW ・・・新着記事一覧を見る

ピッボットテーブルって便利だよね|還暦のVBA(2021-10-18)
還暦のVBA:VBAまでたどりつけるか… (2021-09-29)
VLOOKUPを使うことを基本としてシートを設計すべきか|エクセル雑感(2021-08-17)
コンピューターはブラックボックスで良い|エクセル雑感(2021-08-14)
小文字"abc"を大文字"ABC"に変換する方法|エクセル雑感(2021-08-13)
ADOでテキストデータを集計する|VBAサンプル集(2021-08-04)
VBA学習のお勧めコース|エクセル雑感(2021-08-01)
エクセル馬名ダービー|エクセル雑感(2021-07-21)
在庫を減らせ!毎日棚卸ししろ!|エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について|エクセル雑感(2021-06-26)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.Excelショートカットキー一覧|Excelリファレンス
3.RangeとCellsの使い方|VBA入門
4.変数宣言のDimとデータ型|VBA入門
5.繰り返し処理(For Next)|VBA入門
6.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.並べ替え(Sort)|VBA入門
9.マクロって何?VBAって何?|VBA入門
10.セルに文字を入れるとは(Range,Value)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ