-
Fototrend
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élisten
válasz Fire/SOUL/CD #5899 üzenetére
Szóval a lemeradt link: [link]
Fire.
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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5901 üzenetére
Ezzel az a baj, hogy csak a Microsoft ízlésének megfelelő képeket választhatom. Pedig a makróim egyértelműen olyan célokat szolgálnak, amit MS-ék nem nyújtanak nekem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #5902 üzenetére
Hali!
Sajnos ez nem megoldható, kicsit elgondolkodtam és rá is eszméltem.
Hiába készítenél egy saját ikokollekciós feltételes formázást, nem lenne hordozható a munkafüzet, azaz egy másik gépen/excelen nem jelennének meg a saját ikonok, hisz az excel tábla ezt nem menti(magát az ikonok képadatait) csak az indexüket. Szóval ez nem nyert. Olvastam a 2010-esről de nem utal rás semmi, hogy változna a helyzet...Fire.
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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5903 üzenetére
Köszönöm, hogy fáradtál vele. Kénytelen leszek a makrók tartalmához nem illő képeket illeszteni az ikonokhoz. (Hordozni nem akarom, csakis a saját gépemen használom a makrókat, a personal.xls-ben vannak)
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
Köszönöm.
A régebbi verziókban már régóta használom a saját készítésű ikonokat. Természetesen arra mindig szánok időt, ami a munkát gyorsítja. Igen, szegényes a színpaletta, de még ezekkel is kifejező rajzokat lehet létrehozni.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
Hali!
Hol van ez pontosan a 2003-ban? Mert keresgéltem a 2007-ben, de nem igazán találok ilyet, de vagy balfék vagyok, vagy tényleg nincs benne...
Fire.
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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5907 üzenetére
A Testreszabás menü legyen megnyitva. A kérdéses ikonon jobb klikk, Gombkép szerkesztése.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #5908 üzenetére
Hali!
Nem lelem.
2007-ben ez van: [link], a megjelenő ablakban meg ez[link].Itt hiába kattogtatok jobb egérrel, nem törpénik semmit.
globális beállításokban van testreszabás menü, de ott meg azt lehet beállítani(többek közt), hogy milyen gyorsindító ikonok jelenjenek meg az ún. Ribbon-on...
Fire.
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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5909 üzenetére
A 2003-ban nem találod?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #5910 üzenetére
Hali!
Nem használok 2003-at, a 2007 megjelenése pillanatától...
Csak érdekelt volna, hogy van-e ilyen lehetőség a 2007-ben, mert még nem találkoztam vele.(igaz, nem is kerestem)2003-al dolgoztam persze, de teljesen elfelejtettem a menürendszerét, a 2007 új felépítéséből adódóan. Sajnos nem lehet párhuzamot vonni a kettő közt, pl testreszabás menü...
Fire.
[ 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)
-
ulrik19
tag
Ti egyről beszéltek egyébként? Mert nekem úgy tűnik, Feltételes formázás vs. Makróikon a "téma". Vagy valamit rosszul olvasok?
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
Delila_1
Topikgazda
válasz Aprósólyom #5914 üzenetére
Szívesen, de ha lehet, máskor gyorsabban reagálj!
A formázást nem akarod automatizálni a sok-sok lapon?
[ 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.
-
sonar
addikt
Egy excel makróba irt mysql kapcsolódás és egy egyszerű query mintát tud vki becopyzni?
Amit eddig találtam azok nem igazán működnek.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
ulrik19
tag
Kell hozzá a Microsoft ActiveX Data Objects 2.8 Library (Tools/References).
Értelemszerűen adatbázisnév, felhasználónév és jelszó a ConnectionString-ben. Illetve ugyanitt meg kell adni az adott MySQL ODBC driver-t. (Nálam 5.1, de az adott gépen persze lehet más. Ha rosszat adtok meg, nem találja meg.)
Ebben a példában 3 mezőt ad vissza a lekérdezés, aztán minden visszaadott adatot kinyom az első sheet-re. Profin persze kellene bele hibakezelés stb.
Option Explicit
Public conn As ADODB.Connection
Public rs As Recordset
Public sh1 As Worksheet
Public SQL As String
Public Sub mySQL_kapcsolat()
Dim c As Integer
Set sh1 = Excel.Worksheets(1)
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost; DATABASE=adatbazisnev;UID=anonymus;PWD=; OPTION=3"
conn.Open
SQL = "select * from tbl_tablanev"
rs.CursorLocation = adUseServer
rs.Open SQL, conn
rs.MoveFirst
c = 1
Do Until rs.BOF Or rs.EOF
sh1.Cells(c, 1).Value = rs.Fields(0)
sh1.Cells(c, 2).Value = rs.Fields(1)
sh1.Cells(c, 3).Value = rs.Fields(2)
rs.MoveNext
c = c + 1
If rs.EOF Then
rs.MoveFirst
Exit Sub
End If
Loop
End Sub[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
-
félisten
Hali!
Látom ulrik19 kolléga megelőzött, de ha már én is megírtam, akkor be is rakom. Ez Microsoft ActiveX Data Objects 6.0 Library bővítménnyel és adatkapcsolattal, valamint mysql connector ODBC bővítménnyel megtámogatva van elkészítve. Természetesen kifogástalanul működik. Egy excel_mysql nevű adatbázis, test nevű tábláján megy végig és írja ki sorban a mezőket.
Private Sub CommandButton1_Click()
Dim FSCD_SQLConnection As ADODB.Connection
Dim FSCD_Recordset As ADODB.Recordset
Dim FSCD_SQLConnectionString As String
Dim FSCD_SQLCommand As String
Dim FSCD_MYSQL_Table As String
On Error GoTo FSCD_ErrorHandler
FSCD_MYSQL_Table = "test"
FSCD_SQLConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;" & _
"User ID=root;Extended Properties='';DSN=Excel_MySQL_Tutorial;" & _
"UID=root;SERVER=127.0.0.1;DATABASE=excel_mysql;PORT=3306;'';" & _
"Initial Catalog=excel_mysql;Initial Catalog=excel_mysql"
Set FSCD_SQLConnection = New ADODB.Connection
FSCD_SQLConnection.ConnectionString = FSCD_SQLConnectionString
FSCD_SQLConnection.Open
FSCD_SQLCommand = "SELECT * FROM " & FSCD_MYSQL_Table
Set FSCD_Recordset = New ADODB.Recordset
FSCD_Recordset.Open FSCD_SQLCommand, FSCD_SQLConnection
FSCD_Recordset.MoveFirst
While Not FSCD_Recordset.EOF
MsgBox FSCD_Recordset.Fields("mező1").Value
MsgBox FSCD_Recordset.Fields("mező2").Value
FSCD_Recordset.MoveNext
Wend
FSCD_Recordset.Close
FSCD_SQLConnection.Close
Exit Sub
FSCD_ErrorHandler:
MsgBox "Error:" & Err.Description, vbCritical, "Fire/SOUL/CD"
End SubFire.
[ 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)
-
Cuci3
tag
Úgy érzem "jól" kezdődik az év. VBA-ban utolért a végzet, és ezt a bájos "Proceed too large" üzenettel közölte felém. A kód széttördelésén kívül van valakinek egyéb megoldási javaslata? Előre is köszi!
-
félisten
Hali!
. Az MS elég egyértelműen fogalmaz: [link]
Arról nem tudok, hogy valami registry-s trükkel vagy egyéb módon lehetne-e magasabbra állítani a 64k/procedúránként limitet.Fire.
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)
-
Cuci3
tag
válasz Fire/SOUL/CD #5924 üzenetére
Netes kutatás alapján én is ezt állapítottam meg, úgyhogy maradt a szétvágás.
Azért köszi! -
Z-Tom-ee
csendes tag
Sziasztok.
SOS szükségem lenne egy kis segítségre 2007-es excelben. Igazából nem tudom, hogyan lehetne rákeresni a problémára, ezért is próbálok itt informálódni. (pár kulcsszót kipróbáltam már, de nem találtam érdemi anyagot)
Egy naptárat kell készítenem, különböző funkciókkal. Ez nem is gond eddig. A hiba ott kezdődik, hogy az aktuális napot ki kell jelölni a teljes évből. Feltételes formázással ez megy is, de azt szeretném megoldani, hogy az excel ugorjon is rá erre a kijelölt cellára. Tehát ha már az év közepén tartunk, és az adott nap már nem látszana - mert olyan hosszú a lista, hogy "kilóg" a képernyőről - akkor is valahogy kerüljön az aktuális nap valahogy a képernyőre. Lehetőleg ne makróval, mert több kolléga gépén is futni fog majd a program, és sok helyen le vannak tiltva ezek a funkciók. (egy tavalyi excelben valahogy ezt megoldották, de nem tudom, hogy, és az még 2003-asban íródott)
Előre is köszönöm a segítséget!T
-
Delila_1
Topikgazda
válasz Z-Tom-ee #5926 üzenetére
Ezt csak makróval lehet megoldani szerintem. Míg nem jön jobb megoldás, itt a makró hozzá:
Sub auto_open()
Dim dátum As Date
dátum = Date
Sheets("Munka1").Select
Cells.Find(What:=dátum, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End SubFontos, hogy auto_open legyen a címe, mert az ilyen nevű makró a füzet behívásakor automatikusan indul.
A Sheets("Munka1").Select sorban a saját lapod nevét írd be.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szavapart
csendes tag
Sziasztok!
Lenne nekem is egy kérdésem.
Tehát: Van egy oszlop, amely dátumot és időt tartalmaz ÉÉÉÉ.HH.NN ÓÓP formátumban, de csak az óra, percre lenne szükségem. Levágni (JOBB,BAL) nem sikerült, mert rögtön átalakítja számmá. IDŐ függvény látszólag megteszi, az oszlopban csak az óra perc látszik, de nem kereshető, mert valójában tartalmazza a dátumot is.
Bármi ötletet szívesen látok.
Előre is köszönöm. -
ulrik19
tag
-
Delila_1
Topikgazda
válasz szavapart #5928 üzenetére
Az A1 tartalmazza a dátumot és az időt.
A függvény, ami ezekből kiemeli az időt: =IDŐ(ÓRA(A1);PERC(A1);0)Mondjuk, hogy az A2-ben is van egy dátum és idő. A fenti függvény a B1-ben és a B2-ben kiemeli ezekből az időket.
Egy cellában tudsz számolni velük, például: =PERC(B2-B1)
Vagy: =IDŐ(ÓRA(B2-B1);PERC(B2-B1);0)[ 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.
-
kételkedem
addikt
válasz Delila_1 #5932 üzenetére
Szia!
Adott 5 üzlet. Az öt üzlet forgalmi adatait rendre a bolt1, bolt2...bolt5 fájlok tartalmazzák kb 6 évre visszamenőleg. Az egyes munkafuzetekben külön munkafüzet lapon vannak a hónapok. A táblázat sorait a hónap napjai adják, az oszlopokban a beszerzés, eladás, göngyöleg, selejt, forgalom stb vannak. Az oszlopok alján összeadva az egész hónap.
Kellett csinálnom egy éves összesítőt az elmult 3 évről évenkénti bontásban. A táblázatban a sorokat a boltok nevei adják, az oszlopokban pl az éves összes selejt van.
Manuálisan meg tudtam oldani, hogy adja össze az adott bolt havonkénti selejtjét, de ez nem igazán járható út, hiszen 3 év az 36 hónap, 5 bolt 10 forgalmi adatánál rengeteget kell kattintgatni.Makróval, vagy függvénnyel kellene megcsinálni, de sajnos pl makrót sosem írtam még és a függvényeknek is csak tördékét ismerem.
Remélem érthető amit összezagyváltam.
Ha igazad van, megengedheted magadnak, hogy megőrizd a nyugalmadat! °°XLIII°° "Isten, áldd meg a magyart" Kölcsey 1823
-
Delila_1
Topikgazda
válasz kételkedem #5933 üzenetére
Egy-egy füzeben az összes hónapról tudsz egy közös kimutatást készíteni [2003-as verzióban Adatok/Kimutatás vagy kimutatásdiagram/Több tartomány (összesítés)].
Ezeket összegyűjtöd 1 füzetben. Az is jó, ha az összesítő füzetbe értékként másolod be, és újabb közös kimutatást csinálsz belőlük.Milyen egyszerű leírni!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kételkedem
addikt
válasz Delila_1 #5934 üzenetére
Sajnos ez még mindig sok kattintás
Nem annál a gépnél vagyok amelyiken csinálnom kellett, de kb azt csináltam, amit a kimutatás készítő csinál. Ott is meg kell adni minden egyes cellát, amit figyelembe kell vennie.
Ha igazad van, megengedheted magadnak, hogy megőrizd a nyugalmadat! °°XLIII°° "Isten, áldd meg a magyart" Kölcsey 1823
-
Delila_1
Topikgazda
válasz kételkedem #5935 üzenetére
Úgy gondolom, hogy mindegyik füzetben minden lapra tennék egy oszlopot (ha nincs), ami tartalmazza a hónap nevét. Azt biztosan tudod, hogy a lapokat együttesen kijelölve egyszerre mindre beviheted az azonos adatokat. Jelen esetben egyszerre szúrhatsz be egy oszlopot, és a hónap oszlop fejlécét. Az egyes lapokon szintén kijelölöd az oszlopot (ameddig kell), az aktuális cellába beírod a hónap nevét, majd Ctrl+Enterrel a teljes oszlop minden cellájába egyszerre viszed be.
Az összevont kimutatás egy-egy füzetben ilyen alapon 12 sort fog tartalmazni, ehhez az kell, hogy a dátum oszlop legyen az első a lapokon.
A kimutatásba Ne vedd bele az összegző sort!
Az egyes lapokon a táblázatod bármelyik celláján állva a Ctrl+t kijelöli a teljes táblát, ez is gyorsíthatja a munkát, mikor az egyes lapokat hozzáadod a kimutatáshoz. Vigyázz, a kimutatásba Ne vedd bele az összegző sort![ 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.
-
Delila_1
Topikgazda
válasz kételkedem #5937 üzenetére
Azért írtam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
ulrik19
tag
válasz ArchElf #5940 üzenetére
hmmm, én nem ismertem ezt a mókát, de jópofa dolog.
arról van szó, amikor egyszerre akarok sok sorban lévő adattal dolgozni, és kell mondjuk egy végösszeg (ami mondjuk összegez egy sorban néhány cellát, majd ezeket kell soronként összegezni).
pl. vannak termékek egymás alatt, az oszlopokban a heti forgalmak.
kell a totál árbevétel. akkor pl. csinálok minden sor végén egy összesítést, majd ezeket az utolsó sorban összegzem.
de, megy ez a CSE (cltr-shift-enter) módon, hogy az adatokat tömbként kezelem.
mondjuk így:
A oszlop: terméknevek
B oszlop: 1. hét
C oszlop: 2. hétösszegző képlet: =SZUM(B1:B100+C1:C100)
ha ennek a végén entert ütsz, hibát jelez, de ha CSE-t,
akkor ott az eredmény.
a szum() helyett lehet bármilyen összegző függvény
(átlag, szórás stb),
az argumentum lehet összetett is,
pl. =SZUM(B1:B100+C1:C100*D1:D100)
itt a B-hez hozzáadatom a C és a D szorzatát.
tovább lehet ezt bolondítani egy HA()-val is
pl.=SZUM(HA(A1:A100="bélyeg";B1:B100+C1:C100*D1:D100))
amikor csak a bélyeg-eket összesíti.
egyébként képletnél {=...} jelenik meg, ebből látszik,
hogy tömbről van szó.[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
Cuci3
tag
válasz ulrik19 #5942 üzenetére
Csak annyit fűznék hozzá, hogy a CSE nem csak akkor kell, mikor a végösszegre vagyok kíváncsi. Például mátrixszorzásnál vagy tömbszorzásnál (MSZORZAT), ha nem akarok vacakolni képlettel, hanem függvénnyel akarom megoldani.
Legyen egy 2x3-as és egy 3x4-es mátrixom, ebben a sorrendben berakom az MSZORZAT-ba, majd az eredményt kijelölöm úgy, hogy egy 2x4-es mátrix/tömb első cellája legyen, F2+CSE, és fel van töltve az eredménymátrix.
Tudom, hogy ennél a bugyuta példánál jobb lenne a sima képlet. -
sonar
addikt
válasz Fire/SOUL/CD #5921 üzenetére
Köszi müxik!
Köszi ulrik19A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Pulsar
veterán
Sziasztok!
van egy ilyen egyszerű kódom.
Workbooks.Open Filename:="R:\Dell\Reporting\Production_Daily.xls"
Columns("A:G").Select
Selection.Copy
Windows("Book1").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("L13").Select
Windows("Production_Daily.xls").Activate
ActiveWindow.Closeahol azt szeretném elérni, hogy a Windows("Book1").Activate részben a Book1 ne Book1 legyen hanem minddig az ahonnan futtatom a macrot. Tehát a filest mindig el van mentve különböző néven, és a gondom az, hogy nem tudom hogy hivatkozzak rá, ha mindig más a neve.
-
Pulsar
veterán
ha esetleg nem érthető amire gondolok...
ha mondjuk a files neve konyv.xls akkor a 4. sorban a Windows("konyv").Activate legyen, de ha lementem a file-t konyvek névre akkor Windows("konyvek").Activate legyen.
Gondolom ezt valami változóval lehet megcsinálni, ahol a változó értéke a files neve kiterjesztés nélkül. Csak azt nem tudom azt hogyan csinálom meg -
Ramius
őstag
Üdv. Segítséget szeretnék kérni.
A problémám a következő: egy munkafüzeten belül van több munkalapom ugyanazzal a sablonnal. Minden lapon ugyanabban a cellába olyan képlet kellene ami az előző lap egy adott cellájának értékét, és az aktuális lap egy adott cellájának értékét összeadja. Az értékeket szintén képlet számolja ki. Meg lehet ezt oldani valahogy?gyakorlat teszi a mestert...tönkre...
-
félisten
Hali!
Ahhoz, hogy ezt megtehesd, az excel tábla útvonalából ki kell emelni a fájlnevet például. Az alábbi makró ezt teszi. (a fájl kiterjesztést törli) Aztán, hogy a kapott névvel új munkalapot hozol-e létre, vagy egy meglévőt átnevezel, az már rajtad áll.
Private Sub CommandButton1_Click()
Dim Excel_Filename As String
Dim Point As String
Dim BackSlash As String
Dim BackSlashPos As Integer
'értékadás
Excel_Filename = "c:\a\b\abcdefg.xlsx"
BackSlash = "\"
Point = "."
'található-e benne visszaper jel
BackSlashPos = InStr(1, Excel_Filename, BackSlash, vbTextCompare)
'jobbról balra megkeressük az első pontot(.), hisz addig tart a fájl kiterjesztése
'majd kitöröljük
For i = Len(Excel_Filename) To 1 Step -1
c = Mid(Excel_Filename, i, 1)
If c = Point Then
Exit For
End If
Next
Excel_Filename = Left(Excel_Filename, Len(Excel_Filename) - (Len(Excel_Filename) - i + 1))
'ha korábban nem találtunk benne visszaper jelet, akkor az azt jelenti
'hogy nem tartalmazott útvonalat, csak egy sima fájlnév, ez esetben nem kell
'megkeresni az első visszaperjelet ismét jobbról balra. (azaz magát a fájl nevét)
If BackSlashPos <> 0 Then
For i = Len(Excel_Filename) To 1 Step -1
c = Mid(Excel_Filename, i, 1)
If c = BackSlash Then
Exit For
End If
Next
Excel_Filename = Mid(Excel_Filename, i + 1, (Len(Excel_Filename) - i + 1))
End If
MsgBox (Excel_Filename)
End SubFire.
[ 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)
-
Pulsar
veterán
válasz Fire/SOUL/CD #5948 üzenetére
hm... bár még nem nagyon értem, de kérdezek...
és hogyna tudok erre hivatkozni később?Illetve az excel files nevet te adod meg itt: ???
'értékadás
Excel_Filename = "c:\a\b\abcdefg.xlsx"Mert nekem az nem jó...
nekem arra van szükségem, hogy amikor lefuttatom a makrót akkor nézze meg mi a files neve, mint ez:Function FileOrFolderName(InputString As String, _
ReturnFileName As Boolean) As String
' returns the foldername without the last pathseparator or the filename
Dim i As Integer, FolderName As String, FileName As String
i = 0
While InStr(i + 1, InputString, Application.PathSeparator) > 0
i = InStr(i + 1, InputString, Application.PathSeparator)
Wend
If i = 0 Then
FolderName = CurDir
Else
FolderName = Left(InputString, i - 1)
End If
FileName = Right(InputString, Len(InputString) - i)
If ReturnFileName Then
FileOrFolderName = FileName
Else
FileOrFolderName = FolderName
End If
End Function
Sub TestFileOrFolderName()
MsgBox FileOrFolderName(ThisWorkbook.FullName, False), , _
"This Workbook Foldername:"
MsgBox FileOrFolderName(ThisWorkbook.FullName, True), , _
"This Workbook Filename:"
End Subés tök jó is, csak nem tudom hogyan hivatkozzak a files névre a Windows("Book1").Activate Book1 helyett!
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office