#11 How to Work with Excel Objects Range, Worksheet, Workbook in VBA скачать в хорошем качестве

#11 How to Work with Excel Objects Range, Worksheet, Workbook in VBA

Sub ExcelObjectsDemo() 'Working with Range Objects 'Select a range of cells ThisWorkbook.Worksheets("Sheet1").Range("A1:B2").Select 'Write values to a specific range ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = "Hello" ThisWorkbook.Worksheets("Sheet1").Range("A2").Value = "World" 'Change font of a specific range to bold ThisWorkbook.Worksheets("Sheet1").Range("A1:A2").Font.Bold = True 'Change background color of a specific range ThisWorkbook.Worksheets("Sheet1").Range("A1:A2").Interior.Color = RGB(255, 0, 0) ThisWorkbook.Worksheets("Sheet1").Range("A1:A2").Font.Color = RGB(255, 255, 255) 'Working with Worksheet Objects 'Add a new worksheet Worksheets.Add.Name = "NewSheet" 'Select the new worksheet Worksheets("NewSheet").Select 'Write data to the new worksheet Worksheets("NewSheet").Range("A1").Value = "Data in new sheet" 'Rename the new worksheet Worksheets("NewSheet").Name = "RenamedSheet" 'Working with Workbook Objects 'Open an existing workbook (Change the path to an actual file on your system) Workbooks.Open "C:\path\to\your\workbook.xlsx" 'Activate a specific workbook Workbooks("Second_Workbook.xlsx").Activate 'Read data from the activated workbook Dim data As Variant data = Workbooks("Second_Workbook.xlsx").Worksheets("Sheet1").Range("A1").Value 'Close the workbook without saving Workbooks("Second_Workbook.xlsx").Close SaveChanges:=False 'Write data from Second_Workbook to Sheet2 cell A3 ThisWorkbook.Worksheets("RenamedSheet").Range("A3").Value = data End Sub