Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

excel - sprawdzanie czy termin się kończy

23 May 2016 10:09 1185 7
  • Level 9  
    Mam dwie kolumny jedna z data zawarcia umowy a druga kolumna z wygaśnięciem umowy i potrzebuje zrobić tak ze przy otwieraniu programu wyświetli się komunikat że wygasza umowa za tyd. i między czasie pole zmieni kolor na zielony a w wypadku wygaśnięcia umowy na czerwono.
    [30.03.2021, darmowy webinar] Nowoczesna diagnostyka maszyn, monitorowanie i przewidywanie awarii. Zarejestruj się
  • VBA, Excel specialist
    Formatowanie warunkowe - formula =DZIŚ()<wygaśnięcia (zielony)
    komunikat - makro do zdarzenia na otwarcie skoroszytu
  • Level 9  
    ja potrzebuje żeby tyd przed końcem umowy pojawiał sie komunikat ze za tyd wygasa umowa. I żeby samo zmieniało się później na kolor czerowny szukałam funkcji żeby wprowadzić do virtual boksa ale ja tym za bardzo sie nie bawie i mam problem próbowałam sama ale na daremno.
  • VBA, Excel specialist
    Zalącz przykładowy plik
    Quote:
    wprowadzić do virtual boksa

    Być może do MsgBox'a?
  • Level 9  
    sory visual basic
  • Level 9  
    Mam coś takiego tylko wyskauje mi bład error 13 mismatch. Pomógłby ktoś ?



    Sub przypomnienie()
    Dim b As Integer, kom As Range

    For Each kom In Range("I5:I250")
    'kom.Interior.Color = xlNone
    kom.Interior.Color = vbBlack
    If kom.Value > 0 Then
    b = Date - kom.Value
    Select Case b
    Case 1 To 14
    MsgBox "Upłynęło " & b & " dni. Zakres 1 do 14."
    kom.Interior.Color = vbRed
    Case 14 To 20
    MsgBox "Upłynęło " & b & " dni. Zakres 14 do 30."
    kom.Interior.Color = vbGreen
    End Select
    End If
    Next kom

    End Sub
  • Helpful post
    VBA, Excel specialist
    info_11 wrote:
    b As Integer
    info_11 wrote:
    b = Date - kom.Value
    Date nie jest 'Integer'
  • Level 9  
    Problem został rozwiązany