Hirdetés
-
LOGOUT.hu
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
-
#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 ?
-
#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.
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)
-
#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 ]
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)
-
#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 !
-
#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
-
#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.
[ 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)
-
#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.
-
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.)[ Szerkesztve ]
-
#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.
-
#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.[ 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.
-
#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:
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#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
:-) -
#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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#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.
[ 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)
-
#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.
[ 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.
-
#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)
[ 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.
-
#8371
Delila_1
veterán
m.zmrzlina
#8370
Delila_1
veterán
válasz
m.zmrzlina
#8370
üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bandus
veterán
-
#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
-
#8375
Fire/SOUL/CD
félisten
fjanszi123
#8374
válasz
fjanszi123
#8374
üzenetére
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)
-
#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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#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.[ Szerkesztve ]
-
#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?
-
#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.
-
#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[ Szerkesztve ]
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
bandus
veterán
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?"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
#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. -
#8383
m.zmrzlina
senior tag
perfag
#8382
-
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#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 -
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[ Szerkesztve ]
-
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
Verba volant, scripta manent.
-
#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.
-
#8394
Fire/SOUL/CD
félisten
xKacsax
#8392
válasz
xKacsax
#8392
üzenetére
Hali!
1. Dátumra formázod (hhhh) azt a cellát, amibe az alábbi képlet kerül
=HÓNAP(MA())2. Olyan dolgot szeretnél megvalósítani, mint számlákon? pl
123456789 esetén -> 123 milló 456 ezer 789 vagy
száz-húszon-három millió négyszáz-ötven-hat ezer száz-húszon-háromFire.
[ 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
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.[ 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.
-
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?
[ Szerkesztve ]
"Sose higgy el feltétlenül mindent, amit az interneten olvasol!" -Abraham Lincoln
-
#8398
Fire/SOUL/CD
félisten
Darahian
#8397
-
Darahian
tag
válasz
Fire/SOUL/CD
#8398
üzenetére
Köszi!
"Sose higgy el feltétlenül mindent, amit az interneten olvasol!" -Abraham Lincoln
Mindjárt módosítom a kódot.
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?
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Star Wars Outlaws GeForce RTX 40 Bundle - lepd meg magad!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Smart Security Premium
- Vírusirtó, Antivirus, VPN kulcsok
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest