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

• #14707 laci8080 csendes tag

  Új Válasz 2012-08-23 13:56:40 #14707

  Ú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

  

  laci8080

  csendes tag

  Az alabbi program egy ötös lotto variaciot tartalmaz 21 szam 5 kihuzottra 5 talalat,de hogyan tudnak olyant csinani ami mondjuk 2 kihuzottra 2talalatot garantal??

  Vagy 4 kihuzottra 3as talalatot?

  o=2

  For i = 1 To 17

  For j = i + 1 To 18

  For k = j + 1 To 19

  For l = k + 1 To 20

  For m = l + 1 To 21

  Cells(o, 1) = i

  Cells(o, 2) = j

  Cells(o, 3) = k

  Cells(o, 4) = l

  Cells(o, 5) = m

  o = o + 1

  Next

  Next

  Next

  Nex

  Next

• #14612 laci8080 csendes tag

  Új Válasz 2012-08-13 09:35:22 #14612

  Ú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

  

  laci8080

  csendes tag

  sziasztok kedves forumozok a segitsegetekre lenne szüksegem excel makro programozas a probléma..

  A probléma a következö van egy program:

  Sub Gomb1_Kattintás()
  Set a = 2
  Set b = 3
  Set c = 8
  Set d = 10
  Set elemek = Union(a, b, c, d)
  Cells(1, 1) = Application.WorksheetFunction.CountIf(elemek, ">5")
  End Sub

  sajna nem müködik!

  Az lenne a feladat hogy nezze meg hogy a,b,c,d elemek közül hany olyan van ami nagyobb mint 5 és a darabszamot irja bele az A1 cellaba!
  az (if) modszer jo megoldas de countif kellene!!!

  Tudom hogy nem kéne hogy makrot hasznaljak,függvennyel egyszerü lenne, de nekem itt kell hogy müködjön a makroban!

  segitseget elörre is köszönöm!

• #14608 laci8080 csendes tag

  Új Válasz 2012-08-11 20:31:00 #14608

  Ú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

  

  laci8080

  csendes tag

  sziasztok kedves forumozok a segitsegetekre lenne szüksegem excel makro programozas a probléma..

  A probléma a következö van egy program:

  Sub Gomb1_Kattintás()
  Set a = 2
  Set b = 3
  Set c = 8
  Set d = 10
  Set elemek = Union(a, b, c, d)
  Cells(1, 1) = Application.WorksheetFunction.CountIf(elemek, ">5")
  End Sub

  sajna nem müködik!

  Az lenne a feladat hogy nezze meg hogy a,b,c,d elemek közül hany olyan van ami nagyobb mint 5 és a darabszamot irja bele az A1 cellaba!

  Tudom hogy nem kéne hogy makrot hasznaljak,függvennyel egyszerü lenne, de nekem itt kell hogy müködjön a makroban!

  segitseget elörre is köszönöm!

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