-
Fototrend
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
válasz Mr.Csizmás #9866 üzenetére
A képet a beillesztés előtt szabd méretre!
Sub Logo()
utvonal = "F:\Temp\"
FN = "filename.gif"
For lap = 1 To Worksheets.Count
Sheets(lap).Select
Cells(3, 1).Select 'Ez az A3-ba teszi, átírhatod
ActiveSheet.Pictures.Insert (utvonal & FN)
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
Azt hittem, bevitted a sokkal egyszerűbb óra:perc formátumot.
Még mindig jobban járnál vele.Egy üres oszlopban összehozhatnád az A és B, valamint a C és D oszlopok értékeit.
=A1&":"&B1
=C1&":"&D1Ezeket már időértéknek értelmezi az Excel. Értékként beilleszted az új oszlopokat az A-ba és B-be, és már mehet is az egyszerű kivonási képlet ezekre hivatkozva.
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 Mr.Csizmás #9890 üzenetére
Tudtommal az élőfejbe nem lehet képfájlt bevinni, csak a Wordben.
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 Mr.Csizmás #9894 üzenetére
Akkor írd le, mi módon jött össze!
Nehogy mind a 90-et, elég 1.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 Mr.Csizmás #9896 üzenetére
Köszi. Ennyire bamba vagyok! Hiába, április elseje van.
¡ǝɾǝslǝ sılıɹdɐ uǝɾ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.
-
Delila_1
Topikgazda
válasz bozsozso #9901 üzenetére
Ez az új a Munka2 lapon a B oszlopba írja a Munka1 H oszlopát, és a C-be az I-t.
Sub Összegzés()
Dim usorA As Long, usorT As Long, usor2A As Long
Sheets("Munka1").Select
usorA = Range("A1").End(xlDown).Row 'Alsó sor a Munka1 lapon
'Irányított szűrés egyedi ('A' oszlop) értékekre a T1-be
Range("A1:A" & usorA).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("T1"), Unique:=True
'Alsó sor a T oszlopban
usorT = Range("T1").End(xlDown).Row
'Első üres sor a Munka2 lap A oszlopában
usor2A = Sheets("Munka2").Range("A5000").End(xlUp).Row + 1
'Munka1 T oszlopának másolása a Munka2 A oszlopába
Range("T2:T" & usorT).Copy Sheets("Munka2").Range("A" & usor2A)
Sheets("Munka2").Select 'Szumha képlet a Munka2!B-be
usorA = Range("A1000").End(xlUp).Row
Range("B2:B" & usorA).Select
Selection = "=SUMIF(Munka1!A:A,Munka2!A2,Munka1!B:B)"
Range("C2:C" & usorA) = "=VLOOKUP(A2:A" & usorA & ",Munka1!A:I,8,0)"
Range("D2:D" & usorA) = "=VLOOKUP(A2:A" & usorA & ",Munka1!A:I,9,0)"
Range("A:D").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cells(2, 1).Select
'Munka1!T oszlop törlése
Sheets("Munka1").Columns(20).Delete
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 bozsozso #9903 üzenetére
Mást is módosítottam.
Az újban nem a G, hanem a T oszlopba gyűjtettem ki az irányított szűrővel az A oszlop egyedi értékeit, mert látom, hogy a G oszlop foglalt.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 bozsozso #9924 üzenetére
A 2007 Mentés másként menüpontjában van egy ilyen almenü: 97-2003 verziójú munkafüzet.
Felteszem, hogy a 2010-esben is van. Ebben a formátumban mentsd el, akkor jó lesz.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
Ezt próbáld meg futtatni:
Sub hiper()
Dim usor As Long, sor As Long, A As String, B As String
Calculate
usor = Range("A6000").End(xlUp).Row
For sor = 1 To usor
Cells(sor, 1).Select
A = Cells(sor, 46)
B = Cells(sor, 1)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
A, TextToDisplay:=B
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 bozsozso #9930 üzenetére
Sub szám()
Range("B1") = 1
Range("B1").Copy
Range("A1:A" & Range("A1").End(xlDown).Row).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
Range("B1") = ""
Application.CutCopyMode = False
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 bozsozso #9940 üzenetére
Fogalmam sincs. Mostanában jártam én is így. Az eredeti, szöveg formátumú számok tizedes elválasztója pont volt, azokat makróval kicseréltettem vesszőre, ezután jött volna az irányított beillesztés. Ez már nem jött össze.
Addig írtam meg, hogy egy változóba bevettem az 1-et, kijelöltem a nem összefüggő területeket, és egy üzenetet küldtem, hogy illessze be irányítottan, szorzásként.
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
Fire
Ez a Te profilod. Meg kellene beszélni Microsoftékkal, hogy egy tartomány (ami szöveg formátumú számokat tartalmaz) makróból csak akkor szorozható fel – alakítható át a művelettel számokká –, ha a tartomány nem tartalmaz törteket. Egész számoknál nincs probléma.
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 bozsozso #9955 üzenetére
Ez egy szükség-megoldás, de attól még az Excel hibája nem szűnt meg.
A ciklus lelassítja a futást, nálam több nagy területről van szó.Próbálgattam, hogy makróból az irányított beillesztéssel történő felszorzást elvégzi, csak éppen a területet cellánként le kell enterezni (!)
Ez persze nem megoldás. Gondoltam, hogy a felszorzás után ugyanarra a területre nyomok egy Paste:=xlValues-t, de az sem javított rajta.A 2007-ből már kiirtották ezt a hibát – tettek helyette egyebet.
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 Fire/SOUL/CD #9958 üzenetére
Törtekkel is hibátlan?
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 bnorci71 #9979 üzenetére
Írj mellé egy DARABTELI függvényt.
=DARABTELI(A:A;A1)
Ez a függvény kiírja, hogy az A1 értéke hányszor található meg az A oszlopban. A képletet lemásolva az adataid mellé minden leltári számnál megmutatja az előfordulása darabszámát.
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 Danecay #9989 üzenetére
A legördülőnél alkalmazd az érvényesítést. Melyik verziót használod? Más helyen találod meg a 2007-ben és a régebbiekben.
A makróban meg kell adnod az útvonalat és a fájl nevét.
utvonal= "meghajtó:\mappa\almappa\"
FN="MentendőFileNeve"Megadhatod, hogy az aktuális hónap nevével mentsen.
ment=utvonal & FN & "_" & Format(Now, "yyyy.mm") & ".xls"
ActiveWorkbook.SaveAs ment
ActiveWindow.Close 'ezzel bezárod[ 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 Danecay #9991 üzenetére
Egy inputboxban bekéred a nevet, és esetleg beírod egy cellába, mentéskor pedig onnan veszed elő.
Cells(1, 3) = InputBox("Kérem a fájl címét", "Fájl címe")
A másik kérdésedre megpróbálom kitalálni a választ.
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 Danecay #9991 üzenetére
Az E1-től kezdődően bevittem a napokat: 15, 16, ... 31.
Bementem a névadásba, és a napok nevet adtam meg. A hivatkozáshoz ez a kis képlet jött:=OFSZET(Munka1!$E$1;0;0;HOL.VAN(NAP(EOMONTH(MA();0));Munka1!$E:$E;0);1)
Az érvényesítésnél a forráshoz ezt adtam meg: =napok
A gépen a dátumot februárra átírva az érvényesítés 15-től 28-ig, áprilisban 30-ig, májusban 31-ig teszi választhatóvá a napokat.
U.i.:
Ha nincs eomonth függvényed, az Eszközök/Bővítménykezelőben kapcsold be a két Analysis kezdetű bővítményt.[ 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
-
Delila_1
Topikgazda
válasz BoharJoe #10004 üzenetére
Eszerint jól pötyögtettem be a számokat , nekem is 187:24 lett az eredmény az [ó]:pp formátummal. Ezzel már lehet műveletet végezni.
Neked nem kell ragaszkodnod a mások által hibásan számolt összeghez, igaz?
[ 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
-
Delila_1
Topikgazda
válasz varikahun #10017 üzenetére
Jelöld ki a tartományt, amit színezni akarsz. Hívd be a Formátum - Feltételes formázást.
A feljövő ablakban a legördülőben legyen "A képlet értéke", a másodikba írd be: =$C$3="OK", a Formátumnál add meg a megfelelő formátumot.
Ez a 2003-as verzióra vonatkozik, szólj, ha nem ezt használod.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 varikahun #10024 üzenetére
A lapfülön jobb klikk, Kód megjelenítése.
Bejutottál a VB szerkesztőbe, jobb oldalon kaptál egy üres felületet, ide másold be:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target = "OK" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
If Target.Column = 16 And Target = "Worn" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
End SubEz a C oszlopban megadott OK-ra sárga hátteret ad, a P-be beírt Worn-re pirosat.
A színeket a makróban a 6, ill. a 3 módosításával tudod változtatni.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
-
Delila_1
Topikgazda
válasz Mauzes #10030 üzenetére
Írd be egy cellába (bárhova): 0,85. Másold, majd jelöld ki a tartományt, aminek csökkenteni akarod az értékét. Jobb klikk, Irányított beillesztés, Szorzás, OK.
A tartomány értéket felszorozza 85%-kal.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 varikahun #10028 üzenetére
A 10032-be írt sor elé még egyet tegyél be, amivel együtt így néz majd ki az egész:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If IsEmpty(Target) Then Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = xlNone
If Target.Column = 3 And Target = "OK" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
If Target.Column = 16 And Target = "Worn" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
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 zsotesz81 #10038 üzenetére
A Sheet1 lap D1 cellájába:
=HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="Contr/IBM";"X";"")E1-be: =HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="vakia/IBM";"X";"")
Az A oszlopban lévő nevek mellé a D oszlopba tesz X-et, ha a "Contr" szerepel a címében, és az E-be, ha nem.
Nem biztos, hogy jól értem a feladatot, látom, Fire másként értelmezte.
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 zsotesz81 #10045 üzenetére
Akkor kell bele egy hibaelhárítás is.
D1:
=HA(HIBÁS(FKERES($A1&"*";Sheet2!$E:$E;1;0));"";HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="Contr/IBM";"X";""))E1:
=HA(HIBÁS(FKERES($A1&"*";Sheet2!$E:$E;1;0));"";HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="vakia/IBM";"X";""))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 zsotesz81 #10051 üzenetére
Tényleg prérifarkas vagy, az első kérdésedben más volt az elrendezés. A válaszom emiatt adott #NAME eredményt.
A pontatlanságoddal – hogy ne írjak hebehurgyaságot – megdolgoztatod azokat, akiknek a segítségét kéred.A ciklusok hosszú időd vesznek igénybe, pláne, ha 2 különálló táblázaton kell végig futniuk. Sokkal gyorsabb és egyszerűbb 1-1 lépésben megadni a képleteket, majd ezek helyére beilleszteni az értéküket.
A jelenlegi felállásra:
Sub X_ek()
Dim usor%
Sheets("Sheet1").Select
usor = Range("E6000").End(xlUp).Row
Range("F1:F" & usor).FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(Sheet2!RC2&""*"",C5,1,0)),""nincs"",IF(RIGHT(VLOOKUP(Sheet2!RC2& ""*"",C5,1,0),9)=""Contr/IBM"",""X"",""""))"
Range("G1:G" & usor).FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(Sheet2!RC2&""*"",C5,1,0)),""nincs"",IF(RIGHT(VLOOKUP(Sheet2!RC2& ""*"",C5,1,0),9)=""vakia/IBM"",""X"",""""))"
Columns("F:G").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("F1").Select
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 zsotesz81 #10055 üzenetére
Eszerint megint átrendezted az adataidat.
Ha az Excelben szúrsz be egy oszlopot, vagy sort, avagy törölsz, akkor a képletek automatikusan átíródnak. A makrónál nem ez a helyzet. Ha ott azt írod, hogy az ötödik oszlop adatával csináljon valamit (van is a képletben ilyen hivatkozás: C5), akkor azt csinálja. Ha ott nem azt az adatot találja, ami a beszúrás-törlés előtt volt, akkor hibás eredményt kapsz.
A makrót arra az esetre írtam, mikor az elrendezésed a 10051 hsz. szerinti volt.Itt le is tettem a lantot. Még annyit segítek, hogy a 10048-as hsz-ban megadott képleteket alakítsd át a jelenlegi elrendezésre – majd 5 percenként az újabbakra –, indíts makrórögzítést, enterezd le a két képletet, és a rögzített sorokat másold be a Range("F1:F" & usor).FormulaR1C1 = _, és a Range("G1:G" & usor).FormulaR1C1 = _ sorokhoz.
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
- Hegesztés topic
- Politika
- USB to S/PDif konverter a modern RIAA, elektroncsövekkel
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Sorozatok
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- ASUS ROG PG32UCDM: OLED csúcsmonitor tesztje
- Háztartási gépek
- Azonnali VGA-s kérdések órája
- Computex 2024: Itt az új ROG Ally
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs