< návrat zpět
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ď :).
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ápem
citovat
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:citovat
eLCHa(29.5.2013 7:16)#013510 A co tak využít standard
Např.: do C1 napište 2
Dejte kopírovat
Označte B1:B3
vložit jinak - násobit
C1 vymažte
citovat