Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem podmíněné vzorce v excelu

V hárku v ktorom to má pracovať:

1 označ všetky bunky a uprav formát buniek - ochrana tak, aby boli odomknuté
2 zamkni bunky stĺpca B
3 uzamkni hárok heslom "x" (tak je to v mojom kóde ako ukážka. Potom si heslo môžeš zmeniť podľa svojho želania, samozrejme treba v tomto zmysle upraviť i kód
4 do modulu makier tohto hárka vlož toto:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        ActiveSheet.Unprotect ("x")
        Range("B" & Target.Row).Select
        Select Case Target.Value
            Case 1
                With Selection
                    .Locked = False
                    .ClearContents
                    .Interior.Pattern = xlNone
                    .Interior.TintAndShade = 0
                End With
            Case 2
                With Selection
                    .Locked = True
                    .FormulaR1C1 = "=RC[2]+RC[3]+RC[4]"
                    .Interior.ThemeColor = xlThemeColorDark1
                    .Interior.TintAndShade = -0.149998474074526
                End With
            Case Else
                With Selection
                    .Locked = True
                    .ClearContents
                    .Interior.Pattern = xlNone
                    .Interior.TintAndShade = 0
                End With
        End Select
        ActiveSheet.Protect ("x")
    End If
End Sub
hotovo.

Pre výpočet je použitý Tvoj vzorec, t.j. D+E+F

Je to v Exceli 2010.
Súbor musí byť uložený s príponou xlsm a pri otváraní odsúhlasené použitie makier.
Kompaktibilita s Open Office pravdepodobne nebude...

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny