Jump to content
Sign in to follow this  
Guest Juan Pelfort

solitario en VBA

Recommended Posts

Guest Juan Pelfort

Mucho gusto en veros de nuevo, alguno de ustedes tiene el juego de cartas "solitario" realizado con Excel ?

lo podéis colgar ? en abierto para aprender sus códigos. 

de no ser así, podéis indicarme más o menos por donde puedo ir para intentar realzarlo ?

Como siempre, eternamente agradecido.

Share this post


Link to post
Share on other sites
Guest Juan Pelfort

Hola Abraham, en Google solo he encontrado un juego ya hecho, no lo puedo bajar y lo más importante no está ni código ni nada (que és lo que me interesa) en el buscador del foro no he sabido encontrarlo,

Pero gracias por atenderme.

Me gustaría un juego que lo pueda descargar y este en "abierto"

Gracias Abraham

Share this post


Link to post
Share on other sites
Guest Juan Pelfort

Gracias bigpetroman, quizá no he sabido explicarme, ya vi esto que dices, pero te cuento.

entendí que este solitario era una pregunta para solucionar algún problema de código etc. y varias respuestas.

de todas formas intenté bajarlo y no me deja, me sale una información de que debo comprar Win rar.

yo, win rar (se llama así no? ) ya lo tengo instalado, cuando compré el ordenador (hace 2 años) entonces no funciona ?

debe comprar de nuevo ? No entiendo mucho de informática, solo Excel

Pero gracias por atenderme.

Share this post


Link to post
Share on other sites
Guest Juan Pelfort

Hola Antoni, cuanto tiempo sin verte, me alegro muchísimo que estés aquí y que me ayudes,

los descargo, los veo y ya te contaré.

Gracias Antoni

Share this post


Link to post
Share on other sites
Guest Juan Pelfort

Hola Antoni, muy satisfecho con los ficheros que me enviaste, es justo lo que quería ver, los códigos de como puede funcionar esto.

Muchas gracias y un abrazo.

Share this post


Link to post
Share on other sites
Guest Juan Pelfort

Hola Antoni, en estos juegos de "solitario" como podria desbloquear las hojas ?

Un saludo, gracias

Share this post


Link to post
Share on other sites
Guest Juan Pelfort

Antoni, he conseguido desbloquear las hojas, pero tengo dos preguntas importante referente al código.

1ª Si aumento la medida del la columna A (para que el juego quede más centrado) el "tapete" se corre a la derecha 

pero la posición de las cartas que igual a la izquierda (no sigue la medida de la columna)

Si inserto una columna en A para luego hacerla pequeña medida 0.1 por ejemplo no funciona bien el programa 

como puedo solucionar eso ?

2ª No se puede hacer que al hacer clic en una carta para moverla no se marque ? como cuando haces clic sobre una imagen, se puede hacer que se comporte como el juego del solitario que lleva el windows ?

Muchas gracias

Share this post


Link to post
Share on other sites
Hace 16 horas, Juan Pelfort dijo:

Antoni, he conseguido desbloquear las hojas, pero tengo dos preguntas importante referente al código.

1ª Si aumento la medida del la columna A (para que el juego quede más centrado) el "tapete" se corre a la derecha 

pero la posición de las cartas que igual a la izquierda (no sigue la medida de la columna)

Si inserto una columna en A para luego hacerla pequeña medida 0.1 por ejemplo no funciona bien el programa 

como puedo solucionar eso ?

2ª No se puede hacer que al hacer clic en una carta para moverla no se marque ? como cuando haces clic sobre una imagen, se puede hacer que se comporte como el juego del solitario que lleva el windows ?

Muchas gracias

Ni idea, los archivos no son míos y el tema no me interesa. Suerte.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Buenos días compañer@s, espero que estéis tod@s bien, a ver si me podéis ayudar. He creado una medida que me suman todas las categorías de las ventas [TOTAL_VENTAS], doce campos en total. Con ella he creados dos medidas más: VENTAS_AÑO_ACTUAL=CALCULATE([TOTAL_VENTAS];DATOS_BP[ANYO]=2020) VENTAS_AÑO_ANTERIOR=CALCULATE([TOTAL_VENTAS];DATOS_BP[ANYO]=2019) Hasta ahí todo bien. Mi pregunta es, cómo puedo hacer para que la medida calcule el año en curso y el año anterior sin necesidad de tener que poner 2020 y 2019?. Muchas gracias como siempre Saludos  
    • Así funciona: Sub Crear() Application.ScreenUpdating = False If Trim([C9]) = "" Then MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([E9]) = "" Then MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([C11]) = "" Then MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta" Exit Sub End If Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb" .Open End With With Sheets("Registro") Set Rs = New ADODB.Recordset Sql = "SELECT Count(*) FROM pen WHERE [Num Id]='" & .Range("C9") & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Datos = Rs.GetRows If Datos(0, 0) > 0 Then MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "SACI" Else Sql = "INSERT INTO pen ([Num Id], Nombre, Riesgo, [Monto Caso], Moroso, [Nun_Patrono], [Nom_Patrono]) " Sql = Sql & "VALUES ('" & .Range("C9") & "', " & _ "'" & .Range("C11") & "', " & _ "'" & .Range("E9") & "', " & _ "'" & .Range("G9") & "', " & _ "'" & .Range("G11") & "', " & _ "'" & .Range("C13") & "', " & _ "'" & .Range("E13") & "' )" MsgBox "Datos actualizados con Exito!!!", vbInformation, "SACI" A_ingesarDatos = True End If End With Cnn.Execute (Sql) Cnn.Close Set Cnn = Nothing End Sub  
    • Hola buenas a todos, me presento como nuevo usuario, saludos a todos !!
    • Hacer eso con "una formula" se puede con Office 365. Si no tiene Office 365 el adjunto que le comparto NO le va a servir y deberá esperar alguna otra propuesta.   Filtrar con función.xlsx
    • Gracias por la ayuda. Seguramente algo tengo que estar haciendo mal. Lo puse de la siguiente forma y me da error con depurador al parecer es en esta parte del código "    .Open Sql, Cnn, , , adCmdText" Sub crear() Application.ScreenUpdating = False If Trim([C9]) = "" Then MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([E9]) = "" Then MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([C11]) = "" Then MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta" Exit Sub End If Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb" .Open End With Set Rs = New ADODB.Recordset Sql = "Select [Num Id] From pen Where [Num Id] =" & Worksheets("Registro").Range("C9").Value With Rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open Sql, Cnn, , , adCmdText End With If Rs.RecordCount >= 1 Then MsgBox "Ya existe el ID, modifique" Exit Sub End If Sql = "INSERT INTO pen ([Num Id], Nombre, Riesgo, [Monto Caso], Moroso, [Nun_Patrono], [Nom_Patrono]) " Sql = Sql & "VALUES ('" & Worksheets("Registro").Range("C9").Value & "', " & _ "'" & Worksheets("Registro").Range("C11").Value & "', " & _ "'" & Worksheets("Registro").Range("E9").Value & "', " & _ "'" & Worksheets("Registro").Range("G9").Value & "', " & _ "'" & Worksheets("Registro").Range("G11").Value & "', " & _ "'" & Worksheets("Registro").Range("C13").Value & "', " & _ "'" & Worksheets("Registro").Range("E13").Value & "' )" With Rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open Sql, Cnn, , , adCmdText End With MsgBox "Datos actualizados con Exito!!!", vbInformation, "SACI" A_ingesarDatos = True End Sub Saludos
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy