- Nem fogod kitalálni, mire fókuszál a Dimensity 9300+
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- DIGI Mobil
- Honor Magic5 Pro - kamerák bűvöletében
- Futott egy Geekbench kört egy új HTC készülék
- Milyen okostelefont vegyek?
- Redmi Watch 4 - olcsó hús, sűrű a leve
- Garmin Forerunner 255 Music - nem csak futóknak
- OnePlus 7 - magabiztos folytatás
Hirdetés
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
ph A Kereskedelmi Minisztérium egyelőre csak felméri a helyzetet, egyelőre nem látni, hogy tudnak-e bármit is tenni.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Mobilarena
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 ThaBoss #13460 üzenetére
"Valami ilyesmit szeretnék elérni, csak az én adatbázisomban ezek a számok mind 9 jegyűek."
Na erre mutass példát és hogy mit jelent a "...Excel kiszámolja a 2 tartomány közötti értéket" (nem világos mit is kell kiszámolni) és akkor megoldható lehet a feladat.[ Szerkesztve ]
Mindenki 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)
-
-
Delila_1
Topikgazda
válasz ThaBoss #13468 üzenetére
Ebben az esetben a lenti makróval oldd meg.
Sub Valami()
Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Sheets(1)
Set WS2 = Sheets(2)
sor% = 2: sor1% = 2
WS2.Cells(sor1%, "N") = WS1.Cells(sor%, "N")
WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N")
Do While WS1.Cells(sor%, "N") <> ""
If WS2.Cells(sor1%, "N") < WS1.Cells(sor%, "O") Then
WS2.Cells(sor1% + 1, "N") = WS2.Cells(sor1%, "N") + 1
WS2.Cells(sor1% + 1, "O") = WS2.Cells(sor1%, "N") + 1
sor1% = sor1% + 1
Else
sor1% = sor1% + 1: sor% = sor% + 1
WS2.Cells(sor1%, "N") = WS1.Cells(sor%, "N")
WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N")
End If
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ThaBoss #13556 üzenetére
Óhajod parancs.
Sub Valami_1()
Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet
Dim info, képlet, usor, kezd
Set WS1 = Sheets(1): Set WS2 = Sheets(2)
sor% = 2: sor1% = 2
usor = WS1.Cells(sor%, "A").SpecialCells(xlLastCell).Row
info = WS1.Cells(sor%, "C"): képlet = WS1.Cells(sor%, "D")
kezd = WS1.Cells(sor%, "A")
For sor% = 2 To usor
If WS1.Cells(sor% + 1, "D") <> képlet Then
WS2.Cells(sor1%, "A") = kezd
WS2.Cells(sor1%, "B") = WS1.Cells(sor%, "B")
WS2.Cells(sor1%, "C") = WS1.Cells(sor%, "C")
WS2.Cells(sor1%, "D") = WS1.Cells(sor%, "D")
sor1% = sor1% + 1
kezd = WS1.Cells(sor% + 1, "A")
képlet = WS1.Cells(sor% + 1, "D")
End If
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ThaBoss #13558 üzenetére
Teljesen más a két feladat, még ha ugyanazokkal az adatokkal dolgozol is. Mit akarsz összegyúrni?
Nálam prímán működött a makró, anélkül nem tettem volna ki. Mondanám, hogy küldd el a füzetet, de mostanság nem nagyon van időm.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ThaBoss #13565 üzenetére
Itt az inverze.
Sub Valami_3()
Dim sor%, sor1%, ucso%, WS1 As Worksheet, WS2 As Worksheet
Dim kezd, vég
Set WS1 = Sheets(1)
Set WS2 = Sheets(2)
sor1% = 1
ucso% = WS1.Cells(Rows.Count, "A").End(xlUp).Row
For sor% = 2 To ucso%
kezd = WS1.Cells(sor%, "A")
vég = WS1.Cells(sor%, "B")
Do
sor1% = sor1% + 1
If WS1.Cells(sor%, "B") > WS1.Cells(sor%, "A") Then
WS2.Cells(sor1%, "A") = kezd
WS2.Cells(sor1%, "B") = kezd
WS2.Cells(sor1%, "C") = WS1.Cells(sor%, "C")
WS2.Cells(sor1%, "D") = WS1.Cells(sor%, "D")
kezd = kezd + 1
End If
Loop While vég >= kezd
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ThaBoss #13575 üzenetére
Nem sok munkád lehet. Ebből a megadott 3 sorból, mire egyet pislogtam, már kész lett a 138 új sor.
Ezt viccnek szántam, nehogy komolyra vedd. Igazán örülök, hogy segíthettem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ThaBoss #13577 üzenetére
Ha milliós sorszámod van, módosítani kell a makrón. A % jelet vedd le a változók végéről, és a Dim kezdetű sorokban így add meg: Dim sor As Double.
A % jellel a végén azonos a Dim sor As Integer-rel, de ez csak -32.768 és 32.767 közötti értékekre jó, ezen a tartományon kívül hibára futna.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ThaBoss #13585 üzenetére
Az If WS1.Cells(sor%, "B") > WS1.Cells(sor%, "A") Then sor legyen
If WS1.Cells(sor%, "B") >= WS1.Cells(sor%, "A") Then.
Szerk.: írd át a % végű változókat, amíg nem felejted el. Később már esetleg nem emlékszel rá, miért áll le hibával a futás.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
bugizozi
őstag
válasz ThaBoss #13587 üzenetére
A legjobb oldal
Viccen kívül én némi más nyelvű programozási tapasztalattal innen szedtem az összes tudásom + amit ebben a fórumban olvastam / kérdeztem!VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Fferi50
őstag
válasz ThaBoss #28038 üzenetére
Szia!
Próbáld meg ezt a képletet:
=DARABTELI($B$2:$B$300;$B2)=DARABHATÖBB($B$2:$B$300;$B2;$F$2:$F$300;"nem vették fel")
valamelyik következő oszlop második cellájában és húzd az oszlop végéig.
Ezután szűrő az oszlopra - igaz mutatja azokat a sorokat, ahol egész nap nem vették fel a hívást.(A képlet megszámolja, hány hívás volt a nap során és összehasonlítja a fel nem vett hívások számával. Ha a kettő egyforma, akkor nem vettek fel hívást egész nap.)
Annyit még hozzá, hogy egy szám többször is szerepelni fog, ezért a B oszlopra is rá kell tenni a szűrőt, ott fogod látni, hány érték maradt meg.
Üdv.
Új hozzászólás Aktív témák
- BestBuy topik
- No Rest for the Wicked
- OLED TV topic
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- DIGI internet
- Piacvezető tandem OLED panellel érkezik az iPad Pro
- Milyen egeret válasszak?
- Építő/felújító topik
- Luck Dragon: Asszociációs játék. :)
- Ez a mondat angolul?
- További aktív témák...
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- World of Warcraft Shadowlands Collectors edition EU EN
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!