Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Visual Basic u Excelu

[es] :: Visual Basic 6 :: Visual Basic u Excelu

[ Pregleda: 1749 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

brzi62s
Informaticki Fakultet
Beograd

Član broj: 296915
Poruke: 7
*.cpe.vektor.net.



Profil

icon Visual Basic u Excelu09.01.2012. u 16:01 - pre 500 dana i 7h

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

[Ovu poruku je menjao brzi62s dana 09.01.2012. u 17:14 GMT+1]
 
Odgovor na temu

timmy
Jovan Timotijevic

Član broj: 37087
Poruke: 612

Sajt: www.e-tim.net


Profil

icon Re: Visual Basic u Excelu09.01.2012. u 16:49 - pre 500 dana i 6h
Probaj ovako:

Code:
Public Sub PaskalovaPiramida(n As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
    For i = 0 To n
        k = 1
        For j = 0 To n
            If j >= i Then
                Cells(i + 1, k) = Application.WorksheetFunction.Combin(j, i)
                k = k + 1
            End If
        Next j
    Next i
End Sub


Pozdrav
 
Odgovor na temu

brzi62s
Informaticki Fakultet
Beograd

Član broj: 296915
Poruke: 7
*.cpe.vektor.net.



Profil

icon Re: Visual Basic u Excelu09.01.2012. u 17:17 - pre 500 dana i 6h
Laptopovi

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
 
Odgovor na temu

timmy
Jovan Timotijevic

Član broj: 37087
Poruke: 612

Sajt: www.e-tim.net


Profil

icon Re: Visual Basic u Excelu09.01.2012. u 18:59 - pre 500 dana i 4h
Iskopiraj u modul, pozivas bilo iz koda radnog lista ili iz drugog modula ili iz immediate prozora sa npr.

Code:

PaskalovaPiramida 5


Pozdrav
 
Odgovor na temu

brzi62s
Informaticki Fakultet
Beograd

Član broj: 296915
Poruke: 7
*.cpe.vektor.net.



Profil

icon Re: Visual Basic u Excelu09.01.2012. u 22:08 - pre 500 dana i 1h
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



[Ovu poruku je menjao brzi62s dana 09.01.2012. u 23:30 GMT+1]
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 689

Jabber: zile028@gmail.com


Profil

icon Re: Visual Basic u Excelu09.01.2012. u 23:36 - pre 499 dana i 23h
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.
=FOX028=zile028@gmail.com=
Prikačeni fajlovi
Paskalov trougao.xls Paskalov trougao.xls - 26k
 
Odgovor na temu

timmy
Jovan Timotijevic

Član broj: 37087
Poruke: 612

Sajt: www.e-tim.net


Profil

icon Re: Visual Basic u Excelu09.01.2012. u 23:46 - pre 499 dana i 23h
Citat:
brzi62s: Brate iskopiro sam i sad mi radi samo sam malo promenio

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


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

Dodaj na pocetak procedure

Code:
UsedRange.Clear


Pozdrav
 
Odgovor na temu

brzi62s
Informaticki Fakultet
Beograd

Član broj: 296915
Poruke: 7
*.cpe.vektor.net.



Profil

icon Re: Visual Basic u Excelu10.01.2012. u 14:09 - pre 499 dana i 9h
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
 
Odgovor na temu

vacikavr92
beograd, srbija

Član broj: 296991
Poruke: 2
*.beogrid.net.



Profil

icon Visual Basic u Excelu10.01.2012. u 15:12 - pre 499 dana i 8h
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.....
Prikačeni fajlovi
zadatak.JPG zadatak.JPG - 64.19k
 
Odgovor na temu

Brodoplovac
Nezaposlen
Beograd

Član broj: 171299
Poruke: 718
*.adsl.verat.net.



Profil

icon Re: Visual Basic u Excelu10.01.2012. u 16:27 - pre 499 dana i 6h
Code:

Sub Kreni()
Piramida (10)
End Sub

Sub Piramida(N As Long)
On Error GoTo Handler
For i = 1 To 2 * N - 1 Step 2
    For j = 1 To i
        dodatak = Cells(i - j, j - 1)
        Cells(i - j + 1, j) = 1 + dodatak
    Next j
Next i

Exit Sub
Handler:
    dodatak = 0
    Resume Next
End Sub
 
Odgovor na temu

vacikavr92
beograd, srbija

Član broj: 296991
Poruke: 2
*.beogrid.net.



Profil

icon Re: Visual Basic u Excelu10.01.2012. u 17:05 - pre 499 dana i 6h
Hvala ti puno...:D
 
Odgovor na temu

brzi62s
Informaticki Fakultet
Beograd

Član broj: 296915
Poruke: 7
*.dynamic.isp.telekom.rs.



Profil

icon Re: Visual Basic u Excelu10.01.2012. u 22:43 - pre 499 dana
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)"?
 
Odgovor na temu

brzi62s
Informaticki Fakultet
Beograd

Član broj: 296915
Poruke: 7
*.dynamic.isp.telekom.rs.



Profil

icon Re: Visual Basic u Excelu10.01.2012. u 22:55 - pre 499 dana
I ovaj drugi ako moze imam rok do 12,bio bh vam jako zahvalan.
 
Odgovor na temu

loto17

Član broj: 184930
Poruke: 92
*.dynamic.isp.telekom.rs.



Profil

icon Re: Visual Basic u Excelu11.01.2012. u 19:23 - pre 498 dana i 3h
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
 
Odgovor na temu

alenichev
Hujdur Alen
Sarajevo

Član broj: 213460
Poruke: 10
178.77.10.*



Profil

icon Re: Visual Basic u Excelu15.12.2012. u 21:00 - pre 159 dana i 2h
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.
Prikačeni fajlovi
primjer_dopune.xlsx primjer_dopune.xlsx - 73.42k
 
Odgovor na temu

alenichev
Hujdur Alen
Sarajevo

Član broj: 213460
Poruke: 10
178.77.10.*



Profil

icon Re: Visual Basic u Excelu15.12.2012. u 21:05 - pre 159 dana i 2h
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
 
Odgovor na temu

[es] :: Visual Basic 6 :: Visual Basic u Excelu

[ Pregleda: 1749 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.