-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 SubMindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Témázgatunk, témázgatunk!? ... avagy mutasd az Android homescreened!
- OLED TV topic
- World of Tanks - MMO
- ASUS notebook topic
- Kerékpárosok, bringások ide!
- Gaming notebook topik
- Kormányok / autós szimulátorok topicja
- Yettel topik
- Milyen TV-t vegyek?
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Canva Pro előfizetés - 1 éves
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs