Příspěvky uživatele
< návrat zpět
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
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články