vb 改变excel单元格格式 第二次运行无效

来源：百度知道 编辑：UC知道 时间：2024/06/02 14:23:25
等待高手:
比如Dim col As Integer
col = xlSheet.UsedRange.Columns.Column + xlSheet.UsedRange.Columns.Count

xlSheet.Cells(2, col).Select
Selection.Font.ColorIndex = 3 '跟边单元格字体颜色

按钮每点一次 col值会增大, 发现只有第一次点击有效, 寻求解决方法.
重新问: Private Sub Command1_Click()
....略
xlsheet.cells(1,1).select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
end sub

点击按钮后,excel单元格(1,1)边框改了,,,,,,,再手动把边框改会没有,,,,,,继续在点按钮, 就发现单元格(1,1)边框不改变了, vb重新运行 点按钮才有效? 说的够明白了吧? ?

你好好看下边点代码，你的VBA代码不简练，还处于宏的录制阶段，之前我有过一样经历，用简练的代码不会出错，重点是指定你正在操作的工作溥，表，页
（最好给个变量），再指表变怎样，怎样。

Private Sub OutputQuototion()
Dim TempFile As String
Dim xl As New Excel.Application
Dim xW As Excel.Workbook
Dim Nxw As New Excel.Workbook
Dim NworkN As String
Dim xS As Excel.Worksheet
Dim Nxs As Excel.Worksheet
Dim Days As String * 6
Dim MaxDay As Byte
Dim Ys As String * 4
Dim Ms As String * 2
Dim TemSheetN As String
Dim I As Integer
Dim x As Integer
Dim Y As Integer
Dim rang As String
Dim RANGS As String

Dim Rx As Integer ' pre sheets rows
Dim TleaderN As String
Dim TleaderID As String
Dim TmonthN As String

Dim tmpstr() As String '读出报价备注
Dim msgstr$

On Error GoTo errhand:

If VS.TextMatrix(1, 1) = "" Then
Exit Sub
End If
I = 1

TempFile = IIf(IsEnglish