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

39943_nasob-del-evaluate.zip (23kB, staženo 24x)

citovat

a.mlady(22.3.2018 16:53)#039951

elninoslov napsal/a:

Mohol by ste použiť namiesto toho Evaluate. Je to vlastne 1 riadok kódu.

Hezký den.
Děkuji za nakopnutí. Proměnnou jsem udělal s Vaší pomocí takto:
Call NasobDel(List2.Range("A1:I3"), True, 10)
Díky.

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.