Codigo esquina noroeste

Solo disponible en BuenasTareas
  • Páginas : 4 (789 palabras )
  • Descarga(s) : 0
  • Publicado : 21 de febrero de 2011
Leer documento completo
Vista previa del texto
CODIGO PROBLEMA DE LA ESQUINA NOROESTE

este codigo esta hecho en visual basic desde excel

Private Sub CommandButton1_Click()
Range("B6").Select
ActiveCell.FormulaR1C1 = "1"Range("B9").Select
ActiveCell.FormulaR1C1 = "2"
Range("B12").Select
ActiveCell.FormulaR1C1 = "3"

Range("C4,D4").Select
ActiveCell.FormulaR1C1 = "A"
Range("E4,F4").Select
ActiveCell.FormulaR1C1 = "B"Range("G4,H4").Select
ActiveCell.FormulaR1C1 = "C"
Range("I4,J4").Select
ActiveCell.FormulaR1C1 = "D"

Range("C7").Select
ActiveCell.FormulaR1C1 = "X11"
Range("E7").Select
ActiveCell.FormulaR1C1 ="X12"
Range("G7").Select
ActiveCell.FormulaR1C1 = "X13"
Range("I7").Select
ActiveCell.FormulaR1C1 = "X14"

Range("C10").Select
ActiveCell.FormulaR1C1 = "X21"
Range("E10").SelectActiveCell.FormulaR1C1 = "X22"
Range("G10").Select
ActiveCell.FormulaR1C1 = "X23"
Range("I10").Select
ActiveCell.FormulaR1C1 = "X24"

Range("C13").Select
ActiveCell.FormulaR1C1 = "X31"Range("E13").Select
ActiveCell.FormulaR1C1 = "X32"
Range("G13").Select
ActiveCell.FormulaR1C1 = "X33"
Range("I13").Select
ActiveCell.FormulaR1C1 = "X34"

Range("B5:B7").Interior.Color = RGB(230, 10, 300)Range("B8:B10").Interior.Color = RGB(600, 10, 350)
Range("B11:B13").Interior.Color = RGB(600, 200, 270)

Range("C4,D4").Interior.Color = RGB(600, 200, 270)
Range("E4,F4").Interior.Color = RGB(600,150, 205)
Range("G4,H4").Interior.Color = RGB(600, 10, 350)
Range("I4,J4").Interior.Color = RGB(230, 10, 300)

Range("A3:A50").Interior.Color = RGB(0, 0, 0)
Range("B3:O3").Interior.Color = RGB(0,0, 0)
Range("B14:B29,C15:C29,D14:D29,E15:E29,F14:F29,G15:G29,H14:H29,I15:I29,J14:J29").Interior.Color = RGB(0, 0, 0)
Range("K4:K5,K7:K8,K10:K11,K13:K29,L4: L29 , M4: M29 , N4: N29 , O4: O29").Interior.Color = RGB(0, 0, 0)
Range("B34:O34,B35:O35").Interior.Color = RGB(0, 0, 0)
Range("B44:O45,B45:O45").Interior.Color = RGB(0, 0, 0)
Range("B49:O49,B50:O50").Interior.Color = RGB(0, 0, 0)...
tracking img