Příspěvky uživatele

je to zlozitejsie ako to na prvy pohlad vypadalo, skusim porozmyslat ale nevyzera to velmi dobre.

Function najdi_rozdil(a, b)
najdi_rozdil = ""
Delka = Application.WorksheetFunction.Max(Len(a), Len(b))
If Len(a) >= Len(b) Then
aa = a
bb = b
End If

If Len(b) > Len(a) Then
aa = b
bb = a
End If

j = 1
For i = 1 To Delka
If Mid(aa, i, 1) <> Mid(bb, j, 1) Then
najdi_rozdil = najdi_rozdil & Mid(aa, i, 1)
GoTo tu
End If
j = j + 1
tu:
Next i

End Function

skus toto, trochu som si dovolil upravit kod Richarda99

spustis Visual basic editor Alt+F11, v editore das vlozit Modul, a ten text vlozis do toho modulu. zavries editor.

teraz kliknes do nejakej bunky a das vlozit funkciu - novu funkciu najdes medzi User defined.

PS - nefunguje to dobre, ak je rozdiel v textoch hned na zaciatku tak cely text vyhodi ako rozdiel

super

este raz dakujem

ahojte

da sa pomocou makra zistit ci je obsah bunky hodnota alebo vzorec ?

vopred dik

mne niekolkokrat pomohlo prekopirovanie jednotlivych listov do noveho suboru, a prekopirovanie makier stylom "prenos textu" (skratka len skopirovat kod makier do novych modulov v novom subore)

asi mi to dnes nepaly, chces vyplnit nejky text do buniek ak otvoris subor - 1. čtvrtek v měsíci, alebo chces skratka vyplnit nieco teraz hned ale len do riadkov kde je datum ktory urcuje ze je prvy stvrtok v mesiaci

ako vyzera databaza, v ktorom stlpci bude to auto?
treba prehladat vsetky stlpce? je to tak tazke dat sem subor ?

namiesto Dim pole(80.31, 82.29, 84.27, 8 ......

daj pole = Array(80.31, 82.29, 84.27, 8.........

no podla toho ci chces len prenasat alebo aj vyhladavat

spravil som to pre prvu tabulku, skus pre ostatne

vidim ze popri hokeji nestiham

no nejde Ti to tu poslat kedze to mas samorozbalovacie (koncovka .exe, tu sa daju dat len .zip, .rar , ....)

prilohu si neposlala a ked ju budes posielat (zbalene v zip alebo rar) tak daj aj ten vytvor co si za hodinu vyrobila

ahoj

tu je rozdile v zaznamenanom a cyklovom makre
Sub zaznamenane()

Sheets("List1").Select
Range("A1:G20").Select
Range("G20").Activate
Selection.Copy

Sheets("List2").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("List3").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("List4").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("List5").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

Sub cyklus()

pole_listov = Array("List2", "List3", "List4", "List5") 'nadefinovanie listov do ktorych chces kopirovat

'*********** Ctrl + C *****************
Sheets("List1").Select
Range("A1:G20").Select
Range("G20").Activate
Selection.Copy
'******************************************

For x = 0 To UBound(pole_listov) 'prejde vsetky polozky v poli pole_listov (skus help, nebudem to tu rozpisovat)

Sheets(pole_listov(x)).Select ' select x-tej polozky z pole_listov (v prvom cykle x=0, nulta polozka v poli je "List2", v druhom cykle x=1 atd...)
Range("A1").Select
ActiveSheet.Paste ' Ctrl + V

Next x ' dalsie x, zas je to na help

End Sub

PS anglictina Ti ide? neviem ci uz su nejake helpy aj v cestine, ak sa tomu chces nejako venovat je na to dobra knizka

nestudoval som kod, ale ak sa to snazis ako pises skopirovat "najednou" tak to nejde, musis to kopirovat na dvakrat (pripadne ak by to bolo viackrat tak sa uz oplati robit cyklus)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje