2021-10-01から1ヶ月間の記事一覧
Sub copyCellsFromExternalFirstSheet() Dim fileFilter As String fileFilter = "Excel ファイル (*.xlsx;*.xlsm;*.xls;*.xlm),*.xlsx;*.xlsm;*.xls;*xlm" Dim filePath As Variant filePath = Application.GetOpenFilename(fileFilter) If filePath = Fals…
Sub selectCellOfAllSheets(Optional wb As Workbook, Optional cellRange As String = "A1") If wb Is Nothing Then Set wb = ActiveWorkbook For Each ws In wb.Sheets ws.Activate ws.Range(cellRange).Select Next wb.Sheets(1).Activate End Sub wb 編…
Sub setZoomOfAllSheets(Optional wb As Workbook, Optional zoomMagnification As Variant = 100) If wb Is Nothing Then Set wb = ActiveWorkbook For Each ws In wb.Sheets ws.Activate ActiveWindow.Zoom = zoomMagnification Next wb.Sheets(1).Activat…
Function isExcelFile(filePath As String) As Boolean isExcelFile = False Dim extensions(2) As String extensions(2) = "xls" extensions(0) = "xlsx" extensions(1) = "xlsm" Set fso = CreateObject("Scripting.FileSystemObject") Dim extensionName …
folderPath : 検索をするフォルダーのパス。 searchFileName : 検索するファイルの名前。拡張子含む。 見つからなければ空文字を返す。 フォルダ、サブフォルダ内に同名のファイルが複数ある場合、最初に見つかったファイルのみ返す。検索順はファイル名の昇…
解決方法 ・NVIDIAのドライバを「GeForce Game Ready」から「NVIDIA Studio」にする。 GeForce 公式ドライバー Dellの4Kモニター(S2722QC)を買ったのですが、私のゲーミングノートPC、G15にモニタ付属のUSB-Cケーブルで接続しても認識しませんでした。 モニ…