Új hozzászólás Aktív témák

• #5721 Pulsar veterán Delila_1 #5715

  Új Válasz 2009-11-23 16:27:57 #5721

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pulsar

  veterán

  válasz Delila_1 #5715 üzenetére

  Szia!

  alakul

  szóval al ényeg, hogy az első (sor, 3) az a data!23-ból olvasom ki.
  a második (sor, 13) az "adat"
  a harmadik pedig 19 féle állapot.
  én így akartam megoldani, de így nem jó

  Sub visual()
  
  Sheets("IDE_MASOLD").Select
  Dim sor, q, w, x, y, z, adat, ossz, fil
  q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0
  For fil = 1 To 19
  filteregy = Range("Data!C23").Text
  filterketto = Range("Data!AA & fill").Text
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  adat = Cells(sor, 13)
  If Cells(sor, 4) = filteregy And Cells(sor, 17) = filterketto Then
  If adat = " 1-10" Then q = q + 1
  If adat = "11-20" Then w = w + 1
  If adat = "21-30" Then x = x + 1
  If adat = "31-60" Then y = y + 1
  If adat = "61- " Then z = z + 1
  End If
  ossz = q + w + x + y + z
  Next
  Sheets("Data").Cells(2, 2 + fil) = ossz
  Sheets("Data").Cells(5, 2 + fil) = q
  Sheets("Data").Cells(8, 2 + fil) = w
  Sheets("Data").Cells(11, 2 + fil) = x
  Sheets("Data").Cells(14, 2 + fil) = y
  Sheets("Data").Cells(17, 2 + fil) = z
  
  End Sub

  Érted így, hogy mit szeretnék?
  tehát hogy az első érték az fix, vagyis az eleén eldől, hogy a vagy b.
  a másik két értéken viszont minden lehetőségen végig kellene menni.

Új hozzászólás Aktív témák