Vymazání obsahu zaškrkávacího pole Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

Vymazání obsahu zaškrkávacího pole

Příspěvekod luko02420 » 26 zář 2018 09:31

Dobrý den, opět potřebuji poradit s VBA. Potřeboval bych poradit jak vymazat makrem obsah zaškrkávacího pole. Našel jsem jenom kod na vymazání celého "Checkboxu".
Pujde to prosím nejak upravit aby mi to vymazalo jenom obsah.
Děkuji.
PS: políček budu mit 7

Kód: Vybrat vše

Sub RemoveCheckboxes()
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Vymazání obsahu zaškrkávacího pole

Příspěvekod elninoslov » 26 zář 2018 11:02

Čo máte na mysly pod pojmom "obsah zaškrtávacieho poľa" ? Fajku? Text ? Tu sú ukážky pre obe.
Za predpokladu, že poznáte ich názov, tak takto hromadne (všetky sa teraz volajú "PolickoX", kde X je číslo):

Kód: Vybrat vše

Sub VymazPopiskyCB()
Dim CB As Shape
    For Each CB In Shapes
        If Left$(CB.Name, 7) = "Policko" Then CB.DrawingObject.Caption = ""
    Next CB
End Sub


Kód: Vybrat vše

Sub VymazHodnotyCB()
Dim CB As Shape
    For Each CB In Shapes
        If Left$(CB.Name, 7) = "Policko" Then CB.OLEFormat.Object.Value = -4146
    Next CB
End Sub
Přílohy
Vymaz popisky a hodnoty CheckBoxov.xlsm
(21.47 KiB) Staženo 19 x

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Vymazání obsahu zaškrkávacího pole  Vyřešeno

Příspěvekod luko02420 » 26 zář 2018 13:11

Dobrý den, ano mám na mysli Fajku. To co jste poslal je přesně to co potřebuji. Ale uz me z toho jde hlava kolem nemuzu to nejak rozchodit. Mrkne prosim kde delam chybu. Jo a jeste jeden dotaz? Je to Vase makro nejak vazany na umistení policka nebo muze byt kdekoliv na liste?
Děkuji za ochotu

PS: Už jsem na to přišel, jsem asi uz uplne blby.
Tímto uzavírám a jeste jednou moc dekuji
Přílohy
policko.xlsm
(20.13 KiB) Staženo 21 x


Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů