- Honor Magic5 Pro - kamerák bűvöletében
- Új Beats fej- és fülhallgatók jelentek meg
- Yettel topik
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- DIGI Mobil
- Apple Watch Sport - ez is csak egy okosóra
- Motorola Edge 40 neo - színre és formára
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Mobil flották
Hirdetés
-
Megjelenési dátumot kapott a Star Wars: Hunters
gp A tervek szerint június elején végre befut a teljes kiadás mobilokra/tabletekre és Nintendo Switch-re.
-
Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
ma A Try Galaxy webalkalmazás kontrollált környezetben mutatja meg, mit tud a One UI 6.1-es rendszer és a mesterséges intelligencia.
-
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.
-
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
-
allein
addikt
Üdv. mindenkinek. Adott két Excel táblázat. Ami összeköti őket az "A" oszlop, tehát az adatok amik ebben az oszlopban vannak megtalálhatóak mindkét Excel esetében. Az a lényeg, hogy egy olyan Excel táblázatot akarunk csinálni amiben látunk minden olyan oszlopot ami éppen nincs benne az egyik vagy a másik Excel táblázatban. Lényeg itt egy névsorról van szó. Nem tudom mennyire voltam érthető.
http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein
-
Delila_1
Topikgazda
-
lappy
őstag
válasz D@ni88 #14257 üzenetére
Szia!
itt van egy txt beolvasóPublic Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
Sub DoTheImport()
Dim FileName As Variant
Dim Sep As String
FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
If FileName = False Then
''''''''''''''''''''''''''
' user cancelled, get out
''''''''''''''''''''''''''
Exit Sub
End If
Sep = Application.InputBox("Írjon be egy elválasztó karaktert.", Type:=2)
If Sep = vbNullString Then
''''''''''''''''''''''''''
' user cancelled, get out
''''''''''''''''''''''''''
Exit Sub
End If
Debug.Print "FileName: " & FileName, "Separator: " & Sep
ImportTextFile FName:=CStr(FileName), Sep:=CStr(Sep)
End SubBámulatos hol tart már a tudomány!
-
Töki bácsi
aktív tag
Sziasztok! Elég alap kérdéssel fordulnék hozzátok. Kis probléma, de sok gondot tud okozni:
Adott egy viszonylag nagy excel file, amiből kitörlöm a sorok felét, akkor a csuszka továbbra is a korábbi lista teljes hosszán keres, így amikor kicsit mozdítok rajta, nagyot ugrik. Azt szeretném elérni, hogy a csuszka a már nem létező sorokat ne vegye bele a csúszkálási hosszba. Lehetséges-e ez, és hogyan?osu-no seishin
-
D@ni88
addikt
Van egy céges macro-nk.
Ami jelenleg ~2mb.
Ha semmit nem csinálok vele, megnyitom, és rámentek akkor a mérete 1,8mb-ra csökken.
Hangsúlyozom semmi változás nem történt, csak rámentek.
Jah és Office 2003-ban írtuk a macro-t és 2003-ban mentek rá...
Valami ötlet? -
zz76zz
csendes tag
válasz D@ni88 #14260 üzenetére
"Azért azt a 2 GB xls-t is górcső alá venném. . .
Nincs annyi adat szerintem, amit egy átlátható xls tartalmazna.
Példa: el volt "harapózva" egy xls em mérete. Tesztelgettem egy adott feladatot.
Majd minden adat nélkül csak 30 sor makrót tartalmazó xls lett 4MB.
Na mondom ez nem járja.
Nyitottam egy üres file-t és bemásoltam csak a makrót a szerkesztőbe. Így lett ugyan azt a funkciót ellátó file 46kB. . ."
A lényeg, hogy az Excel dagasztja a file-okat. A csökkenést még nem tapasztalt érdekesség.www.vagyunk.hu
-
79blueboy
csendes tag
Sziasztok.
A kérdésem a következő: Lehetséges e, hogy excel-ben kitöltenek egy cellát és utána az a cella zárolódik és mondjuk csaj esetleg jelszóval lehet módosítani ?
Előre is köszönöm a segítséget.https://www.koltoztetes-fuvarozas-szallitas.hu/
-
lacid90
csendes tag
Sziasztok!
Egy makróban hogyan lehet ellenőrizni egyszerűen, hogy az aktív cellába csak egész (integer) szám lehessen. Minden más próbálkozásnál hibaüzenetre menjen.
Előre is köszönöm.[ Szerkesztve ]
-
lacid90
csendes tag
válasz bugizozi #14267 üzenetére
Köszi erre gondoltam.
Felmerült még egy probléma. A kérdéses cella tizedesjegy nélküli pénznemre van formázva de ha beleírok egy tizedesjegyű számot pl:1.1 (tizedes ponttal) akkor 40909 Ft lesz, az általánosra formázott meg 01.jan. Ezt hogy lehet kiküszöbölni?[ Szerkesztve ]
-
lacid90
csendes tag
Sziasztok!
Azt meg lehet oldani, hogy a táblázatban elhelyezek egy gombot (CommandButton) aminek a megnyomása után az aktuális cella után beszúr egy üres sort, és a 2. (B) oszlopába betesz egy * karaktert.
Előre is köszönöm. -
félisten
válasz lacid90 #14269 üzenetére
Ha úgy érted, hogy az újonnan beszúrt sor és B oszlop metszéspontjába kell a csillag, akkor
Private Sub CommandButton1_Click()
ActiveCell.Offset(1).EntireRow.Insert
Range("B" & ActiveCell.Row + 1) = "*"
End SubHa az aktuális cella sorának és B oszlopának metszéspontjába kell a csillag, akkor töröld ki a makróból a + 1-et.
[ 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)
-
lacid90
csendes tag
válasz Fire/SOUL/CD #14270 üzenetére
Köszi!
-
79blueboy
csendes tag
Sziasztok.
A kérdésem a következő: Lehetséges e, hogy excel-ben kitöltenek egy cellát és utána az a cella zárolódik és mondjuk csaj esetleg jelszóval lehet módosítani ?
Előre is köszönöm a segítséget.https://www.koltoztetes-fuvarozas-szallitas.hu/
-
Delila_1
Topikgazda
válasz 79blueboy #14272 üzenetére
A laphoz kell rendelned a kódot. A makró a C3 cellát zárolja, és a lapot az "aaa" jelszóval védi.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3")) Is Nothing Then
Range("C3").Locked = True
ActiveSheet.Protect Password:="aaa"
End If
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.
-
D@ni88
addikt
A macro-ban történő piszkálást meg le lehet tiltani valahogy? Jelszavas védelem, bármi...
-
lacid90
csendes tag
Azt hogyan lehet megnézni, hogy az aktív cella sorában van e színes cella. Én így próbálkoztam de ez sajna nem jó.
If Activecell.Row.Interiol.ColorIndex <> 0 Then
stb...
Még azt szeretném, hogy a előző 14268-as kérdésre tudtok e valamit mondani.
Köszönöm. -
Delila_1
Topikgazda
válasz lacid90 #14275 üzenetére
Az A:F oszlopok hátterét vizsgálja a makró. Ha a teljes sort akarod ellenőriztetni, a Range("A" & sor & ":F" & sor) helyett ezt írd be: Range(Cells(sor, 1), Cells(sor, Columns.Count)) .
Sub Szines()
Dim CV As Object, sor As Integer
sor = ActiveCell.Row
For Each CV In Range("A" & sor & ":F" & sor)
If CV.Interior.ColorIndex <> -4142 Then
MsgBox "Van színes hátterű cella"
Exit Sub
End If
Next
MsgBox "Nincs színes hátterű cella"
End Sub[ 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.
-
Metathrone
csendes tag
válasz Delila_1 #14278 üzenetére
Ezt egy programmal 2 mp alatt fel lehet törni, csak sajna nem tudja meg az ember az igazi jelszót. Arra van valami mód, hogy a valódi jelszót megtudjam? Persze nem úgy, hogy megkérdezem Nem rombolni vagy lopni akarok vele.
Továbbá egy korábbi kérdésemen picit átsiklott mindenki. Lehetséges makróval beilleszteni a ctrl+f keresőablakba az aktuális vágólap tartalmát?
Köszönöm
-
lacid90
csendes tag
válasz Delila_1 #14277 üzenetére
Nagyon köszönöm . Lenne még két kérdésem ha lehet. A munkalap nevét kellene megjeleníteni az A1-es cellában, de úgy hogyha változik a lap neve automatikusan változzon a cellában is. Ha lehet makró nélkül lenne jó, de ha nem lehet akkor jöhet makróval is. A másik kérdés, hogy a munkalapon létrehozott szövegdobozt lelehet horgonyozni úgy, hogy scrollozáskor mindig látható legyen. Ez egy a felhasználót segítő ablak lenne. Ha így nem lehet, akkor hogyan.
Köszönöm a segítséget. -
lappy
őstag
válasz Metathrone #14279 üzenetére
Szia!
Valódi jelszó megtudására a GOOGLE-ba beírva egy pár kulcsszót kidob egy pár programot amivel excel jelszót meg lehet tudni! Igaz el tarthat egy darabig még megkeresi a valódi jelszót!Bámulatos hol tart már a tudomány!
-
Delila_1
Topikgazda
válasz lacid90 #14280 üzenetére
Ez a szép hosszú képlet megadja az aktuális lap nevét.
=JOBB(CELLA("filename");HOSSZ(CELLA("filename"))-SZÖVEG.KERES("]";CELLA("filename")))A szövegdobozt tedd az első sorba, és rögzítsd a lapnak ezt a sorá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.
-
gatya3
csendes tag
Sziasztok!
Az lenne a kérdésem, hogy ki lehet e nyerni egy excel fájlból, hogy mennyi munkaórát dolgozott vele az ember? Előre is köszönöm a válaszokat. -
mizu_
tag
Sziasztok!
Munkalapokat kellene VBasicben átmásolnom egyik XLS-ből a másikba úgy, hogy az adott munkalapban található Visual Basic kód ne másolódjon át. Egyelőre eddig jutottam:
Windows("forrás.xlsm").Activate
Sheets("munka2").Select
Sheets("munka2").Copy After:=Workbooks("cél.xlsm").Sheets(Workbooks("cél.xlsm").Worksheets.Count)Ha valaki tud légyszi segítsen.
Előre is köszi! -
Sziszmisz
csendes tag
sziasztok,
egy apró, ámde nagy fejtörést okozó problémám lenne, amiben szeretném a segítségeteket kérni. Hivatkozni szeretnék bizonyos adatokra, de itt a "m2" 2-ese nem marad felsőindexbe a hivatkozott résznél. Nekem pedig nyomtatnom kellene ezt, ezért fontos. Próbálnám manuálisan felső indexbe rakni, de mivel hivatkozás nem engedi, max az egész cellát, de az úgy se jó nekem. valakinek lenne esetleg valami ötlete? köszönöm előre is
-
Carasc0
őstag
Sziasztok!
Érdeklődök hogy ezen a LINK-en található diagram Excellel készült vagy egy másik programmal. Ha mással, akkor melyikkel?
Előre is köszönöm!
Gondolkodj globálisan és tegyél lokálisan!
-
ChiliChili
tag
Azt szeretném megoldani, hogy az egyik oszlop tartalmaz bizonyos értékeket (pl.: 01:10:00) és az értékek elé be szeretném tenné a 00:-t, vagy a 01:-t, hogy a végső forma pl.: 00:01:10:00 legyen. Hogyan tudom elérni, hogy az egész oszlopban kibővüljenek az értékek a kívánt 00:-val vagy 01:-el? Egyenként beütni elég macerás, mert akár 3-400 sor is lehet. Van erre egyszerű megoldás? Libre Office és GDrive áll rendelkezésemre.
-
VGYke
addikt
Sziasztok! Lehet hogy nagy bugyutaságot kérdezek, de azért bepróbálkoznék, hátha...
Van egy internet sebességmérő oldal.
Elvileg lehetne olyan makrót írni, hogy nyomkodja helyettem x (pl.10 perc) időnként a
gombot?kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
zz76zz
csendes tag
válasz ChiliChili #14290 üzenetére
http://office.microsoft.com/hu-hu/excel-help/osszefuz-HP005209020.aspx
www.vagyunk.hu
-
lacid90
csendes tag
Sziasztok!
Hogyan lehet a munkafüzetnek, egy lapját átmásolni úgy, egy másik munkafüzetbe, hogy minden formátum megmaradjon (cellák, oszlopok nagysága stb.)
Köszi -
psg5
veterán
Üdv!
Van, hogy eltűnik igazításkor az excelben a cellák szegélye, némelyik sornban,oszlopban. Nem a rajzolt,létrehozott szegély, hanem az alap "halvány" szegély. Miért? Mit lehet tenni, hogy újra meglegyen?
F.K.T.
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz