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: 70572 Skopiuj do schowka Połączenie 2 makr, Kalendarz oraz Krzyżyk w kwadracie.
Autor Wiadomość
Raazor 
ExcelGaduła 500+


Posty: 555
Wysłany: 03-04-2021, 09:56   Połączenie 2 makr, Kalendarz oraz Krzyżyk w kwadracie.

Jak połączyć niżej pokazane makra w pliku z kalendarzem, jako załącznik nr 3.

W załączeniu 3 pliki:

1. Kalendarz z kodem:

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Intersect(Target, Range("J1:J10,P1:P10")) Is Nothing Then Exit Sub
      'check cells for desired format to trigger the calendarfrm.show routine
      'otherwise exit the sub
    If Target.NumberFormat Like "y*m*d*" Or _
       Target.NumberFormat Like "d*m*y*" Or _
       Target.NumberFormat Like "m*d*y*" Then
        If CalendarFrm.HelpLabel.Caption <> "" Then
            CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height
        Else: CalendarFrm.Height = 191
            CalendarFrm.Show
        End If
    End If
 End Sub

2. Pokazywanie X w kwadracie:

Kod:
Private mRngOld As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = Range("B2,B4,B6,C5,D5,E8")

    If Application.Intersect(Target, rng) Is Nothing Then
        Set mRngOld = Target
        Exit Sub
    End If
   
     If Target(1).Value = Chr(111) Then
       Target(1).Value = Chr(120)
    Else
       Target(1).Value = Chr(111)
    End If

    If Not mRngOld Is Nothing Then mRngOld.Select

End Sub


3. Plik przygotowany do połączenia w/wym. kodów.


Z góry dziękują za pomoc.

1 Kalendarz.xlsm
Pobierz Plik ściągnięto 4 raz(y) 32.28 KB

2 Znak X w kwadracie.xlsm
Pobierz Plik ściągnięto 4 raz(y) 16.21 KB

3 Makra połączone.xlsm
Pobierz Plik ściągnięto 7 raz(y) 33.5 KB

_________________
Raazor
ID posta: 403130 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2530 razy
Posty: 8431
Wysłany: 03-04-2021, 10:58   

O takie działanie Ci chodzi ?
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("J1:J10,P1:P10")) Is Nothing Then
        'check cells for desired format to trigger the calendarfrm.show routine
        'otherwise exit the sub
        If Target.NumberFormat Like "y*m*d*" Or _
           Target.NumberFormat Like "d*m*y*" Or _
           Target.NumberFormat Like "m*d*y*" Then
            If CalendarFrm.HelpLabel.Caption <> "" Then
                CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height
            Else
                CalendarFrm.Height = 191
                CalendarFrm.Show
            End If
        End If
    End If

    If Not Intersect(Target, Range("B2,B4,B6,C5,D5,E8")) Is Nothing Then
        If Target(1).Value = Chr(111) Then Target(1).Value = Chr(120) Else Target(1).Value = Chr(111)
    End If

End Sub
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 403134 Skopiuj do schowka
 
 
Raazor 
ExcelGaduła 500+


Posty: 555
Wysłany: 03-04-2021, 11:25   

Tak jest, o takie działanie chodziło. Dziękuję.
_________________
Raazor
ID posta: 403136 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