Záloha šířky sloupců ve VBA Vyřešeno

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

Moderátor: Mods_senior

Kurimak
nováček
Příspěvky: 13
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: 786
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.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

Kurimak
nováček
Příspěvky: 13
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: 786
Registrován: červenec 11
Pohlaví: Muž

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

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

Aha, Integer..
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • excel VBA - dynamický vzorec (přírůstek sloupců)
    od phaethon » 22 říj 2017 08:50 » v Kancelářské balíky
    8
    478
    od phaethon
    23 říj 2017 21:39
  • makro na vkládání datumu z buňky do určitých sloupců
    od maniacm1 » 26 úno 2018 14:36 » v Vše ostatní (sw)
    1
    268
    od Grimm
    27 úno 2018 19:40
  • automatická záloha
    od dratek000 » 18 lis 2017 09:15 » v Vše ostatní (sw)
    3
    337
    od dratek000
    19 lis 2017 20:30
  • Zaloha disku 1:1
    od mimi973 » 14 led 2018 21:53 » v Windows 10, 8, 7, Vista, XP…
    10
    381
    od mimi973
    14 led 2018 22:25
  • Záloha disku
    od Prosím_Pomozte » 27 úno 2018 21:44 » v Problémy s hardwarem
    7
    342
    od Prosím_Pomozte
    28 úno 2018 21:28

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

Kdo je online

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