Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: taulukko ongelma

help [03.12.2007 10:31:18]

#

Hei, Mul on edelleen ongelma taulukkoni kans. En osaa vaik kuinka yritän. Olisko joku ystävällinen ja avulias ja auttas vielä ku näköjää en vaan tajuu. Edelleen tää sama ongelma:

1 |Anna |123 | Cecilia|625
2 |Bertta |234 |Anna |428
3 |Anssi |342 |Anu |253
4 |Cecilia |356 |Jaana |112

ja haluaisin et Taul1:lle tulostuis aina nimen perään ensin monesko eli 1,2,3 jne ja sit luku ja sit seuraavalle kolumnille taas seuraava monesko ja sitluku....jne.

Eli pitäisi näyttää Taul1 jotakuinkin sitten tältä:

Anna | 1 | 123 | 2 |428
Anssi | 3 | 342 | |
Bertta | 2 | 234 | |
Anu | | | 3 |253
Cecilia | 4 | 356 | 1 |625
Jaana | | | 4 |112

.. jne

nomic [03.12.2007 10:36:12]

#

Mikäs kieli kyseessä?

help [03.12.2007 11:01:25]

#

Hei, exceli taulukkoo yritän saada toimii. ja tällasta visual basic koodia yrittelen, kun täält jo kerra sain apuja, mut en osaa jatkaa tai siis saada tällast toimii niin et se looppais isompaa aineistoo läpi.

Sub Button1_Click()
Dim areaT1, areaT2, cellT1, cellT2

Sheets("Sheet2").Activate
areaT2 = "B1:B" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row)
Sheets("Sheet1").Activate
areaT1 = "A1:A" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row)

For Each cellT1 In Sheets("Sheet1").Range(areaT1)
 For Each cellT2 In Sheets("Sheet2").Range(areaT2)
   If cellT1.Value = cellT2.Value Then
      Cells(cellT1.Row, 3).Value = Sheets("Sheet2").Cells(cellT2.Row, 1).Value
   End If
 Next
Next

Application.ScreenUpdating = True
Dim areaT3, areaT4, cellT3, cellT4

Sheets("Sheet2").Activate
areaT4 = "B1:B" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row)
Sheets("Sheet1").Activate
areaT3 = "A1:A" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row)

For Each cellT3 In Sheets("Sheet1").Range(areaT3)
 For Each cellT4 In Sheets("Sheet2").Range(areaT4)
   If cellT3.Value = cellT4.Value Then
      Cells(cellT3.Row, 4).Value = Sheets("Sheet2").Cells(cellT4.Row, 3).Value
   End If
 Next
Next

setä [03.12.2007 11:06:51]

#

Logiikka on aika omituinen. Mikä on tuon järjestelyn tarkoitus eli mihin pyrit taulukon uudelleen järjestelyllä.

help [03.12.2007 11:19:36]

#

Homman nimi on tällanen: Mul on Taul1 jossa nimiä listattuna (satoja) ja sit toisella worksheetillä taulukko jossa on aina 4 nimeä joiden perässä lukuarvo. Haluaisin, että excel kävis sadan nimen listan läpi ja etsisi aina ne tietyt 4 ja sijoittas sen monesko kyseinen nimi on eli(1,2,3,4)ja niitten perässä olevan luvun aina oikealle kohdalle siihen sadan listaan. Käsityönä aina noitten 4 etsiminen on järjettömän työläst. Vähä ehkä vaikee selkone juttu, mut toivottavast selvens.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta