• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Kalendář Excel VB

Zaslal/a MiraS44 10.6.2020 21:53

Ahoj, nejsem programátor. V rámci podnikání bych ale potřeboval jednoduchý ubytovací systém. Zasekl jsem se v jedné části. Při vyplňování rezervačního formuláře bych potřeboval, aby se část vyplňovaných údajů (konkrétně datum a typ pokoje) přenesla do kalendáře. Ten je rozdělen na měsíce. Daný měsíc má v řádku dny a ve sloupci typ pokoje. Mám 2 problémy:
1) Používám if a potřebují, aby se označovali pole od - do tzn. od kdy do kdy je ubytován, zatím to mám jen na datum příjezdu - na tohle ale asi časem příjdu.
2) spíš mě děsí, že celý kod uvedený níže mám vlastně na 1 den a já to potřebuju alespoň na 2 roky :) Potřeboval bych nakopnout a nějak to zjednodušit, abych to nemusel dělat pro každý pokoj zvlášť a každý den zvlášť. To by bylo víc jak tísíc kodu :)

Omlouvám se, jsem fakt začátečník. Ale docela mě to chytlo.
Níže kod:
Sub prenoskalendar2()
'
' prenoskalendar2 Makro
'
Dim a As String, c As String, e As String
Dim b As Date, d As Date
a = Range("Rezervace!A13").Value
b = Range("Rezervace!B13").Value
c = Range("Kalendar!A4").Value
d = Range("Kalendar!B3").Value
e = Range("Rezervace!D8").Value
'For Each cell In Range("B4:AF4")
If a = c And (b = d) Then
Sheets("Kalendar").Select
Range("B4") = e
Range("B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0

End With
End If
End Sub

Zaslat odpověď >

---

elninoslov(10.6.2020 22:08)#046874

Poskytnite aspoň čiastočný súbor, kde budú tie 2 listy, nejakých pár vymyslených údajov. Citlivé data nepotrebujeme. Ale presné rozloženie áno. To sa bez prílohy robí veľmi zle, navyše keď ako sám vravíte, to Vaše makro nemusí byť vôbec smerodajné, čo sa týka určenia pohyblivých častí adries.citovat

MiraS44(11.6.2020 21:15)#046880

Ahoj, posílám přílohu. Data jsou smyšlená. Je to zatím v začátcích. Ještě mě napadlo jestli by nebyla cesta buňky v kalendáři označit konkrétním datem a pak udělat podmínku na ten celý řádek pro jeden typ pokoje. pak by se to asi zjednodušilo... díky za jakékoliv náměty, snad mi rozumíte. Díky M

Příloha: 46880_prenos-ok.rar (80kB, staženo 24x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse