MS Excel

Téma: Násobenie jednotlivých obsahov buniek

Zaslal/a Holden 24.5.2013 15:29

Zdravím, potreboval by som nejakú šikovnú funkciu, ktorá vždy ľahko vynásobí obcahy jednotlivých buniek napr. x2.
Čiže mám bunky:
B1 - 2
B2 - 4
B3 - 8
a potrebujem aby jednoducho vyzerali:
B1 - 4
B2 - 8
B3 - 16

Ďakujeeem za odpoveď :).

Zaslat odpověď >

Palooo(24.5.2013 15:56)#013448

makro:

Sub test()
Dim aCell As Range
For Each aCell In ActiveSheet.Range(Selection.Address)
Range(aCell.Address) = Range(aCell.Address) * 2
Next
End Subcitovat

Holden(24.5.2013 15:59)#013449

Dalo by sa to napísať na ten príklad čo som uvádzal? trochu tomu nechápemcitovat

Palooo(24.5.2013 16:05)#013450

toto makro funguje na sposob tak ze co mas selecnute tak to vynasoby x2. Je to viac unuverzalnejsie ako pisat do makra:
range("B1") = range("B1") * 2
range("B2") = range("B2") * 2
range("B3") = range("B3") * 2
or

cells(1,2) = cells(1,2) * 2
cells(2,2) = cells(2,2) * 2
cells(3,2) = cells(3,2) * 2
citovat

Pavlus(24.5.2013 16:14)#013451

To samé, akorát s InputBoxem .-).
P.

Viz příloha:

Příloha: zip