Příspěvky uživatele
< návrat zpět
jen tak narychlo....
AdamFeit napsal/a:
Chtěl bych se zeptat jak by jste řešili to, když potřebuju ten samý QR kod do více řádek...
Díky moc za radu
já to pořešil takto
For i = 1 To 4
Cells(x, 1).Select
Pictures.Insert adresa & nazev
Cells(x, 11).Select
Pictures.Insert adresa & nazev
x = x + 18
Next i
elninoslov napsal/a:
Ale na generovanie QR kódov sú na tej stránke predsa ďalšie parametre čo som pozeral. A my nevieme aké majú byť použité pre výsledok, ktorý nevidíme, lebo prepojenie na pripojený (nie vložený) obrázok nefunguje.
Já bohužel ty parametry také neznám.
vyřešil jsem to tak že to funguje a víc asi řešit nebudu. čtečka to načte kód se zobrazuje tak není co řešit.
Ale děkuji za odpověď
PS: obrázek by neměl být propojený... pro jistotu posílám znovu
ahoj všem
zas jeden užitečnej kód :)
ale potřeboval bych s ním trošku pomoct.
vše jsem si překopčil předěl atd - a funguje, ale
vygeneruje se mi jiný kód než bych potřeboval... nemám čtečku (teď) tak možná je stejný, ale i přesto jak je to možný, že na stejný text je tolik různých kódů?
a můžu docílit stejného kódu jako ten který potřebuju?
soubor je překopanej tak to moc neřešte
Jen jestli se tam dá nastavit víc věcí než jen formát QRkódu (L M H Q)
Velice děkuji.
tak je to perfektní (špatně jsem se vyjádřil s tím"stejně jednoduchý")
vzorec jsem prozkoumal odzkoušel a vše funguje tak jak má(první verze bez"opačně).
Opačně jsem vyřešil (zase složitě) obráceným hledáním odspodu.
Ale tvoje řešení je pro mě zase mnohem lepší a snadnější.
znovu mnohokrát děkuji
ahoj všem
potřeboval bych maličko poradit (opět)
tímto vzorečkem (maticově) najdu hledaný řádek
=POZVYHLEDAT(L1&M1;A:A&B:B;0)
potřeboval bych stejně jednoduše totéž udělat makrem (vyhledat dle dvou hodnot v různých sloupcích) první výskyt v jedné řádce
a pokud by fungovalo, tak totéž,ale poslední výskyt
Předem mockrát děkuji
dobrý den
Nerad tady spamuju, ale mám totéž....
myslím si že to není v programu, ale excelu (možná pomůže přeinstal)
tentýž soubor excelu mi v práci funguje (rozděluje text tak jak má), ale doma se text rozděluje nepochopitelně uprostřed slova stejně jako na vašem obrázku...(i když je za ním ještě dost místa)
Užasný...
Přiznám se že ten kód budu študovat asi hodně dlouho než ho trošku poberu. Funguje výborně a mockrát za to děkuju.
Sám bych něco takovýho spatlal stovkou maker a ještě by to nefachčilo takle dokonale. Ještě jednou mnoho mnoho díků :)
Úžasný.... a jednoduchý -mockrát děkuji (a chápete to velice dobře... i přes moje nedokonalé informace)
Ty další makra jsem jen něco zkoušel...
ve druhém a 4 sloupci se mažou data protože jsou právě závislá na změně 1 a 3 sloupce- tak že je nutné tyto data znovu zvolit
Jen se ještě zeptám pokud by sloupce ze kterých se data tahají nebyly všechny stejně dlouhé jak to mám pořešit?
V zadání teď mám "F2:I7", ale kdyby bylo F2:F6, G2:G20, H2:H5, I2:I20
a ještě by mohla být délka proměnná....
posílám soubor co jsem v rychlosti spíchnul.
Tak to nějak má fungovat (již funguje jen díky vám-všem)
při výběru více buňek hází chybu. ještě budu hledat na GOOglu :), ale asi bude stačit aby při výběru více buněk byla brána v potaz jen ta první, nebo jen neprovést nic a počkat na nové kliknutí
No tak sory...
Já jsem tu slušně poděkoval za pomoc a jen jsem se zmínil že ten druhej "mě" nefunguje. Nevěděl jsem že je tam chyba.
Vy jste asi génius kterej to vidí na první pohled...
Já si toto všechno musím do podrobna rozebrat vyskoušet a pak to možná částečně pochopím jak to funguje.
ještě jednou Poki děkuji za pomoc...
a zkusím i tu opravu kterou napsal XLNC snad už to půjde.
Jinak co se týče pana GOOGLA. HLEDÁM CO MŮŽU. Ale když člověk neví na co přesně by se měl zeptat a hlavně jak přesně formulovat dotaz, tak většina slušnejch lidí pomůže...
PS: já taky chodil do knihovny... ale tam byl asi tenkrát EXCEL v Science fiction....
využil jsem první příklad... jelikož druhý bohužel hází chybu "Select Case without End select"
můj příklad(funguje)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("F1:F6"), Target) Is Nothing Then
Selection.Copy
Cells(1, 4).Select
ActiveSheet.Paste
End If
End Sub
bohužel onen excel nemám doma... nemohu přiložit
jde o jedoduchý výběr, který sem nechtěl řešit přes tlačítka, abych ušetřil trošku místa. Onen výběr se mi má jen nakopírovat na dané místo.
jak jste zmínil problém s větším výběrem, ten jde nějak ošetřit? chtěl bych brát v potaz jen tu první.
a pokud bych chtěl hlídat více sloupců a podle sloupce také jiná podmínka?
jak říkám ten váš druhý příklad jsem nerozběhl. Ale mockrát děkuji. Rád se přiučím (pokus omyl- to jsem já)
Poki napsal/a:
Jde to, pouziva se na to procedura listu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Ahoj všem...
rád bych se zeptal zda to jde aplikovat jen na některé buňky a jestli konkrétní buňkou můžu aktivovat konkrétní makro...
jelikož nejsem zas tak zdatnej, tak jestli by jste nemohly přidat příklad v excelu... děkuji
PS: ještě bych rád dodal, že chci spustit makro jen kliknutím na danou buňku, na změně hodnoty v buňce nezáleží
Ahoj...
nechci zakládat nové téma a doufám že s tímto to má hodně společného.
Mám makro které mi uloží jeden list do nového excelu a uloží.
Vytvoří nový sešit dle názvu který se mi automaticky zvolí dle přiložených dat.
A teď dotaz. jde vytvořit stejně jako nový excel(s názvem) i složka v které by ten excel měl být? nebo to už je na WBA moc?
předem díky
No já to bohužel teď nezkusím, protože tiskárnu nemám. Do programu to můžu dát, ale netuším co to pak udělá. potřebuju to pro tisk A6 ... netuším zda to bude fungovat
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