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

Příspěvky uživatele

to uz je minimalna zmena v kode

cestu mate v premenej aPath tu potom prepiste na taku aku potrebujete

kedze tam chcete mat neunikatnu cestu a este chcete mat len viditelny nazov tak neviem ako to spravit aby ste to takto dosiahli. Mozte este to rozdelit na dva stpce alebo pomocou hyperlinku.

tu posielam vzor pomocou hyperlinku .... je to namapovane tak ze adresar "Rodina" sa musi nachadzat tam kde je excel

skuste to hadam si to budete potom vediet dorobit

ForEach vyuzivam tiez dost casto ten prikaz vas nuti rovno cyklovat objekty a zaroven nemusite zistovat ktory je posledny s prikazom .count.

Ale ked sa ludia naucia pristupovat k datam databazovo (napr. cez ADO, DAO, DataSet a najlepsie na zaver cez LINQ) tak to potom bude vyvrcholenie :)

este jedna moznost ma napadlo nemate uzamknutu oblast ktoru chcete formatovat?

divne malo by to fungovat ale kedze to patri triede: XlBorderWeight

skuste ten riadok prepisat na .Weight = XlBorderWeight.xlThick

alebo aby vam to aspon fungovalo tak ten riadok vsade vymazte .... tj. vam to len neoramuje s tenkou ciarou ale defaultne co je asi medium ciara.

popripade skuste zapnut record macro a tam naformatovat nejaku oblast a potom sa pozriet do makra ako to tam ulozilo.

staci v kode doplnit/prepisat:

1. Set objObrazek = ActiveSheet.Pictures.Insert(strSouborObrazek & ".jpg")
2. Set rngOblastTest = Range("B2:B1000")
3. strCestaSouborObrazek = "G:\Mati\001 ODB\001 Imdb\005 Fotky\" & Target.Cells(1).Text

viete co? poslite vzorovu DB v Accesse ktora generuje aj vystup + poslite aj Font CODE 128

a ja vam ten excel prerobim do toho accessu a aj nastavim vystup s spravnym fontom

.... to je podla mna robota asi tak na 10-15minut

ved rozumiem ale ved tych 500 ludi si hodite do excelu tam to preslahnete cez tu integrovanu excel funkciu .... vysledok z funkcie nakopirujete spat do accessu aj ked to v access tabulke bude v arial fonte ale vo vystupe ked nastavite potom font Code 128 tak to potom bude dobre vypadat.

teraz som pozeral letmo ten vas program a ten funguje na principe ze prepocita hodnotu do hodnoty ktoru dobre zobrazi ako font code 128.

tak preco taketo prerobene textove udaje nedavate do accesu a potom ked to budete zobrazovat mimo accessu tak tam musite len zapnut font 128?

tu je stranka:
https://sk.calcprofi.com/generator-shtrikh-kodov/barcode.php?code=12345&type=code128

cislo 12345 budete menit na rodne cislo

toto pojde jedine cez makro.

Kedysi som robil nieco podobne na QR code. Budete si najprv musiet naist stranku na generovanie ciarovych kodov a k tomu spravit makro ktore vam to ulozi do MS accessu ako prilohu (.jpg obrazok)

kedze nemam nato cas tak vam aspon hodim makro na QR code a mozno sa tu niekto najde co vam to prerobi na ciarove kody + save do MS accessu

alebo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A" & Target.Row)) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then Range("D" & Target.Row).Locked = True Else Range("D" & Target.Row).Locked = False
ActiveSheet.Protect
End Sub

ano v style tabulky si mozte nastavit

First Row Stripe
Second Row Stripe

tak ako to je na obrazku

Ahojte,

mam taky problem ze u nas na odd sme presli na Office 365 a ta uz nepodporuje Providera: Microsoft.ACE.OLEDB.12.0

dalo by sa nejak to obist alebo nejaka ina alternative?

samozrejme inu alternativu nepovazujem: nainstalovat MS access 2010

skuste pozriet ci subor obsahuje referenciu: Microsoft Web Browser

je mozne ze ju len vyplo

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje