- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Házimozi belépő szinten
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen SSD-t vegyek?
- OLED monitor topik
- 3DMark (2013) eredmények
- Ízléses, masszív és praktikus mikrotorony jött a Jonsbo műhelyéből
- Everest / AIDA64 topik
- Hővezető paszták
-
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
-
Darahian
tag
válasz
Fire/SOUL/CD
#8398
üzenetére
Köszi!
-
#8398
Fire/SOUL/CD
félisten
Darahian
#8397
-
Darahian
tag
Helló emberek!
Számomra eléggé WTF kategória a kérdés amit tesóm juttatott el hozzám: excel 2003-ban akart dolgozni az új munkahelyén, ahol az alábbiakkal szembesült: [kép]
A sor ÉS AZ OSZLOP azonosító is szám?!?Ha valaki tudja a megoldást erre az anomáliára, elárulhatná - eddig azt hittem hogy az excel egyik alappillére a betűs oszlopazonosító.
Vagy ez átállítható valahogy?
-
Delila_1
veterán
válasz
xKacsax
#8392
üzenetére
Kilencszázkilencvenkilencmillió-kilencszázkilencvenkilencezer-kilencszázkilencvenkilenc-ig kiírja betűvel az összeget ez a függvény, amit nem én írtam, csak alkalmazom néhanapján.
Function Szam_szoveg(szam As Long) As String
Dim j1, j10, j10a, j100
j1 = Array("", "egy", "kettő", "három", "négy", "öt", "hat", "hét", "nyolc", "kilenc")
j10 = Array("", "tíz", "húsz", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j10a = Array("", "tizen", "huszon", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j100 = Array("száz", "", "ezer", "millió", "milliárd")
betu = ""
If szam = 0 Then
Szam_szoveg = "Nulla"
Exit Function
End If
s = Format(szam, "0")
j = 1
While s <> ""
i = Len(s) - 2
If i < 1 Then i = 1
s2 = Mid(s, i, 3)
s = Left(s, i - 1)
s3 = ""
If Len(s2) = 3 Then
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If Mid(s2, 1, 1) <> "0" Then s3 = s3 + j100(0)
s2 = Right(s2, Len(s2) - 1)
End If
If Len(s2) = 2 Then
If Mid(s2, 2, 1) = "0" Then
s3 = s3 + j10(Asc(Mid(s2, 1, 1)) - 48)
Else
s3 = s3 + j10a(Asc(Mid(s2, 1, 1)) - 48)
End If
s2 = Right(s2, Len(s2) - 1)
End If
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If s3 <> "" Then s3 = s3 + j100(j)
If (betu <> "") And (szam > 2000) And (s3 <> "") Then kot = "-" Else kot = ""
betu = s3 + kot + betu
j = j + 1
Wend
betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)
Szam_szoveg = betu
End FunctionAlkalmazása: a cellába =Szam_szoveg(A1) – ha a szám, amit betűvel akarsz kiíratni, az A1 cellában van.
Azt is tudja, hogy kétezer alatt egybe kell írni az összegeket szöveggel, azon felül a hármas tagolás van érvényben. Állítólag már nem kell nagybetűvel kezdeni, akkor az utolsó előtti sort [betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)] töröld ki, vagy tedd megjegyzésbe. -
#8394
Fire/SOUL/CD
félisten
xKacsax
#8392
-
#8393
m.zmrzlina
senior tag
rTyler
#8386
m.zmrzlina
senior tag
Továbbra sem vagyok biztos benne, hogy jól értem a feladatot de ha csak azt kell megoldani hogy minden linknek legyen n darab másolata arra két egymásba ágyazott ciklus megfelel.Ezek ugyan nem linkek csak karaktersorozatok és továbbra sem tudom mire kell mutatniuk.
Ez a kód:
Ez lesz az eredménye:
A oszlopban vannak az eredeti linkek, B-K-ban pedig amit a ciklus generált.
-
xKacsax
aktív tag
Hellosztok! Van két kérdésem... hogyan tudnám azt megcsinálni hogy a Mai dátum pl(2010.10.08) ból a Hónap nevét kapjam eredményül.
2. Kérdés
Azt kellene tudnom hogy hogyan írassam ki ha pl beírom a mezőbe hogy 1000 akkor azt megkapjam szöveges formátumban magyar nyelven hogy "ezer" és ha ezt változtatom akkor 10 millióig lehessen.
remélem érthető voltam, várom az ötleteket. Előre is köszi
-
rTyler
csendes tag
hello
lenne egy osszetett excel "feladvanyom"
van 3000 linkem, soronkent, egymas alatt
link1.link
link2.link
link3.link
link4.link
link5.link
...
link3000.linkvalahogy kellene belole generalnom modositott linkeket (darabonkent 99et), egymas ala, hogy igy nezzenek ki:
link1.link/1
link1.link/2
link1.link/3
...
link1.link/99
link2.link/1
link2.link/2
link2.link/3
...
link2.link/99
link3.link/1
...
...
link3000.link/99tehat a vegen kozel 300k link lenne belole
(tombositheto is mondjuk 50 ezresevel)
belso, ceges hasznalatra kellvan valakinek otlete makrora vagy egyszeru trukkre?
szivesen megteritem az idejet annak, aki tud mukodokepes megoldast -
#8385
fjanszi123
csendes tag
fjanszi123
csendes tag
Üdv újra!
Ötleteket kérnék:
Excelben 12,75-re szeretnék beállítani egy sormagasságot, de ebben az esetben 12,60-ra állítja be magát.
Mi lehet a hibás:
-WIN7-t 64 bit-es op. rendszer
-ati vga driver
-full hd led kijelzőMinden más gépen (xp, win7 32 bit) 12,75 az alap sormagasság excel-ben kivéve nálam, ahol 12,60 és ez sajnos az oldal végére elég jelentős eltérés.
Előre is köszönöm.
Üdv:
Jani -
Delila_1
veterán
A minimum érték 37622 legyen, a maximum pedig attól függően, hogy 2010.júl.1-et, vagy 2010.júl. 31-et akarsz-e befejező dátumnak, 40360, vagy 40390.
Az Excel a dátumokat (is) számként értelmezi, mégpedig úgy, hogy hány nap telt el 1900.01.01. óta az adott dátumig.
A fenti értékeket úgy tudod meg legegyszerűbben, hogy a dátumot tartalmazó cella formátumát általánosra állítod.
-
#8383
m.zmrzlina
senior tag
perfag
#8382
-
#8382
perfag
aktív tag
m.zmrzlina
#8379
perfag
aktív tag
válasz
m.zmrzlina
#8379
üzenetére
Ha az a változó értéke 40438,00128, akkor:
a = a - Fix(a)
levágja az egész részt. Ha nem vehet fel negatív értéket, akkor aFix() helyett jó az Int() függvény is. -
sziasztok!
ismét adódott egy kis problémám
megint diagrammal szenvedek. kijelölöm az x tengely értékeit, 2003.01.01. kezdeti dátummal 2010 júliusáig. a cellák dátum formátumúak. erre a diagramra ráteszi nekem 2001.01.01-től, de miért
fpleg, hogy adataim sincsenek oda, meg semmi, nem értem. és ha át akarom állítani az x tengely minimum értékét, ott csak számokat találok. jelen esetben a minimuma 37000, a maximuma meg 40500. van valakinek ötlete? -
#8380
Oly
őstag
Fire/SOUL/CD
#7897
Oly
őstag
válasz
Fire/SOUL/CD
#7897
üzenetére
Szia
Szerinted miért nem működik, ha a
.From = xy
sort is beszúrom?Üdv
Oly -
#8379
m.zmrzlina
senior tag
m.zmrzlina
#8378
m.zmrzlina
senior tag
válasz
m.zmrzlina
#8378
üzenetére
Azt szeretném elérni, hogy az aktív cellában lévő tizedestörtről (aminek a formátuma dátum) leválasszam a napot reprezentáló egészrészt.
Tehát pl a 40438,00128 helyett 0,00128 kerüljön a a változóba.
-
#8378
m.zmrzlina
senior tag
m.zmrzlina
#8377
m.zmrzlina
senior tag
válasz
m.zmrzlina
#8377
üzenetére
Időközben az előző kérdés nagyban leegyszerűsödött.
Hogyan tudom a mindenkori aktív cella értékét (tartalmát) átadni egy változónak?
-
#8377
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Tettem pár kört a tegnapi témával kapcsolatban (lámpák ki-be) és kövezzetek meg érte (vagy vessetek megvadult mókusok elé) de arra jutottam, hogy az eredeti ötletem mentén indulok el egyelőre perces felbontásban próbálom ábrázolni a ki-be kapcsolás intervallumait Valahogy így fog kinézni:
A-E oszlopokat tudom beilleszteni külső sw-ből. Mivel a kapcsolás idejénél nekem csak a perc:másodperc fontos ezért azt a G1-ben látható fv-nyel képzem. Ha ugyanezt makróban próbálom megcsinálni akkor a következő hibaüzenetet kapom. Nyilván a szintaktikánál szúrok el valamit De mit?
Kis módosítás az érthetőség kedvéért:
A makróban lévő változók Meterlost=OFF, MeterRecovered=ON.
Csak hogy ne kavarjon meg senki hogy más a cella tartalma mint amit a makró keres. -
#8376
Delila_1
veterán
fjanszi123
#8374
Delila_1
veterán
válasz
fjanszi123
#8374
üzenetére
A Cellameretek makrót indítva megadhatod a kijelölt cella – cellák szélességét és magasságát mm-ben.
-
#8375
Fire/SOUL/CD
félisten
fjanszi123
#8374
válasz
fjanszi123
#8374
üzenetére
-
#8374
fjanszi123
csendes tag
fjanszi123
csendes tag
Sziasztok!
Sormagassággal és oszlopszélességgel kapcsolatban szeretnék segítséget kérni.
Adott egy xls amiben, meghatározott sormagasságok, oszlopszélességek vannak. Ezek a magasságok és szélességek képpontban is meg vannak adva.
Adott xls-ben egyik gépen (xp, office 2003 pro.) 15,00 magasság 20 képpont.
Adott xls-ben másik gépen ( win 7-t 64bit, office 2003 pro.) 15,00 magasság 25 képpont.
Miért van ez a különbség. Ugyan az az oldal beállítás, oldalméret, margó méret.
Xp alatt 1 képpont=0,75 még win 7 alatt 1 képpont=0,6. (win 7 vagy led kijelző lehet a probléma?)
Lehet-e állítani képpontméret nagyságát, ha igen hol?
A válaszokat és ötleteket előre is köszönöm.
Üdv: Jani
-
#8371
Delila_1
veterán
m.zmrzlina
#8370
Delila_1
veterán
válasz
m.zmrzlina
#8370
üzenetére
-
#8369
Delila_1
veterán
m.zmrzlina
#8365
Delila_1
veterán
válasz
m.zmrzlina
#8365
üzenetére
Na még egy kép, mikor egyszerre is bekapcsolt állapotban vannak egyes lámpák.
(Nem látszik, de ekkor az E oszlop van kijelölve)
-
#8368
Delila_1
veterán
m.zmrzlina
#8365
Delila_1
veterán
válasz
m.zmrzlina
#8365
üzenetére
Fire ötletével
Szerk.: a karakterek színét is átírhatod. Alapban fehér, a cella "on" értékénél az aktuális szín legyen a feltételes formázásban.
-
#8367
Fire/SOUL/CD
félisten
m.zmrzlina
#8365
válasz
m.zmrzlina
#8365
üzenetére
Hali!
Delila_1 megoldása tökéletes alapot nyújt a kivitelezéshez. Annyit kell tenned, hogy a táblázat struktúráját módosítod (az egy adott másodperchez tartozó értékek egymás mellé kerüljenek külön oszlopba, mert most egymás alatt új sorban vannak) illetve ennek megfelelően a feltételes formázást.
Fire.
-
#8366
Delila_1
veterán
m.zmrzlina
#8365
Delila_1
veterán
válasz
m.zmrzlina
#8365
üzenetére
Kijelölöd az oszlopot, pl. az ábra szeinti F-et, és egyszerre adod meg a feltételes formázást. Fontos, hogy a képletben ne $E$2, hanem $E2, vagy csak E2 szerepeljen.
-
#8365
m.zmrzlina
senior tag
Delila_1
#8364
m.zmrzlina
senior tag
válasz
Delila_1
#8364
üzenetére
Kiindulásnak jó az elképzelés, csak nagyon fontos lenne, hogy a működéseket egymáshoz képest is vizsgálni lehessen. Ezért minden lámpa állapotát minden másodpercben (na jó percre kerekítve is jó első körben, az csak 1440 cella) kell látni.
Vannak olyan állapotok amikor nagyon informatív tud lenni az, hogy pl mindhárom lámpa ugyanabban a másodpercben (percben) alszik el vagy gyullad ki. Máskor pont az mond el sokat, hogy "összevissza" kapcsolgatnak.
Ezért kell minden másodperc (perc) állapotát ismerni és kijelezni, ezért gondoltam arra, hogy ha minden időegységnek saját cellája van és a három oszlopot egymás mellé helyezem akkor könnyebben le lehet ellenőrizni hogy pl 12:35:18 mp-kor melyik lámpa mit csinált.
Csak hát 86400 cellát nem egyszerű kezelni. Nekem legalábbis
:-) -
#8364
Delila_1
veterán
m.zmrzlina
#8363
Delila_1
veterán
válasz
m.zmrzlina
#8363
üzenetére
Mindkét esethez a feltételes formázás:
-
#8362
Delila_1
veterán
m.zmrzlina
#8361
Delila_1
veterán
válasz
m.zmrzlina
#8361
üzenetére
Feltételes formázás. Olyan színű legyen a cella, mint amelyik lámpa a három közül éppen on állapotban van. Ennyi feltételt a régebbi verziókban is elő lehet állítani.
Ez a színezett cella lehet az, amelyik az időpontot tartalmazza. -
#8361
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Adott egy feladat, amit excelben szeretnék megoldani de nem tudom mi lenne a legjobb megoldás.
Képzeljünk el egy gépet ami mondjuk több lámpát kapcsolgat ki-be és a kapcsolási időpontokat (másodperc felbontással) egy ecxelbe könnyen beilleszthető log-ban rögzíti a következő formátumban:
M TimeStamp Event Params
1 0 2010.09.17 0:01 off green;
2 0 2010.09.17 0:01 off yellow;
3 0 2010.09.17 0:04 on green;
4 0 2010.09.17 0:06 on yellow;
5 0 2010.09.17 0:12 off green;
6 0 2010.09.17 0:12 off yellow;
7 0 2010.09.17 0:13 off red;
8 0 2010.09.17 0:13 on green;
9 0 2010.09.17 0:14 on yellow;
10 0 2010.09.17 0:15 on red;Ezt a formátumot szeretném a könnyebben kiértékelhetővé tenni. Amit én jelenleg az excelről tudok annak alapján az látszik megoldásnak, hogy fölveszek 3 db 86400 cellából álló tartományt (ennyi másodperc van 24 órában) és az elemi cellák háttereit szinezem attól függően pirosra vagy zöldre, hogy az adott lámpa az adott másodpercben on vagy off állapotban volt. Ebből kialakulna három sáv, (lámpánként egy) amin különböző szinekkel látszanának a különböző üzemállapotok.
Kérdésem, hogy van-e erre a feladatra a fent vázoltnál egyszerűbb megoldás ill ki milyen irányba indulna el? Félreértés ne essék, nem kész makrókra számítok hanem elvi iránymutatásra, hogy milyen eszközei van az excelnek ennek a problémának a megoldására.
-
perfag
aktív tag
válasz
motinka
#8345
üzenetére
Mond, mire kell az neked? Csak annyi, hogy nincs meg?
Úgy emlékszem 2007-es Excelben dolgozol. Abba nem tettek Űrlap ikont. A Súgóban van egy ilyen bekezdés: Mi lett az adatűrlappal? Abban leírják hogy tudod a gyorselérési eszköztárra rakni, onnan egy kattintással ki tudod nyitni.
(Remélem nem nyúltam mellé és csak ennyi a gondod.) -
#8358
m.zmrzlina
senior tag
Fire/SOUL/CD
#8357
m.zmrzlina
senior tag
válasz
Fire/SOUL/CD
#8357
üzenetére
Köszi, működik.
-
#8357
Fire/SOUL/CD
félisten
m.zmrzlina
#8356
válasz
m.zmrzlina
#8356
üzenetére
Hali!
Cellában
=KÖZÉP(A1;3;1)Makróban
Valtozo = Mid(Range("A1"), 3, 1)(melyik cella, hányadik karakterétől, hány karaktert)
Fire.
-
#8356
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Üdv mindenkinek!
Egy karaktersorozatot tartalmazó cella valahanyadik elemét szeretném változóba írni. Mi ennek a legegyszerűbb módja?
köszi
-
#8355
Charlie Gordon
aktív tag
Fire/SOUL/CD
#8353
Charlie Gordon
aktív tag
válasz
Fire/SOUL/CD
#8353
üzenetére
Nagyon köszönöm !
-
#8353
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#8352
válasz
Fire/SOUL/CD
#8352
üzenetére
Hali!
Private Sub CommandButton1_Click()
Dim My_Sheet As Worksheet
Dim My_Sheet_Name As String
Dim My_Range As Range
Dim My_Column As String
'Oszlop, amelyikben szállítólevélszámok vannak
'(Ugyanebben az oszlopban lesznek majd, az új munkalapon is)
My_Column = "D"
'Az első adat az oszlopban
My_Row = 2
'A létrehozandó, összesítő munkalap neve
My_Sheet_Name = "FSCD_Összesítés"
Application.DisplayAlerts = False
On Error Resume Next
Set My_Sheet = Sheets(My_Sheet_Name)
On Error GoTo 0
If Not My_Sheet Is Nothing Then
My_Sheet.Delete
End If
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = My_Sheet_Name
k = 0
For i = 1 To Worksheets.Count - 1
Worksheets(i).Select
Worksheets(i).Range(My_Column & My_Row).Select
Set My_Range = Worksheets(i).Range(My_Column & My_Row & ":" & My_Column & Worksheets(i).UsedRange.Rows(Worksheets(i).UsedRange.Rows.Count).Row)
My_Range.Select
For Each CurrCell In My_Range
Worksheets(My_Sheet_Name).Range(My_Column & 1 + k) = CurrCell.Value
k = k + 1
Next CurrCell
Set My_Range = Nothing
Next i
Worksheets(My_Sheet_Name).Select
Set My_Sheet = Nothing
Application.DisplayAlerts = True
End SubFire.
[ Módosította: Ndruu ]
-
#8352
Fire/SOUL/CD
félisten
Charlie Gordon
#8351
válasz
Charlie Gordon
#8351
üzenetére
Hali!
Igen, azért.
Mindjárt módosítom a kódot.Fire.
-
#8351
Charlie Gordon
aktív tag
Fire/SOUL/CD
#8350
Charlie Gordon
aktív tag
válasz
Fire/SOUL/CD
#8350
üzenetére
Kösz, majdnem teljesen tökéletes. A D oszlop utolsó értékeit kihagyja. Lehet azért mert mindegyik munkalap első sora üres ?
-
#8350
Fire/SOUL/CD
félisten
Charlie Gordon
#8349
válasz
Charlie Gordon
#8349
üzenetére
Hali!
Oksa, akkor
1. Készíts másolatot az excel fájlról, biztos ami biztos
2. Nyisd meg és az első munkalapra tegyél egy CommandButtont
3. Kattints rá duplán, a megjelenő ablakban törölj mindent és illeszd be az alábbi kódotPrivate Sub CommandButton1_Click()
Dim My_Sheet As Worksheet
Dim My_Sheet_Name As String
Dim My_Range As Range
Dim My_Column As String
'Oszlop, amelyikben szállítólevélszámok vannak
'(Ugyanebben az oszlopban lesznek majd, az új munkalapon is)
My_Column = "D"
'A létrehozandó, összesítő munkalap neve
My_Sheet_Name = "FSCD_Összesítés"
Application.DisplayAlerts = False
On Error Resume Next
Set My_Sheet = Sheets(My_Sheet_Name)
On Error GoTo 0
If Not My_Sheet Is Nothing Then
My_Sheet.Delete
End If
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = My_Sheet_Name
k = 1
For i = 1 To Worksheets.Count - 1
Worksheets(i).Select
Worksheets(i).Range(My_Column & "1").Select
Set My_Range = Worksheets(i).Range(My_Column & "1:" & My_Column & Worksheets(i).UsedRange.Rows.Count)
My_Range.Select
For Each CurrCell In My_Range
Worksheets(My_Sheet_Name).Range(My_Column & k) = CurrCell.Value
k = k + 1
Next CurrCell
Set My_Range = Nothing
Next i
Worksheets(My_Sheet_Name).Select
Set My_Sheet = Nothing
Application.DisplayAlerts = True
End Sub4. kattints a CommandButtonra
Ez a makró létrehoz a munkalapok legvégén egy új munkalapot, abba másolja az adatokat.
Fire.
-
#8349
Charlie Gordon
aktív tag
Fire/SOUL/CD
#8348
Charlie Gordon
aktív tag
válasz
Fire/SOUL/CD
#8348
üzenetére
Nincs, mindegyiket figyelembe kell venni, a munkalapok nevei cikkszámok.
-
#8348
Fire/SOUL/CD
félisten
Charlie Gordon
#8347
válasz
Charlie Gordon
#8347
üzenetére
hali!
Van olyan munkalap, ami nem terméket tartalmaz, amit nem kell figyelembe venni?
Magyarul létrehozok egy munkalapot, végignézhetem az összes munkalapot,a D oszlop adatait összesíthetem?Ha vannak olyan munkalapok, amelyeket ki kell hagyni, akkor a pontos nevüket kérném...
Fire.
-
#8347
Charlie Gordon
aktív tag
Fire/SOUL/CD
#8346
Charlie Gordon
aktív tag
válasz
Fire/SOUL/CD
#8346
üzenetére
De ez pont elég, csak az összes szállítószám kell !
Előre is kösz -
#8346
Fire/SOUL/CD
félisten
Charlie Gordon
#8344
válasz
Charlie Gordon
#8344
üzenetére
Hali!
oksa, így érthető. Még annyi lenne a kérdésem, hogy az összesítő táblázatban, a termékekről milyen adatok kerüljenek bele és azok az adott munkalapon belül hol vannak, melyik cellá(k)ban?
(Ha minden D oszlopt "összesítünk", akkor csak számok lesznek, de hogy azok melyik munkalapon szerepeltek (melyik termékhez kötődve) az úgy nem fog kiderülni)Erre gondolok pl
Alma munkalap, D oszlop -> 1,3,5,7,9
Körte munkalap D oszlop -> 2,4,6,8Ha összesítjük a D oszlopot valahol (és csak azt) akkor azt kapod, hogy 1,2,3,4,5,6,7,8 de evvel nem sokra mész (szerintem)
Fire.
-
#8344
Charlie Gordon
aktív tag
Fire/SOUL/CD
#8343
Charlie Gordon
aktív tag
válasz
Fire/SOUL/CD
#8343
üzenetére
Nem tesz eleget, hiszen almából vittek az 1, 5, 7, 15-ös szállítón, körtéből a 2,3,4,7, 21-es szálltón stb. Tehát a D oszlopokat kellene összehozni egy oszlopba, utána már csak lerendezni és szűrni kell de ezt már én is meg tudom csinálni.
-
#8343
Fire/SOUL/CD
félisten
Charlie Gordon
#8342
válasz
Charlie Gordon
#8342
üzenetére
Hali!
Nem értem a kérdést...
Pl Munkalapok -> alma, barack, körte stb
Minden munkalap D oszlopában szállítólevélszám
Ha ez így van, akkor mindegyik munkalap (alma, barack, körte stb) teljes D oszlopa eleget tesz a kérdésednek..."Össze kell hozni (esetleg egy új munkalapon) az
összes szállítólevélszámot, amelyeken ez a termékcsoport szerepelt."Mit értettem rosszul?
Fire.
-
#8342
Charlie Gordon
aktív tag
Charlie Gordon
aktív tag
Sziasztok, a következő feladatra kellene megoldás : adott egy táblázat (egy termékcsoport havi forgalma), ami sok munkalapból áll, mindegyik munkalap egy adott termék havi forgalmát tartalmazza. A munkalapok D oszlopa a szállítólevélszám . Össze kell hozni (esetleg egy új munkalapon) az
összes szállítólevélszámot, amelyeken ez a termékcsoport szerepelt. -
#8341
Fire/SOUL/CD
félisten
Oly
#8339
-
#8340
Fire/SOUL/CD
félisten
Oly
#8339
Hali!
Hmm, érdekes gondolat...
Hát az egész excel ablakot nem tudom, hogy elrejteni de a worbook-ot így igen (nem elrejtjük, minimize-re állítjuk)Megnyitáskor így indíthatod a Formot
Private Sub Workbook_Open()
UserForm1.Show vbModal
End SubEz pedig a UserForm események, az előbbi amikor megnyílik a form, az utóbbi meg amikor bezáródik
Private Sub UserForm_Activate()
On Error Resume Next
With GetObject(, "Excel.Application")
.ActiveWindow.WindowState = xlMinimized
End With
End Sub
Private Sub UserForm_Terminate()
On Error Resume Next
With GetObject(, "Excel.Application")
.ActiveWindow.WindowState = xlMaximized
End WithFire.
-
#8338
Fire/SOUL/CD
félisten
scott_free
#8337
válasz
scott_free
#8337
üzenetére
Hali!
Használj pl ComboBox-ot, ott megoldható, igaz ez esetben az érték "kinyeréséhez" makró kell...[link]
Fire.
-
#8336
Oly
őstag
scott_free
#8315
Oly
őstag
válasz
scott_free
#8315
üzenetére
Ugyanabba a cellába akarod az érétéket is?
Egy segéd tábla és fkeres...
-
#8335
scott_free
senior tag
scott_free
#8315
scott_free
senior tag
válasz
scott_free
#8315
üzenetére
erre létezik megoldás?
-
Oly
őstag
válasz
Delila_1
#8333
üzenetére
Köszike.
Úgy látom, hogy arról a Sheetről veszi be az adatokat, amelyikről meghívom a Formot.
Ezért egy kicsit át kell alakítanom a cuccot, de megoldható.Relatív hivatkozást lehet adni a Formon a tartalmaknak?
Gondolok itt olyanra, hogy pl egy listát akarok kitölteni és az A2-be írja a az első textbox tartalmát, a B2-be a második TextBox tartalmát, majd egy SpinButtonnal átlép a 3. sorra, de ugyanakkor vissza is léphessek a 2. sorra.
Hasonlóan az Acces űrlapjához.
Remélem érthető. -
#8332
Fire/SOUL/CD
félisten
Oly
#8331
-
#8330
Delila_1
veterán
Fire/SOUL/CD
#8329
Delila_1
veterán
válasz
Fire/SOUL/CD
#8329
üzenetére
Azért dolgozott azzal, mert az első (?) válaszomban azt írtam.
Szóval működik a text és a value nélkül is. -
#8329
Fire/SOUL/CD
félisten
Delila_1
#8328
-
#8328
Delila_1
veterán
Fire/SOUL/CD
#8327
Delila_1
veterán
válasz
Fire/SOUL/CD
#8327
üzenetére
Anélkül is vidáman beírja az értékeket, szándékosan hagytam el.
-
#8327
Fire/SOUL/CD
félisten
sonar
#8297
-
Oly
őstag
válasz
Delila_1
#8322
üzenetére
Variálok még egy kicsit:
Ha az adott cellába a TextBox1 és a TextBox2 tartalmát akarom egy szóközzel "összefűzve, akkor hogy alakul a dolog?
Pl a Formon a Vezeték és Keresztnév külön Boxba kerül beírásra, de a táblában, már egybe íratnám.
Így?
Private Sub CommandButton1_Click()
Application.Goto Reference:="bevitel"
Selection = TextBox1.Value & TextBox1.Value
End Sub -
-
sonar
addikt
válasz
Delila_1
#8312
üzenetére
Meg tudom csinálni irányitott beillesztéssel az nem nagy kunszt.
Csak az a bajom, hogy néha elfelejtem beilleszteni és fontos lenne, hogy mindig azonos legyen az a két cella ezért kellene vmi fv v excel beállitás. (Makróval is meg tudom csinálni, de azt is kihagynám a buliból) -
#8315
scott_free
senior tag
scott_free
senior tag
sziasztok,
lenne egy legördülő listám a hónapok nevével.
az megoldható valahogyan, hogy a kiválasztott hónap neve jelenjen meg a cellában, de értékként a hónap számát adja vissza a cella? -
Delila_1
veterán
válasz
pentium4
#8296
üzenetére
Írtam rá egy függvényt.
Function Minimum(sor As Integer) As Double
Dim tomb(3), tomb_1(3)
Dim b As Integer, s As Integer
tomb(0) = Cells(sor, 7)
tomb(1) = Cells(sor, 12)
tomb(2) = Cells(sor, 17)
tomb(3) = Cells(sor, 22)
For b = 0 To 3
If tomb(b) > 0 Then
tomb_1(s) = tomb(b)
s = s + 1
End If
Next
Minimum = Application.Min(tomb_1(0), tomb_1(s - 1))
End FunctionA szépséghibája, hogy egy üres oszlopba az adatok mellé be kell vinni az =SOR() függvényt, és a Minimum függvényben erre a cellára kell hivatkozni.
Pl. ha a sor() függvények az AA oszlopban vannak, és a W5-ben akarod megtudni az 5. sor minimumát, akkor a W5-be ezt kell írnod: =minimum(AA5), vagy =minimum(5). Az utóbbinál az a baj, hogy a képlet lemásolásakor az 5-öt minden cellában át kellene írni az aktuális sor számára. Az előbbi képlet "lehúzható".
Remélem, ezen valaki tud majd javítani. Ha nem, marad a SOR() függvény. -
perfag
aktív tag
-
pentium4
senior tag
gondoltam az már mind1 hogy most hogy vannak a cellák, nem akartam bonyolultan feltenni a kérdést, inkább egyszerűsítettem, hogy ne legyen probléma, de ezek szerint nem kellett volna!
igen feltettem, mert nem tudtam hogy hogy kell, de gondoltam amíg válaszoltok én se ülök a seggemen hanem keresgetek és próbálgatom hogy hogy lehet megoldani a problémát!P4
-
motinka
tag
válasz
pentium4
#8304
üzenetére
ezért írtam hogy a további cellákban (ahol ezekből a cellákbó számol valamit) kell a képleteket átírni, hogy ha nem számot talál a beviteli cellában akkor azt ott már 0-nak vegye.
A bemásolt képen a pirossal keretezett minta függvény utolsó ; utáni része az eredeti képlet. Példának egy egyszerű szorzat van benne. -
-
pentium4
senior tag
ez a darabteli függvény nem jó, mert ez megszámolja és a másik hibája hogy nem tud kezelni csak adott részt hogy pl: A1:A7 de nekem nem így van hanem így: G5;L5;Q5;V5 és ha ezt írom bele akkor tól soknak írja a dolgot!
végül is sikerült megoldani így:
=MIN(HA(G5<>0;G5;99999);HA(L5<>0;L5;99999);HA(Q5<>0;Q5;99999);HA(V5<>0;V5;99999))
igaz nem a legszebb függvény de legalább müxik és akkor a magyarázat hogy miért is így, hát azért mert ha minden cellára megnézzük (a minimum kiválasztás előtt), h egyenlő-e 0-val, ha nem, akkor vesszük a cella értékét, ha viszont 0, akkor veszünk egy nagy számot (pl aminél nincs nagyobb az Excelben, én most a 99999-et választottam), ami így minimumként sosem jöhet ki!
nem tudom hogy van rövidebb megoldás ennél, biztos van, de nem vok egy excel guru, de így sikerült összehoznom!
vélemények?P4
-
-
motinka
tag
válasz
pentium4
#8296
üzenetére
azaz mégis csak bármit írhatsz a 0 forintos termékekhez csak 0-t nem , így ugye nem számitja azt bele a legjobb árba.
Ellenben ha a további cellákba egy olyan képletet írsz ami először megvizsgálja, hogy az adott cella értéke nem szám akkor 0 legyen az érték, amennyiben szám akkor meg végezze el a műveletet.
pl egy ilyen:
fpleg, hogy adataim sincsenek oda, meg semmi, nem értem. és ha át akarom állítani az x tengely minimum értékét, ott csak számokat találok. jelen esetben a minimuma 37000, a maximuma meg 40500. van valakinek ötlete?
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Információbiztonság, kiberbiztonság, adatvédelem
- exHWSW - Értünk mindenhez IS
- Autós topik
- PlayStation 5
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Revolut
- Mikrotik routerek
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- eMAG vélemények - tapasztalatok
- Konzolokról KULTURÁLT módon
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Gyermek PC játékok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged