- OnePlus 7 - magabiztos folytatás
- Huawei P30 Pro - teletalálat
- Itt az első kép a 2024-es Nokia 3210-ről
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Samsung Galaxy A55 - új év, régi stratégia
- iPhone topik
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Milyen okostelefont vegyek?
- Digitális detox a Nokiától
Hirdetés
-
Új Beats fej- és fülhallgatók jelentek meg
ma Frissítette a Solo termékcsaládot az Apple házi audiomárkája.
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
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
-
Delila_1
Topikgazda
A lenti makróval megnyithatod az ismeretlen útvonalon lévő, ismeretlen nevű fájlodat.
Sub FileBehuzas()
Dim FD As Object, FN As String
Set FD = Application.FileDialog(3)
With FD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
FN = ""
MsgBox "Nem választottál fájlt", vbExclamation
Exit Sub
Else
FN = .SelectedItems(1)
End If
End With
Workbooks.Open Filename:=FN
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.
-
szatocs1981
aktív tag
Ha "szabályjal" meg tudod adni, hogy a két file hol helyezkedik el, akkor szvsz lehet automatizálni a beolvasást.
Pl.:
- ha a könyvtár mindig azonos és csak ez a két file van benne
- ha a könyvtár mindig azonos és ez a két file mindig a két legutolsó modosított file
...
..
.
Ha valamilyen szabályt fel tudsz állítani, akkor VBA-ban is el tudod érni biztonsággal.
Delila_1 által vázolt módon (FileDialogBox) is megoldható!
(csak sokat kell klikkelni, amit én speciel nem szeretek ) -
poffsoft
addikt
megoldható hogy az adott fájlokat dragdopolod- láttam már ilyen makrót..
(#28105) TrollBalint: Nem bántásból, de én az R1C1 típusú hivatkozásokat értettem a hsz-ből.
Ha valóban csak "R1C1" hivatkozásai vannak, akkor működik a módszered, de egy csomó más miatt még mindig nem fog működni a képlete (mint említettem, "," vs ";" probléma mint szeparátor, de pl. a függvénynevek is.
Azt továbbra sem értem, hogyhogy nem konvertálódik a workbook megnyitáskor.[ Szerkesztve ]
[ Szerkesztve ]
-
Delila_1
Topikgazda
Saját függvénnyel megoldható.
Function Filename(nev As Range)
Dim bal As String, jobb As String, b As Integer
For b = Len(nev) To 1 Step -1
If Mid(nev, b, 1) <> "\" Then
jobb = Mid(nev, b, 1) & jobb
Else
Exit For
End If
Next
Filename = Left(nev, b) & "[" & jobb & "]"
End FunctionProgramozó: 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
A VBE-ben beteszed egy modulba. Ugyanúgy alkalmazhatod, mint az Excel függvényeit. Az fx ikonra kattintva bejön a felhasználói kategóriában, de a billentyűzetről is beviheted.
Ha pl. az A1-ben van a kapcsos zárójelek nélküli útvonal és név, egy cellában erre hivatkozhatsz.
=filename(a1)
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
=INDIREKT("'" & Munka1!C12 & "Munka1'!A1")
Az indirekt( után idézőjelek között egy aposztróf van.
Ha a funkcióban a Filename= Left ... elejére kiteszed az aposztrófotFilename= "'" & Left( ...
akkor az indirektesben lehagyhatod a "'" & 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.
-
poffsoft
addikt
új drag, 4. labellel, némi csinosítással : [link]
Amúgy ha vba ablakban vagy , Forms/dragdrop1 <jobbklikk>:
view code: a form makrólapja
view object: maga a form (most ezt keresed)ezután a főmenüben View/Toolbox : az userform vezérlőinek menüje.
Itt a nagy A lesz a label, azt kijelölöd, és rajzolsz egyet az userformba.[ Szerkesztve ]
[ Szerkesztve ]
-
cekkk
veterán
Sűrűn kellene, így automatizálni kellene, de én hülye vagyok hozzá
A lényeg, hogy van egy termék lista az A oszlopban(ez állandó) és van egy másik termék lista mondjuk C oszlopban(ez változik).
Az kellene vizsgálni, hogy A oszlop elemei megtalálhatóak-e C oszlopbanban ha igen akkor B oszlopban ír egy 1est és még azt kellene viszgálni, hogy a C oszlop elemei között van-e olyan ami nem szerepel az A oszlop elemei között és ha a feltétel igaz akkor azt kijelöli vagy D oszlopba ír valamit oda, mert így kitudm majd egészíteni az A oszlopot és nem kellene egyesével átnézni.
Mondjuk lehet a legjobb az lenne ha két munka füzeten lenne külön külön?Ebbe tudsz tud valaki segítani?
[ Szerkesztve ]
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
Ilyenkor zéróosztó eredményt kapsz.
Csinálj speciális- (régebbi verziókban irányított) szűrést, jelöld be a "Csak az egyedi rekordok megjelenítése" négyzetet. Az F2 képlete =DARAB2(D2:D7)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szatocs1981
aktív tag
{=ha(sor()>szum(szám(szöveg.talál(C$1;A$1:A$100))*1);"";index(B:B;kicsi(ha(szám(szöveg.talál(C$1;A$1:A$100));}sor($1:$100));sor(A1))))
Evvel mennie kell! Ez nem sima, hanem egy tömbképlet (ctrl+alt+enter a végén, {} nélkül!)
Nekem német nyelvü excelem van, így lehet a függvények neve nem egészen stimmel. Ha nem müködik, akkor azokat ellenörizd le! -
Delila_1
Topikgazda
Ilyen megoldásra gondoltál?
A B1 cella képlete
=HA(BAL(A1;3)="nok";KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;5)*1;"")
A KÖZÉP függvénynél biztonság kedvéért adtam 5-öt az utolsó paraméterhez, hátha hosszabb számok is lesznek a szöveg mögött.
[ 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.
-
szatocs1981
aktív tag
@Delila: azt irja, hogy két oszlopban vannak a kiindulási adatok!
Igen, nálam müködik.
azt elfelejtettem, hogy a C1-be ird be, hogy "nok".
idézöjel nélkül!és az elsö cellát amibe ezt bemásoltad, húz le, ameddig a vizsgálatot akarod megcsináltatni!
Amúgy "nekem semmi" az mit jelent? Hibaüzenet? vagy üres marad a cella?
[ Szerkesztve ]
-
Delila_1
Topikgazda
Itt egy saját függvény.
Function Megkeres(tartomany As Range, ertek As String)
Dim CV As Range
For Each CV In tartomany
If InStr(CV, ertek) Then
Megkeres = CV
Exit Function
End If
Next
Megkeres = "Nincs " & ertek & " a tartományban"
End FunctionA cellába beírod =megkeres(A1:A9;"nok")
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
A képletben a "nok" helyett egy cellahivatkozást írhatsz, ami a keresett szöveget tartalmazza, vagy az éppen keresendő karaktereket.
Nem kell "futtatni", hiszen ez egy függvény, olyan, mint bármelyik másik Exceles.
[ 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.
-
szatocs1981
aktív tag
OK, (talán) közben rájöttem.
D1-hez kellene bemásolni a függvényt, majd "lehúzni" a vizsgálandó cellák soráig. A csatolt képen én ugy veszem ki, hogy D12-nél indul. Így üresen marad minden....Talán...De az tuti, hogy D12-nél, a sor legvégén, az "A1" az nem stimmel, ott "A12"-nek kellene állnia.
[ Szerkesztve ]
-
-
poffsoft
addikt
nem pontosan értem a kérdést.
nem a vkeres() kellene neked?
=VKERES("*";A2:AA2;1;HAMIS)
A második sorban megkeresi az első nemüres cellát pl.
Meg azt sem értem, hogy a képlet honnan tudhatná, hogy most éppen angol, francia, kiszuahéli szöveget fog találni?
pontosítsd a kérdést, kérlek..[ Szerkesztve ]
[ Szerkesztve ]
-
bsh
őstag
-
Delila_1
Topikgazda
Tehát az E oszlopban legyen kiemelve az a cella, ami az A oszlopban megtalálható.
Akkor jelöld ki az E oszlopot, a feltételes formázásnál add meg a képletet:
=DARABTELI(A:A;E1)>0
és adj hozzá formátumot.
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
2007-es verziótól kezdve egyenként kijelölöd egérrel a négyzeteket a szűrőben, nem kell segédgomb.
Régebbi verzióban a szűrésnél az egyéni kategóriát választva ÉS-sel, vagy VAGY-gyal kapcsolhatod össze a feltételeket, összesen kettő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
A cellán állva a Képletek | Képletvizsgálat menüben az elődök-, vagy az utódok mutatása ikonra kattintva nyilak mutatják meg, hogy az aktív cella mikből számol, ill. melyik cellák használják az eredményé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.
-
spe88
senior tag
Megvan:
[/Option Explicit
Function HyperLinkText(rg As Range)
Dim sFormula As String, S As String
Dim L As Long
Dim H As Hyperlink, HS As Hyperlinks
sFormula = rg.Formula
L = InStr(1, sFormula, "HYPERLINK(""", vbBinaryCompare)
If L > 0 Then
S = Mid(sFormula, L + 11)
S = Left(S, InStr(S, """") - 1)
Else
Set HS = rg.Worksheet.Hyperlinks
For Each H In HS
If H.Range = rg Then
S = H.Address
End If
Next H
End If
HyperLinkText = S
End FunctionM]Spóroljunk! Kerül, amibe kerül!
-
róland
veterán
Most nincs előttem Excel, de pl. LibreOffice-ban (a táblázatkezelőjében is) lehet exportálni PDF-be a dokumentum kiválasztott lapjait. (Gondolom, ez MS Office-ban is működik már.)
http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!
-
bteebi
veterán
Valami ilyesmi.
Sub linkmasolas()
Dim hl As Hyperlink
sor = 1
For Each hl In ActiveSheet.Hyperlinks
Cells(sor, "D") = hl.Address
sor = sor + 1
Next hl
End SubEz a makró minden hiperhivatkozásnak a címét (tartalmát) a D1-es cellába, majd az alatta lévő cellákba másolja. A kigyűjtött linkeket pedig oda másolod, ahová akarod (akár txt-ként vagy csv-ként is elmentheted).
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
Magamtól azt mondtam volna rá, hogy igen, de a Google szerint lehetséges .
Ebből a makróból próbálj építkezni. A my_url-t neked nyilván nem kell megadnod, simán az előző makróból kapott hl-re hivatkozz. Amúgy pont ezen az oldalon ajánlanak egy Selenium nevű programot, azt is érdemes lehet megnézned. Majd írj a fejleményekről.
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
Nem kell függvény.
Kijelölöd a tartományt, amiben az üres cellák vannak. Ctrl+g-re bejön az Ugrás menü. Ott Irányított gomb, majd Üres cellák. Kijelöli az üres cellákat, amik közül az első lesz aktív. Nem szünteted meg a kijelölést, hanem beírsz egy 1-est, és Ctrl+Enterrel beviszed, egyszerre az összes kijelölt helyre.
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
Igen. Match függvénnyel megkeresed az oszlopot, és annak az utolsó kitöltött celláját. Kijelölöd a tartományt, és a
Selection.SpecialCells(xlCellTypeBlanks) = 1
sor már be is írja.
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
- Autós kamerák
- Bluetooth hangszórók
- Gumi és felni topik
- OnePlus 7 - magabiztos folytatás
- AMD Navi Radeon™ RX 6xxx sorozat
- gban: Ingyen kellene, de tegnapra
- Huawei P30 Pro - teletalálat
- Amlogic S905, S912 processzoros készülékek
- Eredeti játékok OFF topik
- Itt az első kép a 2024-es Nokia 3210-ről
- További aktív témák...