< návrat zpět

MS Excel

Téma: - rss

Zaslal/a Marcelus 16.4.2017 8:00

Dobré ráno.
Někdo ochotný mi poradit?
Co zvolit za rovnici, u lblnew.caption pro vytvoření následující "pyramidy"?

např. pro x=4

1
2 3
4 5 6
7 8 9 10

pro x=5

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15

atd.

Zaslat odpověď >
icon eLCHa(16.4.2017 9:35)#036081
eLCHa
-citovat
Marcelus(16.4.2017 9:38)#036082
avatar
:D?citovat
marjankaj(16.4.2017 11:39)#036083
avatar
Čo je podľa teba rovnica?citovat
Marcelus(16.4.2017 11:50)#036084
avatar
rovnice je např. x = y+1

pro tenhle případ by rovnice byla Xn = Xn-1 + n

Nevím jak ji zapsat ve Vbcitovat
marjankaj(16.4.2017 12:02)#036085
avatar
To má byť vo VBA? Ako to, že na to nikto doteraz neprišiel?citovat
elninoslov(16.4.2017 20:47)#036089
elninoslov
Vy chcete vypočítať počet čísel v pyramíde, pri zadanej hodnote X ?
Neviem či príklad výpočtu počtu čísel čo som uviedol vo vzorci a v makre zodpovedá, ale tak nejak mi to vyšlo. Je to v oboch prípadoch aj s ukážkou pyramídy, ale výstrel do tmy ...
Příloha: zip36089_pyramida.zip (19kB, staženo 18x)
citovat
marjankaj(17.4.2017 0:11)#036092
avatar

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á. 4citovat
marjankaj(17.4.2017 0:20)#036094
avatar
@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 Subcitovat

Uživatelské menu

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

Menu

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.

On-line nástroje