Příspěvky uživatele
< návrat zpět
@elninoslov
Veď na to stačí jednoduchý kód a bude mať výsledok ako je v zadaní.
Sub rovnica()
k = 0
ytext = ""
For i = 1 To InputBox("zadaj x=")
xtext = ""
For j = 1 To i
k = k + 1
xtext = xtext & k & " "
Next j
ytext = ytext & xtext & Chr(13)
Next i
MsgBox ytext
End Sub
Marcelus napsal/a:
pro tenhle případ by rovnice byla Xn = Xn-1 + n
Nevím jak ji zapsat ve Vb
n=1: X1=X0+1=1
n=2: X2=X1+2=1+2=3
n=3: X3=X2+3=3+3=6
No nejaká logika tu je. Ale neviem prísť na to aká.
To má byť vo VBA? Ako to, že na to nikto doteraz neprišiel?
Čo je podľa teba rovnica?
No to posledné je logika ako sviňa.
Nejaký seznam, nejaké kódy... Možno to niekto nejako vysvetlí.
Union("SEZNAMJMEN", Range(Sheets("Detail").Range("Y2").Value)).Select
Jan-Mach napsal/a:
A, proboha, vysvětlete někdo tomu debilovi, co zobrazuje kontrolní čísla, ať je píše aspoň trochu rozeznatelně!!! Nejde odlišit 'S' od '5', '0' od 'O' atd., atd.
Tohle se pokouším vložit už pošesté.
Zaregistruj sa a nebudeš musieť opisovať nejaké čísla.
Veď ti to fungovalo
Sheets.Count
znamená posledný list.
Pavel-szdr napsal/a:
Děkuji, ještě jak s obarvením ouška nového listu? Takto mi to obarví jen ten poslední nakopírovaný. Kam vložit parametr .Tab.ColorIndex = 3 aby obarvoval každý nakopírovaný?
Mockrát děkuji.
To si sa nepýtal
skús
ActiveWorkbook.Sheets(x+1).Tab.ColorIndex = 3
For x = ActiveWorkbook.Sheets.Count to 1 step -1
'Loop through each of the sheets in the workbook
'by using x as the sheet index number.
ActiveWorkbook.Sheets(x).Copy _
After:=ActiveWorkbook.Sheets(x)
Staršie verzie pracujú s príponou .xls. Ale tam to bude aj s makrom.
V excel2003 zrejme súbor .xlsx neotvoríš.
Zdá sa, že som sa v tom nestratil sám. 
Tak potom asi máš iný excel, ako my ostatní.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články