時短に時間無制限

農家が事務効率化した際の忘備録

時短に時間無制限

農家が事務効率化した際の忘備録

セルからシート名を取得し、そのシート上のセルからデータを返す関数

関数A1＝シート名が記載されてるセル A2=取得したシート名のシートの値を取得したいセル =INDIRECT("'" & A1 & "'!A2") 解説INDIRECT関数とは、文字列を使ってセル参照ができる関数 「'" & A1 & "'」は「”とA1の値と”」で出来た文字列「”A1"」 仮にA1の値が「北海道」なら「”北海道"」という文字列になる。 !が付くことで「"'" & A1 & "'!」はシート名「北海道」を表し、 「"'" & A1 & "'!A2"」はシ

時短に時間無制限

    • シートまとめて削除VBA

      シート名ｃより右側のシートをすべて削除するVBA Sub 指定シートの右側シート全部削除()Dim currentSheet As WorksheetDim sheetIndex As Integer' シートCのインデックスを取得sheetIndex = Sheets("SheetC").Index' シートCの右側にあるシートを順番に削除For Each currentSheet In ThisWorkbook.Sheets If currentSheet.Ind

      時短に時間無制限

      • 決まった範囲を範囲印刷するVBA

        目的Excelのフィルタ機能で可変する「納品書テーブル範囲」を含むテーブル上部の「納品書」欄からテーブル下部の「コメント欄」をまで毎回同じ範囲を印刷するときのVBA。ショートカットはCtrl+jだけどオブジェクトボタンで作動する。 VBASub 範囲印刷() ' ' 範囲印刷 Macro ' ' Keyboard Shortcut: Ctrl+j ' Range("myrange").Select Selection.PrintOut Copies:=1, Collate:

        時短に時間無制限

        • Gmailの複数メールからの添付ファイル一括ダウンロード

          メール選択＞添付ファイルとして転送＞自分に転送＞受信し解凍する。 Gmailのくせに基本的なとこで回りくどい処理。

          時短に時間無制限

        セルからシート名を取得し、そのシート上のセルからデータを返す関数

        時短に時間無制限

          シートを複数コピーし、シート名をリストから取得するVBA

          VBA複製するシート　シートA 複製する枚数　１０枚 シート名のリストを記載してあるシート　シートB リストが書いてあるセルA1：A10 とする。 Sub CopyAndRenameSheets() Dim sourceSheet As Worksheet Dim targetSheet As Worksheet Dim sheetNamesRange As Range Dim cell As Range Dim i As Integer

          時短に時間無制限

          シートを複数コピーし、シート名をリストから取得するVBA

          時短に時間無制限

          複数のブックの表を1枚にまとめるVBA

          VBADim 主ブック As WorkbookDim ファイル名 As VariantDim ファイル As StringDim ブック As WorkbookDim シート As WorksheetDim 最終行 As Long' 新しいブックを作成Set 主ブック = Workbooks.Add' ファイルの選択ファイル名 = Application.GetOpenFilename(FileFilter:="Excelファイル (*.xls; *.xlsx), *.xls

          時短に時間無制限

          複数のブックの表を1枚にまとめるVBA

          時短に時間無制限