Nije mi jasno čemu to služi, ali je lako. Napraviš makro koji deli vrednost aktivne ćelije sa zadatim brojem n
Code:
Sub podeli(n As Integer)
ActiveCell.Value = ActiveCell.Value / n
End Sub
Onda napraviš makro koji poziva prethodni makro sa parametrom koji želiš
Code:
Sub Deli2()
podeli (2) ' poziva deljenje sa 2
End Sub
i dodeliš taj novi makro dugmetu.
Usput deljenje može da se obavi i prilikom procesa kopiranja.
1/ Uneseš u neku ćeliju vrednost imenioca npr 3.
2/ Uradiš copy te ćelije
3/ Selektuješ ćeliju koju deliš - brojioc npr. 21
4/ Aktiviraš Edit >> Paste Special, izabereš opciju Divide i vrednost selektovane ćelije je podeljena sa kopiranom (rezultat je 7 u primeru)
Nije to loše Rembrante, samo što ne bi dodao još malo boje?