Тэма: Vārdu un Uzvārdu DB

paldies... ņemšu vērā...

Nu ko... uzvārdu fails ir gatavs... varam ķerties klāt pēdējai kārtai!!!

Itkā nosūtīju e-pastu ar šo failu, bet tie, kas nesaņēma... vai nu lūdzu atgādinat man savu e-pastu vai arī varat lejuplādēt failu šeit:
ppm-zelta-fonds.1w.lv/?l=...

Veiksmi darbā... Termiņs tas pats - 3 nedēļas...

P.S. Galējais rezultāts būs redzams pēc darba pilnīgas pabeigšanas...

Njā, uzvārdiem saraksts diezgan iespaidīgs Malači tie, kas iedeva lielo pienesumu-īpaši, Zibenss un Degunradzis! Domāju, ka varēsim lepoties ar plašāko vārdu/uzvārdu datu bāzi iekš PPM! Neapskaužu Tevi ZalmansG ar šā visa apkopošanu- es ta ceru svētdien visu pabeigt, bet Tev ta būs jāiet tam cauri apkopojot atkal un atkal Paldies ZalmansG un pārējiem, kas piedalās-nu jau esam finiša taisnē!

Es nekādā veidā nevēlos apšaubīt ZalmansG ieguldījumu un lielo darbu šajā projektā, bet nu nav jau gluži tā, ka būtu viss ar roku jādara...
... reāli ir jāsakopē 10 kolonnas no dažādiem Excel failiem vienā, 11. kolonnā jāievieto foruma, kura sarēķina vidējo un pēc tam jāpalaiž makross, kurš atbilstoši koeficientiem daudzkāršo vārdus...
... vēl neesmu skatījies uzvārdu failu, bet vienīgās problēmas varētu rasties ar to, ka Excel failā fiziski nepietiek vietas, kas ir risināms ar citu programmu palīdzību, jo, cik saprotu, gala rezultātā ir vajadzīgs kaut kāds *.txt fails vai kas tamlīdzīgi primitīvs...

Viss jau būtu baigi forši Tavai daiļrunībai, tikai diemžēl, laiku pa laikam, daži vārdi vai uzvārdi atkārtojas, kas Tavu perfekto formulu šis pasākums izslēdz...

Fū - līdz 1600-jam tiku.. Izdomāju neforsēt, lai acs nezaudē svaigumu un apziņa "neieliek neitrālajā" Bet interesanti, jāsaka.. Pielicējiem un kārtotājiem - visu cieņu!!
Veiksmes - un varbūt līdz Jaunam gadam būs.. neklājas it kā darbus atstāt nākamgadam, vismaz padarāmus.. bet neklausieties māņticīgā pērtiķī...

Paldies par atzinīgiem vārdiem... lai gan kādam var šķist, ka tas viss tajos excel failos ir salecis pats, visi pretbalsojumi rēķinājušies paši, arī mājas lapa ir izveidojusies pati, utt... bet jā... ir darbs ieguldīts un ne tikai mans... Tāpēc paldies arī Jums visiem... bet līdz lielajam paldies vēl biku jāpacīnās mums visiem...

P.S. Eberstein... man uz privāto pastu, ja nav grūti, atsūti lūdzu kā likt automātiski vārdiem pēc koificenta daudzkāršoties... un jā... tālāk es viņu nododu excel failā, tikai saliekot vārdus un uzvārdus kopā vienā failā (katru savā darba lapā, bet vienā failā)... takā tā nav problēma... Paldies jau iepriekš...

Esmu konkrēti piemirsis Visual Basic - algoritms nav līdz galam korekts.
Nekādā veidā nespēju piedabūt makrosu ievietot nepieciešamo vārdu šūnā, nevis pa visu rindu...
... bet nu funkcionāli ir derīgs - beigās vienkārši jānodzēš visas kolonnas, izņemot A...
Tik tiešām nav tagad laika čakarēties, lai tādus sīkumus labotu.

Nevēlējos arī rindu skaitu likt kā automātiski iegūtu, jo tas citreiz mēdz radīt problēmas (piemēram, ja ir faila beigās netīšām iesists kāds simbols vai tamlīdzīgi), tādēļ tas būs jāievada ar roku logā.

Vārdiem ir jābūt A kolonnā, savukārt koeficientiem ir jābūt B kolonnā.

Var būt kāds, kas kaut ko sajēdz no VB, var pateikt, kur ir problēma un kādēļ algoritms ievieto vārdu visas rindas visu kolonnu šūnās, nevis tikai 1. kolonnas šūnā?

Lai nu ar' vai kā, te būs Excel makross:

Sub Daudzkarsosana()
Dim i As Integer
Dim j As Integer
Dim Skaits As Integer
Dim rindas As Integer
rindas = InputBox("Ievadiet rindu skaitu"
For i = 1 To rindas - 1
Skaits = ActiveSheet.Cells(rindas - i, 2) - 1
For j = 1 To Skaits
ActiveSheet.Cells(rindas - i, 1).Select
Selection.Copy
ActiveSheet.Cells(rindas + 1 - i, 1).Select
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveSheet.Cells(rindas + 1 - i, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next j
Next i
End Sub


p.s. viņš cauri visam failam ies labu brīdi, domājams - nevajag satraukties. Vislabāk palaist un atstāt savā nodabā, lai darbojas. Pēc tam, kad pabeigs, vajag arī pārbaudīt rezultātus - es uz pilnas datubāzes neesmu testējis - pamēģināju uz 10 vārdiem, it kā viss bija ok. Jāpārbauda ir saraksta sākums, saraksta beigas un vidus - visam cauri nav jāiet, protams...
p.p.s. pārbaudīt, cik tālu algoritms ir ticis, var nospiežot ctrl+v (cmd+v) - tiks ievietots vārds, pie kura algoritms tagad strādā...

Mazs labojums - iepriekš neņēma vērā pēdējo rindu:

Sub Daudzkarsosana()
Dim i As Integer
Dim j As Integer
Dim Skaits As Integer
Dim rindas As Integer
rindas = InputBox("Ievadiet rindu skaitu" + 1
For i = 1 To rindas - 1
Skaits = ActiveSheet.Cells(rindas - i, 2) - 1
For j = 1 To Skaits
ActiveSheet.Cells(rindas - i, 1).Select
Selection.Copy
ActiveSheet.Cells(rindas + 1 - i, 1).Select
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveSheet.Cells(rindas + 1 - i, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next j
Next i
End Sub

ok... paldies... kad tik tālu būšu ticis, tad arī mēģināšu... paldies...

Tici man, tas nevienam neinteresē, tak Zalmans teica - sūti uz privāto.

Ienīstu, ka forums automātiski dzēš ārā "tab'us" (atstarpes)...

Es cerēju, ka kāds var būt spēj paskaidrot, kur ir problēma un kādēļ algoritms kopē vārdu pa visām kolonnām.
Tas, ka priekš tevis tā ir Morzas ābece, nenozīmē, ka šeit neatradīsies kāds, kas, iespējams, spēs man paskaidrot, ko es daru nepareizi - man tas tik tiešām ir būtiski.
Domāju, ka tik daudz es drīkstu prasīt?

Protams, ja tev tas ļoti traucē, vari manus postus dzēst - ZalmansG jebkurā gadījumā tos redzēs.

ko bubini?

Kā parasti - cenšas piečakarēties man visur, kur var un arī, kur nevar...
... personīgā nepatika...

Pats saproti - ja to būtu iepostojis jebkurš cits, nebūtu nekādu problēmu...