- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Windows 11
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- ASUS routerek
- Videó stream letöltése
- Hálózati / IP kamera
- Facebook és Messenger
- Linux kezdőknek
- A Google helyét akarja az OpenAI, hétfőn jöhet az AI-alapú kereső
- Milyen program, ami...?
-
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
-
föccer
nagyúr
-
allein
addikt
Jó reggelt, Adott két cella aminek a tartalmát szeretném összeadni:
Termék1 Termék2
1.00 1.00
2.00 0.00Milyen módon tudom eltüntetni a .00-at, tehát ne 1.00 legyen hanem 1.
SZERK: (#37356) 0P1 - ezt már próbáltam és nem változott semmi.
A cellákban nem "," vesszővel vannak elválasztva hanem "." ponttal.
[ Szerkesztve ]
http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein
-
cheeka
tag
Sziasztok!
Tudnátok segíteni? Debrecen környékén keresek egy Excel "írásban/programozásban" járatos személyt, aki létrehozna nekem egy eléggé összetett táblázatot. Röviden ez egy ajánlatkészítő dolog lenne, százalékszámítás, osztás, szorzás nem kevés alapadattal. Az adatokat én vinném fel, a számolásokat kellene összehozni. Szeretnék jelszavas védelmet is, hogy aki később használni akarja, az ne lásson mögé a dolgoknak. Természetesen ezt nem ingyen kérném (nem vagyok hatóság, nem erre megy ki a játék). A helyszín azért lenne fontos, mert véleményem szerint, személyes találkozó nélkül nem lehetne ezt a projektet megvalósítani. -
föccer
nagyúr
válasz cheeka #37361 üzenetére
Ezek a dolgok nem tűnnek túl bonyolultnak. Készítsd el a formátumát, hogy a kimeneti űrlapon mi jelenjen meg és melyik cellába, honnan milyen adatot szeretnél, milyen számítások legyenek benne. A védelmet is simán be lehet állítani egy kis utána olvasással.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
cheeka
tag
válasz föccer #37362 üzenetére
Biztosan félreérthető voltam, nagyon egyszerűnek írtam le, de nem az. Tervezek 3 témakört, témánként teljesen eltér a számítási módszer. Minden témakörben több márka van, egy márkának 5-10 típusa, ezen típusoknak esetenként akár 100 kapcsolódó kiegészítője. Ez nem egy formátum, de nem is igazán tudom leírni magamtól (hány lapot használjak adatfeltöltésre, mit melyik lapra írjak, azon belül milyen logika szerint stb.). Szerintem a több lépcsőben elért végeredmény lehet akár 30-40mb-os file is, ha ez egyáltalán lehetséges? Egy hasonlóan működőt használok, az 11mb (ez adta az ötletet, ez egy márkának a sajátja, nekem lenne benne kb. 30 márka).
-
föccer
nagyúr
válasz cheeka #37363 üzenetére
A beepitett fuggvanyek hasznalata nagyon kis helyet foglal es egy fajl meretebol nem lehet annak bonyolultsagara kovetkeztetni.
Olyasmire gondoltam hogy megirod, hogy pl adott egy lista ami tartalmazza a termek nevet es masik tucat tulajdonsagat. Ebbol a listabol legordulo menubol lehet valasztani es a valasztas melle kiratni valamelyik tulajdonsagot. Ha ilyen elemi lepesekre le tudod bontani a feladatot akkor az egyes lepesek megoldasaban tudunk segiteni itt a forumon. Az, hohy ugyan ezt az algoritmust/fuggvenyz 30x be kell irni az mar "rabszolga munka".
Építésztechnikus. Építőmérnök.
-
nagyúr
Sziasztok! Adott egy xlsx file, amibe ha felviszek egy vonalkódot, akkor automatikusan kitölti a mellette lévő oszlopokat könyv címmel és egyéb információkkal. Az érdekelne, hogy ezeket az infókat honnan veszi, mert a függvényt látom: =FKERES(A653;$EAN.A$2:J$9219;5;0) , de azt nem hogy hol vannak az adatok amiben keres
-
Krogoth
senior tag
Hali.
Az mitől lehet, hogy néha nem érzékeli az excel a bevitelt?
Írnék valamit és nem reagál. Átlépek másik táblázatra (nem munkalap), majd vissza és ismét jó minden.Szerk: AMD A8-5500B, 16 giga ram.
[ Szerkesztve ]
-
Kobe
veterán
sziasztok
van egy Excel táblám, amiben a B és C oszlopokban nevek vannak (kb 100-200 különböző név). Azt szeretném, ha egy makró kitörölné azokat a sorokat (az egész sort) ahol a B és C oszlopok bármelyikében nem egyezik meg az általam kívánt nevekkel (magyarul szeretném csak a nekem érdekes 4-5 névre emgtartani a sorokat).
A nevek a 2 oszlopban lehetnek eltérőek, akár B ben vagy C ben szerepelhet az általam ekresett érték, és ha egyikben sem találta meg, akkor töröljön csak sort,, ha a kettő közül bármelyikben szerepel, maradhat.Idáig jutottam, de nem működik, tuti elírtam valamit. Mi lenne helyesen ?
Dim LR As Long
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = LR To 2 Step -1
If Range("B" & i:"C" &i) <> "Gipsz Jakab" Or "Rezső Dezső" Then
Range("B" & i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True -
Delila_1
Topikgazda
Sub torlesek()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = LR To 2 Step -1
If Range("B" & i) <> "Gipsz Jakab" And Range("C" & i) <> "Gipsz Jakab" And _
Range("B" & i) <> "Rezső Dezső" And Range("C" & i) <> "Rezső Dezső" Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
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.
-
Kobe
veterán
válasz Delila_1 #37370 üzenetére
Koszi.
A vege eleg szep kis lista lesz....ha minden userre 2db bejegyzest kell nyilvantartani
Ha letarolom a user listat egy worksheetben, akkor van arra mod hogy a "Gipsz Jakab" helyere meghivatkozzam azt? (egyszerubb egy listat karbantartani mint egy hardcodeolt reszt a programban)
-
Delila_1
Topikgazda
A J1:J6 tartományba írtam be a keresendő neveket. Az If WF kezdetű sorban ezt írd át (2 helyen) a saját neveidet tartalmazó területre.
Sub torlesek()
Dim LR As Long, i As Long, WF As WorksheetFunction
Application.ScreenUpdating = False
Set WF = Application.WorksheetFunction
LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = LR To 2 Step -1
If WF.CountIf(Range("J1:J6"), Range("B" & i)) + WF.CountIf(Range("J1:J6"), Range("C" & i)) = 0 Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
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.
-
aclandiae
senior tag
Sziasztok!
Office 2016-ban szeretnék úgy nyomtatni, hogy oldalszámok kerüljenek a lapok aljára (mint a Word-ben).
Végignéztem a nyomtatási beállításokat, de nem szúrja ki a szememet.Ezt a formátumot szeretném: - 1 - és így tovább a számozás.
Hol tudom beállítani?
-
addikt
Sziasztok,
SOAP kapcsolatom paraméterezésével van gondolom. MNB árfolyamokat akarok lekérdezni, de a weboldalon nem találtam épkézláb segédletet hozzá. PHP/Java példa van, de szerintem azzal itt nem sokra megyek!
Public Sub MNB_arfolyamok()
Dim sURL As String
Dim sEnv As String
Set objHttp = CreateObject("MSXML2.XMLHTTP")
sURL = "http://www.mnb.hu/arfolyamok.asmx?wsdl"
sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope"">"
sEnv = sEnv & " <soap:Header>"
sEnv = sEnv & " <soap:Body>"
sEnv = sEnv & " <soap:Request>"
sEnv = sEnv & " <soap:GetCurrentExchangeRates></soap:GetCurrentExchangeRates>"
sEnv = sEnv & " </soap:Request>"
sEnv = sEnv & " </soap:Header>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
objHttp.Open "GET", sURL, False
objHttp.setRequestHeader "Content-Type", "text/xml"
objHttp.send sEnv
MsgBox objHttp.responseText
End Sub -
Kobe
veterán
válasz Delila_1 #37372 üzenetére
kipróbáltam, köszi.
Sajna ennél a sornál elhasal:
If WF.CountIf(Range("J1:J6"), Range("B" & i)) + WF.CountIf(Range("J1:J6"), Range("C" & i)) = 0 Then
Ez egy xlam file, amiben van egy rejtett workbook (ThisWorkbook), illetve egy rejtett Worksheet (Usernames).
Azt csináltam, hogy a userneveket erre a rejtett worksheet A oszlopába írtam, A2:A7 mezőkbe listáztam, majd a makróval a hivatkozást átírtam:If WF.CountIf(Worksheets("Usernames").Range("A2:A7"), Range("B" & i)) + WF.CountIf(Worksheets("Usernames").Range("A2:A7"), Range("C" & i)) = 0 Then
így viszont nem tudja lekezelni. Lehet mert rejtett? (szeretném xlam formátumban tartani a dolgot)
-
0P1
aktív tag
Szia, jól értem, hogy Excelbe akarsz MNB árfolyamokat lekérdezni? Akkor miért SOAP-pal próbálkozol, miért nem inkább az Excel Get&Transform-ot (Adatok beolvasása és átalakitása) használod ? Azzal szerintem sokkal egyszerűbb, mint SOAP-al és VBA-val szenvedni. . Úgy alakitod, ahogy akarod, úgy paraméterezed, ahogy akarod, be tudod joinolni egyéb querykbe, és akkor ki se kell dobnod munkalapra, akár a Data Modelbe be tudod olvasni, stb ...
Ha megirod, konkréten milyen paraméterezéssel akarod meghivni és milyen formában szeretnéd megkapni a kimenetet,akkor tudok segiteni. Ha ragaszkodsz a SOAP-hoz, abban sajnos nem tudok, én is próbálkoztam vele pár éve, de pár órás próbálkozás után hagytam az egészet a fenébe, inkább Get&Transform-mal pár perc alatt összedobtam, amit akartam
-
Delila_1
Topikgazda
válasz Cilindrik #37381 üzenetére
Színek szerint nem, de az elválasztó | karakter szerint a Szövegből oszlopok menüponttal igen. Sajnos ez annyi oszlopba dobja szét az adataidat, ahány | karaktert talál benne.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kobe
veterán
válasz Cilindrik #37381 üzenetére
Adat - Szovegbol oszlopok
Ott a fuggoleges specko karaktert beadod separatornak es szetszedi (de space alapjan is szetcsapja, csak minden szot kulon oszlooba). Ha az egyszinueket egy oszlopba akarod rakni akkor szetszedes utan raeresstesz egy CONCATENATE fuggvenyt a fekete szoveges oszlopokra, meg egyet a pirosakra
-
Kronk
őstag
Sziasztok,
Két win 10-es gép is a következőt csinálja.
Office 2007 van rajtuk, és bármit indítunk el, excel, word, outlook, kiírja, hogy konfigurálás állapota, kicsit telepítget, mintha most települne fel, kb 1 perc, majd elindul.
És ezt minden program indításánál.
Sejtésem szerint valami windows 10 frissítés okozza.
Találkoztatok már ilyennel?Köszönöm előre is!
http://totesz.myminicity.com/
-
alfa20
senior tag
Sziasztok!
Meg lehet valahogy oldani, hogy az FKERES-nek egy celle értéke adja meg a kereső tábla munkafüzet nevét?
Pl:
=FKERES(A2;Március!A:B;2;0)
A képletben lévő "Március"-t az I2-es celléból venné
A fülek amiből keresni kell azok havi neveken szerepelnek.Köszi előre is!
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
oke
senior tag
Sziasztok!
Technikai kérdés magának az excel felületének kinézetére vonatkozóan: hogy lehet a menüszalag betüinek a méretét növelni? Excel 2007
-
ppapp44
újonc
Sziasztok!
Excel 2013 VB6-ban egy user form-on levő változót szeretnék globálissá tenni. Megtettem itt (a user form code-ban) a "Thisworkbook"-ban és ott is ahol a moduljaim vannak. Mindenhol a SUB-ok előtt ("public muszak as string"). Egyszerűen nem látom sem a modulokban sem másik user formokon. Ahogy visszakerülök az adott form-ra persze megjelenik.
Mi lehet a baj?
Segítséget előre is köszönöm. Üdv
Péter -
Fferi50
őstag
válasz ppapp44 #37391 üzenetére
Szia!
A publikus változókra a Modulnév.Változónév szintaxissal hivatkozhatsz.
Pl. Thisworkbook.Ezavaltozo = "akarmi" vagy Module1.Valtozo=5
Ezt akkor is tanácsos betartani, ha éppen az adott modulon vagy formon belül vagy mert ugyanazon név előfordulhat eljáráson belül is.
Érdemes átnézned a VBA help változók élettartamára vonatkozó leírását.Üdv.
-
ppapp44
újonc
válasz Fferi50 #37392 üzenetére
Köszi a választ. Nem tudom, hogy ez baj-e vagy sem, de ez egy userform-on van (ami egyébként szerintem egy modul) nem modul-ban. A "userform10.muszak" valóban szintaktikailag elfogadott. de a változó nem kap értéket. Olyan mintha nem válna globálissá sehogy sem a userform-on. Üdv
Péter -
spe88
senior tag
Sziasztok!
Adott az alábbi tábla:
1 gd 0 #HIÁNYZIK
2 bcx 1 gd
3 hf 3 hf
3 bd54t 4 fv
1 sdg 6 #HIÁNYZIK
1 qwef 7 dsfg
7 dsfg 10 yvxc
4 fv 21 yxcv
9 vy 40 #HIÁNYZIK
10 yvxc #HIÁNYZIK
10 cv #HIÁNYZIK
3 yxcv #HIÁNYZIK
2 yxcv #HIÁNYZIK
4 yxcv #HIÁNYZIK
15 yxcv #HIÁNYZIK
16 yxcv #HIÁNYZIK
17 yxcv #HIÁNYZIK
18 yxcv #HIÁNYZIK
19 yxcv #HIÁNYZIK
20 yvxc #HIÁNYZIK
21 yxcv #HIÁNYZIKHogy tudom azt megadni, hogy a D oszlop adott sorában dobja ki a B oszlop adott sorát, ha az A oszlopban szerepel a C oszlop bármelyik száma? Itt a bármelyiken van a hangsúly és azon, hogy az adott sorban dobja ki. Sima Fkeressel a fenti összefüggést kaptam de nekem ilyenre volna szükségem:
1 gd 0 gd
2 bcx 1
3 hf 3 hf
3 bd54t 4 bd54t
1 sdg 6 sdg
1 qwef 7 qwef
7 dsfg 10 dsfg
4 fv 21 fv
9 vy 40
10 yvxc yvxc
10 cv cv
3 yxcv yxcv
2 yxcv
4 yxcv yxcv
15 yxcv
16 yxcv
17 yxcv
18 yxcv
19 yxcv
20 yvxc
21 yxcv yxcvköszi
Spóroljunk! Kerül, amibe kerül!
-
Fferi50
őstag
válasz ppapp44 #37393 üzenetére
Szia!
"de a változó nem kap értéket. Olyan mintha nem válna globálissá sehogy sem a userform-on"
A userform kódlapján definiált változó csak akkor és addig él, amíg a form a memóriában van! Tehát betöltés előtt és Unload után már nem érhető el, akkor sem, ha Public.
Ezért ezeket a változókat is célszerű általános modulban deklarálni és a userform kódjában értéket adni nekik.Üdv.
-
Fferi50
őstag
válasz Cilindrik #37385 üzenetére
Szia!
Az alábbi makrót írd be egy általános modulba:
Sub szinvalaszt()
Dim cl As Range, xx As Integer, rang2 As Range, yy As Long
If Selection.Columns.Count > 1 Then
MsgBox "Csak egy oszlopot tudok kezelni, egy oszlopot jelölj ki csak!", vbInformation
Exit Sub
End If
Set rang2 = Selection.Offset(0, 2) ' a kettővel arrébb levő oszlopba fogja tenni az eredményt, ha közvetlenül mellé szeretnéd, akkor Offset(0,1)-et írj.
For Each cl In Selection.Cells
yy = cl.Characters(1, 1).Font.Color
For xx = 1 To cl.Characters.Count
If cl.Characters(xx, 1).Font.Color <> yy Then
rang2.Cells(cl.Row, cl.Column).Value = Left(cl.Text, xx - 1)
rang2.Cells(cl.Row, cl.Column + 1).Value = Mid(cl.Text, xx)
rang2.Cells(cl.Row, cl.Column).Font.Color = yy
rang2.Cells(cl.Row, cl.Column + 1).Font.Color = cl.Characters(xx, 1).Font.Color
Exit For
End If
Next
Next
End SubArra képes, hogy bármilyen két színnel készült szöveget szétszedjen 2 oszloppal arrébb, az eredeti színek megtartásával.
Kijelölöd az adott 1 oszlopban levő szöveget, majd elindítod a makrót - fejlesztőeszközök - makrók - inditás.Üdv.
-
Fferi50
őstag
-
ppapp44
újonc
válasz ppapp44 #37393 üzenetére
A korábban definiált public változóim működnek (modul hivatkozás nélkül), de a ma felvett egyszerűen nem. Már cserélgettem a nevet, a tipust (as string, as variant)a definiálás helyét (Thisworkbook, userform, modul). Használtam Feri hivatkozását "modul2.változó", valóban "userform10.muszak", de így sem látom máshol (msgbox muszak) csak a userform-on belül. (Egyébként ez valóban jó ötlet.)
Hogyan tudom ellenőrizni, hogy a VB milyen típusnak tart egy változót?
Létezhet darabszámi korlátja a (global) változóknak????
Előre is köszi Péter
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Politika
- Ukrajnai háború
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Robot fűnyírók
- Energiaital topic
- Melyik tápegységet vegyem?
- Nálunk is telepíthető a One UI 6.1 a Galaxy S22-re
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Egyre közelebb a Poco F6 startja
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen