memoのブログ

23Apr
- Exxcel VBA Tips Excelのファイル同士でセル値をコピーする
  Exxcel VBA Tips Excelのファイル同士でセル値をコピーするExcelのワークブック(ワークシート)同士で内容を転記するVBAマクロです。単一のファイル同士のコピーですが、少し修正すれば、複数ファイル同士も可能でしょう。----------------' このツールのBookとSheetを保存Dim ToolBook As WorkbookDim ToolBookName As StringDim ToolSheet As WorksheetDim ToolSheetName As String' この転記元ファイルDim OrgBook As WorkbookDim OrgBookName As StringDim OrgSheet As WorksheetDim OrgSheetName As String' この転記先ファイルDim CopyBook As WorkbookDim CopyBookName As StringDim CopySheet As WorksheetDim CopySheetName As String' 集計ボタン押下Public Sub 集計実行() ' 高速化開始 Range("C1").Value = "実行中" Application.ScreenUpdating = False ' 戻り先を保存 ToolBookName = ActiveWorkbook.Name ToolSheetName = ActiveSheet.Name ' ファイル名設定を取り込み Call 設定読み込み ' 出力ファイルをオープン Set CopyBook = Workbooks.Open(CopyBookName) ' 転記処理 Call 転記処理 ' 出力ファイルを保存してクローズ CopyBook.Save CopyBook.Close ' 戻り先を表示 Workbooks(ToolBookName).Activate Range("A1").Select ' 高速化終了 Application.ScreenUpdating = True Range("C1").Value = "終了"End Sub' ファイル名設定を取り込みPrivate Sub 設定読み込み() OrgBookName = Range("C3").Value OrgSheetName = Range("E3").Value CopyBookName = Range("C4").Value CopySheetName = Range("E4").ValueEnd Sub' 転記処理Private Sub 転記処理() ' コピー元ファイルのオープン Set OrgBook = Workbooks.Open(OrgBookName) ' 転記処理メイン ' セルA1同士を転記 CopyBook.Sheets(CopySheetName).Range("A1").Value _ = OrgBook.Sheets(OrgSheetName).Range("A1").Value ' コピー元ファイルのクローズ OrgBook.CloseEnd Sub
17Apr
- Exxcel VBA Tips 日時の中で時間をクリアするマクロ
  Exxcel VBA Tips日時の中で時間をクリアするマクロです。Dim i, j As IntegerDim cell_date_str As StringDim cell_date, cell_date_only As DateSub conv1() For i = 5 To 3000 If Cells(i, 1) <> "" Or Cells(i, 2) <> "" Or Cells(i, 3) <> "" Or Cells(i, 4) <> "" Then j = 6 Cells(i, j) <> "" And IsDate(Cells(i, j)) Then cell_date = CDate(Cells(i, j).Value) cell_date_str = Format(cell_date, "yyyy/mm/dd") cell_date_only = CDate(cell_date_str) Cells(i, j).Value = cell_date_only End If If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" And Cells(i, 4) = "" Then Exit For End If Next i End Sub

Exxcel VBA Tips Excelのファイル同士でセル値をコピーする

Exxcel VBA Tips 日時の中で時間をクリアするマクロ