よくわかる Microsoft Excel 2019/2016/2013 マクロ/VBA（FPT1910）

Size: px

Start display at page:

Download "よくわかる Microsoft Excel 2019/2016/2013 マクロ/VBA（FPT1910）"

しょうぶてらわ
4 years ago
Views:

1 練習問題総合問題解答 Microsoft Excel 209/206/203 マクロ /VBA 練習問題解答 2 総合問題解答対象書籍よくわかる Microsoft Excel 209/206/203 マクロ /VBA(FPT90)

2 練習問題解答第章練習問題開発タブを選択 2 コードグループの ( マクロの記録 ) をクリック 3 マクロ名に集計削除と入力 4 マクロの保存先のをクリックし一覧から作業中のブックを選択 5 OK をクリック 6セル B4 をクリック表内のセルであればどこでもかまいません 7 データタブを選択 8 アウトライングループの ( 小計 ) をクリックアウトライングループが ( アウトライン ) で表示されている場合は ( アウトライン ) をクリックするとアウトライングループのボタンが表示されます 9 すべて削除をクリック 0セル B4 をクリック表内のセルであればどこでもかまいません表内のセルをクリックするという操作を記録するため表内のセルを再度クリックします並べ替えとフィルターグループの ( 並べ替え ) をクリック 2 先頭行をデータの見出しとして使用するをにする 3 並べ替えダイアログボックスの最優先されるキーの列の一覧から No. を選択並べ替えのキーがセルの値になっていることを確認 206/203 並べ替えのキーが値になっていることを確認順序の一覧から小さい順を選択 206/203 順序の一覧から昇順を選択 6 OK をクリック 7 セル A をクリックアクティブセルをホームポジションに戻します 8 開発タブを選択 9 コードグループの ( 記録終了 ) をクリック -2-

3 第 4 章練習問題練習問題 VBEを起動 2 メニューの挿入をクリック 3 標準モジュールをクリック 4 モジュール Module に次のプロシージャを入力練習プロシージャ. Sub 練習 () 2. Dim kyuyo As Currency 3. If Range("D0").Value = "" Then 4. Range("E0").Value = " 休み " 5. Else 6. If Range("C0").Value = " 平日 " Then 7. kyuyo = 000 * Range("D0").Value 8. Range("E0").Value = kyuyo 9. ElseIf Range("C0").Value = " 休日 " Then 0. kyuyo = 200 * Range("D0").Value. Range("E0").Value = kyuyo 2. End If 3. End If 4. End Sub. 練習プロシージャ開始 2. 通貨型の変数 kyuyo を使用することを宣言 3. セル D0 が空白の場合は 4. セル E0 に休みと代入 5. それ以外の場合は 6 9 行目の条件で処理を分岐する 6. セル C0 が平日の場合は 7. 変数 kyuyo に 000 セル D 0 の結果を代入 8. セル E0 に変数 kyuyo の値を代入 9. セル C0 が休日の場合は 0. 変数 kyuyo に 200 セル D 0 の結果を代入. セル E0 に変数 kyuyo の値を代入 2. 6 行目からのIfステートメント終了 3. 3 行目からのIfステートメント終了 4. プロシージャ終了 5Excel に切り替えてシート練習問題の練習ボタンをクリック -3-

4 練習問題 2 Excelの開発タブを選択 2 コードグループの ( マクロの記録 ) をクリック 3 マクロ名に練習 2_ と入力 4 マクロの保存先のをクリックし一覧から作業中のブックを選択 5 OK をクリック 6セル範囲 B:E6 を選択 7 挿入タブを選択 8 209/206 グラフグループの ( 縦棒 / 横棒グラフの挿入 ) をクリック 203 グラフグループの ( 縦棒グラフの挿入 ) をクリック 9 2-D 縦棒の集合縦棒をクリック 0 作成したグラフが選択されていることを確認デザインタブを選択お使いの環境によってはグラフのデザインタブと表示される場合があります 2 種類グループの ( グラフの種類の変更 ) をクリック 3 すべてのグラフタブを選択 4 左側の一覧から横棒を選択 5 右側の一覧から集合横棒を選択 6 OK をクリック 7 場所グループの ( グラフの移動 ) をクリック 8 新しいシートをにしグラフと入力 9 OK をクリック 20 開発タブを選択コードグループの ( 記録終了 ) をクリック 2 VBEに切り替える 2 プロジェクトエクスプローラーのモジュール Module2 をダブルクリック 3 次のようにプロシージャを編集 -4-

5 練習 2_ プロシージャ. Sub 練習 2_() 2. Dim syurui As Integer 3. Select Case Range("F5").Value 4. Case " 縦棒 " 5. syurui = xlcolumnclustered 6. Case " 横棒 " 7. syurui = xlbarclustered 8. Case " 折れ線 " 9. syurui = xlline 0. Case " 面 ". syurui = xlarea 2. Case Else 3. MsgBox " 正しいグラフ名を入力してください " 4. Exit Sub 5. End Select 6. Range("B:E6").Select 7. ActiveSheet.Shapes.AddChart2(20, xlcolumnclustered).select 8. ActiveChart.SetSourceData Source:=Range(" 練習問題 2!$B$:$E$6") 9. ActiveChart.ChartType = syurui 20. ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=" グラフ " 2. End Sub. 練習 2_ プロシージャ開始 2. 整数型の変数 syurui を使用することを宣言 3. セル F 5 の値が 4. 縦棒の場合は 5. 変数 syurui に xlcolumnclustered を代入 6. 横棒の場合は 7. 変数 syurui に xlbarclustered を代入 8. 折れ線の場合は 9. 変数 syurui に xlline を代入 0. 面の場合は. 変数 syurui に xlarea を代入 2. それ以外の場合は 3. 正しいグラフ名を入力してくださいのメッセージを表示 4. Subプロシージャを抜ける 5. Select Caseステートメント終了グラフの追加と移動グラフの種類には変数 syurui に代入されている値を設定プロシージャ終了 4 Excel に切り替えてグラフシートグラフを削除 5シート練習問題 2 の練習 2_ ボタンをクリック -5-

6 3 VBE に切り替える 2 End Sub の下の行にカーソルを移動 3 次のプロシージャを入力練習 2_2 プロシージャ. Sub 練習 2_2() 2. Sheets(" グラフ ").Delete 3. End Sub. 練習 2_2 プロシージャ開始 2. グラフシートグラフを削除 3. プロシージャ終了 4 Excel に切り替えてシート練習問題 2 の練習 2_2 ボタンをクリック 5 削除をクリック練習問題 3 VBEに切り替える 2 メニューの挿入をクリック 3 標準モジュールをクリック 4 モジュール Module3 に次のプロシージャを入力練習 3 プロシージャ. Sub 練習 3() 2. Dim i As Integer 3. Range("E6").Select 4. For i = To 5 5. If ActiveCell.Offset(0, -).Value >= 80 Then 6. ActiveCell.Value = " 合格 " 7. Else 8. ActiveCell.Value = " 不合格 " 9. End If 0. ActiveCell.Offset(, 0).Select. Next 2. End Sub -6-

7 . 練習 3 プロシージャ開始 2. 整数型の変数 i を使用することを宣言 3. セル E 6 を選択 4. 変数 i がから 5 になるまで処理を繰り返す 5. アクティブセルの列左のセルの値が 80 以上の場合は 6. アクティブセルに合格を代入 7. それ以外の場合は 8. アクティブセルに不合格を代入 9. Ifステートメント終了 0. 行下のセルを選択. 変数 i に変数 i +の結果を代入し 4 行目に戻る 2. プロシージャ終了 5 Excel に切り替えてシート練習問題 3 の練習 3 ボタンをクリック練習問題 4 VBEに切り替える 2 メニューの挿入をクリック 3 標準モジュールをクリック 4 モジュール Module4 に次のプロシージャを入力練習 4 プロシージャ. Sub 練習 4() 2. Dim total As Long 3. Range("C6").Select 4. Do While ActiveCell.Value <> "" 5. total = total + ActiveCell.Value 6. ActiveCell.Offset(0, ).Value = total 7. ActiveCell.Offset(, 0).Select 8. Loop 9. End Sub. 練習 4 プロシージャ開始 2. 長整数型の変数 total を使用することを宣言 3. セル C 6 を選択 4. アクティブセルが空白でない間は 5. 変数 total に変数 total + アクティブセルの値の結果を代入 6. アクティブセルの列右のセルに変数 total の値を代入 7. アクティブセルの行下のセルに移動 8. 4 行目に戻る 9. プロシージャ終了 5 Excel に切り替えてシート練習問題 4 の練習 4 ボタンをクリック -7-

8 第 5 章練習問題練習問題 VBE を起動 2 プロジェクトエクスプローラーの標準モジュールをダブルクリック 3 モジュールアンケートをダブルクリック 4 End Sub の下の行にカーソルを移動 5 次のプロシージャを入力検索プロシージャ. Sub 検索 () 2. Dim koumoku As String 3. Dim jyouken As String 4. Dim retu As Byte 5. koumoku = InputBox(" 検索する項目を番号で選択してください " & Chr(0)& _ 6. ". 性別 " & Chr(0)& "2. 職業 " & Chr(0)& "3. 価格 " & Chr(0)& _ 7. "4. 飲みやすさ " & Chr(0)& "5. 購入予定 ", " 検索 ") 8. Select Case koumoku 9. Case 0. jyouken = InputBox(" 性別を入力してください ", " 性別 "). retu = 2 2. Case 2 3. jyouken = InputBox(" 職業を入力してください ", " 職業 ") 4. retu = 3 5. Case 3 6. jyouken = InputBox(" 価格を入力してください ", " 価格 ") 7. retu = 4 8. Case 4 9. jyouken = InputBox(" 飲みやすさを入力してください ", " 飲みやすさ ") 20. retu = 5 2. Case jyouken = InputBox(" 購入予定を入力してください ", " 購入予定 ") 23. retu = Case Else 25. MsgBox " 入力したデータが間違っています " 26. End Select 27. If jyouken <> "" Then 28. Range("B4").Select 29. Selection.AutoFilter retu, jyouken 30. End If 3. End Sub 5~7 行目はコードが長いので行継続文字 _( 半角スペース+ 半角アンダースコア ) を使って行を複数に分割しています行継続文字を使わずに行で記述してもかまいません & の前のスペースは直接入力します case の後のスペースは直接入力します -8-

9 . 検索プロシージャ開始 2. 文字列型の変数 koumoku を使用することを宣言 3. 文字列型の変数 jyouken を使用することを宣言 4. バイト型の変数 retu を使用することを宣言 5. タイトルバー検索メッセージ検索する項目を番号で選択してください ( 改行 ) 6.. 性別 ( 改行 )2. 職業 ( 改行 )3. 価格 ( 改行 ) 飲みやすさ ( 改行 )5. 購入予定とテキストボックスを表示し入力された値を変数 koumoku に代入 8. 変数 koumoku が 9. の場合は 0. タイトルバー性別メッセージ性別を入力してくださいとテキストボックスを表示し入力された値を変数 jyouken に代入. 変数 retu に 2 を代入 2. 2 の場合は 3. タイトルバー職業メッセージ職業を入力してくださいとテキストボックスを表示し入力された値を変数 jyouken に代入 4. 変数 retu に 3 を代入 5. 3 の場合は 6. タイトルバー価格メッセージ価格を入力してくださいとテキストボックスを表示し入力された値を変数 jyouken に代入 7. 変数 retu に 4 を代入 8. 4 の場合は 9. タイトルバー飲みやすさメッセージ飲みやすさを入力してくださいとテキストボックスを表示し入力された値を変数 jyouken に代入 20. 変数 retu に 5 を代入 2. 5 の場合は 22. タイトルバー購入予定メッセージ購入予定を入力してくださいとテキストボックスを表示し入力された値を変数 jyouken に代入 23. 変数 retu に 6 を代入 24. それ以外の場合は 25. 入力したデータが間違っていますのメッセージを表示 26. Select Caseステートメント終了 27. 変数 jyouken が空白以外の場合は 28. セル B4 を選択 29. 変数 retu の列を変数 jyouken を条件として抽出 30. Ifステートメント終了 3. プロシージャ終了 6 Excel に切り替えてシートアンケートの検索ボタンをクリック -9-

10 練習問題 2 VBE に切り替える 2 プロジェクトエクスプローラーのモジュールお客様リストをダブルクリック 3 次のプロシージャを入力割引後料金プロシージャ. Function 割引後料金 ( 継続月数, 通常料金 ) 2. Select Case 継続月数 3. Case Is >= 割引後料金 = 通常料金 - Int( 通常料金 * 0.05) 5. Case Is >= 割引後料金 = 通常料金 - Int( 通常料金 * 0.03) 7. Case Is >= 2 8. 割引後料金 = 通常料金 - Int( 通常料金 * 0.02) 9. Case Else 0. 割引後料金 = 通常料金. End Select 2. End Function. 割引後料金プロシージャ開始( 引数に継続月数と通常料金を指定 ) 2. 継続月数が以上の場合は 4. 通常料金 -( 通常料金 0.05) の小数点以下を切り捨てた値の結果を割引後料金に代入以上の場合は 6. 通常料金 -( 通常料金 0.03) の小数点以下を切り捨てた値の結果を割引後料金に代入 7. 2 以上の場合は 8. 通常料金 -( 通常料金 0.02) の小数点以下を切り捨てた値の結果を割引後料金に代入 9. それ以外の場合は 0. 通常料金を割引後料金に代入. Select Caseステートメント終了 2. プロシージャ終了 2 Excel に切り替える 2シートお客様リストのセル I7 をクリック 3 ( 関数の挿入 ) をクリック 4 関数の分類のをクリックし一覧からユーザー定義を選択 5 関数名の一覧から割引後料金を選択 6 OK をクリック 7 継続月数に E7 と入力 8 通常料金に H7 と入力 9 OK をクリック 0セル I7 をセル範囲 I8:I27 にコピー -0-

11 総合問題解答総合問題 VBEを起動 2 挿入をクリック 3 標準モジュールをクリック 4 モジュール Module に次のプロシージャを入力第四半期へプロシージャ. Sub 第四半期へ () 2. Worksheets(" 第四半期 ").Select 3. End Sub プロシージャの意味. 第四半期へプロシージャ開始 2. シート第四半期を選択 3. プロシージャ終了 5同様に第 2 四半期へ上半期計へメニューへプロシージャを入力 6 Excelに切り替える 7シートメニューを選択 8 開発タブを選択 9 コントロールグループの 0 フォームコントロールの ( コントロールの挿入 ) をクリック ( ボタン ( フォームコントロール )) をクリック任意の大きさにドラッグ 2 マクロ名の一覧から第四半期へを選択 3 OK をクリック 4 ボタンの表示名を第四半期に変更 5同様に第 2 四半期ボタン上半期計ボタンを作成しプロシージャを登録 6シート第四半期第 2 四半期上半期計にメニューボタンを作成しプロシージャを登録 --

12 2 VBE に切り替える 2 モジュール Module が表示されていることを確認 3 最終行の End Sub の下の行にカーソルを移動 4 次のプロシージャを入力印刷プレビュープロシージャ. Sub 印刷プレビュー () 2. ActiveSheet.PrintPreview 3. End Sub. 印刷プレビュープロシージャ開始 2. アクティブシートを印刷プレビューで表示 3. プロシージャ終了 5 Excel に切り替える 6シート上半期計を選択 7 開発タブを選択 8 コントロールグループの 9 フォームコントロールの ( コントロールの挿入 ) をクリック ( ボタン ( フォームコントロール )) をクリック 0 任意の大きさにドラッグマクロ名の一覧から印刷プレビューを選択 2 OK をクリック 3 ボタンの表示名を印刷プレビューに変更 3 シート上半期計を選択 2 開発タブを選択 3 コードグループの ( マクロの記録 ) をクリック 4 マクロ名にトップ 3 と入力 5 マクロの保存先のをクリックし一覧から作業中のブックを選択 6 OK をクリック 7セル B4 をクリック表内のセルであればどこでもかまいません 8 データタブを選択 9 並べ替えとフィルターグループの ( フィルター ) をクリック 0 上半期計フィールドのをクリック数値フィルターをポイント 2 トップテンをクリック 3 上位 3 項目に設定 4 OK をクリック 5セル範囲 C4:C8 を選択 -2-

13 6 を押しながらセル範囲 E4:E8 を選択 7 挿入タブを選択 8 209/206 グラフグループの 203 グラフグループの ( 縦棒 / 横棒グラフの挿入 ) をクリック ( 縦棒グラフの挿入 ) をクリック 9 2-D 縦棒の集合縦棒をクリック 20 開発タブを選択コードグループのコントロールグループのフォームコントロールの ( 記録終了 ) をクリック ( コントロールの挿入 ) をクリック ( ボタン ( フォームコントロール )) をクリック任意の大きさにドラッグマクロ名の一覧からトップ 3 を選択 OK をクリックボタンの表示名をグラフに変更 4 VBE に切り替える 2 プロジェクトエクスプローラーのモジュール Module2 をダブルクリック 3 End Sub の下の行にカーソルが表示されていることを確認 4 次のプロシージャを入力グラフ削除プロシージャ. Sub グラフ削除 () 2. ActiveSheet.ChartObjects.Delete 3. Range("B4").Select 4. Selection.AutoFilter 5. Range("A").Select 6. End Sub プロシージャの意味. グラフ削除プロシージャ開始 2. アクティブシートのグラフを削除 3. セル B 4 を選択 4. フィルターを解除 5. セル A を選択 6. プロシージャ終了 5 Excel に切り替える 6 開発タブを選択 7 コントロールグループの 8 フォームコントロールの ( コントロールの挿入 ) をクリック ( ボタン ( フォームコントロール )) をクリック 9 任意の大きさにドラッグ 0 マクロ名の一覧からグラフ削除を選択 OK をクリック 2 ボタンの表示名をグラフ削除に変更 -3-

14 総合問題 2 セル B5 をクリック 2 開発タブを選択 3 コードグループの ( マクロの記録 ) をクリック 4 マクロ名に日報と入力 5 マクロの保存先のをクリックし一覧から作業中のブックを選択 6 OK をクリック 7 コードグループの ( 相対参照で記録 ) をオン ( 濃い灰色の状態 ) にする選択するセルの位置を相対的に記録するため ( 相対参照で記録 ) をオンにします 8セル B5 に 9/ と入力 9 を2 回押すを押すとアクティブセルが下に移動するので注意しましょう 0セル D5 に晴れと入力を押す 2セル E5 に 52 と入力 3 を押す 4セル F5 にと入力 5 を押す 6セル G5 に松岡と入力 7 を押す 8 を5 回押す 9 コードグループの ( 記録終了 ) をクリック 20 VBEを起動プロジェクトエクスプローラーの標準モジュールをダブルクリックモジュール Module をダブルクリックプロシージャを次のように編集 -4-

15 日報プロシージャ. Sub 日報 () 2. If Range("B5").Value = "" Then 3. Range("B5").Select 4. Else 5. Range("B4").Select 6. Selection.End(xlDown).Select 7. ActiveCell.Offset(, 0).Select 8. End If 9. ActiveCell.Value = InputBox(" 今日の日付を入力してください ", " 日報 ",, 200, 200) 0. ActiveCell.Offset(0, 2).Select. ActiveCell.Value = InputBox(" 天候を入力してください ", " 日報 ",, 200, 200) 2. ActiveCell.Offset(0, ).Select 3. ActiveCell.Value = InputBox(" 来場者数を入力してください ", " 日報 ",, 200, 200) 4. ActiveCell.Offset(0, ).Select 5. ActiveCell.Value = InputBox(" 売上金額を入力してください ", " 日報 ",, 200, 200) 6. ActiveCell.Offset(0, ).Select 7. ActiveCell.Value = InputBox(" 担当者名を入力してください ", " 日報 ",, 200, 200) 8. ActiveCell.Offset(, -5).Select 9. End Sub FormulaRC は R C 形式の数式を受け取るプロパティですマクロで自動的に記述されたコードは行 (Row) と列 (Column) を相対的な位置関係で記録するため FormulaRCプロパティが使われます本書では FormulaRCプロパティの代わりにオブジェクトの値を代入する Value プロパティを使います Offsetプロパティに続く Range("A") は Offsetプロパティによる参照先のセルをセル A ( 左上端 ) とみなすためのコードでマクロで自動的に記述されます 0 行目の ActiveCell.Offset(0,2).Range("A").Select はアクティブセルを基準に 2 列右のセルを基準セル A としてそのセル A を選択という意味になります VBAで記述する場合は Range("A") を省略できるため本書では省略しています. 日報プロシージャ開始 2. セル B 5 が空白の場合は 3. セル B5 を選択 4. それ以外の場合は 5. セル B4 を選択 6. + でデータの下端のセルを選択 7. アクティブセルの行下のセルを選択 8. Ifステートメント終了 9. 画面上端 200 左端 200 の位置にタイトルバー日報メッセージ今日の日付を入力してくださいとテキストボックスを表示し入力された値をアクティブセルに代入 0. 2 列右のセルにアクティブセルを移動. 画面上端 200 左端 200の位置にタイトルバー日報メッセージ天候を入力してくださいとテキストボックスを表示し入力された値をアクティブセルに代入 2. 列右のセルにアクティブセルを移動 3. 画面上端 200 左端 200の位置にタイトルバー日報メッセージ来場者数を入力してくださいとテキストボックスを表示し入力された値をアクティブセルに代入 4. 列右のセルにアクティブセルを移動 5. 画面上端 200 左端 200の位置にタイトルバー日報メッセージ売上金額を入力してくださいとテキストボックスを表示し入力された値をアクティブセルに代入 6. 列右のセルにアクティブセルを移動 7. 画面上端 200 左端 200の位置にタイトルバー日報メッセージ担当者名を入力してくださいとテキストボックスを表示し入力された値をアクティブセルに代入 8. 行下 5 列左のセルにアクティブセルを移動 9. プロシージャ終了 -5-

16 2 Excelに切り替える 2 開発タブを選択 3 コントロールグループの ( コントロールの挿入 ) をクリック 4 フォームコントロールの ( ボタン ( フォームコントロール )) をクリック 5 任意の大きさにドラッグ 6 マクロ名の一覧から日報を選択 7 OK をクリック 8 ボタンの表示名を日報入力に変更総合問題 3 開発タブを選択 2 コードグループの ( マクロの記録 ) をクリック 3 マクロ名に未入荷リスト作成と入力 4 マクロの保存先のをクリックし一覧から作業中のブックを選択 5 OK をクリック 6 コードグループの ( 相対参照で記録 ) をオフ ( 標準の色の状態 ) にする選択するセルの位置をそのまま記録するため ( 相対参照で記録 ) をオフにします 7シート商品リストを選択 8セル B4 をクリック 9 データタブを選択 0 並べ替えとフィルターグループの ( 詳細設定 ) をクリック抽出先の指定した範囲をにする 2 リスト範囲を $B$4:$G$50 に設定 3 検索条件範囲を入荷待ちリスト!$B$3:$B$4 に設定 4 抽出範囲を商品リスト!$I$4 に設定空いているセルを仮に指定します 5 OK をクリック 6シート入荷待ちリストを選択 7 開発タブを選択 8 コードグループの ( 記録終了 ) をクリック 9シート商品リストを選択 20セル範囲 I4:N8 を選択ホームタブを選択編集グループの ( クリア ) をクリックすべてクリアをクリック -6-

17 VBE を起動標準モジュールをダブルクリックモジュール Module をダブルクリックプロシージャを次のように編集未入荷リスト作成プロシージャ. Sub 未入荷リスト作成 () 2. Worksheets(" 入荷待ちリスト ").Select 3. Range("B7").Select 4. ActiveCell.CurrentRegion.Clear 5. Worksheets(" 商品リスト ").Select 6. Range("B4:G50").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _ 7. " 入荷待ちリスト ").Range("B3:B4"), CopyToRange:=Worksheets(" 入荷待ちリスト ")_ 8..Range("B7"),Unique:=False 9. Sheets(" 入荷待ちリスト ").Select 0. End Sub 6~8 行目はコードが長いので行継続文字 _( 半角スペース + 半角アンダースコア ) を使って行を複数に分割しています行継続文字を使わずに行で記述してもかまいません. 未入荷リスト作成プロシージャ開始 2. シート入荷待ちリストを選択 3. セル B 7 を選択 4. アクティブ領域をクリア 5. シート商品リストを選択フィルターによる抽出の実行シート入荷待ちリストを選択 0. プロシージャ終了総合問題 4 VBEを起動 2 挿入をクリック 3 標準モジュールをクリック 4 モジュール Module に次のプロシージャを入力 -7-

18 表面利回りプロシージャ. Function 表面利回り ( 家賃, 販売価格 ) 2. If 家賃 = "" Then 3. 表面利回り = "" 4. Else 5. 表面利回り = Round( 家賃 * 2 / 販売価格 * 00, ) 6. End If 7. End Function. 表面利回りプロシージャ開始( 引数に家賃と販売価格を指定 ) 2. 家賃が空白の場合は 3. 空白を表面利回りに代入 4. それ以外の場合は 5. 家賃 2 販売価格 00 の小数第 2 位を四捨五入した結果を表面利回りに代入 6. Ifステートメント終了 7. プロシージャ終了 2 Excel に切り替える 2セル D9 をクリック 3 ( 関数の挿入 ) をクリック 4 関数の分類のをクリックし一覧からユーザー定義を選択 5 関数名の一覧から表面利回りを選択 6 OK をクリック 7 家賃に B9 と入力 8 販売価格に $B$6 と入力 9 OK をクリック 0セル D9 をセル範囲 D0:D にコピー同様にセル範囲 H9:H にユーザー定義関数表面利回りを入力総合問題 5 VBEを起動 2 挿入をクリック 3 標準モジュールをクリック 4 モジュール Module に次のプロシージャを入力 -8-

19 金種計算プロシージャ. Function 金種計算 ( 金額, 単位 ) 2. Select Case 単位 3. Case 金種計算 = Int( 金額 / 0000) 5. Case 金種計算 = Int(( 金額 Mod 0000)/ 5000) 7. Case 金種計算 = Int(( 金額 Mod 5000)/ 000) 9. Case 金種計算 = Int(( 金額 Mod 000)/ 500). Case 金種計算 = Int(( 金額 Mod 500)/ 00) 3. Case 金種計算 = Int(( 金額 Mod 00)/ 50) 5. Case 0 6. 金種計算 = Int(( 金額 Mod 50)/ 0) 7. Case 5 8. 金種計算 = Int(( 金額 Mod 0)/ 5) 9. Case 20. 金種計算 = 金額 Mod 5 2. End Select 22. End Function. 金種計算プロシージャ開始( 引数に金額と単位を指定 ) 2. 単位がの場合は 4. 金額 0000 の小数点以下を切り捨てた結果を金種計算に代入の場合は 6. ( 金額 0000 の余り ) 5000 の小数点以下を切り捨てた結果を金種計算に代入の場合は 8. ( 金額 5000 の余り ) 000 の小数点以下を切り捨てた結果を金種計算に代入の場合は 0. ( 金額 000 の余り ) 500 の小数点以下を切り捨てた結果を金種計算に代入. 00 の場合は 2. ( 金額 500 の余り ) 00 の小数点以下を切り捨てた結果を金種計算に代入の場合は 4. ( 金額 00 の余り ) 50 の小数点以下を切り捨てた結果を金種計算に代入 5. 0 の場合は 6. ( 金額 50 の余り ) 0 の小数点以下を切り捨てた結果を金種計算に代入 7. 5 の場合は 8. ( 金額 0 の余り ) 5 の小数点以下を切り捨てた結果を金種計算に代入 9. の場合は 20. 金額 5 の余りの結果を金種計算に代入 2. Select Caseステートメント終了 22. プロシージャ終了 -9-

20 2 Excel に切り替える 2セル E4 をクリック 3 ( 関数の挿入 ) をクリック 4 関数の分類のをクリックし一覧からユーザー定義を選択 5 関数名の一覧から金種計算を選択 6 OK をクリック 7 金額に $D4 と入力 8 単位に E$3 と入力 9 OK をクリック 0セル E4 をセル範囲 E4:M8 にコピー総合問題 6 VBEを起動 2 挿入をクリック 3 標準モジュールをクリック 4 モジュール Module に次のプロシージャを入力顧客名入力プロシージャ. Sub 顧客名入力 () 2. Dim kokyaku As String 3. kokyaku = InputBox(" 顧客名を入力します ", " 顧客名 ") 4. If kokyaku = "" Then 5. Range("B4").Value = "" 6. Else 7. Range("B4").Value = kokyaku & " 御中 " 8. End If 9. End Sub & の前のスペースは直接入力しますは全角スペースを表します. 顧客名入力プロシージャ開始 2. 文字列型の変数 kokyaku を使用することを宣言 3. タイトルバー顧客名メッセージ顧客名を入力しますとテキストボックスを表示し入力された値を変数 kokyaku に代入 4. 変数 kokyaku が空文字列の場合は 5. セル B4 に空白を代入 6. それ以外の場合は 7. 変数 kokyaku と御中を連結した文字列をセル B4 に代入 8. Ifステートメント終了 9. プロシージャ終了 -20-

21 2 VBEが表示されていることを確認 2 ファイルをクリック 3 ファイルのインポートをクリック 4フォルダー Excel209/206/203マクロVBA が開かれていることを確認フォルダー E x c e l 209/206/203マクロ V B A が開かれていない場合は P C ドキュメント Excel209/206/203マクロ VBA を選択します 5フォルダー総合問題を選択 6 開くをクリック 7 リスト.bas を選択 8 開くをクリック 3 モジュール Module が表示されていることを確認 2 End Sub の下の行にカーソルを移動 3 次のプロシージャを入力データ入力プロシージャ. Sub データ入力 () 2. Dim kataban As String 3. Range("C5").Select 4. Do While ActiveCell.Offset(0, -).Value <> "" 5. kataban = InputBox(" 型番を入力します " & Chr(0)& _ 6. " 終了する場合は *( アスタリスク ) を入力してください ", " 型番 ") 7. If kataban = "*" Then 8. ActiveCell.Value = "*" 9. Exit Do 0. Else. ActiveCell.Value = kataban 2. ActiveCell.Offset(0, 3).Select 3. ActiveCell.Value = InputBox(" 数量を入力します ", " 数量 ") 4. ActiveCell.Offset(, -3).Select 5. End If 6. Loop 7. End Sub 5~6 行目はコードが長いので行継続文字 _( 半角スペース + 半角アンダースコア ) を使って行を複数に分割しています行継続文字を使わずに行で記述してもかまいません -2-

22 . データ入力プロシージャ開始 2. 文字列型の変数 kataban を使用することを宣言 3. セル C 5 を選択 4. アクティブセルの列左のセルが空白でない間は 5. タイトルバー型番メッセージ型番を入力します ( 改行 ) 6. 終了する場合は *( アスタリスク ) を入力してくださいとテキストボックスを表示し入力された値を変数 kataban に代入 7. 変数 kataban が * の場合は 8. アクティブセルに * を代入 9. Do~Loopステートメントから抜ける 0. それ以外の場合は. 変数 kataban の値をアクティブセルに代入 2. 3 列右にアクティブセルを移動 3. タイトルバー数量メッセージ数量を入力しますとテキストボックスを表示し入力された値をアクティブセルに代入 4. 行下 3 列左のセルにアクティブセルを移動 5. Ifステートメント終了 6. 4 行目に戻る 7. プロシージャ終了 4 モジュール Module が表示されていることを確認 2 最終行の End Sub の下の行にカーソルを移動 3 次のプロシージャを入力プレビュープロシージャ. Sub プレビュー () 2. MsgBox " プレビューを実行後印刷ボタンをクリックします " 3. ActiveSheet.PrintPreview 4. End Sub. プレビュープロシージャ開始 2. プレビューを実行後印刷ボタンをクリックしますのメッセージを表示 3. アクティブシートを印刷プレビューで表示 4. プロシージャ終了 -22-

23 5 モジュール Module が表示されていることを確認 2 最終行の End Sub の下の行にカーソルを移動 3 次のプロシージャを入力データ削除プロシージャ. Sub データ削除 () 2. Range("B4:E5,C5:C29,F5:F29").ClearContents 3. Range("A").Select 4. End Sub. データ削除プロシージャ開始 2. セル範囲 B4:E5 とセル範囲 C5:C29 とセル範囲 F5:F29 のデータを削除 3. セル A を選択 4. プロシージャ終了総合問題 7 開発タブを選択 2 コードグループの ( マクロの記録 ) をクリック 3 マクロ名にシート保護と入力 4 マクロの保存先のをクリックし一覧から作業中のブックを選択 5 OK をクリック 6 ホームタブを選択 7 セルグループの ( 書式 ) をクリック 8 シートの保護をクリック 9 シートとロックされたセルの内容を保護するがになっていることを確認 0 OK をクリック開発タブを選択 2 コードグループの ( 記録終了 ) をクリック -23-

24 2 VBEを起動 2 プロジェクトエクスプローラーの標準モジュールをダブルクリック 3 モジュール Module をダブルクリック 4 End Sub の下の行にカーソルを移動 5 次のプロシージャを入力シート保護解除プロシージャ. Sub シート保護解除 () 2. Dim i As Integer 3. Dim mypass As String 4. For i = To 3 5. mypass = InputBox(" パスワードを入力 ( 大文字小文字を認識します )", _ 6. " パスワード入力 ") 7. If mypass = "password" Then 8. MsgBox " シート保護を解除します " 9. ActiveSheet.Unprotect 0. Exit For. Else 2. MsgBox " パスワードが違います " 3. End If 4. Next 5. End Sub To の前後のスペースは直接入力します 5~6 行目はコードが長いので行継続文字 _( 半角スペース + 半角アンダースコア ) を使って行を複数に分割しています行継続文字を使わずに行で記述してもかまいません. シート保護解除プロシージャ開始 2. 整数型の変数 i を使用することを宣言 3. 文字列型の変数 mypass を使用することを宣言 4. 変数 i が ~ 3 になるまで処理を繰り返す 5. タイトルバーパスワード入力メッセージパスワードを入力 ( 大文字小文字を認識しま 6. す ) とテキストボックスを表示し入力された値を変数 mypass に代入 7. 変数 mypass の値が password の場合は 8. シート保護を解除しますのメッセージを表示 9. アクティブシートのシート保護を解除 0. For Nextステートメントを抜ける. それ以外の場合は 2. パスワードが違いますのメッセージを表示 3. Ifステートメント終了 4. 変数 i に変数 i + の結果を代入し 4 行目に戻る 5. プロシージャ終了 -24-

25 よくわかる Microsoft Excel 209/206/203 マクロ /VBA 練習問題総合問題解答 (FPT90) 209 年 9 月 6 日初版発行著作 / 制作 : 富士通エフオーエム株式会社発行者 : 大森康文発行所 : F エフオーエム OM 出版 ( 富士通エフオーエム株式会社 ) 東京都港区海岸 -6- ニューピア竹芝サウスタワー本書は構成文章プログラム画像データなどのすべてにおいて著作権法上の保護を受けています本書の一部あるいは全部についていかなる方法においても複写複製など著作権法上で規定された権利を侵害する行為を行うことは禁じられています本書に関するご質問はホームページまたは郵便にてお寄せください < ホームページ > 上記ホームページ内の FOM 出版から QA サポートにアクセスし QA フォームのご案内から所定のフォームを選択して必要事項をご記入の上送信してください < 郵便 > 次の内容を明記の上上記発行所の FOM 出版デジタルコンテンツ開発部まで郵送してくださいテキスト名該当ページ質問内容 ( できるだけ詳しく操作状況をお書きください ) ご住所お名前電話番号ご住所お名前電話番号などお知らせいただきました個人に関する情報はお客様ご自身とのやり取りのみに使用させていただきますほかの目的のために使用することは一切ございませんなお次の点に関してはあらかじめご了承くださいご質問の内容によっては回答に日数を要する場合があります本書の範囲を超えるご質問にはお答えできません電話や FAX によるご質問には一切応じておりません本製品に起因してご使用者に直接または間接的損害が生じても富士通エフオーエム株式会社はいかなる責任も負わないものとし一切の賠償などは行わないものとします本書に記載された内容などは予告なく変更される場合があります FUJITSU FOM LIMITED 209

Excel2013　マクロ

Excel2013　マクロ OA スキルアップ Excel2013 マクロ 1 / 12 マクロ機能概要マクロとは Excel2013 マクロマクロとは Excel で行う一連の操作を自動実行させる機能です毎日繰り返し行う業務はマクロとして登録しておけば効率的に仕事を進めることができますマクロの作成方法マクロは次の 2 つの方法で作成できます 1. マクロの記憶機能を使う実際に操作した内容をそのまま記録してマクロを作成