-
IT café
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
-
aviator
tag
Sziasztok!
Szeretnék segítséget kérni a következő probléma megoldásában. Kellene egy egyszerű megoldás (akár makró) arra, hogy az excel egy adott cellán állva gombnyomásra átugorjon az alatta lévőre, kijelölje ami benne van és alkalmazzon rá egy másolás parancsot. A lényeg a kijelölésen lenne, azt a két billentyűkombinációt kéne megvalósítani, hogy F2 és Ctrl+Shift+Home. Erre azért van szükség, mert egy másik programba kell átvinnem a cellák tartalmát, ami érzékeny a formázásra tehát ha cellát jelölök ki és másolok beillesztek akkor a sortöréseket nem veszi figyelembe a program, helyette viszont betesz hülye karaktereket.
IT-s kollega ma eléggé izzadt rajta, úgyhogy nem tudom, hogy egyáltalán megoldható e a feladat?Előre is köszönöm a segítségeteket!
Üdv:
Ádám -
aviator
tag
Sziasztok!
Segítséget szeretnék kérni egy olyan makró elkészítésével kapcsolatban, ami kijelöli egy oszlop azon celláit amelyben kettőspont szerepel.
Fontos, hogy egyszerre mindig csak egy oszlopban kell ezt megtennie. (Jelenleg a C oszlop mutatja a kívánatos működést)Köszönöm a segítséget.
[ Szerkesztve ]
-
aviator
tag
Sziasztok!
Tud olyat csinálni az excel, hogy megmondja egy form object-ről, mondjuk egy gombról azt, hogy benne van-e egy groupbox-ban, vagy rajta van-e egy formon?
Ha nem tudja ezt esetleg, akkor különböző - a groupbox méretére, illetve az objektum méretére és pozíciójára vonatkozó - feltételekkel meg lehet oldani?
Van esetleg ettől eltérő javaslata valakinek erre a feladatra?Köszönöm a segítséget!
-
aviator
tag
Sziasztok,
Pivot tábla Grand Total oszlopát szeretném megjeleníteni Pivot charton a függőleges tengelyen, a vízszintesen pedig a Pivot tábla sorainak fejléceit. A Grand total oszlop celláiban értelemszerűen a sorokban található értékek összege van. A többi oszlopra nincs szükségem. Sehol nem találtam ilyen lehetőséget az excelben, mindent megjelenít a charton csak a Grand totalt nem, a data source pedig nem szerkeszthető.
Létezik erre megoldás?
Köszönöm.
Üdv,
Ádám -
aviator
tag
Sziasztok,
Soros vonalon érkező adatot szeretnék excel táblázatban felhasználni ebben kérnék segítséget.
Mivel még sosem dolgoztam ilyennel, nem akartam feltalálni a spanyol viaszt, ide vezetett a google: http://www.thescarms.com/vbasic/commio.aspx
Ez egy elég jól használható modul, jönnek is szépen az adatok. Egy 10 karakteres stringet kell beolvasnom, a problémám az, hogy nem mindig van meg a 10 karakter, illetve néha több van, tehát bizonytalan az olvasás. A csatolt kódban a Do Loop-ban történik meg a string kivétele a soros bufferből, csak ezek szerint nem mindig a jó pillanatban. Próbáltam rákényszeríteni, hogy csak a 10 karakter hosszú olvasás esetén menjen tovább az első if-nél, megcsinálja, de néha sokáig tart, meg hát nem érzem túl elegánsnak.
Kellene ide egy olyan megoldás, ami kiküszöböli ezt a problémát, de ha valakinek van működő kódja teljesen más alapokon az is tökéletes lenne.
Továbbá, ha valaki tudja esetleg hogy kell olyat csinálni, hogy a soros vonalon megjelenő adat mindenféle kód és makró nélkül (gondolom valamilyen külső program használatával) megjelenjen egy excel munkafüzet aktív cellájában az lenne a legjobb. Azért kérdezem, mert ilyet már használtam, csak akkor még nem tudtam, hogy ez nem alapfunkció.
Köszönöm előre is a segítséget.
Private Sub CommandButton1_Click()
Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 - COM4
Dim lngStatus As Long
Dim strError As String
Dim strData As String
intPortID = 3 'Using COM3
' Initialize Communications
lngStatus = CommOpen(intPortID, "COM" & CStr(intPortID), _
"baud=9600 parity=N data=8 stop=1")
If lngStatus <> 0 Then
' Handle error.
lngStatus = CommGetError(strError)
MsgBox "COM Error: " & strError
End If
lngStatus = CommSetLine(intPortID, LINE_RTS, True)
lngStatus = CommSetLine(intPortID, LINE_DTR, True)
' Read maximum of 64 bytes from serial port.
Do
lngStatus = CommRead(intPortID, strData, 64)
If lngStatus > 0 And (Len(strData) = 10) Then
TextBox1.Text = strData
TextBox2.Text = Len(strData)
Exit Do
End If
If lngStatus < 0 Then
lngStatus = CommGetError(strError)
MsgBox "COM Error: " & strError
Exit Do
End If
Loop
lngStatus = CommSetLine(intPortID, LINE_RTS, False)
lngStatus = CommSetLine(intPortID, LINE_DTR, False)
' Close communications.
Call CommClose(intPortID)
End Sub
-
aviator
tag
Sziasztok,
Próbálkozok egy ideje a Treeview VBA beépülő modullal nem tudom használta-e már valaki. Annyira nem rossz, kicsit körülményes, de használhatónak, tűnik, van viszont egy olyan hátránya ami az egészet értelmetlenné teszi nagyjából, erre szeretnék rákérdezni. Szóval azt tapasztaltam, hogy nem engedi azt megcsinálni, hogy ha van egy főkategóriám (parent), amiben létrehozok egy alkategóriát (child), akkor ugyanaz az alkategória ugyanazzal a névvel, egy másik főkategóriában is szerepeljen. A csatolt képen egy kicsit jobban látható, tehát szeretném, ha a tartozékok alkategória nem csak az energiaelosztásban jelenne meg, hanem a forrasztható csatlakozóknál is, amikor viszont ezt megpróbálom megetetni vele kiáll hibára, hogy key is not unique in collection.
Ezt tényleg nem lehet megcsinálni vagy nálam nem jó valami?
Köszönöm előre is a válaszokat.
-
aviator
tag
válasz Fire/SOUL/CD #51691 üzenetére
Nagyon köszönöm, sikerült is megoldanom így a dolgot.
Annyit hadd kérdezzek még, hogy az ékezetes betűk megjelenítésére van-e valami megoldás? Pontosabban, az ő, ű betűk jelennek meg ékezet nélkül.[ Szerkesztve ]
-
aviator
tag
Sziasztok,
Tudtok valamilyen megoldást arra hogy a Treeview Control bővítmény használható legyen 2016os Office alatt?
Új hozzászólás Aktív témák
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Rövid előzetesen a S.T.A.L.K.E.R. 2: Heart of Chornobyl
- Dell notebook topic
- Hobby elektronika
- Kínai, és egyéb olcsó órák topikja
- Autós topik
- gban: Ingyen kellene, de tegnapra
- Milyen CPU léghűtést vegyek?
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.