Michal Wojtczak

Właściciel, Własna Działalność

Wypowiedzi

• Wszystko
• Tylko fora

• 
  Wpis na grupie Fani Excela w temacie Dodanie zaokrąglenia do funkcji w komórce - makro

  8.12.2015, 09:31

  Chodziło o faktyczne zaokrąglenie liczby a nie jedynie zmienienie formatowania.
  
  Przy pomocy jednego z użytkowników udało mi się rozwiązać ten problem.
  
  Gdyby ktoś inny potrzebował to makro wygląda następująco:
  
  Sub Makro1()
  Dim Str As String
  For Each cell In Selection
  Str = cell.FormulaR1C1
  If Mid(Str, 1, 1) = "=" Then Str = Mid(Str, 2)
  cell.FormulaR1C1 = "=ROUND(" & Str & ",1)"
  Next cell
  End Sub

• 
  Wpis na grupie Fani Excela w temacie Dodanie zaokrąglenia do funkcji w komórce - makro

  7.12.2015, 15:10

  Problem z ,,(dodaniem zaokrąglenia do wartości lub funkcji w komórkach)
  
  Witajcie
  
  Mam problem ze stworzeniem odpowiedniego makra, które dodawałoby do zaznaczonych komórek (w których mogą być wartości lub formuły) funkcję [ZAOKR()].
  
  Przykład z liczbą
  
  A1= 57,48 po makrze =ZAOKR(57,48;1)
  
  Przykład z funkcją
  
  A1= B2*C2 po makrze =ZAOKR(B2*C2;1)
  
  Czy ma ktoś pomysł jak to rozwiązać?