Question

我的Excel遭到损坏。当我打开excel时，出现以下消息：

“我们发现“”中的某些内容存在问题。是否要我们尝试尽可能多地恢复？如果您信任此工作簿的来源，请单击“是”。

当我单击“是”时，打开的excel的“ input4”标签配置错误

我认为这可能与我在下面添加的宏有关。

我不知道问题出在哪里，有人可以帮我吗？

Sub gera_quadro_inp4()

Dim n As Integer
Dim u As Integer
Dim LastR As Integer
Dim Cart As String

With Workbooks("TAB AUTO.xlsm").Sheets("input4").Range("B7:B100").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="mar/2008,jun/2008,set/2008,dez/2008,mar/2009,jun/2009,set/2009,dez/2009,mar/2010,jun/2010,set/2010,dez/2010,mar/2011,jun/2011,set/2011,dez/2011,mar/2012,jun/2012,set/2012,dez/2012,mar/2013,jun/2013,set/2013,dez/2013,mar/2014,jun/2014,set/2014,dez/2014,mar/2015,jun/2015,set/2015,dez/2015,mar/2016,jun/2016,set/2016,dez/2016,mar/2017,jun/2017,set/2017,dez/2017,mar/2018,jun/2018,set/2018,dez/2018,mar/2019,jun/2019,set/2019,dez/2019,mar/2020,jun/2020,set/2020,dez/2020,mar/2021,jun/2021,set/2021,dez/2021,mar/2022,jun/2022,set/2022,dez/2022,mar/2023,jun/2023,set/2023,dez/2023,mar/2024,jun/2024,set/2024," & _
"dez/2024,mar/2025,jun/2025,set/2025,dez/2025,mar/2026,jun/2026,set/2026,dez/2026,mar/2027,jun/2027,set/2027,dez/2027,mar/2028,jun/2028,set/2028,dez/2028,mar/2029,jun/2029,set/2029,dez/2029,mar/2030,jun/2030,set/2030,dez/2030,mar/2031,jun/2031,set/2031,dez/2031,mar/2032,jun/2032,set/2032,dez/2032,mar/2033,jun/2033,set/2033,dez/2033,mar/2034,jun/2034,set/2034,dez/2034,mar/2035,jun/2035,set/2035,dez/2035,mar/2036,jun/2036,set/2036,dez/2036,mar/2037,jun/2037,set/2037,dez/2037,mar/2038,jun/2038,set/2038,dez/2038,mar/2039,jun/2039,set/2039,dez/2039,mar/2040,jun/2040,set/2040,dez/2040"
End With

LastR = Workbooks("TAB AUTO.xlsm").Sheets("input1").Range("C8").End(xlDown).row

'Armazena carteiras em Cart
For Each Value In Workbooks("TAB AUTO.xlsm").Sheets("input1").Range("B8:B" & LastR)
Cart = Cart & "," & Value
Next Value

'Cria lista de opção de carteiras
With Workbooks("TAB AUTO.xlsm").Sheets("input4").Range("C7:C100").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Cart
End With


'Cria variáveis do quadro
cen = Workbooks("TAB AUTO.xlsm").Sheets("input3").Range("F6").Value
Workbooks("TAB AUTO.xlsm").Sheets("input4").Range(Workbooks("TAB AUTO.xlsm").Sheets("input4").Cells(6, 2), Workbooks("TAB AUTO.xlsm").Sheets("input4").Cells(6, 100)).Value = ""

Workbooks("TAB AUTO.xlsm").Sheets("input4").Range("B6").Value = "PERIODO_TRI_AJUSTE"
Workbooks("TAB AUTO.xlsm").Sheets("input4").Range("C6").Value = "CARTEIRA"
Workbooks("TAB AUTO.xlsm").Sheets("input4").Range("D6").Value = "VALOR_ANCL_ANT"

For u = 1 To cen
    Workbooks("TAB AUTO.xlsm").Sheets("input4").Cells(6, 4 + u).Value = "OVERRIDE_TRI_C" & u
    Workbooks("TAB AUTO.xlsm").Sheets("input4").Cells(6, 4 + cen + u).Value = "OVERRIDE_ANO_C" & u
Next u



Workbooks("TAB AUTO.xlsm").Sheets("input4").Range("B6").Select
Range(Selection, Selection.End(xlToRight)).Select

With Selection.Interior
       .Pattern = xlSolid
       .PatternColorIndex = xlAutomatic
       .ThemeColor = xlThemeColorDark1
       .TintAndShade = -0.149998474074526
       .PatternTintAndShade = 0
   End With
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   With Selection.Borders(xlEdgeLeft)
       .LineStyle = xlContinuous
       .ColorIndex = 0
       .TintAndShade = 0
       .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeTop)
       .LineStyle = xlContinuous
       .ColorIndex = 0
       .TintAndShade = 0
       .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeBottom)
       .LineStyle = xlContinuous
       .ColorIndex = 0
       .TintAndShade = 0
       .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeRight)
       .LineStyle = xlContinuous
       .ColorIndex = 0
       .TintAndShade = 0
       .Weight = xlThin
   End With
   With Selection.Borders(xlInsideVertical)
       .LineStyle = xlContinuous
       .ColorIndex = 0
       .TintAndShade = 0
       .Weight = xlThin
   End With
   With Selection.Borders(xlInsideHorizontal)
       .LineStyle = xlContinuous
       .ColorIndex = 0
       .TintAndShade = 0
       .Weight = xlThin
   End With
   With Selection.Font
       .Name = "Calibri"
       .Size = 11
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ThemeColor = xlThemeColorLight1
       .TintAndShade = 0
       .ThemeFont = xlThemeFontMinor
   End With
   With Selection.Font
       .Name = "Calibri"
       .Size = 11
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ThemeColor = xlThemeColorLight1
       .TintAndShade = 0
       .ThemeFont = xlThemeFontMinor
   End With
   Selection.Font.Bold = True

Cells.Select

Cells.EntireColumn.AutoFit
Range("A1").Select

结束子

'Gera input4 子gera_input4（）

Dim nework As Workbook

Workbooks("TAB AUTO.xlsm").Sheets("input4").Range("B6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Set nework = Workbooks.Add

nework.Sheets(1).Range("A1").PasteSpecial xlPasteValues

nework.Sheets(1).Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "mmm-yy"

Cells.Select
Cells.EntireColumn.AutoFit
nework.Sheets(1).Range("A1").Select

结束子

Excel损坏了vba宏“我们在“

0 个答案: