Kod Excel VBA

Question

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

Answer 1

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 )
  
  

Answer 2

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)