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: 17
Registrován: leden 16
Pohlaví: Muž
Stav:
Offline

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
guest
Pohlaví: Nespecifikováno

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

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

V tom to myslím nebude, spíš bych někde hádal sloučené buňky.

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

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

guest
Pohlaví: Nespecifikováno

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

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

Aha, Integer..


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • PowerQuery - import dat do sloupců Příloha(y)
    od MK_Vs » 31 říj 2023 10:00 » v Kancelářské balíky
    9
    1900
    od MK_Vs Zobrazit poslední příspěvek
    02 lis 2023 09:26
  • záloha access
    od Ruda25 » 26 lis 2023 21:47 » v Kancelářské balíky
    7
    1289
    od atari Zobrazit poslední příspěvek
    28 lis 2023 11:26
  • HDD jako záloha
    od Baader » 21 zář 2023 16:10 » v Rady s výběrem hw a sestavením PC
    13
    1894
    od Tint Zobrazit poslední příspěvek
    23 zář 2023 13:40
  • Záloha pouze změněných dat Příloha(y)
    od BulletRide » 29 úno 2024 01:14 » v Programy ke stažení
    3
    1386
    od meda2016 Zobrazit poslední příspěvek
    03 bře 2024 10:34

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

Kdo je online

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