- Motorola Edge 40 - jó bőr
- Franciaországban nyit a Honor 200 Lite
- Garmin Forerunner 165 - alapozó edzés
- Samsung Galaxy S23 Ultra - non plus ultra
- Mobil flották
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Vodafone mobilszolgáltatások
- MIUI / HyperOS topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Huawei P30 Pro - teletalálat
Hirdetés
-
Franciaországban nyit a Honor 200 Lite
ma A friss, de meglehetősen Lite ajánlat mellé arrafelé aktivitáskövető és fülhallgató is jár.
-
Baladins - Megjelenési dátumot kapott a PC-s kiadás
gp A jövő hónapban esedékes premiert az év folyamán a konzolos verziók követik majd.
-
Van, amit nehéz lett megtalálni a Google keresőjével
it A titkosított levelezést kínáló Tuta Mail arra panaszkodik, hogy a DMA bevezetése óta szinte eltűntek a Google keresőjéből.
-
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
-
Delila_1
Topikgazda
Ha nem lehet valamiért az adatok sorrendjének megfordítása, akkor
a diagram egyik adatsorán klikk,
a jobb gombra bejövő gyorsmenüből Adatsorok formázása,
Sorrend fül.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
FragMaster
addikt
Az alábbi feladatokkal tudnátok nekem segíteni? Kb ezek maradtak, az alapabbakat megcsináltam, de ezek közül néhányaknál már a megfogalmazás magas nekem
[link1]
[link2]
(A kettő ugyan az, csak más elérhetőséggel.)
[ Szerkesztve ]
"FragMaster felhasználónak 11 pozitív és 0 negativ értékelése van a fórumon!": http://goo.gl/vYc6Ml
-
Gyúrma
tag
itt a diagram
itt szeretném az oszlopok sorrendjét megváltoztatni
a sorrend fülön belül ezt nem lehet mert inaktívak a le-föl nyilak, és sztem ez arra van h ha több táblázatból készült a diagramm, de nekem csak a diagramm melletti oszlop adatai vannak[ Szerkesztve ]
Gigabyte P35-DS4, Intel Core2Quad Q6600, Gigabyte 8800gtx, 4gb(2x2)ddr2 800Mhz(5-5-5-15) G.Skill, Chieftech 450w, Thermaltake Big Typhoon VX, Pov Turbine V54(25cm fan), Genius Ergo525.
-
félisten
válasz FragMaster #4254 üzenetére
Hali!
Először is BÚÉK mindenkinek!
Nos megnéztem a feladatsort, nem olyan bonyolult mint amilyennek elsőre tűnik, ne aggódj.
Bár néhány esetben az ilyen sorokkal, hogy
"A függvényt hívja meg parancsmakróból is" nem igazán tudok mit kezdeni, mert nem tudom, hogy milyen eseményhez vagy objektumhoz stb kötödjön!!??
Megköszönném, hogy ha leírnád, hogy itt mire is kellene gondolni...Addig ezenkívül itt az első feladat, remélem minden érthető lesz benne.
Function GÁZ(xnum)
If Not IsEmpty(xnum) Then
If IsNumeric(xnum) And xnum > 0 Then
Select Case xnum
Case 1 To 3000
GÁZ = xnum * 100
Case 3001 To 4000
GÁZ = xnum * 120
Case 4001 To 5000
GÁZ = xnum * 140
Case Else
GÁZ = xnum * 150
End Select
Else: GÁZ = "Csak szám lehet!"
End If
Else: GÁZ = "Nem lehet üres!"
End If
End FunctionFire.
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)
-
FragMaster
addikt
válasz Fire/SOUL/CD #4256 üzenetére
Áhh, nagyon köszönöm, közelebb jutottam ezzel is
Én sem tudom hova kötni, mert ennyi áll a feladatban
Közben nyúzom a többit, de ha valakinek még van ötlete elérhetőségeim publikusak[ Szerkesztve ]
"FragMaster felhasználónak 11 pozitív és 0 negativ értékelése van a fórumon!": http://goo.gl/vYc6Ml
-
Delila_1
Topikgazda
válasz FragMaster #4257 üzenetére
A "parancsikonból" talán ezt jelenti:
Sub Start()
xnum = 5000
GÁZ xnum
MsgBox GÁZ(xnum)
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 FragMaster #4257 üzenetére
A fix érték helyett a Start()-ban cellahivatkozást adj meg, akkor a hibára utaló szövegeket is előcsalhatod.
xnum=cells(1,1)
[ 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.
-
Delila_1
Topikgazda
válasz Delila_1 #4260 üzenetére
Na még egy változat, ami az aktív melletti cellába beírja a függvény értékét.
Sub Start_1()
xnum = ActiveCell.Value
GÁZ xnum
ActiveCell.Offset(, 1).Value = GÁZ(xnum)
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.
-
Gyúrma
tag
válasz Delila_1 #4259 üzenetére
igen de sajnos az adattábla sorrendjét nem változtathatom+(így írja a feladat)
tehát olyan megoldás lenne jó h nem nyúlok az adattáblához(és nem is másolhatom, h rendezzem)Gigabyte P35-DS4, Intel Core2Quad Q6600, Gigabyte 8800gtx, 4gb(2x2)ddr2 800Mhz(5-5-5-15) G.Skill, Chieftech 450w, Thermaltake Big Typhoon VX, Pov Turbine V54(25cm fan), Genius Ergo525.
-
Delila_1
Topikgazda
válasz FragMaster #4265 üzenetére
Szívesen. Szerintem a #4261-est csináld meg.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
FragMaster
addikt
válasz Delila_1 #4266 üzenetére
Megtörtént
Közben haladok, a csibés eddig kész van, már csak át kell erőszakolni függvénnyé és kell bele hibaellenőrzés
Sub HETES()
Dim hetek As Integer
Dim szüldátum As Date
Do
szüldátum = CDate(InputBox("Csirke kikelt?", "Csirkekor"))
Loop Until szüldátum < Date
hetek = (Date - szüldátum) / 7
MsgBox ("Csibekora: " & hetek & " hét")
End Sub"FragMaster felhasználónak 11 pozitív és 0 negativ értékelése van a fórumon!": http://goo.gl/vYc6Ml
-
frankie!
őstag
Sziasztok,
hogy lehetne megoldani az Excel 2003-ban, hogy a x-tengely skálája legyen logaritmikus egy diagramnál?
-
Delila_1
Topikgazda
válasz FragMaster #4267 üzenetére
A csirkés feladatra:
Function HETES(Kikelési_dátum)
If VarType(Kikelési_dátum) = 0 Then 'Üres string
HETES = "Nincs adat": Exit Function
End If
If VarType(Kikelési_dátum) <> 7 Then 'Nem dátum tip. adat
HETES = "Dátumot kérek": Exit Function
End If
HETES = Round((Date - Kikelési_dátum) / 7) 'Kerekítve
End Function
Sub Start_HETES()
Kikelési_dátum = ActiveCell.Value
HETES Kikelési_dátum
ActiveCell.Offset(, 1).Value = HETES(Kikelési_dátum)
End SubA lényeg a Function, a zárójelek közé olyan nevet adj a változónak, ami utal a függvényben megadandó adatra.
[ 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.
-
lúzer
veterán
válasz Delila_1 #4275 üzenetére
Szia!
Function Akarmi(Mintacella As Range, Tartomany As Range)
na most a tartományt nem akarom megadni, hanem számoljon az egész munkalappal, illetve ott ahol adat van.
Tartomany As Range - ez nem kell, de hogy alakul a Tartomany értéke?
Tartomany = ??
MO. RIP. - az utolsó kapcsolja le a villanyt.
-
Delila_1
Topikgazda
Function CountCCC(Mintacella As Range)
Dim rngCell As Range
Dim Tartomany As Range
Set Tartomany = Range("A1:BB5000")
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + 1
End If
Next rngCell
CountCCC = nResult
End FunctionPróbáld így, de már az A1: BB5000-nél is elidőzik. Egy normális tartományt adj neki közvetlenül a makróban. Biztosan van ennél egyszerűbb megoldás, de azt nem ismerem.
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
Így:
Function CountCCC(Mintacella As Range)
Dim rngCell As Range
Dim Tartomany As Range
sor = Range("A65536").End(xlUp).Row
Set Tartomany = Range(Cells(1, 1), Cells(sor, 1))
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + 1
End If
Next rngCell
CountCCC = nResult
End FunctionProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
félisten
válasz Delila_1 #4287 üzenetére
Hali!
Nem olvastam vissza, de ez az "értékes tartomány" alatt, arra gondolsz, hogy pl van A1-be valami, meg C10-be valami, és ezt a tartományt kellene kijelölni?
Csak nem Neked kell megkeresni az első meg az utolsó használt cellát? Ha erre gondolsz akkor egyszerűen így: UsedRange.Select
Fire.
UI: Bocsi, ha félreértettem, ja és a bizalmat meg köszönöm!
[ 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)
-
lúzer
veterán
válasz Fire/SOUL/CD #4290 üzenetére
Üdv!
és ide hogy kell betenni, mi a szintaktika?
Set Tartomany = Range("A1:BB5000")
[ Szerkesztve ]
MO. RIP. - az utolsó kapcsolja le a villanyt.
-
félisten
Hali!
Na most azért visszaolvastam. Tehát, az lenne a feladat, hogy egy tartományban összeszámold az adott színű cellákat és ezt minél gyorsabban kellene megoldani?
Ha igen, akkor érdemes lenne esetleg hagyományos ciklussal(CELLS(I,J)) próbálkozni, nem pedig IN tartománnyal, lehet hogy előbbi még gyorsabb lenne.(ki kell próbálni)
A kérdésedre pedig:
Set Tartomany = ActiveSheet.UsedRangeFire.
UI: Elnézést, ha félreértettem. Ha igen, akkor írd le Nekem, hogy mi is lenne a próblémó, amit meg kell oldani, szívesen segítek.(ha tudok)
[ 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)
-
lúzer
veterán
válasz Fire/SOUL/CD #4292 üzenetére
Köszi!
konkrét problémám nincs, csak erőlködöm
arra van valami megoldás hogy egy függvény amit írsz, dinamikus legyen?
mint pl. a SZUM, ha átírod a figyelt cellákat akkor módosulMO. RIP. - az utolsó kapcsolja le a villanyt.
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #4292 üzenetére
Ezzel csak az a baj, hogy ha az értékekkel ellátott cellák mondjuk az A1:AA500 tartományban vannak, és az összeszámolandó színes cellák ezen kívül esnek (tehát tartalmilag üresek), akkor azokat nem számolja meg.
Lúzer
Ez a fenti hiányosság akkor is igaz, ha a range("a65536".... stb-vel keresed ki a tartomány széleit. Vagyis jobb megadni a tartományt.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lúzer
veterán
Set Tartomany = ActiveSheet.UsedRange
egyébként ez nem jó
rögtön körkörös hivtkozáshibát dobamúgy a másik is ha pl. az első 8 sort figyelem és azon belül van a függvény cellája
MO. RIP. - az utolsó kapcsolja le a villanyt.
-
Delila_1
Topikgazda
Az összegzős függvénynél hoz ki hibát mindkét "automatikus" kijelölésnél, ha a függvény cellája is olyan színű, mint a mintacella. A színes cellák darabszámánál meg az a hiba, amit az előbb leírtam.
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
- sziku69: Fűzzük össze a szavakat :)
- Elektromos autók - motorok
- Konzolokról KULTURÁLT módon
- Filmvilág
- Milyen alaplapot vegyek?
- Milyen billentyűzetet vegyek?
- LG 34GS95QE-B: OLED paneles, ívelt gamer monitor
- Építő/felújító topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Automata kávégépek
- További aktív témák...
- Vírusirtó, Antivirus VPN kulcsok
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- World of Warcraft Shadowlands Collectors edition EU EN
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."