2020-01-26から1日間の記事一覧
少しでも繰り返し作業を楽に。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim file1 As String, book1 As String book1 = ActiveWorkbook.Namefile1 = Application.GetOpenFilename(FILE…
少しでも繰り返し作業を楽に。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim file1 As String, book1 As String book1 = ActiveWorkbook.Namefile1 = Application.GetOpenFilename(FILE…
