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

MS Excel

Téma: VBA_porovnání hodnot v buňkách

Zaslal/a Toman 23.11.2017 10:54

Zdravím,

potřeboval bych radu s VBA kódem, ohledně porovnání dat v buňách. Mám vytvořený objednávkový formulář, kde zadám jméno, příjmení, os. číslo, datum a čas. Všechna data po odeslání se mi zapíší do tabulky. Potřeboval bych poradit, jak mám udělat abych nemohl objednat dvě rúůzné osoby na stené datum I čas.

Díky za rady

Zaslat odpověď >

---

AL(23.11.2017 10:57)#038446

S využitím funkcie Countifs, napríklad?citovat

Toman(23.11.2017 12:25)#038447

To AL: Díky za radu s funkci Countifs, jen se mi pořád nedaří, aby porovnávala data z COmboBoxu a data ze sloupce.citovat

AL(23.11.2017 12:46)#038448

Veľmi schématicky:Sub Test()
Dim DateInForm As Date, TimeInForm As Date
DateInForm = DateValue("1.1.2017") 'sem nacitaj datum z formulara
TimeInForm = TimeValue("10:00") 'sem nacitaj cas z formulara

'Datum a cas su pomenovane oblasti na liste
If WorksheetFunction.CountIfs([Datum], DateInForm, [Cas], TimeInForm) = 0 Then


'Datum a cas zatial v tabulke neexistuje, je mozne zapisat nove datum a cas z formulara do tabulky
MsgBox "Neexistuje"
'tu bude kod pre zapis dat z formulara do tabulky


Else: 'Datum a cas zatial v tabulke existuje, nie je mozne zapisat nove datum a cas z formulara do tabulky
MsgBox "Existuje"
'tu bude kod pre opravu dat vo formulari pred opatovnym pokusom o zapis do tabulky

End If

End Sub
Hore uvedený kód vlož do kódu pre formulár. Pokiaľ ho vložíš mimo, zmeň deklarácie premenných pre Dátum a Čas z Dim na Public a umiestni na začiatok modulu, aby mohli premenné fungovať zároveň pre kód Formulára, i ostatné časti kódu v projekte.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse