Pomoć oko Visual Basica u Excelu

[blackmore1911]

Pozdrav!

Prijavio sam se za neki projekat iz VB za dodatne poene na faksu, medjutim bio sam sprecen da prisustvujem predavanjima i sad nemam predstavu kako to da uradim. Da li bi neko znao i hteo da mi pomogne oko ovog zadatka:

Napisite program koji ce ispisati u excel tabelu sve trocifrene brojeve {N1,N2, ...Ni, ... NX} koji su deljivi
sa 11. Svaki broj Ni u tom skupu mora da ima zbir kvadrata svojih cifara = Ni/11. (jedan za drugim bez
razmaka u redovima)

Ja svakako moram da skapiram sta i kako funkcionise pre nego sto to usmeno odbranim, tako da bi mi ovo bila ogromna pomoc.

 

[hedgehog]

Pa jesi li bar malo upoznat sa VB sintaksom, petljama...?
Kreni od toga, potom se ovo svodi na cisto matematicki problem. Trebaju ti bar dve petlje i dva uslova da postavis.
Ja sam malo prizaboravio kako ide sintaksa posto nisam odavno nista kuckao u VB, samo sam neke makroe malo modifikovao, ali mogu da pomognem oko ideja

A oko uslova za brojeve deljive sa 11, operator koji to radi je \, tj. daje rezultat samo za "deljive" brojeve nekim brojem.

 

[blackmore1911]

Nisam uopšte, VB nam predstoji tek u sledećem semestru a ovo je zadatak u fazonu "snadji se" za te ekstra poene pre nego što počnemo da učimo VB, zato sam i postavio ovaj thread

 

[Darko]

Nemam excel na masini ali evo ti vrlo jednostavno resenje u pseudo kodu sa jednim jedinim for-om (*bes me ako nadjes brze resenje ):

j=0;
for (i=10; i<91; i++){
ni = i*11;
prvaCifra = ni MOD 10; // odnosno ostatak pri deljenju sa 10
drugaCifra = ( ni MOD 100 ) \ 10; //odnosno ostatak pri deljenju sa 100, pa celi deo deobe sa 10
trecaCifra = ni \ 100; //odnosno celi deo deobe sa 100
kvadrati = prvaCifra*prvaCifra + drugaCifra*drugaCifra+trecaCifra*trecaCifra;

if(kvadrati == i) printmeout[j++] = i*11;
}

Niz printmeout ce sadrzati sve trazene trocifrene brojeve deljive sa 11 kojima je zbir kvadrata cifara jednak trazenom mnoziocu. Zasto je iterator od 10 do 91? Pa zato sto je prvi trocifredni broj deljiv sa 11: 10*11 = 110, a zadnji 90*11 = 990. Da je tvoj profa malo 'fleksibilnije' zadao zadatak, resenje bi bilo za epsilon komplikovanije ali ko ga shisha kad je unapred zadao pocetni i krajnji uslov

Edit: dodao drugi deo uslova

 

[Darko]

Al ne kontam samo sta znaci ovo:

(jedan za drugim bez
razmaka u redovima)

 

[blackmore1911]

Dakle samo da ovo c/p u Excel i radice hvala puno! You're a lifesaver

 

[Darko]

Dakle samo da ovo c/p u Excel i radice hvala puno! You're a lifesaver

Ne moze direktno da radi, moras da prevedes kod u Excel VBA. Koristio sam MOD i '\' za cifre sto jeste VBA kod, ali for petlja i if se pisu malcice drugacije. Imam neki libreoffice pa mogu veceras da napisem Libre Office VBA kod, ako ti to znaci. Ali Excel nazalost nemam na ovoj masini

P.S. malena izmena (zaboravio sam da izmenim nakon dodatka drugog uslova):

" if(kvadrati == i) printmeout[j++] = i*11;"
promena u
" if(kvadrati == i) printmeout[j++] = ni;"

 

[ilbb]

I inkrement ++ nema u VBA pa ćeš morati:
j = j + 1
a za ubacivanje u tabelu:
ActiveSheet.Cells(j, 1) = ni, za ostalo imaš help(kursor iznad komande pa F1) malo i google, treba poene i zaraditi, jer šta će se desiti ako profesor prčita ovo?

A ako ti je zadatak iz baš VB, a ne iz VBA pošto nisi precizirao, da napišeš aplikaciju koja će da kreira i popuni excel fajl to već malkice kompliciranije ali može google i tu da pomogne.

 

[blackmore1911]

Iskreno pojma nemam, videcu posle Nove prezicnije sta i kako. Hvala vam za sad!

 

[blackmore1911]

E ovako, pricao sam sa kolegama sa faksa: Oni valjda otvore Excel i unutar njega u Visual Basicu treba da se ispise kod koji ce da izvrsi ovaj zadatak. E sad, ja stvarno nemam pojma o cemu se radi i kako sve to treba da uradim, samo znam da trebam da posaljem kod profesoru na mail. Now, what do I do?

 

[Никола]

E ovako, pricao sam sa kolegama sa faksa: Oni valjda otvore Excel i unutar njega u Visual Basicu treba da se ispise kod koji ce da izvrsi ovaj zadatak. E sad, ja stvarno nemam pojma o cemu se radi i kako sve to treba da uradim, samo znam da trebam da posaljem kod profesoru na mail. Now, what do I do?

Учиться, учиться и учиться.

 

[Darko]

Resenje imas. Prevedi ga u VBA kod uz pomoc googla

 

[blackmore1911]

Okej, thanks!

 

[blackmore1911]

Resenje imas. Prevedi ga u VBA kod uz pomoc googla

Tried. Failed. Ne znam koji deo koda uopste treba da se izmeni.