Příspěvky uživatele
< návrat zpět
Začátek i konec, aby to viděla čtečka musí být označený hvězdičkou
Např.
*vysledek*
a dát do formátu 3 of 9 Barcode
Zdravím,
potřeboval bych pomoct se zaokrouhlením času v tlačítkách.
Např. Nyní je 12:21
a do tlačítka 1 potřebuji napsat -1 hodinu a tu zaokrouhlit dolů na 11:00
Tlačítko 2 : 11:30
Tlačítko 3 : 12:00
Tlačítko 4 : 12:30
prozatím tam přenáším a odečítam časy ale bez zaokrouhlení 
Private Sub UserForm_Initialize()
Dim cas0 As String, cas1 As String, cas2 As String, cas3 As String, cas4 As String
cas0 = Now() - 1 - TimeSerial(0, 30, 0)
cas0 = Format(cas0, "hh:mm")
cas1 = Now() - TimeSerial(1, 0, 0)
cas1 = Format(cas1, "hh:mm")
cas2 = Format(Now, "hh:mm")
cas3 = Now() + TimeSerial(0, 30, 0)
cas3 = Format(cas3, "hh:mm")
Label1.Caption = "Aktuální čas: " & cas2
CommandButton1.Caption = cas0
CommandButton2.Caption = cas1
CommandButton3.Caption = cas2
CommandButton4.Caption = cas3
End Sub
elninoslov napsal/a:
Prílohu som nevidel, skúsim od boku z mobilu bez skúšky:
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
Děkuji taky bych chtěl takový mobil
Zdravím,
prosím mohli by jste mi poradit jak smazat poslední písmeno z textboxu (tzv udělat backspace tlačítko)
Děkuji
https://office.lasakovi.com/excel/data/porovnat-dve-tabulky-rozsireny-filtr-excel-2010/
Jedna možnost bez VBA
Dotaz: ja se třeba setkávám po čase, že se mi vymaže jeden vzorec i když je zamknutý heslo mám k němu jen já a používají ho 3 lidé, kteří nemají ponětí jak vůbec odemknout list natož smazat a pak zamknout. ( Už jsem si sice zvykl a naučil se ten vzorec nazpaměť i buňky, ale pořád mě to trochu štve ) a nechápu jak je to možné.
Je to sice velmi velmi zdlouhavé...ale je možné všechny vzorce napsat do makra a když naleznete nějakou anomalii, aby jste to nemusel dohledávat, tak potom stačí jen spustit makro a přepíše všechny vzorce ve všech listech, ale pokud jich máte hodně, tak to nebude asi vhodné (jen takový "blbý" nápad)
Jiří497 napsal/a:
Chybí vám tam podmínka.
Za "or" musí být to co jsem psal v prvním příspěvku. To co je mezi if - then napište mezi or - then
Ja jsem lopata
díky moc stále se musím učit, jsem si myslel, že si to furt pamatuje tu prvotní podmínku..
fakt mockrát děkuji
foundRange je jedna bunka a format mam nastaveny dd.mm.yyyy
stejnak mi to nějak nejde
Mám momentálně kod:
' kontrola platného GDPR
Dim GDPR As Integer, prijmeni As String
prijmeni = foundRange.Offset(0, 5).Value
Worksheets("Database").Unprotect Password:="xxxxx"
Sheets("Database").Select
If foundRange.Offset(0, 17).Value = "" Or DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Then
GDPR = MsgBox(prijmeni & ": odevzdal(a) souhlas GDPR?", vbQuestion + vbYesNo, "Není platné GDPR")
Select Case GDPR
Case vbYes
foundRange.Offset(0, 17).Value2 = Date
id.Text = ""
Case vbNo
Worksheets("Database").Protect Password:="xxxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
Sheets("Archiv").Select
ThisWorkbook.Worksheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Select
id.Text = ""
MsgBox "Je nutné odevzdat souhlas o GDPR!!!" & vbCrLf & "bez tohoto souhlasu nelze evidovat záznam o testu!", vbCritical
Exit Sub
End Select
Else
'pokracovani kodu
Pokud smažu podmínku .. or Dateserial.... tak to funguje, ale chci přidat pokud je datum v buňce starší než jeden rok, tak opět musí vyskočit okno ohledně souhlasu GDPR jinak pokračuje v kódu vyskakovacího okna
Jiří497 napsal/a:
Další výstřel naslepo:
If Range("A5").Value < Format(DateSerial(Year(Date) - 1, Month(Date), Day(Date)), "dd.yy.mmmm") Then
Jako byste nevěděl, že s přílohou to mohlo být napoprvé přesně.
Tak teď děkuji za to, že jsi mě pamatujete :-) ( chápu po tolika otázkách co jsem tu měl "učnovských".), akurát ten soubor co dělám má momentálně přes 2MB a to neberu data, která obsahuje, takže už je dost složité to z toho vytáhnout.., abych tu vložil příklad.
PS: smekám kloubouk před Vámi a ostatními "kalibry", kteří tady radí ostatním.
Jiří497 napsal/a:
Jedna možnost:
If foundRange.Offset(0, 17).Value < DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Then
Bohužel nefunguje a druhá možnost by nebyla ?
Zdravím hekři :-),
prosím o pomoc v těch datumech mám stále nedostatečné znalosti.
Mám kód:
If foundRange.Offset(0, 17).Value < Date Then
a u toho Date bych chtel kontrolovat Date minus rok, aby to kontrolovalo datum starší než jeden rok..
Děkuji za jakékoliv nakopnutí.
(Datum a čas je pro mě tabu)
Díky
Vždy když se zapisují ve VBA uvozovky tak se musí napsat 2x
Zdravím,
chtěl bych se zeptat, jestli lze automaticky rozsirovat vzorec v kontingenci tabulce, jelikoz ted ji mam ted udělanou tak, že když pribude řádek tak se automaticky rozšíří, ale když jsou v ní nějaké vzorce tak ty se nerozšíří níž..
Dík za jakékoliv info
Zdravím,
asi mi to už nemyslí, ale nějak se mi to furt nedaří..
Mám:
ActiveSheet.Range("S" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Offset(0, 0).Value
pod tlačítkem se nachazí číslo 1 potřebuji to přepsat na 2, jelikož mám podmínku když 1 tak něco udělá a chci, aby to přepsalona 2 a když 2 tak něco jiného
Díky moc za jakoukoliv radu
Tak mě napadlo, že bych vytvořil: pokud se ve sloupci Smlouva zadají data tak se zobrazí ve sloupci T tlačítko, kterým se to odešle nebo když se v sloupci Smlouva udělá změna tak to automaticky odešle mail, ale nevím kde bude emailová adresa
když tak pisnete nejak to udelam
Uživatelské menu
\nMenu
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.
RSS nejnovější články