Příspěvky uživatele


< návrat zpět

worksheet_change (14.3.2012 14:23)

Dobrý den,

s těmito věcmi v Excelu začínám a potřeboval bych poradit. Vycházel jsem z knihy programujeme v VBA a konzultoval se strejdou Googlem :-)

Používám na jednom listu funkci na přepočet sousední buňky při změně nebo smazání buňky v oblasti.
Toto funguje OK, dokud nevyplňím buňky hromadně(nebo nesmažu) pak se přepočítá pouze první buňka.
Zároveň bych potřeboval udělat přepočet všech zadaných buněk v oblasti když změním nastavení měny. Nasatvení měny ukládám do registru pomocí SaveSettings a čtu přes GetSettings. hodnoty jsou přes radiobutton true nebo false.

Moc díky za každou radu!

Přikládám kód na kontrolovaném listu.
------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim oblast As Range

Set Target = Target.Resize(1, 1)
'unlockwork
Set oblast = Range("M4:M60000")
If GetSetting(mekrs, "Settings", "Měna Kč", "") = True Then
If Not Intersect(Target, oblast) Is Nothing Then
Range("N2").FormulaLocal = "=když(suma(N4:N60000)=0;"""";suma(N4:N60000))"

If Target > 0 Then
Target.Offset(0, 1) = Target * Target.Offset(0, -2)

End
End If

Target.Offset(0, 1).ClearContents

'lockwork
End If
Else

If Not Intersect(Target, oblast) Is Nothing Then
Range("N2").FormulaLocal = "=když(suma(N4:N60000)=0;"""";suma(N4:N60000))"

If Target > 0 Then
Target.Offset(0, 1) = Target * Target.Offset(0, -1)

End
End If

Target.Offset(0, 1).ClearContents

'lockwork
End If

End If




End Sub
------------------------------------------------


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje