• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: worksheet_change

Zaslal/a Martin.H 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
------------------------------------------------

Uzamčeno - nelze přidávat nové příspěvky.

---

Jeza(15.3.2012 11:36)#007628

Asi by byl vhodný krátký vzorek. Proč u getsetting není mekrs v uvozovkách?
Mekrs není to ta spojovací technika? :-)

M@citovat

JJ(15.3.2012 12:41)#007632

tady je ten vzorek, trochu jsem to ořezal ale to hlavní tam zůstalo. nešlo mi to vložit tady přes forum tak je to na linku. mekrs je proměnná proto bez uvozovek

http://leteckaposta.cz/127708642

Díky moccitovat

Jeza.m(15.3.2012 13:33)#007633

V příloze je příklad jak to lze řešit na tom krátkém vzorku bez offsetu, ale tvůj soubor asi bude větší a je třeba to přizpůsobit jemu, ale třeba pomůže nástřel s použitím rozlišení jedná li se o buňku, či oblast buňek.

M@

Příloha: 7633_pokus.zip (10kB, staženo 32x)

citovat

JJ(15.3.2012 14:04)#007634

Takhle je to geniální. Díky moccitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse