S využitím funkcie Countifs, napríklad?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA_porovnání hodnot v buňkách
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
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
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
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)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články