< návrat zpět

MS Excel


Téma: Docházka rss

Zaslal/a 29.9.2014 14:22

Dobrý den,
prosím odborníky o radu. Jak vytvořit vzorec, aby stalo následující: do sloupce A (např. A1, pak A2, A3, A4 apod.) přibude z externího zdroje (ze čtečky čár.kódů, typ code128, číslo je 12ti místné) číselná hodnota, a já potřebuji, aby mi to vedle do buňky (B1) samo vyplnilo datum, kdy k vyplnění z ext.zdroje došlo, dále vedle (C1) v kolik hodin (hodina, minuta). Nevím si rady.

Roscher M., Chomutov

Zaslat odpověď >

Strana:  1 2   další »
#021686
avatar
no v tomto vam malo kto poradi lebo verim tomu ze take zariadenie ako mate vy tu nema nikto :)

ale zas nadruhu stranu budu stielat ako by to asi slo. Citacka robi nejaky vystup asi ze??

tak potom si spravte makro ktore bude citat ten vystup a bude pouzivat len tie udaje ktore vy potrebujete na zapis do buniek. Nemalo by to byt nic zlozitecitovat
#021687
avatar
Je to USB čtečka čárk.kódů, a je to to stejné, jako se když to číslo naťuká na NUM klávesnici. Ta čtečka vlastně jen supluje NUM klávesnici. Resp. jakoukoliv USB klávesnici, protože já si v generátoru čárk.kódu code128 mohu napsat co chci, a on mi to převede na čárky. Přes připojenou čtečku mi to pak jen přečte a zobrazí, třeba ve wordu, excelu, prostě kdekoliv jako text. Prostě jako kdybych to napsal ručně na klávesnici. Jednou jsem ve VB dělal, že si automaticky vytvořil komentář, jakmile někdo tu či onu buňku editoval. Byl to takový ´´bonzák´´, kdo tak co naposledy něco editoval. Já potřebuji vlastně něco podobného, a nevím si rady.citovat
icon #021688
avatar
V tom prípade sa dá využiť udalosť worksheet_change. Je tu toho na fóre spústa na toto téma, skús preštudovať a pokiaľ s tým sám nepohneš, niekto sa určite nájde. Každopádne, chcelo by to prílohu.citovat
#021689
avatar
da sa urobit trosku inac

napr. ked sa v tomto stlpci zmeni hodnota tak napis do druheho stlpca datum

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 4 Then
For Each aRow In Target.Rows
Cells(aRow.Row, aRow.Column + 1) = Now
Next
End If
End Sub
citovat
#021690
avatar
Dobrý den,
děkuji za příspěvky.
Nechtěl jsem do toho tahat VB. Myslel jsem, že to půjde jednoduchými vzorci a podmínkami. Viz. příloha. Zhruba to funguje, jenže: kdybych teď projel čtečkou mojí provizorní papír.kartu, tak se zapíše hodnota do sloupce A, a do řádku, který je v pořadí, např. A6, ale přepíše to čas, a popř. datum ve všech řádcích sloupce D. A to je špatně.
Příloha: jpg21690_dochazka_vzor.jpg (101kB, staženo 22x)
21690_dochazka_vzor.jpg
citovat
icon #021691
avatar
@Palooo
pmn je Workbook_SheetChange a Worksheet_Change v podstate to isté, pokiaľ teda si týmto myslel, že sa to dá urobiť inak.
Nakoľko OP chce datum a čas v samostatných bunkách, tak miesto Cells(aRow.Row, aRow.Column + 1) = Nownapr. Cells(aRow.Row, aRow.Column + 1) = Date
Cells(aRow.Row, aRow.Column + 2) = FormatDateTime(Time, vbShortTime)
citovat
icon #021692
avatar
@roscher
V podstate si si odpovedal sám. Treba si uvedomiť, že funkcie Dnes() i Nyní() sú volatilné, tzn. mimo iného, že k ich prepočítaniu dochádza pri každej zmene v súbore, čiže bez VBA to asi nepôjde.citovat
#021693
avatar
Dobrý den,
díky za rady, ale nevím kam to ve VB napsat. Nemohli by jste to udělat na nečisto a přiložit ten soubor sem? Nejsem žádný profík na VB.citovat
#021694
avatar
nevím
Příloha: jpg21694_pokus.jpg (68kB, staženo 17x)
21694_pokus.jpg
citovat
icon #021695
avatar
Bude lepšie, pokiaľ sem dáš prílohu ty a niekto ti to do nej dopíše. Ja prílohu na nečisto teda určite tvoriť nebudem 1citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse