Jump to content

Ridelight

Member
  • Posts

    3,434
  • Joined

  • Last visited

Sites

Ridelight's Achievements

boolean user

boolean user (2/5)

  • Voter Bronze
  • 1 Year

Recent Badges

3

Reputation

1

Community Answers

  1. Hum... Parece-me interessante, sou capaz de experimentar!
  2. No mínimo diferente.... ;oP
  3. Já fui dar uma espreitadela, em relação a grafismo, deixo desde já aqui os meus parabens, pelo upgrade substancial. Relativamente à mecânica de jogo, sofreu também uma grande alteração, ainda me estou a adaptar, mas ou por falta de tempo meu, ou por ser totalmente diferente da inicial, sinto-me um bocado perdido, sei que tem os tutoriais e as janelas que indicam, e estão bem conseguidos. Vou continuar a experimentar. E a versão mobile?
  4. Obrigado pela disponibilidade, vou ver se me entendo... ;oP
  5. Sim exatamente, era mesmo isso, mas se podesses mostrar em código era mais fácil, obrigado.
  6. Boa tarde, há alguma forma de actualizar apenas o código de um .xlsm sem perder dados nas folhas de dados?
  7. Obrigado! Funciona na perfeição.
  8. Tenho o seguinte código: Sub Atraso() Worksheets("Control").Range("G13").Value = Now() MsgBox "Registou um atraso de " & Worksheets("Control").Range("H13").Value End Sub A célula H13 está formatada como horas, mas na msgbox aparece 40596.3284 em vez de 01:00:16.
  9. Bem eu estou a testar, e estou a gostar, sobretudo das evoluções que tem surgido com as sucessivas builds. Estou agora a tentar a FBL_Awesome1501 9935.
  10. Bom dia, gostaria que a aplicação executasse o seguinte código ao abrir, mas não está a funcionar, o que estou a fazer de errado? Private Sub Workbook_Open() If Worksheets("M").Range("M1").Value = "1" Then Label13.BackColor = vbGreen If Worksheets("M").Range("M1").Value = "1" Then total.Caption = total + 1 If Worksheets("M").Range("M1").Value = "2" Then Label13.BackColor = vbYellow If Worksheets("M").Range("M1").Value = "2" Then total.Caption = total - 1 If Worksheets("M").Range("M1").Value = "3" Then Label13.BackColor = vbGreen If Worksheets("M").Range("M1").Value = "3" Then total.Caption = total + 1 If Worksheets("M").Range("M1").Value = "4" Then Label13.BackColor = vbRed If Worksheets("M").Range("M1").Value = "4" Then total.Caption = total - 1 If Worksheets("P").Range("M1").Value = "1" Then Label31.BackColor = vbGreen If Worksheets("P").Range("M1").Value = "1" Then total.Caption = total + 1 If Worksheets("P").Range("M1").Value = "2" Then Label31.BackColor = vbYellow If Worksheets("P").Range("M1").Value = "2" Then total.Caption = total - 1 If Worksheets("P").Range("M1").Value = "3" Then Label31.BackColor = vbGreen If Worksheets("P").Range("M1").Value = "3" Then total.Caption = total + 1 If Worksheets("P").Range("M1").Value = "4" Then Label31.BackColor = vbRed If Worksheets("P").Range("M1").Value = "4" Then total.Caption = total - 1 If Worksheets("P").Range("M1").Value = "1" Then Label5.BackColor = vbGreen If Worksheets("P").Range("M1").Value = "1" Then total.Caption = total + 1 If Worksheets("P").Range("M1").Value = "2" Then Label5.BackColor = vbYellow If Worksheets("P").Range("M1").Value = "2" Then total.Caption = total - 1 If Worksheets("P").Range("M1").Value = "3" Then Label5.BackColor = vbGreen If Worksheets("P").Range("M1").Value = "3" Then total.Caption = total + 1 If Worksheets("P").Range("M1").Value = "4" Then Label5.BackColor = vbRed If Worksheets("P").Range("M1").Value = "4" Then total.Caption = total - 1 Gespoint.Show End Sub
  11. Windows 8.1 e Windows Server 2008 r2
  12. Bom dia, podes definir área de impressão e depois a aplicação só imprime esse espaço.
  13. Graficamente bastante interessante, e o conceito também parece que tem algum potencial.
  14. Obrigado!
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.