Záloha šířky sloupců ve VBA

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

Moderátor: Mods_senior

Kurimak
nováček
Příspěvky: 5
Registrován: leden 16
Pohlaví: Muž

Záloha šířky sloupců ve VBA

Příspěvekod Kurimak » 03 led 2017 10:21

Zdravím,
vytvořil jsem si v jednom makru ve formuláři zálohu šířky sloupců pro zpracovávanou oblast dat, která se ukládá do pole hodnot SUndo. Ukládá se číslo sloupce a jeho šířka. Vše lze pomocí tlačítka Zpět vrátit do původní podoby, avšak problém nastává, mají li buňky ve sloupci datumový formát např.: “m/d/yyyy” nebo “dd/mm/yyyy”. Potom se původní šířka sloupců správně neobnoví. Věděl by někdo, jak to vyřešit?

Ukázka použitého VBA kódu:

Kód: Vybrat vše

'Vlastní formát pro zálohu šířky sloupce v modulu
Type SloupecUndo
SIndex As Long
SSirka As Integer
End Type
'SIndex – číslo sloupce
'SSirka – šířka sloupce

'Definování proměnných ve formuláři
Dim PocetSloupcu As Long
Dim Sloupec As Range
Dim SUndo() As SloupecUndo

'Záloha šířky sloupců
For Each Sloupec In PracOblast.Columns
    PocetSloupcu = PocetSloupcu + 1
    ReDim Preserve SUndo(PocetSloupcu)
    SUndo(PocetSloupcu).SIndex = Sloupec.Column
    SUndo(PocetSloupcu).SSirka = Sloupec.ColumnWidth
Next Sloupec

  'Obnovení předchozí šířky sloupců
    For s = 1 To UBound(SUndo)
    Columns(SUndo(s).SIndex).ColumnWidth = SUndo(s).SSirka
    Next s



Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 691
Registrován: červenec 11
Pohlaví: Muž

Re: Záloha šířky sloupců ve VBA

Příspěvekod xlnc » 03 led 2017 11:13

V tom to myslím nebude, spíš bych někde hádal sloučené buňky.
lektor, vývojář a zaříkávač pro Microsoft Excel, Excelplus.NET

Kurimak
nováček
Příspěvky: 5
Registrován: leden 16
Pohlaví: Muž

Re: Záloha šířky sloupců ve VBA

Příspěvekod Kurimak » 03 led 2017 11:24

Zdravím,
proměnná pro šířku sloupce musí být nadefinovaná tak, aby šlo do ní ukládat i desetinná čísla, protože některé šířky sloupců obsahují desetinná čísla. To byl ten problém. Mělo mě to napadnout hned.
Oprava:

Kód: Vybrat vše

SSirka As Single

xlnc
Level 3.5
Level 3.5
Příspěvky: 691
Registrován: červenec 11
Pohlaví: Muž

Re: Záloha šířky sloupců ve VBA

Příspěvekod xlnc » 03 led 2017 12:03

Aha, Integer..
lektor, vývojář a zaříkávač pro Microsoft Excel, Excelplus.NET


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - jak sloučit obsah tří sloupců do jednoho?
    od Gizzer2 » 08 říj 2016 09:24 » v Kancelářské balíky
    6
    361
    od Gizzer2
    08 říj 2016 20:07
  • Záloha Wordpressu
    od darbak » 05 zář 2016 22:53 » v Web-tipy a vaše weby
    2
    248
    od darbak
    06 zář 2016 15:13
  • Záloha na internet
    od vojak3 » 02 dub 2017 16:19 » v Vše ostatní (inet)
    9
    377
    od ITCrowd
    04 dub 2017 12:23
  • Záloha pomocí Robocopy
    od Diesels » 25 říj 2016 13:31 » v Programování a tvorba webu
    1
    222
    od zeus
    25 říj 2016 14:31
  • Záloha rozmístění ikon
    od Microsheep » 17 kvě 2017 07:45 » v Programy ke stažení
    10
    403
    od Pic
    23 kvě 2017 21:41

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti