処理のバリエーション

VBA学習

▼条件に応じて実行する処理を分岐・D10セルが空欄の場合、アクティブシートの見出しの色を赤にする。 D10セルにデータが入っている場合は、アクティブシートを非表示にする。 If Range("D10").Value = "" Then ActiveSheet.Tab.Color = RGB(255, 0, 0) Else…

2020-08-20

ExcelVBA学習8日目

▼ブックのコピーを保存する・アクティブブックのパス名を変数(保存先)に格納し、「20200820.xlsm」ブックをコピーし、保存先のパスに「練習ブック1をコピーしたブック.xlsm」という名前で保存する Dim 保存先 As String 保存先 = ActiveWorkbook.Path Workb…

2020-08-19

ExcelVBA学習7日目

▼シートをコピーする・「Sheet1」シートを一番右のシートの前にコピーする Worksheets("sheet1").Copy _ Before:=Worksheets(Worksheets.Count) ・ワークシートの一番右端にシートを移動(コピー)する場合は、現在のワークシートの数を数えて、その数の後ろ…

2020-08-19

ExcelVBA学習6日目(セルの操作)

▼指定した行や列の操作・列の選択 Columns("B:E").Select 'B～E列・選択中のセルを含む行を選択 Selection.EntireRow.Select ※選択しているセルを基準にそのセルを含む行全体や列全体を選択するには、RangeオブジェクトのEntireRowプロパティやEntireColum…

2020-08-18

忘れがちなExcelの便利機能・ショートカット

▼便利なエクセルショートカット・Ctrl＋Shift＋１→数値に桁区切りのカンマ・Ctrl＋Shift＋５→数値を％にする・Ctrl＋Shift＋Lキー→データの一覧にフィルターを設定する・名前を付けて保存→F12作業の節目やある程度の時間を続けた後は定期的に実行し、バック…

2020-08-18

Excelの便利機能

▼トレース機能・トレース矢印の表示・「数式」タブの「参照元のトレース」。参照元が一目で確認できるので多用するべき。数式を入力したら、トレース機能でチェックするを徹底すること！・「参照元トレース」や「参照先のトレース」を複数回押すと、基準…

2020-08-18

ExcelVBA学習5日目(セルを操作する)

▼上下左右のセルを操作(Offsetプロパティ) VBAでは指定したセル範囲やセル範囲から〇行、〇列ずれたセルを参照することができる。オブジェクトにはRangeを指定する使用例） Sub 隣接セルの参照() With Range("B3") .Offset(, -1).Value = "左" .Offset(, 1)…

2020-08-14

VBAの実行方法について

▼クイックアクセスバーにマクロを追加する「ファイル」タブ→「オプション」→「クイックアクセスツールバー」「コマンドの選択」欄でマクロを選択し、クイックアクセスツールバーのユーザー設定欄で作業中のブックを選択する。使いたいマクロをクリックし…

2020-08-14

ExcelVBA学習4日目(ファイル操作)

VBA学習

▼ファイルオープン１ Openステートメントで指定ファイルを開き、内容をメッセージボックスに表示。Openステートメントでファイルを開くと、画面にファイル内容を表示することなく入出力可能な状態になる。まずGetステートメントで100biteづつバイナリモード…

2020-08-13

ExcelVBA学習3日目(データの処理メイン)

VBA学習

▼データエリアに外枠を付けるセルA1 を含むセル範囲にデータを入力してから実行する Option Explicit Sub Dataline() Range("A1").CurrentRegion.Select Selection.BorderAround ColorIndex:=5, Weight:=xlMedium End Sub ▼データエリアから項目行を除く Re…

2020-08-11

ExcelVBA学習2日目

VBA学習

ブックを上書き保存する Sub WorkbookSave() Dim Response As Integer Response = MsgBox("Do you save this " & ActiveWorkbook.FullName & "?", vbYesNo + vbQuestion, "check") If Response = vbYes Then ActiveWorkbook.Save End If End Sub ▼Rangeオブ…