< návrat zpět

MS Excel


Téma: cyklus rss

Zaslal/a 30.7.2014 22:39

Zdravím, mohl by mi někdo poradit jak mám udělat cyklus. Vždy se má propsat buňky stejné barvy. Díky

Příloha: zip20809_sesit1.zip (12kB, staženo 29x)
Zaslat odpověď >

icon #020810
avatar
Príloha nič moc, vychádzal som z makra, ktoré si sa tam snažil vytvoriť. Pre ilustráciu som nechal zakomentované pôvodné inštrukcie a pridal nové, o ktorých iba hádam, že by mali robiť snáď niečo, čo si zamýšľal, ale nie si schopný to ani zrozumiteľne v zadaní popísať.Private Sub Worksheet_Activate()
'tu je tvoj povodny kod
'For i = 1 To 10
' For j = 2 To 20
' For k = 3 To 30
'
' If Cells(2, 2) <> 0 Then
' Cells(2, 8) = Application.WorksheetFunction.Substitute(Cells(2, 2), " - ", "") & ";" & Cells(2, 1) & ";" & Application.WorksheetFunction.Substitute(Cells(1, 2), "1", "")
' Else
' Cells(2, 8) = ""
' End If
'
' Next k
' Next j
'Next i

'tu je snad funkcna modifikacia hore uvedeneho
For i = 2 To 4 'pomocna premenna pre stlpec
For j = 2 To 6 'pomocna premenna pre riadok
' For k = 3 To 30
If Cells(j, i) <> 0 Then
Cells(j, i + 6) = Application.WorksheetFunction.Substitute(Cells(j, i), " - ", "") & ";" & IIf(Cells(j, 1) = "", Cells(j - 1, 1), Cells(j, 1)) & ";" & Application.WorksheetFunction.Substitute(Cells(1, i), i - 1, "")
Else
Cells(j, i + 6) = ""
End If
' Next k
Next j
Next i
End Sub
Riadok Cells(j, i + 6) = Application.WorksheetFunction.Substitute(Cells(j, i), " - ", "") & ";" & IIf(Cells(j, 1) = "", Cells(j - 1, 1), Cells(j, 1)) & ";" & Application.WorksheetFunction.Substitute(Cells(1, i), i - 1, "") by sa dal napísať i takto:Cells(j, i + 6) = Replace(Cells(j, i), " - ", "") & ";" & Cells((Int(j / 3) + (j Mod 3 = 0)) * 3 + 2, 1) & ";" & Replace(Cells(1, i), i - 1, "")Ty fakt tvoríš makrá v práci i pre kolegov? Neuveriteľné.citovat
#020814
avatar
díky funguje mi to. To není tvorba pro kolegy, tím bych se asi neuživil. Vživotě jsem neprogramoval. V excelu umím něco udělat, ale vba je horší. Koupil jsem si i knížku k vba, ale pořád tápu. Budu se muset přihlásit do kurzu. Jak tady sleduju vaše fóra tak jste borci.
Ještě jednou díky a nezlob se že v tom tak tápu.citovat
icon #020817
avatar
Mám za to, že si nedávno písal, že nejaké makrá distribuješ po vašej firme, ale mne do toho vlastne nič nie je. Čo sa týka kurzu, tak sa domnievam, že kniha za pár stoviek ti dá viac, než dvojdňový kurz za niekoľko tisíc. Čo sa tak asi dá naučiť za dva dni. Nikdy som žiadny kurz na programovanie neabsolvoval. Ale u niekoho to môže fungovať inak.
Pokiaľ by som sa narodil ešte raz, tak by som sám rád vyštudoval programovanie, žiadne oficiálne vzdelanie v tomto smere ani ja nemám.
Chce to hlavne skúšať v prvom rade sám, dotazy vznášať až v momente, keď je jeden skutočne v koncoch a odpoveď nenájde ani po intenzívnej snahe a hľadaní riešenia trebárs na internete.citovat
#020818
avatar
Ve firmě jsem jednou něco dělal. Toto bylo pro mě soukromě. Knihu jsem si koupil, tak snad toho pochopím více.citovat
#020832
€Ł мσşqμΐτσ
@ mikkinachtik
Z toho si nic nedělej 1 já si knížku koupil taky, ale popravdě jsem ji využil minimálně.

To chce zkoušet nové věci,
nahrávat makra pak je následně pochopit a upravit
na netu je toho spousta, hlavně když umíš trochu anglicky tak stačí napsat základní příkaz do vyhledávače a tam toho je mraky.
Všichni se učíme každým dnem.
takže zkoušej dál. 10citovat
#020833
avatar
Díky za povzbuzení. Pročítám si tady příspěvky a zkouším.citovat

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09