Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 63751 Skopiuj do schowka Premia
Autor Wiadomość
ak 
Stały bywalec Excelforum


Posty: 269
Wysłany: 09-01-2019, 17:36   Premia

Witam
Chcę zrobić plik do podziału premii.Zaczynam od spraw podstawowych tytułu oraz nazwy Arkusza.Zatytułować chce Podział premii Br2-Grudzień 2018.I tu od razu pytanie jak zrobić żeby zamiast stycznia 2019 pokazał się grudzien 2018.Następnie jak zrobić podkreslenie wyrazów Styczeń 2019 r.(grudzień 2018). Dałem też nazwę arkuszowi tylko jak go zablokować procedurą no i żby w swojej nazwie tęż zawierał grudzień 2018.Przesyłam swój plik.Jężeli ktoś z Was dostrzegłby jakieś błedy to bardzo poprosiłbym o poprawkę .Z góry dziekuję

Premia.xls
Pobierz Plik ściągnięto 19 raz(y) 49 KB

ID posta: 360110 Skopiuj do schowka
 
 
Tajan


Pomógł: 4363 razy
Posty: 9692
Wysłany: 09-01-2019, 19:16   

Może tak:
Kod:
Private Sub Workbook_Open()
Dim data As Date
Dim nazwa As String

ActiveWindow.Zoom = 110 'przy otwarciu ten arusz ma zawsze 110% rozmiar rzeczywistego

Me.Unprotect "svcs"

With Arkusz1
   
   .Activate
   .Unprotect "svcs"
   
   With .Range("a1")
   
       .Select
       .Value = Date
       .NumberFormat = "mmmm-dd"

        If Day(.Value) <= 9 Then
           data = DateAdd("m", -1, .Value)
        Else
           data = .Value
        End If
 
  End With
 
  nazwa = StrConv(Format(data, "mmmm ") & Format(data, "yyyy"), vbProperCase)
 
  .Range("c4").Value = "Podział premii Br.2" & " - " & nazwa & " r."
  .Range("c4").Characters(Start:=23).Font.Underline = xlUnderlineStyleSingle
  .Name = "Premia" & " - " & nazwa & " r."
 
  .Protect "svcs"

End With

Me.Protect "svcs", True, False

End Sub

ID posta: 360122 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe