praegune kellaaeg 20.06.2024 04:23:48
|
Hinnavaatlus
:: Foorum
:: Uudised
:: Ärifoorumid
:: HV F1 ennustusvõistlus
:: Pangalink
:: Telekavad
:: HV toote otsing
|
|
autor |
sõnum |
|
striker13
HV Guru
liitunud: 03.10.2005
|
04.01.2019 10:50:43
Exceli rida tulpa |
|
|
Excelis on mitu rida andmeid. Iga rida sisaldab ühte tootekoodi, millel on samas reas veel mitu tulpa andmeid.
Vaja oleks võtta rea esimesest tulbast tootekood, seda korrata 3-4 korda tulpa (oleneb sisestatud andmetest) ja lisada iga tekitatud tulba järele andmeid tabeli reast.
Piltikult siis asi nii:
Tootekoodile 54321 rida 1400 ei tehtud, sest seal andmeid pole.
Tükk aega juba mõelnud, aga pea täiesti tühi, ei oska kuskilt pihta hakata. Lihtsalt if lausega vist teha teda ei saa - ei muutu automaatselt suuremaks, kui tuleb rohkem ridasid juurde.
Kas VBA-ga saaks midagi sellist ära kirjutada?
ei ole koolitöö vms
_________________ Sarcasm is just one of the many services I offer to people who ask stupid questions. |
|
Kommentaarid: 95 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
1 :: |
90 |
|
tagasi üles |
|
|
infidel
HV kasutaja
liitunud: 31.01.2004
|
04.01.2019 12:21:00
|
|
|
VBA-ga suht elementaarne tsüklimajandus.
Kas tühjade lahtrite hulk ja paigutus on alati sama?
Silma järgi võiks töötada selline asi:
vb:
|
Sub test() i = 4 k = 8 Do j = 3 Do If Cells(i, j).Value <> "" Then Cells(k, 1).Value = Cells(i, 1).Value Cells(k, 2).Value = Cells(1, j).Value Cells(k, 3).Value = Cells(i, j).Value Cells(k, 4).Value = Cells(i, j + 1).Value k = k + 1 End If j = j + 2 Loop Until Cells(1, j).Value = "" i = i + 1 Loop Until Cells(i, 1).Value = "" End Sub
|
|
|
Kommentaarid: 35 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
0 :: |
34 |
|
tagasi üles |
|
|
striker13
HV Guru
liitunud: 03.10.2005
|
04.01.2019 12:27:49
|
|
|
Milliseid tühje lahtreid sa mõtled?
Muidu see paigutus tabelil on jah alati sama, lihtsalt ridu tuleb juurde
edit:
Enne mul ei näidanud su postitatud koodi, aga paistab täitsa töötavat. Sätin lihtsalt natuke paika veel ja peakski olema probleem lahendatud
_________________ Sarcasm is just one of the many services I offer to people who ask stupid questions. |
|
Kommentaarid: 95 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
1 :: |
90 |
|
tagasi üles |
|
|
kalvis
Kreisi kasutaja
liitunud: 20.10.2009
|
06.01.2019 12:45:43
|
|
|
vba saab kõike teha, mis ekraanil, ainult et programmi (macro) poolt.
Kasutad tõenäoliselt row ja cell objekte vastavalt vajadusele. Tingimus kui vaja lisada on loomulikult if käsk. Täiesti titekas ülesanne.
|
|
tagasi üles |
|
|
|
lisa lemmikuks |
|
|
sa ei või postitada uusi teemasid siia foorumisse sa ei või vastata selle foorumi teemadele sa ei või muuta oma postitusi selles foorumis sa ei või kustutada oma postitusi selles foorumis sa ei või vastata küsitlustele selles foorumis sa ei saa lisada manuseid selles foorumis sa võid manuseid alla laadida selles foorumis
|
|
Hinnavaatlus ei vastuta foorumis tehtud postituste eest.
|