Visual Basic u Excelu

Ljudi treba mi pomoc oko jednog zadatka koji glasi : "U Visual Basic-u napraviti program koji crta Paskalovu piramidu. Treba da uzme
parametar N i da ispisuje brojeve u celijama do nivoa N (u primeru je N=6)".
Stvarno bih vam bio zahvalan.

1 1 1 1 1 1
1 2 3 4 5
1 3 6 10
1 4 10
1 5
1

Probaj ovako:



Pozdrav

Brate gde da kopiram,ja kopiram u moduls i nece da mi radi.
treba te cifre da mi ispise na radnoj stranici.
Hvala jos jednom

Iskopiraj u modul, pozivas bilo iz koda radnog lista ili iz drugog modula ili iz immediate prozora sa npr.



Pozdrav

Brate iskopiro sam i sad mi radi samo sam malo promenio
Option explicit
Sub main()
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
n = InputBox("Duzina paskalovog trougla")
For i = 0 To n-1
k = 1
For j = 0 To n-1
If j >= i Then
Cells(i + 1, k) = Application.WorksheetFunction.Combin(j, i)
k = k + 1
End If
Next j
Next i
End Sub

Imam samo jedan mali problem kada unesem 6 posle samo hoce ako je neki veci broj
ali ako je manj broj onda nece.
Hvala

Odradio sam nesto, mada nije ista forma kao sto si naveo ali moze da posluzi. Oyvori VBA editor i u Sheet1 je kod odatle ga mozes i pokrenuti, n je nivo trougla.

Potpis

[email protected]=

Ma radi i za manje nego treba obrisati list da bi video da se celije ponovo popunjavaju.

Dodaj na pocetak procedure



Pozdrav

timmy hvala puno.
radi sve ali sad imam dva druga problema pa ako bi mogao
da mi pomognes:1. Isprogramirajte funkciju koja uzima ulaz N i ispisuje u Excel tabelu sve proste brojeve od
1 do N (jedan za drugim bez razmaka u redovima, u koloni A)
2.Napišite program u Visual Basic-u koji ucitava integer N i iscrtava sledecu šaru u Excel
tabeli (u primeru je N=15 i N mora da bude neparan broj):
nznm da stavim sliku ali uglavnom sara ide u x
kao ovako napr x
x
x
i za odredjeni broj napr 15 x-ova dijagonala je 15 crnih kvadratica sa jedne i 15 sa druge nadam se da me razumes
i to ulazi u novi x od 15 ali im je ona koja ih spaja ista crna tj drugi iks ima 14.
Samo mi kazi kako sliku da okacim i stavljam ti.
Hvala jos jednom za prvo resenje

Jer moze mala pomoc????
Imam zadatak u vb-u u excel-u...pa ako neko moze da mi pomogne....
evo teksta zadatka...
Isprogramirajte piramidu: 1,121, 12321, 1234321, ... za dati ulaz N. Brojevi se
dijagonalno ispisuju u Excel tabelu do nivoa N (u primeru je N=5)
upload sam sliku kako zadatak izgleda...
unapred hvala.....

Hvala ti puno...:D

Jel moze pomoc za "Isprogramirajte funkciju koja uzima ulaz N i ispisuje u Excel tabelu sve proste brojeve od
1 do N (jedan za drugim bez razmaka u redovima, u koloni A)"?

I ovaj drugi ako moze imam rok do 12,bio bh vam jako zahvalan.

Za dvojku dovoljno!

Šaraj malo !

Sub Kreni()
SarajMalo (15)
End Sub

Sub SarajMalo(N As Long)
On Error GoTo Handler

For i = 1 To (N / 2) + 1
Cells(i, (N + i) - N).Interior.Color = RGB(0, 0, 0)
Cells(i, (N + 1 - i)).Interior.Color = RGB(0, 0, 0)
Next i

For j = 8 To (N)
Cells(j, (N + j) - N).Interior.Color = RGB(0, 0, 0)
Cells(j, (N + 1 - j)).Interior.Color = RGB(0, 0, 0)
Next j

Exit Sub
Handler:
dodatak = 0
Resume Next
End Sub

Pozdrav svima,

nadam se da nisam fulio sekciju, naime ja imam jedan mali problem sa jednom excelomvom tabelom. Nju sam konvertovao iz pdf-a i sad bi je trebao malo srediti. Ako postoji VB code da napravi dopunu podataka na mjestima gdje bi poslije dobio još jednu kolonu pa poslije toga mogao tačno filtrirati podatke.

prvi sheet je original iz pdf-a, a drugi sheet sam dopunio onako kako sam zamislio da treba...sad me zanima da li je to moguće napraviti da se mogu npr sortirati-filtrirati osobe...Unaprije zahvalan!
Lijep pozdrav,
Alen

Zamolio bih za pomoc uz objasnjenje ako je neko u mogucnosti zaista mi je potrebno.
Zadatak glasi : Napišite program koji ispisuje „paskalovu“ piramidu u Excel tabeli. Kao ulaz se uzima dubina piramide (broj nivoa). Vrh piramide se nalazi u ćeliji A1, sledeći nivo u [A2, B1],

Pa imaš gore gotovo rješenje, jesi pročitao od početka?

Potpis

F