PageSetupオブジェクトについて 印刷範囲設定（PrintArea） PageSetupオブジェクトについて PageSetupオブジェクトのプロパティを変更することで印刷設定を行うことができる。 With Worksheets("Sheet1").PageSetup. '横向き印刷 .Orientation = xlLandscape…

経理で仕事をしていると、色んなタイプの経理マンに出会います。1円単位で差額を気にする人、無駄な経費を削減しろと言い続けている人、仕事をすぐ他人にお願いしている人。 タイプは様々ですが、仕事ができる経理マンには共通した習慣があります。 経理マン…

ファイルを保存する時に、ファイル名のみ指定し保存場所を指定しなかった場合規定の場所にファイルが保存される。 ActiveWorkbook.SaveAs Filename:="test2.xlsx", FileFormat:=xlWorkbookDefault 既定の場所変更方法 ファイル→オブション→保存→ブックの保存…

出題内容 「Sheet1」のA1:C5のセル範囲を、「Sheet2」のA1:C5にコピーしてください。 値も数式も書式も全てコピーしてください。 ただしSelectメソッドは使用禁止 ※行高と列幅の設定はしなくて良い。 excel-ubara.com 回答 Sub vba001() Sheets("Sheet1").Ra…

VBAには大きく３つの要素がある。 ①オブジェクトに対する操作②制御構文③関数 Sub wrk() Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row '制御構文（繰り返し） For i = 2 To LastRow '制御構文（分岐） 関数 If Cells(i, …

最終列と最終行を組み合わせて全てのセルに対して処理を行う。 Sub wrk() Dim i As Long Dim j As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(i, j).Interior.ColorIndex = 6 …

ExcelVBAを使用してOutlookメールを作成し送付する。 準備 Outlookを操作する為の参照設定。 VBE→ツール→参照設定→Microsoft Outlook 16.0 Object Libraryにチェック。16.0はバージョンによって変わる。 コード Sub SendMail1() '--- Outlook操作のオブジェ…

Sub delete() Dim wrk As String wrk = InputBox("文字列を入力してください") With Range("A1") .AutoFilter .AutoFilter field:=1, Criteria1:=wrk .CurrentRegion.Offset(1, 0).EntireRow.delete .AutoFilter End With End Sub InputBoxに入力された文字…

この記事の目的 生産PLとは 製品を1つだけ生産するとどうなる 費用とは 製造以外の生産活動はどこへ 製品による違い 生産利益を増やすために お金を使う時に考えること まとめ この記事の目的 1人1人が生産利益を増やす方法を考えることができるようになる。…

PLとは 損益計算書の英語表記。（Profit and Loss Statement） 一定期間にどれだけ儲けたのかを表す財務諸表の1つ。 財務諸表：貸借対照表・損益計算書・キャッシュフロー計算など。 収益-費用＝利益（損失） 勘定式のPL。 工場ではどんなの こんなの使って…