Visual Basic + EXCEL! ..

Este es un vbs que me encontre es de matrix
es casi lo mismo que vb, solo debes de cambiarle unas cosas

Código:

On Error Resume Next
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = TRUE
objXL.WorkBooks.Add
objXL.Cells(10 , 4).Value = "Loading..."

For col = 1 to 30
objXL.Columns(Col).ColumnWidth = 3
Next
objXL.Range("A10:S10").Select
objXL.Selection.Font.Bold = True
objXL.Range("A1:AZ26").Select
objXL.Selection.NumberFormat = " @"
objXL.Selection.Interior.ColorIndex = 1
objXL.Selection.Interior.Pattern = 1 'xlSolid
objXL.Selection.Font.ColorIndex = 4
objXL.Cells(10 , 4).Value = ""
objXL.Range("A1:A1").Select
For xxx = 1 to 15
For iii = 1 to 29
Randomize timer
caracter = Int(Rnd * 255)

if iii = 10 then
Select Case xxx
Case 1
objXL.Cells(iii, xxx).Value = ""
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 2
objXL.Cells(iii, xxx).Value = "M"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 3
objXL.Cells(iii, xxx).Value = "A"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 4
objXL.Cells(iii, xxx).Value = "T"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 5
objXL.Cells(iii, xxx).Value = "R"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 6
objXL.Cells(iii, xxx).Value = "I"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 7
objXL.Cells(iii, xxx).Value = "X"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 8
objXL.Cells(iii, xxx).Value = ""
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 9
objXL.Cells(iii, xxx).Value = "H"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 10
objXL.Cells(iii, xxx).Value = "A"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 11
objXL.Cells(iii, xxx).Value = "S"
if iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 12
objXL.Cells(iii, xxx).Value = ""
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 13
objXL.Cells(iii, xxx).Value = "Y"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 14
objXL.Cells(iii, xxx).Value = "O"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

Case 15
objXL.Cells(iii, xxx).Value = "U"
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if

End Select

Else
If Not iii = 13 and iii < 26 then
objXL.Cells(iii, xxx).Value = Chr(Caracter)
If iii > 3 then
objXL.Cells((iii - 3), xxx).Value = ""
End if
Else
if not iii = 13 then
objXL.Cells((iii - 3), xxx).Value = ""
end if
end if
End if

Next
Next
Set objXL=Nothing

Espero que te sirva.

Un saludo a todos ya que no me paso tan seguido por vb, ahora me
dedico a programar en php y asp xD

Tratare de postear mas seguido, un saludo a $N!PER y a todos los demas

Saludos

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Noviembre 18, 2008, 04:55:25