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

• #12556 Fire/SOUL/CD félisten poffsoft #12555

  Új Válasz 2012-01-10 15:27:11 #12556

  Ú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 poffsoft #12555 üzenetére

  Ez most csak a példa kedvéért C1 cellával hasonlítja össze az A1:B10 tartományt és egy MsgBox fogja kiírni, hogy hány megegyező van a tartományban. Én egy Command Button-hoz rendeltem most, de természetesen ez már lényegtelen, utólag lehet módosítani a saját kedved szerint.

  Private Sub CommandButton1_Click()
  
  Dim MySrcRange As Range
  Dim MyDestRange As Range
  Dim MyCell As Range
  Dim MyCounter As Integer
  
  Set MySrcRange = Range("C1")
  Set MyDestRange = Range("A1:B10")
  
  MyCounter = 0
  For Each MyCell In MyDestRange
  With MyCell
  If Not IsEmpty(MyCell) And _
  .Value = MySrcRange.Value And _
  .Interior.Color = MySrcRange.Interior.Color And _
  .Font.Color = MySrcRange.Font.Color And _
  .Font.Name = MySrcRange.Font.Name Then MyCounter = MyCounter + 1
  End With
  Next MyCell
  
  Set MySrcRange = Nothing
  Set MyDestRange = Nothing
  
  MsgBox (MyCounter)
  
  End Sub

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