Jump to content

colores


Go to solution Solved by JasallBcn,

Recommended Posts

Qué tal @cvina ¿Con fórmulas? :huh: .No creo que se pueda, con macros usa el siguiente código
 

Sub colorear()
Dim rng As Range, cel As Range

Set rng = Range("C4:AD16")

For Each cel In rng
    cel.Interior.Color = RGB(WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255))
Next cel

End Sub

 

cuadros de colores.xlsm

Link to comment
Share on other sites

Hace 12 minutos , cvina dijo:

pero para que salgan unos colores mas que otros? como seria

¿Pero no los querías aleatorios? Eso no es aleatorio :(. Juega con los vaores o fija uno de ellos. Ten en cuenta que están en formato RGB. Si quieres colores más verdoso, por eejemplo, fija

   

cel.Interior.Color = RGB(WorksheetFunction.RandBetween(0, 255), 255, WorksheetFunction.RandBetween(0, 255))

Esto te dará una idea de como jugar con los valores, o restringiendo más un color

cel.Interior.Color = RGB(WorksheetFunction.RandBetween(100, 125), 255, WorksheetFunction.RandBetween(0, 50))

 

Link to comment
Share on other sites

m eparece una idea genial tu propuesta, pero podria seleccionar la cantidad de celdas de un determinado color, es decir: quiero que salgan 50 celdas colocadas aleatoriamente en rojo y 40 azules y 80 verdes sobre un fondo de color

saludos

Link to comment
Share on other sites

gracias, no es que entienda mucho pero aprendo,

las cantidades que aperecen en las celdas para seleccionar la cantidad de celdas coloreadas tiene un max de 100

donde se programa esta cantidad?

tenemos 1455 celdas en total , podrian rellenarse todas con los 3 colores?

podria añadir un color mas?

gracias!!

perdona la pesadez !!

Link to comment
Share on other sites

  • 3 weeks later...

buenos dias de nuevo.

continuo con el tema de los colores y me he dado cuenta de una cosa ( adjunto el archivo) estoy creado la aplicacion y aunque el tamaño del archivo es pequeño, al dar actualizar se me come los recuersos del ordenador ( tiene un I7 con 16 G de ram) y claro no puedo continuar ya que para hacerlo cada vez que actualizo algo tengo que reiniciar el ordenador.

es posible esto?

 

saludos

Link to comment
Share on other sites

genial!! asi da gusto!!

    seguimos avanzando:

si pinchara con el cursor en una celda: podria informarme en una ventana emergente de un valor correspondiente al color y que en  vez de poner por ejemplo " rojo (celda) ED20"

pusiese un valor que se asignaria a cada colores decir: rojo=10000 ; azul 20000; verde; 30000 . de forma que al pinchar sobre una celda "roja ED29" pondria:  "10000- 12345678 "

gracias

Link to comment
Share on other sites

si, lo hace pero la ventana es como un comentario y no hace ref a la casilla donde pinchas, si pinchas en una casilla roja aparece "sin numero" y si pinchas en el color base aparece "2000"

no  es esto lo que buscaba, buscaba referenciar cada celda con un nombre y un numero

 

saludos

Link to comment
Share on other sites

Hola,

Lo que quieres es muy difuso. Esfuerzate un poco más que escribir dos lineas. Envía un excel o dibujo con el resultado que esperas. No somos adivinos.

Por cierto, quería comentarte, que este tipo de foros, no son para solicitar cosas y te las programen, sino para que las programes tú y sino no te sale entonces envias tu código al foro pidiendo ayuda.

Mi intención enviandote mi programación es para que partieras de un punto mejor que el que tenías

Saludos

Link to comment
Share on other sites

gracias, entiendo lo que dices

pero cuando necesitas algo y desconoces como hacerlo, es micaso pido ayuda, como tu dices deberia empezar proponer y vosotros que conoceis corregir . Conozco excel, y por eso me he decantado por hacerlo, que a lo mejor se podria hacer de otra forma. pero lo que descnozco es VBA  tengo unas nociones muy pero que muy basicas

mi idea es simular el sistema de ubicaciones en un almacen, todo virtual (es para una presentacion) de forma que los colores representen los articulos en existencia, el boton actualizacion simula los movimientos de entrada/ salida de articulos. 

lo que intentaba explicar es que luego al pasar el raton por una ubicacion  ( un color) me informara de lo que hay en esa ubicacion mediante una ventana emergente como la de un comentario o en una caja de texto

saludos y gracias por la ayuda

Link to comment
Share on other sites

Hola,

Entiendo que es dificil iniciarse, comprendo como te sientes, pero por eso quizás lo primero sea hacer un curso o leer un libro o hacer un tutorial de los muchos que hay, y si tienes dudas pues pregunta que cualquiera de nosotros gustosamente te ayudaremos.

Animo que seguro que pronto tendrás un buen dominio.

Volviendo al tema de mostar el comentario, quieres que se muestre un comentario con cierta información, pero donde está la información que hay que asociar a cada celda, hasta ahora sólo le hemos asignado un color aleatoriamente . 

Puedes mandar un listado ejemplo de la información a mostrar cuando estés posicionado en una celda y cual es la lógica para asociarle un color, por ejemplo: una categoria de producto.

Saludos

 

 

Link to comment
Share on other sites

Posted (edited)
En 6/4/2022 at 19:41 , Frank2021 dijo:

    hola de nuevo,

te adjunto una tabla relacional muy simple de  cual seria la relacion del color con el articulo.

gracias

En 6/4/2022 at 19:41 , Frank2021 dijo:

 

 

tabla1.xlsx

Edited by cvina
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Hola colegas, buenas tardes reiteradas. Vuelvo por acá, ahora para que me brinden ayuda con una alerta. Me explico: Este es el proyecto del que les comenté que mi Jefe me pidió hacer. En el FrmCombustible debo crear dos (2) alertas, UNA - Que un (1) mes antes de vencerse las tarjetas me envíe un MsgBox : "La Tarjeta " &      " se vence en un mes"                 El Listado de tarjetas está en la Hoja5 (Auxiliares). Se debe tener en cuenta que puede estar en blanco o vacío (Empty) este campo. Yo comencé a trabajarlo, pero me "perdí", porque creo se debe generar un ciclo que recorra las tarjetas y las fechas de vencimientos y las compare con la fecha actual. (Modulo4 ) DOS - En este mismo Formulario (FrmCombustible), necesito me envíe una alerta cuando una tarjeta X tenga un consumo de 350, porque el valor máximo a tener es de 400. (Columna "Consumo") Esto puede ser al abrir el archivo o al cargar el formulario. De estos "AVISOS" tengo  que hacer algunos más, pero con la ayuda de ustedes con estos dos puedo hacer los que me falten. Mil gracias de antemano. Espero puedan comprenderme. Un abrazo a todos. Pino Sistema de Matto Autos.xlsm
    • Gracias profesor Antoni, perfecto. Muy agradecido por su oportuna, pronta y eficaz respuesta. En estos días voy a tener que acudir a ustedes en varias ocasiones, porque el Proyecto que mi Jefe me pidió que hiciera es más de lo que mis conocimientos "almacena", pero son retos que me gustan porque aprendo de ellos. Saludos a Usted, AValencia, Haplox y JSD, que por cierto hace días no lo "veo" por el Foro, pero espero que se encuentre bien de salud, y a todo el resto del tremendo equipo de AyudaExcel. Mis respetos. Pino  
    • Hola Lo que necesito es que cuando se posicione en la celda activa, que tiene que ser la G8 y ésta esté vacía, muestre el formulario UserForm1 Lo que yo tengo hasta ahora es esto, que me enseña el formulario cuando la celda activa es la G8,   If ActiveCell.Address ="$G$8" then UserForm1.Show Else UserForm1.Hide  
    • He hecho un pequeño retoque en los procedimientos de modificar, insertar y doble_click en la lista. Probado., Ordenes v1.0.0 (1).xlsm
    • Muchas gracias Antoni por la respuesta y su tiempo. intente con lo que recomienda y me da este error "[microsoft][ODBC SQL Server Driver][SQL Server]Column name or nomber of suplied values does not matsch table definitions" Todo el codigo que estoy utilizando es el siguiente: Private Sub InsertarFila() Sql = "INSERT INTO Proceso_Sucesorios VALUES(" Sql = Sql & "'" & ActiveCell.Offset(0, 26) & "'," Sql = Sql & "'" & ActiveCell.Offset(0, 0) & "'," Sql = Sql & ActiveCell.Offset(0, 8) & "," Sql = Sql & ActiveCell.Offset(0, 9) & "," Sql = Sql & "'" & ActiveSheet.Range("H3").Value & "'," Sql = Sql & "'" & Format(ActiveSheet.Range("J3").Value, "YYYY-MM-DD") & "'," Sql = Sql & "'" & ActiveSheet.Range("M1").Value & "'," Sql = Sql & "'" & Format(ActiveSheet.Range("N1").Value, "YYYY-MM-DD hh:mm:ss") & "')" Cnn.Execute Sql, , adCmdText Exit Sub El error anterior no esta ahora es un error que al parecer sin firentes la columnas por esto adjunto una imagen de la estructura de la table a la cual estoy enviando la información:      De verdad valoro mucho la ayuda.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy