- AMD Navi Radeon™ RX 6xxx sorozat
- Vezetékes FEJhallgatók
- Az Xbox Series X|S konzolnak három új verziója jön idén
- Milyen TV-t vegyek?
- Azonnali VGA-s kérdések órája
- Samsung QN800D: Neo QLED 8K tévét teszteltünk
- Gaming notebook topik
- Computex 2024: Íme a Project NeonStorm
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Léghűtés topik
Hirdetés
-
Csinált valamit a Nokia: megváltoznak a telefonhívások
it Végrehajtotta a világ első „magával ragadó” telefonhívását a Nokia vezérigazgatója. 3D-s hangélményt ígér.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Destiny 2: The Final Shape - Mi vár ránk a jövőben?
gp A készítők egy rövid videóban beszéltek a rövid- és hosszútávú terveikről.
-
PROHARDVER!
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
-
Delila_1
Topikgazda
válasz tomi_x #46141 üzenetére
Próbáld ezzel:
Sub Formazas()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
If Cells(sor, 1) = Cells(sor + 1, 1) Then
With Range(Cells(sor, 1), Cells(sor, 15)).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Range(Cells(sor, 1), Cells(sor, 15)).Borders(xlEdgeBottom).LineStyle = xlNone
Else
With Range(Cells(sor, 1), Cells(sor, 15)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Range(Cells(sor, 1), Cells(sor, 15)).Font.ColorIndex = xlAutomatic
End If
Next
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eladó Steam kulcsok kedvező áron!
- Canva Pro előfizetés - 1 éves
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen