Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Exceli rida tulpa märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale. Teata moderaatorile
otsing:  
striker13
HV Guru
striker13

liitunud: 03.10.2005
sõnum 04.01.2019 10:50:43 Exceli rida tulpa vasta tsitaadiga
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
vaata kasutaja infot saada privaatsõnum
infidel
HV kasutaja
infidel

liitunud: 31.01.2004



Autoriseeritud ID-kaardiga
sõnum 04.01.2019 12:21:00 vasta tsitaadiga
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:
  1. Sub test()
  2. i = 4
  3. k = 8
  4. Do
  5. j = 3
  6. Do
  7. If Cells(i, j).Value <> "" Then
  8. Cells(k, 1).Value = Cells(i, 1).Value
  9. Cells(k, 2).Value = Cells(1, j).Value
  10. Cells(k, 3).Value = Cells(i, j).Value
  11. Cells(k, 4).Value = Cells(i, j + 1).Value
  12. k = k + 1
  13. End If
  14. j = j + 2
  15. Loop Until Cells(1, j).Value = ""
  16. i = i + 1
  17. Loop Until Cells(i, 1).Value = ""
  18. End Sub
Kommentaarid: 35 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 34
tagasi üles
vaata kasutaja infot saada privaatsõnum
striker13
HV Guru
striker13

liitunud: 03.10.2005
sõnum 04.01.2019 12:27:49 vasta tsitaadiga
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 thumbs_up.gif
_________________
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
vaata kasutaja infot saada privaatsõnum
kalvis
Kreisi kasutaja

liitunud: 20.10.2009
sõnum 06.01.2019 12:45:43 vasta tsitaadiga
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
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Exceli rida tulpa
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
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.