Hirdetés
-
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
-
#48745
Fire/SOUL/CD
félisten
Eagl3
#48743
Ide másold a kódot
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MySrcRange As Range
Set MySrcRange = Range("P12")
If Not Intersect(Target, MySrcRange) Is Nothing Then
If UCase(MySrcRange.Value) = "X" Then
If IsNumeric(Range("T12").Value) = True And IsNumeric(Range("U12").Value) = True Then
Range("T12").Value = Range("T12").Value + 2
Range("U12").Value = Range("U12").Value + 2
Else
MsgBox "A(z) T12 és/vagy U12 cella nem számot tartalmaz!"
End If
End If
End If
End Sub -
jerry311
nagyúr
Jó, de az Excel úgy működik, hogy az egyik cellába írsz valamit, a másik cellában lévő képlet pedig kiszámol valamit.
Tehát az utóbbiban kell úgy kialakítani a képletet, hogy valahonnan (mondjuk A1) veszi az alap értéket, amihez hozzá kell adni kettőt, és utána a képlet második fele megnézi, hogy a feltételt tartalmazó cellában (mondjuk B1) van-e X, és ha igen, akkor az értéke 2, ha nem, akkor 0.A1: 12
B1: X
C1:=A1+IF(B1="X",2,0) -
jerry311
nagyúr
Ha jól értem, akkor számolja meg, hogy egy cellában vagy tartományban van-e X és utána a darabszám dupláját írja be számként.
Mondjuk az A1 cellába beírod X, a B1 és B2 cellába meg berakod hogy=countif(A1,"X")*2Ha mondjuk az A oszlopban kell számolni, akkor:
=countif(A:A,"X")*2
Új hozzászólás Aktív témák
Fferi50
- Microsoft Surface Laptop 4 13.5" i7-1185G7 16GB 512GB 1 év garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3320
- Samsung Galaxy Z Flip 5 512GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest