• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Kod Excel VBA

+1 głos
58 wizyt
pytanie zadane 8 listopada 2021 w Visual Basic przez Quba Użytkownik (740 p.)

Witam

Czy ktoś pomógłby mi z kwestią wywołania poniższej funkcji. Zadanie jest już wykonane poprawnie natomiast siedzę już sporo czasu i nie mogę sobie poradzić z tym jak powinienem wywołać poniższą funkcją, żeby zadziałała.

Będę wdzięczny za wszelką pomoc. Pozdrawiam

2 odpowiedzi

0 głosów
odpowiedź 8 listopada 2021 przez VBService VIP (144,130 p.)
edycja 8 listopada 2021 przez VBService

Można np. tak (wykorzystany - Excel 2016 Pro )

  • W nowo otwartym arkuszu, wpisz np. takie wartości do testowania


     
  • Przejdź do edytora VBA ( Alt + F11 ) i wybierz jak na obrazku


     
  • W otwartym oknie Zeszyt1.xlsm - Arkusz1 (Code) wpisz taki kod
      
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Target = obrot(Target)
    End Sub
    
    Function obrot(z1 As Range) As Variant
        Dim z2() As Variant
        Dim nc, nr, i, j As Integer
    
        nc = z1.Columns.Count
        nr = z1.Rows.Count
    
        ReDim z2(1 To nr, 1 To nc)
    
        For i = 1 To nr
            For j = 1 To nc
                z2(i, j) = z1(nr + 1 - i, nc + 1 - j)
            Next
        Next
    
        obrot = z2
    End Function


  • Teraz zaznaczając obszar testowy przez wciśnięcie lewego klawisza myszy

  • i puszczeniu klawisza myszy po zaznaczeniu, powinno "wywołać" się zdarzenie Worksheet_SelectionChange i wykonać Twój kod

  • zapisz arkusz jako *.xlsm ( skoroszyt z obsługą makr )

0 głosów
odpowiedź 9 listopada 2021 przez areklipno Dyskutant (9,990 p.)

Wg mnie wystarczy wpisać gdzieś w makrach Twoją funkcję i potem można ją wywołać w arkuszu - zaznaczasz docelowy obszar, wpisujesz funkcję i wciskasz ctrl+shift+Enter (zamiast zwykłego Enter)

Podobne pytania

+1 głos
1 odpowiedź 96 wizyt
+1 głos
1 odpowiedź 94 wizyt
pytanie zadane 11 maja 2021 w Visual Basic przez Misiek Mądrala (5,260 p.)
+1 głos
1 odpowiedź 60 wizyt
pytanie zadane 6 lutego 2021 w Visual Basic przez Ania909 Nowicjusz (130 p.)

86,460 zapytań

135,216 odpowiedzi

300,377 komentarzy

57,209 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto dwie polecane książki warte uwagi. Pełną listę znajdziesz tutaj.

...