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の操作を自動化するマクロ機能で使われているプログラミング言語です。「VisualBasicApplications」の略になります。マクロVBA入門シリーズでは、始めはより詳しく丁寧に解説し、少しずつ難易度を上げることで無理なく学習を進められるようにしています。

書くべきマクロ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コードをそのまま使っている最悪のケースとなっています。



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

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


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

ユーザーに絶対に停止させたくない場合のVBA設定|VBA技術解説(4月1日)
CharactersプロパティとCharactersオブジェクト|VBA技術解説(3月31日)
指数近似/対数近似/累乗近似(掲載順位とCTR)|エクセル関数超技(3月31日)
練習問題32(連続数値部分を取り出し記号で連結)|VBA練習問題(3月24日)
連続数値部分を取り出し記号で連結|エクセル関数超技(3月24日)
数式バーの高さを数式の行数で自動設定|VBAサンプル集(3月21日)
LET関数(数式で変数を使う)|エクセル入門(3月21日)
スピルに対応したXSPLITユーザー定義関数(文字区切り)|VBAサンプル集(3月15日)
XMATCH関数(範囲から値を検索し一致する相対位置)|エクセル入門(3月14日)
XLOOKUP関数(範囲を検索し一致する対応項目を返す)|エクセル入門(3月14日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.変数宣言のDimとデータ型|VBA入門
7.ひらがな⇔カタカナの変換|エクセル基本操作
8.繰り返し処理(For Next)|VBA入門
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
10.セルに文字を入れるとは(Range,Value)|VBA入門




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


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



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