- OpenWRT topic
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- Facebook profil letiltás kapcsolt ismeretlen Instagram fiók miatt
- Az IMF szerint cunamiként csap le a munkaerőpiacra az AI
- Bittorrent topik
- Sweet.tv - internetes TV
- ArchiCAD és Artlantis topik
- A streamingszolgáltatások összecsomagolása lehet a következő divat
- Proxmox VE
- ASUS RT-AC68U
-
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
-
m.zmrzlina
senior tag
Van egy makróm ami egy emailben html formátumban érkező adathalmazt illeszt be Excelbe vágólapról. A felhasználó a levéltörzset kopizza majd Excelben elindítja a makrót. Az Excel megcsócsálja feltételesen formázza majd a sokkal áttekinthetőbben mint az eredeti formátumban volt megjeleníti .
Van benne az elején egy ilyen sor:
AcvieSheet.PasteSpecial Format:="Szöveg", Link:=False, DisplayAsIcon:=False
Korábban minden felhasználó magyar Excelt használt de szép lassan mindenki áttér angolra. Az angolos változatnál a következő sor működik:
AcvieSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
A kérdésem, hogy a Format argumentumot meg lehet-e adni másképpen (pl számmal) amit mindkét verzió megért.
Ne kérdezd miért ezt a megoldást használtam, régen csináltam.
"Fiatal voltam kellett a pénz"[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz m.zmrzlina #31651 üzenetére
Próbáld így: NumberFormat = "@"
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Fferi50
őstag
válasz m.zmrzlina #31651 üzenetére
Szia!
Szerintem az
Application.LanguageSettings.LanguageID(msoLanguageIDUI)=msoLanguageIDHungarian
lekérdezés megadja, hogy magyar vagy sem a beállítás, ettől függően állíthatod be a form paramétert "Szöveg" vagy "Text" értékre.
pl.
paramforma=iif(Application.LanguageSettings.LanguageID(msoLanguageIDUI)=msoLanguageIDHungarian,"Szöveg",'Text")
Activesheet.Pastespecial Format:=paramforma stb.Üdv.
[ Szerkesztve ]
-
Brandynew
őstag
Sziasztok,
Korreláció számításban szeretném kérni a segítségeteket.
Egy bizonyos dolog hasznosságát 1-5-ig értékelhették az emberek (1=egyáltalán nem hasznos, 5=nagyon hasznos). Vannak a férfiak, akik 1-es számot kaptak a táblázatban és vannak a nők, akik 0-át.
Korrelációt vontam a kitöltők neme és aközött, hogy ki hány pontra értékelte az 1-5-ös skálán a dolog hasznosságát.
Ha a korrelációra az jött ki, hogy mínusz 0,34, az mit jelent? Azt, hogy a férfiak kevésbé ítélik hasznosnak a dolgot, vagy azt, hogy a nők ítélik kevésbé hasznosnak?
-
Lajos.P
csendes tag
Üdv.
Tud valaki olyat csinálni ha rálépek egy cellára akkor az automatikusan beírja a jelenlegi dátumot?
Hálás lennék a megoldásért.
Köszönöm. -
Delila_1
Topikgazda
válasz Lajos.P #31662 üzenetére
Akkor ez lesz jó. A laphoz rendeld, ahogy a Téma összefoglalóban olvashatod.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Cells(Target.Row, 1) = Date
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.
-
JagdPanther
aktív tag
Sziasztok!
Segítsetek légyszi, a következőre szeretnék makrót írni.Ráállok egy cellára, és az adott sor 4. 5. és 10. cellájában levő szöveg után "Alt+Enter"-el egy-egy új sort beszúrni.
Valahogy sehogy sem tudom megoldani, hogy a meglévő szöveg megmaradjon, és csak egy új sorral gazdagodjon a cella.
-
edari
őstag
válasz JagdPanther #31673 üzenetére
Kattints bele vagy állj rá a cellára, nyomj egy f2-t, menj a sor végére, és ott nyomj alt+entert.
-
edari
őstag
válasz JagdPanther #31675 üzenetére
Ja, az kimaradt hogy makró kéne rá. Bocsi.
-
Delila_1
Topikgazda
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(Target.Row, 4) = Cells(Target.Row, 4) & Chr(10)
Cells(Target.Row, 5) = Cells(Target.Row, 5) & Chr(10)
Cells(Target.Row, 10) = Cells(Target.Row, 10) & Chr(10)
End SubHa a "rállás" helyett bevitelre szeretnéd a sortörést a meghatározott cellákba, a címből töröld a Selection részt.
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 JagdPanther #31678 üzenetére
Private Sortores()
Cells(Selection.Row, 4) = Cells(Selection.Row, 4) & Chr(10)
Cells(Selection.Row, 5) = Cells(Selection.Row, 5) & Chr(10)
Cells(Selection.Row, 10) = Cells(Selection.Row, 10) & Chr(10)
End SubBeviszed ezt egy modulba (lásd Téma összefoglaló).
A füzetben Alt+F8-ra megjelennek a makróid. Kiválasztod a Sortores nevűt, Egyebek gomb. Ott megadhatod a bill. kombináció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 JagdPanther #31680 üzenetére
Töröld ki az első makró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.
-
Fferi50
őstag
válasz JagdPanther #31680 üzenetére
Szia!
Private SUB Sortores()
A SUB kulcsszó hiányzik a makró elejéről.
Üdv.
-
Delila_1
Topikgazda
válasz JagdPanther #31684 üzenetére
Bocsi az elírásért!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Dr V
őstag
Sziasztok!
Egy táblázatban szereplő adatokat szeretném a power querryvel lekérdezett adatokkal feltölteni.
A cellában van egy megnevezés, pl "sárga körte", a querrys táblázatban a "sárga"-hoz tartozik egy érték. Én a táblázatban a "sárga"-nál szereplő értéket szeretném képlettel beírni a táblázatomba.
Tehát a képlet a cellában keressen meg egy adott értéket, amit a másik táblázatban szereplő értkéhez tartozó számot adja eredményül, a megadott érték alapján. -
Ded&Dad
újonc
Van egy tablazat egy millionyi adattal es csinaltam hozza egy nyitooldalt szuronek. 4 feltetel szerint lehet leszurni az adatokat. A kod az elso kettore vonatkozik jelen esetben. Az lenne a problemam hogy 1. szuresi teltetel nelkul nem tudok fuggetlenul szurni a 2. feltetellel. Az lenne a kerdesem hogy ezt valahogy at lehet hidalni anelkul hogy az 1-ben beallitok egy folyamatnevet es a masodik ban a hozza tartozó azonositokat dobja ki. Ha viszont nem szeretnek folyamatnevvel szurni hanem azonositoval akkor azt is csinálja meg. Elore is koszi a segitseget!
-
Ricardo128
aktív tag
gölmétcsül ©
-
stigma
addikt
Sziasztok!
Egy jó kis kérdésem lenne, amivel pár órája szenvedek de nem tudom a megoldást.
Azt kellene csinálni a makrónak, amit írtam, hogy egy excel fájl, bizonyos munkalapján szeretném egy bizonyos területet levédeni, hogy már írni ne lehessen bele.
Próbálkoztam az alábbi programkóddal:With Workbooks(aktwb).Sheets(aktsht).Range(Cells(i, 5), Cells(i, 15))
.Locked = True
'.Protect Password:="admin" ', UserInterfaceOnly:=True
'.Protect Password:="admin", DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True
End With
'ActiveSheet.Protect UserInterfaceOnly:=TrueBajom annyi jogy ezzel az aktív munkalapok titkosítom , és bármely más cellába szerenék írni nem engedia makró.
Egész feladatom az alábbi , amiből már a 90%éát megcsináltam. (mi más mint EB-s meccsek kiértékelése)
Adott egy táblázat, melyben minden sorban található a melyik meccs lesz az EB-n, mellette egy dátum formátum. A makróm úgy müködik hogy a minden Excel nyitáskor lefut (Workbooks.open()) a makró és megnézi hogy a meccs már volt -e, tehát lejátszották, mert ha igen, akkor aki tippelt rá, ne tudjon modosítani.
....iPhone 13 / iPad 9th Gen. Wifi 64GB...
-
tzimash
őstag
Sziasztok,
Adott egy táblázat, oszlopok A-G-ig. A sorok száma változó, kb 2-3ezer. Egy olyan makrót szeretnék rá írni, ami a H oszlopban kiírja a az előtte lévő 4 cella (D:G) összegét, az összes sorban természetesen. Az a gondom, hogy a H oszlop még üres...
Jól gondolom, hogy meg kell keresni a nem üres cellák utolsó sorát, ezt elmenteni egy változóba, és ezt a változót felhasználni később? -
Delila_1
Topikgazda
válasz stigma #31689 üzenetére
Private Sub Workbook_Open()
Sheets("Munka2").Protect Password:="admin", UserInterfaceOnly:=True
Sheets("Munka2").Range("I5:I15").Locked = True
End SubAz első sor a makróból engedi a Munka2 lap módosítását, a 2. sor zárolttá teszi a tartományt.
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 tzimash #31690 üzenetére
Igen, jól gondolod. a Képletet 1 lépésben megadhatod az össze sorodra.
Sub Osszegez()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("H2:H" & usor) = "=SUM(A2:G2)"
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.
-
TBMC
addikt
sziasztok!
oly kérdésem, segítségre lenne szükségem, létezik e olyan képlet miszerint:
pl:
A1 és A2 illetve B1 és B2 cella értéke megegyezik akkor a C1 és C2 cellában található értékeket összeadja?Értem ezalatt A oszlopban megnevezések, B ben kiszerelések, C ben pedig darabszámok vannak.
Előre is hálás köszi!
markbellus.hu
-
TBMC
addikt
válasz föccer #31698 üzenetére
hálás köszi gyors válaszod!
próbáltam, viszont még 1-2dolgot nem értek bocsi ha esetleg tudnál segíteni nagyon megköszönném:
mutatok egy részletet belőle úgy egyszerűbb:tehát ha több cellában is ugyanaz az érték akkor nem adja össze megfelelően
illetve "ha nem ugyan az a két érték akkor nem egyenlőek" - ez sajna azért nem jó mert van amiből csak 1db van a táblázatban és ott saját magát ki kellene írnia.(A oszlop cikkszám, B oszlop megnevezés, C oszlop db szám)
remélem sikerült érthetően leírnom és előre is nagyon köszönöm!
markbellus.hu
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen