時短に時間無制限

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

時短に時間無制限

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

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

関数A1＝シート名が記載されてるセル A2=取得したシート名のシートの値を取得したいセル =INDIRECT("'" & A1 & "'!A2") 解説INDIRECT関数とは、文字列を使ってセル参照が…

時短に時間無制限
時短に時間無制限
3か月前
2

シートまとめて削除VBA

シート名ｃより右側のシートをすべて削除するVBA Sub 指定シートの右側シート全部削除()Dim currentSheet As WorksheetDim sheetIndex As Integer' シートCのインデックス…

時短に時間無制限
時短に時間無制限
4か月前
2

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

目的Excelのフィルタ機能で可変する「納品書テーブル範囲」を含むテーブル上部の「納品書」欄からテーブル下部の「コメント欄」をまで毎回同じ範囲を印刷するときのVBA。シ…

時短に時間無制限
時短に時間無制限
4か月前
1

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

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

時短に時間無制限
時短に時間無制限
4か月前

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

VBA複製するシート　シートA 複製する枚数　１０枚 シート名のリストを記載してあるシート　シートB リストが書いてあるセルA1：A10 とする。 Sub CopyAndRenameSheets() …

時短に時間無制限
時短に時間無制限
4か月前
4

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

VBADim 主ブック As WorkbookDim ファイル名 As VariantDim ファイル As StringDim ブック As WorkbookDim シート As WorksheetDim 最終行 As Long' 新しいブックを作成Set…

時短に時間無制限
時短に時間無制限
4か月前
時短に時間無制限

時短に時間無制限

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

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

関数A1＝シート名が記載されてるセル
A2=取得したシート名のシートの値を取得したいセル

=INDIRECT("'" & A1 & "'!A2")

解説INDIRECT関数とは、文字列を使ってセル参照ができる関数

「'" & A1 & "'」は「”とA1の値と”」で出来た文字列「”A1"」
仮にA1の値が「北海道」なら「”北海道"」という文字列になる。
!が付くことで「"'" & A1 &

もっとみる
時短に時間無制限

時短に時間無制限

シートまとめて削除VBA

シートまとめて削除VBA

シート名ｃより右側のシートをすべて削除するVBA

Sub 指定シートの右側シート全部削除()Dim currentSheet As WorksheetDim sheetIndex As Integer' シートCのインデックスを取得sheetIndex = Sheets("SheetC").Index' シートCの右側にあるシートを順番に削除For Each currentSheet In Th

もっとみる
時短に時間無制限

時短に時間無制限

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

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

目的Excelのフィルタ機能で可変する「納品書テーブル範囲」を含むテーブル上部の「納品書」欄からテーブル下部の「コメント欄」をまで毎回同じ範囲を印刷するときのVBA。ショートカットはCtrl+jだけどオブジェクトボタンで作動する。

VBASub 範囲印刷()
'
' 範囲印刷 Macro
'
' Keyboard Shortcut: Ctrl+j
'
Range("myrange").Selec

もっとみる
時短に時間無制限

時短に時間無制限

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

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

メール選択＞添付ファイルとして転送＞自分に転送＞受信し解凍する。

Gmailのくせに基本的なとこで回りくどい処理。

時短に時間無制限

時短に時間無制限

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

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

VBA複製するシート　シートA
複製する枚数　１０枚
シート名のリストを記載してあるシート　シートB
リストが書いてあるセルA1：A10
とする。

Sub CopyAndRenameSheets() Dim sourceSheet As Worksheet Dim targetSheet As Worksheet Dim sheetNamesRange As Range

もっとみる
時短に時間無制限

時短に時間無制限

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

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

VBADim 主ブック As WorkbookDim ファイル名 As VariantDim ファイル As StringDim ブック As WorkbookDim シート As WorksheetDim 最終行 As Long' 新しいブックを作成Set 主ブック = Workbooks.Add' ファイルの選択ファイル名 = Application.GetOpenFilename(FileF

もっとみる