Scribd Logo
Upload

Welcome to Scribd!

  • 29 views

    Calcular Los Colores de Una Resistencia

    Uploaded by

    Emilio Jose Checa Bernat
    This document describes how to design an Excel application to calculate the colors of a resistor based on its value. It involves: 1) Designing a grid layout 2) Naming a cell to store the resistor value 3) Copying VBA code to read the resistor value and set the colors of cells D7, F7, and H7 based on the digits in the value.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    Calcular Los Colores de Una Resistencia

    Uploaded by

    Emilio Jose Checa Bernat
    29 views2 pages
    This document describes how to design an Excel application to calculate the colors of a resistor based on its value. It involves: 1) Designing a grid layout 2) Naming a cell to store the resistor value 3) Copying VBA code to read the resistor value and set the colors of cells D7, F7, and H7 based on the digits in the value.

    Original Description:

    Excel para calcular los valores de una resistencia.

    Original Title

    Calcular los colores de una resistencia

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document describes how to design an Excel application to calculate the colors of a resistor based on its value. It involves: 1) Designing a grid layout 2) Naming a cell to store the resistor value 3) Copying VBA code to read the resistor value and set the colors of cells D7, F7, and H7 based on the digits in the value.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    29 views2 pages

    Calcular Los Colores de Una Resistencia

    Uploaded by

    Emilio Jose Checa Bernat
    This document describes how to design an Excel application to calculate the colors of a resistor based on its value. It involves: 1) Designing a grid layout 2) Naming a cell to store the resistor value 3) Copying VBA code to read the resistor value and set the colors of cells D7, F7, and H7 based on the digits in the value.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    of 2

    Diseño de una aplicación para calcular los colores de

    una resistencia

    1) Diseñar el la parrilla para que tenga este aspecto

    2) Seleccionar la celda F10 y en el menú insertar - nombre -- definir escribir


    valorresistencia. ( esto servirá para nombrar la celda desde programa).

    3) En el menú herramientas seleccionar macro y editor de visual basic

    4) Copiar en el editor el siguiente código:

    Option Explicit
    Private Sub Worksheet_Calculate()
    Worksheet_Change Range("valorresistencia")
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)


    Dim b1 As Integer
    Dim b2 As Integer
    Dim b3 As Integer
    b1 = Mid$(Range("valorresistencia").Value, 1, 1)
    b2 = Mid$(Range("valorresistencia").Value, 2, 1)
    b3 = Len(Range("valorresistencia").Value) - 2
    ' Determina el evento para observar una celda
    If Target.Address = Range("valorresistencia").Address Then

    ' Accion a tomar


    Select Case b1
    Case Is = 0
    [d7].Interior.Color = RGB(0, 0, 0)
    Case Is = 1
    [d7].Interior.Color = RGB(153, 10, 51)
    Case Is = 2
    [d7].Interior.Color = RGB(255, 0, 0)
    Case Is = 3
    [d7].Interior.Color = RGB(255, 153, 0)
    Case Is = 4
    [d7].Interior.Color = RGB(255, 255, 0)
    Case Is = 5
    [d7].Interior.Color = RGB(0, 255, 0)
    Case Is = 6
    [d7].Interior.Color = RGB(0, 0, 255)
    Case Is = 7
    [d7].Interior.Color = RGB(255, 51, 153)
    Case Is = 8
    [d7].Interior.Color = RGB(204, 204, 204)
    Case Is = 9
    [d7].Interior.Color = RGB(255, 225, 255)
    End Select
    Select Case b2
    Case Is = 0
    [f7].Interior.Color = RGB(0, 0, 0)
    Case Is = 1
    [f7].Interior.Color = RGB(153, 10, 51)
    Case Is = 2
    [f7].Interior.Color = RGB(255, 0, 0)
    Case Is = 3
    [f7].Interior.Color = RGB(255, 153, 0)
    Case Is = 4
    [f7].Interior.Color = RGB(255, 255, 0)
    Case Is = 5
    [f7].Interior.Color = RGB(0, 255, 0)
    Case Is = 6
    [f7].Interior.Color = RGB(0, 0, 255)
    Case Is = 7
    [f7].Interior.Color = RGB(255, 51, 153)
    Case Is = 8
    [f7].Interior.Color = RGB(204, 204, 204)
    Case Is = 9
    [f7].Interior.Color = RGB(255, 225, 255)
    End Select
    Select Case b3
    Case Is = 0
    [h7].Interior.Color = RGB(0, 0, 0)
    Case Is = 1
    [h7].Interior.Color = RGB(153, 10, 51)
    Case Is = 2
    [h7].Interior.Color = RGB(255, 0, 0)
    Case Is = 3
    [h7].Interior.Color = RGB(255, 153, 0)
    Case Is = 4
    [h7].Interior.Color = RGB(255, 255, 0)
    Case Is = 5
    [h7].Interior.Color = RGB(0, 255, 0)
    Case Is = 6
    [h7].Interior.Color = RGB(0, 0, 255)
    Case Is = 7
    [h7].Interior.Color = RGB(255, 51, 153)
    Case Is = 8
    [h7].Interior.Color = RGB(204, 204, 204)
    Case Is = 9
    [h7].Interior.Color = RGB(255, 225, 255)
    End Select
    End If

    End Sub

    5) Desbloquear la celda F10 y proteger la aplicación activando “Formato de celdas”,


    quitar previamente la rejilla

    You might also like