Pessoal eu tenho o código abaixo que cria um arquivo .XLS no meu Desktop e popula algumas células da planilha, eu queria saber se tem como mandar uma formatação de cor para uma célula, não apenas dados, mas sim cor de fundo da célula etc...
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
Dim i As Integer
Dim excl As New Excel.Application
Dim pasta As New Excel.Workbook
Set xl = CreateObject("excel.application")
Set xlw = xl.Workbooks.Add
For i = 1 To 10
a = "A"
b = "B"
c = "C"
Range(a & i).Formula = Str(i)
Range(a & i).AddComment = "bla"
Range(b & i).Formula = Text1.Text
Range(c & i).Formula = Text2.Text
ProgressBar1.Value = i
If i = 10 Then
ProgressBar1.Value = 100
End If
Next i
xlw.Close True, "C:Documents and SettingsAdminDesktop este.xls"
ProgressBar1.Value = 0
End Sub
