< návrat zpět

MS Excel


Téma: Kalendář Excel VB rss

Zaslal/a 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ěď >

#046874
elninoslov
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
#046880
avatar
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: rar46880_prenos-ok.rar (80kB, staženo 24x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46