Question

我下面的代码适用于空白工作簿中的所有工作表。但是当我将相同的代码添加到具有60pg宏的现有工作簿时（虽然在那些60pgs中没有为Font建立代码），但代码仅适用于工作表1。不是其他工作表。如何编辑以下代码以应用于工作簿中的所有工作表而不更改现有宏？请帮助。

Dim r As Range
Set r = Range("a1:i1")
r.Font.Bold = True
r.Font.Name = "Segoe UI Symbol"
r.Font.Size = 14
Set r = Range("a2:i100")
r.Font.Bold = True
r.Font.Name = "Segoe UI Symbol"
r.Font.Size = 11
'End Sub

End Sub

此代码有效。但是除了第一个工作表之外，它根本不适用于所有工作表。

Answer 1

class Copy_excel:
def __init__(self,src):
    self.wb = load_workbook(src)
    self.ws = self.wb.get_sheet_by_name("Sheet1")
    self.dest="destination.xlsx"

#Write the value in the cell defined by row_dest+column_dest         
def write_workbook(self,row_dest,column_dest,value):
    c = self.ws.cell(row = row_dest, column = column_dest)
    c.value = value

#Save excel file
def save_excel(self) :  
    self.wb.save(self.dest)

将FONT代码应用于现有宏

1 个答案: