..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Koledar z drsnikom

Pomoč pri delu z MS Excelom

Koledar z drsnikom

OdgovorNapisal/-a AlexAnder » Sr sep 25, 2019 8:08 am

Pozdravljeni,
Ali ima kdo kakšno idejo kako bi v excelu naredil koledar (slika spodaj), ki bi prikazoval en teden, levo in desno pa bi bila puščica, da lahko premikaš datume (v smislu drsnika). Pod datumi pa bi se premikala tudi spodnja polja.

Hvala.

https://photos.app.goo.gl/F8yhS1vYv7KPtPdp9
AlexAnder
 
Prispevkov: 2
Pridružen: To sep 17, 2019 2:27 pm



Matjazev.NET
 

Re: Koledar z drsnikom

OdgovorNapisal/-a admin » Sr sep 25, 2019 9:16 am

Pozdravljeni,

Za rešitev te težave morate napisati makre, ter na tabelo postaviti dva gumba. Gumba pa samo skrivata oz. razkrivata posamezne kolone.

Primer takšnih makrov pa kar prilagam:
Koda: Izberi vse
Option Explicit

Sub SkrijKolone()
  Columns("K:XFD").EntireColumn.Hidden = True
End Sub

Sub Naprej()
  Dim prva As Long: prva = 4
 
  While (Columns(prva).Hidden)
    prva = prva + 1
  Wend
 
  Columns(prva).EntireColumn.Hidden = True
  Columns(prva + 7).EntireColumn.Hidden = False
End Sub

Sub Nazaj()
  Dim zadnja As Long: zadnja = 16384
 
  While (Columns(zadnja).Hidden)
    zadnja = zadnja - 1
  Wend
 
  If (zadnja <= 10) Then Exit Sub
 
  Columns(zadnja).EntireColumn.Hidden = True
  Columns(zadnja - 7).EntireColumn.Hidden = False
End Sub

lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3542
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Koledar z drsnikom

OdgovorNapisal/-a AlexAnder » Sr sep 25, 2019 10:37 am

Pozdravljeni,

Hvala za informacijo. Bom videl kako daleč pridem z mojim (ne)znanjem. :)
AlexAnder
 
Prispevkov: 2
Pridružen: To sep 17, 2019 2:27 pm


Vrni se na Excel

Kdo je prisoten

Po forumu brska: MSN [Bot] in 5 gostov

cron