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

• #8720 Fire/SOUL/CD félisten atesz90 #8716

  Új Válasz 2010-11-26 12:41:03 #8720

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz atesz90 #8716 üzenetére

  Egy makrós megoldás, csak a "változatosság kedvéért"...

  Private Sub CommandButton1_Click()
  
  Dim MyFxs As WorksheetFunction
  Dim Src_Range As Range
  Dim Dest_Range As Range
  
  Set MyFxs = Application.WorksheetFunction
  
  'Melyik tartmányban számolja meg a számokat
  Set Src_Range = Range("A1:B7")
  'Eredménytáblázat kezdőcellája (bal-felső)
  Set Dest_Range = Range("D1")
  
  For i = 1 To 100
  Dest_Range.Select
  With ActiveCell
  .Offset(i - 1, 0).Value = i
  .Offset(i - 1, 1).Value = MyFxs.CountIf(Src_Range, i)
  End With
  Next i
  
  Set MyFxs = Nothing
  Set Src_Range = Nothing
  Set Dest_Range = Nothing
  
  End Sub

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