Kategorie szkoleń | Egzaminy | Kontakt
  • 2
  • 0
  • 4

Witam.

Proszę o pomoc w sprawie kodu dla zmiany daty. Data w formacie rrrr-mm-dd znajduje się w komórce "x". Chciałbym dodać przycisk + (dodaj 1 dzień), - (odejmij 1 dzień). Jedno makro, które dodaje jeden dzień i drugie, które odejmuje jeden dzień od tej, która widnieje w komórce x. Chciałbym, aby po zmianie tej daty w komórce x również pokazywała się nowa data.

Z góry dzięki za pomoc.

 

Adam_Gdula
  • Zapytał
  • @ Adam_Gdula | 09.06.2017
    • 3
    • 0
    • 2

Odpowiedzi (2)

  • 1

Excel przechowuje daty jako liczby, więc wystarczy dodać lub odjąć jedynkę od wartości komórki "x":

Sub dodaj()

Range("a1") = Range("a1") + 1

End Sub

Możesz też obsłużyć oba przyciski jednym makrem sprawdzając, który z nich został wciśnięty przy pomocy funkcji Application.Caller (w poniższym przykładzie nadałem przyciskom nazwy "p_plus" i "p_minus"):

Sub zmien_date()

Select Case Application.Caller
   Case "p_plus"
      x = 1
   Case "p_minus"
      x = -1
End Select

Range("a1") = Range("a1") + x

End Sub

Mirosław_Janiak
  • Odpowiedział
  • @ Mirosław_Janiak | 09.06.2017
    • 1
    • 7
    • 1
  • 0

Można też użyć jednego przycisku: SpinButton i podczepić go makrem.

pawel_niemyt
  • Odpowiedział
  • @ pawel_niemyt | 07.09.2017