MS Excel

Téma: Vložit jinak makrem

Zaslal/a a.mlady 21.3.2018 20:31

Přeji hezký večer.

Potřeboval bych poradit, jak udělat proměnnou pro Vložit-jinak-násobení, přímo v kodu. Viz. ukázka.
Pomocí hodnoty v buňce to jde, ale kdyby to šlo jinak, byl bych rádši.
Předem dík.

Příloha: rar

39939_vlozit-jinak.rar (12kB, staženo 23x)

Zaslat odpověď >

elninoslov(21.3.2018 22:35)#039943

Mohol by ste použiť namiesto toho Evaluate. Je to vlastne 1 riadok kódu. Rovnako môžete použiť cyklus.

EDIT:
Alebo takto aj s názvom listu, ak by sa jednalo o iný ako aktívny list...
Sub NasobDel(Oblast As Range, bTyp As Boolean, nHodnota#)
Dim ADR As String
Application.ScreenUpdating = False
With Oblast
ADR = "'" & .Parent.Name & "'!" & .Address
.Value2 = Evaluate("=IFERROR(SUBSTITUTE(" & ADR & ","","",""."")" & IIf(bTyp, "*", "/") & nHodnota & "," & ADR & ")")
End With
Application.ScreenUpdating = True
End Sub

Příloha: zip