Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  138 139 140 141 142 143 144 145 146   další »

A takto by to nemohlo byť? formátovať vzorce tak ako to chceš ty asi nejde.

Sub HorniIndex()
Range("C14:AG33").Select
For Each bunka In Selection
bunka.Value = bunka
Next
With Selection
.Characters(Start:=1, Length:=1).Font.Superscript = False
.Characters(Start:=2, Length:=4).Font.Superscript = True
End With
End Sub

možno by si mal priložiť súbor ako by to malo vyzerať. Kedy by to malo vyhodiť chybu a kedy nie. Nemusíš 5000 riadkov, stačilo by 50.
Akosi mi chýba logika v zadaní.

Klikni pravýmm tlačítkom na list, ktorý chceš kopírovať, vyber "premiestniť alebo kopírovať",zaškrtni "vytvoriť kópiu" a zaraď kam potrebuješ. Potom list premenuj.
Tak to urob 20 krát.
Prípadne si nahraj na to makro.

Skús takýto kód. Treba si iba zoradiť tie obrázky.

Sub presun()
For j = 1 To 4
If Cells(2 + j, 1) = 0 Then Exit For
ActiveSheet.Shapes.Range(Array(Cells(2 + j, 1))).Select
Selection.Copy
Cells(2 + j, 2).Select
ActiveSheet.Paste
Next j
End Sub

Alebo takto

=VYHLEDAT(A1;{0;20;25,001;30,001};{"podváha";"normální";"mírná nadváha";"nadváha"})

lookup=vyhledat?

Tak to sa budeš diviť, že si na to sám neprišiel.

A prečo napríklad 100 musí byť ako 60+40 a nie 60+20+20?

No najlepšie zmena bunky v stlpci "A"

Presne tak ako ťa napadlo.
Alebo v kóde
c_Faktury = Worksheets("Nabídka").Cells(3, 1).Value & Worksheets("Nabídka").Range("A1").value

prípadne
c_Faktury = Worksheets("Nabídka").Cells(3, 1).Value & Worksheets("Nabídka").cells(1,1).value

Nebude to TRUNC?

Private Sub CommandButton1_Click()
Sheets("list1").Cells.Copy Sheets("list2").Cells
End Sub

Áno toto funguje.

tak mě napadá jedna možnost a to v Excelu v možnostech přepnout výpočty na "ruční" a teprve pak soubor otevřít - teoreticky by to mohlo zafungovat, prakticky nevím :-).

No tam to musíš prepísať.
Teda =dnes() na daný dátum.
Teda ak si to medzitým neuložila ešte raz. Inak sa k tomu dátumu asi nedostaneš.

To Pavolc
Ja som to tiež skúšal pri naťahovaní kurzov z NIKE. A tiež sa mi to zdalo najjednoduchšie. Len to prepínanie treba robiť manuálne.Makro sa mi nepodarilo.

No zrejme tam bude dátum kedy bol súbor uložený.

To by išlo možno v assembleri, ale do pola môžeš ukladať iba hodnoty(čísla alebo reťazce).
príkaz pole=array(x,y,z)
uloží do poľa aktuálne hodnoty premenných x,y,z.
Ak sa zmení x to neznamená že sa automaticky zmení aj hodnota v pole(0).
Tá sa zmení až po príkaze ARRAY. Inverzná funkcia k ARRAY nie je. to by si musel priraďovať manuálne. Teda v podprograme tých 120 priradení k tvojim premenným OK1...OK120.

Názov premennej je vlastne informácia pre prekladač a ten priradí tej premennej určité miesto v pamäti a stou bunkou sa potom pracuje.

Príkaz pole=array(x,y,z)
urobí to isté ako
pole(0)=x
pole(1)=y
pole(2)=z
a urobí to iba raz
ak sa neskôr zmenia hodnoty x,y,z, tak hodnoty v poli zostanú pôvodné, ako boli priradené príkazom array.


Strana:  1 ... « předchozí  138 139 140 141 142 143 144 145 146   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

VBA vyhledat a zapsat

Stalker • 27.9. 23:02

VBA vyhledat a zapsat

Fantasyk • 27.9. 22:15

VBA vyhledat a zapsat

Stalker • 27.9. 22:04

VBA vyhledat a zapsat

Fantasyk • 27.9. 21:03

vyhledávání s maticí

Fantasyk • 26.9. 11:35

Automatické doplnění

marjankaj • 25.9. 14:27

Automatické doplnění

Dingo • 25.9. 14:25