-
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
-
#7536
Fire/SOUL/CD
félisten
Delila_1
#7535
válasz
Delila_1
#7535
üzenetére
Hali!
Na, most "tértem magamhoz", de látom -mind azt sejtettem- kész a kód...
Bocsi, nem magam helyett akarlak "dolgoztatni", csak már nem volt akkor lelkierőm nekiállni...
Látom a Target Row és Column tulajdonságával határoltad be a D3 : D8 cellákat. Ennek egy hátránya lehet(de csak lehet), ha a munkafüzetbe sorokat/oszlopokat szúrnak be vagy törölnek ki, hisz ilyenkor a kódon is újra módosítani kell.
Épp ezért célszerű lenne a D3 : D8 cellákat tartományként kezelni és egy ilyen megoldást alkalmazni(X_TARTOMÁNY-nak neveztem el, ha tartományon belül duplaclick akkor szűr, ha tartományon kívül bárhol duplaclick, akkor nincs szűrés)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("X_TARTOMÁNY"), Range(Target.Address)) Is Nothing Then
Range("A11").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 1)
Selection.AutoFilter Field:=9, Criteria1:="="
Else
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=9
End If
End SubTermészetesen köszönöm az eddigi fáradozásodat, nem akarok "hálátlannak" tűnni, hogy így utólag még bele is "ugatok" a kódba, pusztán egy más megoldás...
Fire.
-
#7530
Fire/SOUL/CD
félisten
motinka
#7529
-
#7528
Fire/SOUL/CD
félisten
motinka
#7527
válasz
motinka
#7527
üzenetére
Hali!
Akkor nincs akadálya az Autoszűrőnek.
Jelöld ki az A11 : I11 cellákat és Adatok menü/Szűrő/Autoszűrő.Meg fognak jelenni lenyitható objektumok, a technikus nevénél nyisd le, válasz ki egy emberkét, ezután a munkalap számánál nyisd le és válaszd az ÜRES lehetőséget.
Így csak pl Kovács Sanyi sorai jelennek meg, de csak azok, ahol a munkalap száma ÜRES.
Fire.
-
#7526
Fire/SOUL/CD
félisten
motinka
#7525
-
#7524
Fire/SOUL/CD
félisten
Cuci3
#7523
Hali!
Ja ez más kérdés, szóval megoldható. Le kell kérni a már megnyitott munkafüzet(ek) teljes nevét az útvonallal együtt (Fullname). Ha még nincs megnyitva megnyitod csak olvasásra avagy sem. Az is lekérhető, hogy az épp megnyitott vagy már korábban betöltött munkafüzet az readonly avagy sem.
Private Sub CommandButton1_Click()
MsgBox (ThisWorkbook.FullName)
If ThisWorkbook.ReadOnly = True Then
MsgBox ("Csak olvasásra")
Else:
MsgBox ("Szerkeszthető")
End If
End SubFire.
-
#7522
Fire/SOUL/CD
félisten
Cuci3
#7521
Hali!
Azt Te döntöd el (ReadOnly paraméter), hogy csak olvasásra nyitod meg, ergó akkor tudod, hogy hogy "kell" elmentened.
(Pontosabban csak olvasásra megnyitott fájl esetén nincs mit menteni, hisz nem lehet módosítani sem)
Fire.
-
#7501
Fire/SOUL/CD
félisten
Delila_1
#7500
-
#7499
Fire/SOUL/CD
félisten
Delila_1
#7498
-
#7496
Fire/SOUL/CD
félisten
jasohn
#7495
-
#7494
Fire/SOUL/CD
félisten
jasohn
#7493
Hali!
Célszerű lenne megadni, hogy hányas Excel-t használsz...
2007
Excel gomb/Excel beállításai/Speciális/Jobb oldalt A kijelölt cellák az Excel lenyomása után áthelyezhetők elé tegyél pipát, lenyílóbó meg a Lefelé lehetőséget válaszd2003
Eszközök menü/Beállítások/Szerkesztés fül/Enter után továbblép elé pipa és szintés állítsd a lenyílóból Lefelé-reFire.
-
#7492
Fire/SOUL/CD
félisten
Delila_1
#7489
-
#7362
Fire/SOUL/CD
félisten
ALI_G
#7360
-
#7359
Fire/SOUL/CD
félisten
ALI_G
#7357
Hali!
Szakmailag nem helyes új sornak, meg enter karakternek nevezni, de egy átlag user így tudja mihez kötni, hogy pl az a karakter, ami akkor jelenik meg, ha a wordbe ütök egy enter billentyűt....
Helyesen ez új paragrafus, azaz bekezdés innen a ^p jelölés.
(Wordben enetertől enterig tart egy bekezdés)Fire.
-
#7348
Fire/SOUL/CD
félisten
Delila_1
#7346
-
#7345
Fire/SOUL/CD
félisten
ALI_G
#7341
Hali!
1. Word indít, txt fájl megnyit, doksi elejére állsz (CTRL+Home)
2. CTRL+H, keresett szöveg: "adatfajta 1: " , Csere erre: üresen marad, Összes cseréje
(A keresett szöveg idézőjelek nélkül, csak azért tettem bele, hogy lásd a végén a szóközt)3. keresett szöveg: "adatfajta 2: " , Csere erre: üresen marad, Összes cseréje
(A keresett szöveg idézőjelek nélkül, csak azért tettem bele, hogy lásd a végén a szóközt)4. keresett szöveg: "adatfajta 3: " , Csere erre: üresen marad, Összes cseréje
(A keresett szöveg idézőjelek nélkül, csak azért tettem bele, hogy lásd a végén a szóközt)5. keresett szöveg: ^p, Csere erre: ;, Összes cseréje
(Az enter karaktereket cseréljük pontosvesszőre)6. keresett szöveg: ;;, Csere erre: ;^p, Összes cseréje
(A dupla pontosvesszőket cseréljük, pontosvessző + enter karakterre)Fire.
-
#7344
Fire/SOUL/CD
félisten
Delila_1
#7343
-
#7342
Fire/SOUL/CD
félisten
Delila_1
#7339
-
#7337
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#7336
válasz
Fire/SOUL/CD
#7336
üzenetére
Hali!
Ha meg a Google Docs függvények Exceles megfelelőjére vadászol, akkor a korábbi HSZ-om nem biztos hogy fog segíteni, de legalább az itten topic-látógatóknak (akik nem tudtak erről) azoknak hasznos lehet. Amúgy Google Docs Functions
Fire.
-
#7336
Fire/SOUL/CD
félisten
rtom
#7335
Hali!
1. Ha magyar nyelvű excelben, angol megnevezésű függvényekkel szeretnél dolgozni, akkor szúrj be egy új munkalapot(munkalapon jobb egér/beszúrás...), majd a megjelenő ablakban válaszd a Nemzetközi makrólap lehetőséget. Innentől csak az angol megnevezések jelennek meg egy függvény beszúrásakor, pl a CountIf a darabteli helyett.
2. Az excel maga is feltelepíti azt a fájlt, amiben angolul és magyarul is megvannak szépen felsorolva a függvények, azaz pl a DARABTELI függvénynek megtalálod az angol megfelelőjét. Ez a fájl FUNCS.XLS névre hallgat és ebben a könyvtárban található:
Office 2007 esetén
c:\Program Files (x86)\Microsoft Office\Office12\1038Office 2003 esetén
c:\Program Files (x86)\Microsoft Office\Office11\1038Egyszerűen csak töltsd be/nyisd meg és lőn világosság...
Máris nem lesz probléma, hogy angol megnevezésű függvénynek mi a magyar megfelelője avagy fordítva...Fire.
-
#7332
Fire/SOUL/CD
félisten
A_ScHuLcZ
#7331
válasz
A_ScHuLcZ
#7331
üzenetére
Hali!
Nem tudom, hogy a szerver az Linux vagy Windows alapú, ha Win-es, akkor a Számítógép kezelésnél megnézheted (Asztalon jobb egér a Számítógép ikonon/Kezelés és itt a Megosztott mappák illetve Helyi csoportok és felhasználók részen megnézheted: [link]
(Nálam nincs megosztás, azért üres minden... )Fire.
-
#7330
Fire/SOUL/CD
félisten
A_ScHuLcZ
#7329
-
#7328
Fire/SOUL/CD
félisten
A_ScHuLcZ
#7327
-
#7326
Fire/SOUL/CD
félisten
alexnowan
#7324
-
#7321
Fire/SOUL/CD
félisten
Delila_1
#7319
-
#7318
Fire/SOUL/CD
félisten
Szabee87
#7313
-
#7312
Fire/SOUL/CD
félisten
Floriano
#7309
-
#7308
Fire/SOUL/CD
félisten
Szabee87
#7306
válasz
Szabee87
#7306
üzenetére
Hali!
És még valami, ami egyszerűbb ez esetben, hisz abban az oszlopban max 2 tizedesjegyig lesznek számok(nincsenek kerekítve), ezért simán formázd az oszlopot (G oszlopot) szöveggé. Ha így jársz el, akkor nem lesz szükség a korábbi mezőkódos módszerre, mert a szöveget ugyebár az eredeti formájában jeleníti meg a word a körlevélben is.
Fire.
-
#7307
Fire/SOUL/CD
félisten
Szabee87
#7306
-
#7303
Fire/SOUL/CD
félisten
Szabee87
#7302
-
#7301
Fire/SOUL/CD
félisten
Szabee87
#7300
-
#7299
Fire/SOUL/CD
félisten
Szabee87
#7298
válasz
Szabee87
#7298
üzenetére
Hali!
lehet, hogy félreértem, de egyszerűen csak kijelölöd pl az oszlopot (ahol ez a képlet van), jobb egér, cellaformázás, bal oldalt szám, jobb oldalt meg beállítod hány tizedesjegy szerepelje(így felfelé kerekít persze)
Fire.
UI: De jó, hogy pont olyan számokat adtam meg, amiknek a különbsége pont A1...
-
#7280
Fire/SOUL/CD
félisten
ALbeeeee
#7279
-
#7278
Fire/SOUL/CD
félisten
Delila_1
#7277
válasz
Delila_1
#7277
üzenetére
Hali!
Pedig már kérdeztem is korábban, de sebaj, ez egy ilyen nap...
Na "leegyszerűsítettem" a kódot valamelyest...Remélem ALbeeeee-nek is sikerül létrehozni a Form-ot...Private Sub CommandButton1_Click()
myCol = "D"
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
If TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), TextBox1.Text)
If j = 0 Then
ActiveCell = TextBox1.Text
Else
MsgBox ("A TextBox1 tartalma már szerepel a " & myCol & " oszlopban")
End If
Else
MsgBox ("A TextBox1 üres!")
End If
With TextBox1
.Text = ""
.SetFocus
End With
'Sheets("Munka1").Activate
End Sub
Private Sub UserForm_Activate()
If Sheets("Munka1").Range("F11") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End SubFire.
-
#7274
Fire/SOUL/CD
félisten
Delila_1
#7273
válasz
Delila_1
#7273
üzenetére
Hali!
Már mire érted, hogy összetett kód?
Beletettem mindkét lehetőséget (oda is írtam), ha a végére kell beleírni akkor egyik változat, ha nem a végére, akkor meg a másik...
A többi meg szükséges, ha üres, akkor nem kell, vagy ha már szerepel a D oszlopban a textbox1-be beírt érték, akkor azt is meg kell vizsgálni, vagy nem?#7255 "> Textbox1 tartalmának 'Munka2' Sheet D oszlop első üres cellába történő másolása (ha nincs már ilyen az oszlopban) + Textbox ürítése"
Fire.
UI: Na jó, a textbox ürítése lemaradt...
-
#7270
Fire/SOUL/CD
félisten
ALbeeeee
#7267
válasz
ALbeeeee
#7267
üzenetére
Hali!
Csináld meg a Formot, amit Delila_1 itt feljebb bemutatott, aztán illeszd be ezt a kódot.
Private Sub CommandButton1_Click()
myCol = "D"
myColasInt = Asc(myCol) - Asc("@")
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
If TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), TextBox1.Text)
If j = 0 Then
'Ezt akkor, ha az adott oszlop végére kell beírni a Textbox1 tartalmát
'ActiveCell = TextBox1.Text
'Ezt meg akkor, ha nem a végére
j = ActiveCell.Row
Range(myCol & "1").Select
For i = 1 To j
If Cells(i, myColasInt) = "" Then
Cells(i, myColasInt) = TextBox1.Text
Exit For
End If
Next i
Else
MsgBox ("A Texbox1 tartalma már szerepel a " & myCol & " oszlopban")
End If
Else
MsgBox ("A Texbox1 üres!")
End If
Sheets("Munka1").Activate
End Sub
Private Sub UserForm_Activate()
If Sheets("Munka1").Range("F11") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End SubFire.
UI: Igen, valóban F11, nem F12...
-
#7261
Fire/SOUL/CD
félisten
Delila_1
#7259
-
#7258
Fire/SOUL/CD
félisten
ALbeeeee
#7255
válasz
ALbeeeee
#7255
üzenetére
Hali!
1. kérdésre
If Range("F12") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End IfDelila_1
1. A kódod hol keresi meg, hogy már szerepelt-e a D oszlopban Textbox1 tartalma?
![;]](//cdn.rios.hu/dl/s/v1.gif)
2. Az első üres cella az kétértelmű, mert értelmezhető úgy is, hogy nem feltétlenül az utolsó cella+1 (pl D1 : D10 tartományban csak a D3 üres, ez esetben a D3-ba kell az adatot beírni, nem pedig a D11-be) De erről majd ALbeeeee nyilatkozik...Fire.
-
#7251
Fire/SOUL/CD
félisten
basaharc502
#7248
válasz
basaharc502
#7248
üzenetére
Hali!
Nem lehet, hogy esetleg speckó betűkészletet használsz?
A nyomtatási képen is helyesen jelenik meg, csak a kinyomtatott papíron nem?Fire.
-
#7250
Fire/SOUL/CD
félisten
szjoci
#7249
-
#7230
Fire/SOUL/CD
félisten
szjoci
#7229
-
#7228
Fire/SOUL/CD
félisten
szjoci
#7227
-
#7226
Fire/SOUL/CD
félisten
szjoci
#7225
Hali!
A napokat dátumra kell formázni. Azt hogy hogy jelenjen meg, azt rád bízom(lehet, hogy csak a napot jelenítse meg, évszám/hónap nélkül)
C4 cellába ezt beírni majd lemásolni(képed alapján)
=HA(ÉS(B4<>"";KISBETŰ(SZÖVEG(A4;"nnnn"))="vasárnap");1;"")
Ezután már egy szimpla SZUM függvény, pl a C35-be...
Fire.
UI: Lehet, hogy bele lehet "zsúfolni" egy SZUMHA vagy DARABHATÖBB stb stb függvénybe is, de ezen nem agyaltam...
-
#7223
Fire/SOUL/CD
félisten
Azura
#7221
Hali!
"...igazából csak azért akartam így, mert ebbe egy leltárazás eredménye fog kerülni és az ellenőrzéskor lett volna egyszerűbb...
Bocs, lehet hogy írtad korábban, csak átsiklottam felette, de ez esetben én is csak azt tudom mondani, amit Delila_1 is. KIMUTATÁSFire.
UI: Ezért fontos, hogy amikor segítséget kértek, akkor ne csak az legyen leírva, hogy hát konkrétan ez meg az nem megy, hogy kellene, hanem az is, hogy mit szeretnétek megvalósítani, mert mint eseted is jó példa rá, sok esetben vannak nagyon egyszerű módszerek a megoldásra és nem kell makró, meg képlet, érvényesítés, meg stb...
-
#7220
Fire/SOUL/CD
félisten
Azura
#7215
-
#7218
Fire/SOUL/CD
félisten
Delila_1
#7216
válasz
Delila_1
#7216
üzenetére
Hali!
Ez nem jó...Nem a képlet hibás, azzal nincs gond, csak ezzel a módszerrel olyan hardverelemeket is össze lehet válogatni, ami nem létezik. PLKategória -> Netbook
Gyártó -> Kingmax
Típus -> AR-121-eNa ilyen hardver nincs...
(Külön-külön létezik mind, de a Kingmax nem gyárt notit, a típus az meg egy Sharp lézerprinteré...)Ezért "gondoltam", hogy makró nélkül esélytelen a dolog...
Fire.
-
#7217
Fire/SOUL/CD
félisten
Azura
#7215
Hali!
Akkor pár dolog...
1. Az miért nem jó megoldás, hogy egy lenyílóból választhatna a user és ott csak azok vannak amik léteznek is? (Miért van arra szükséged, hogy megnézd, hogy benne van-e a listában a beírt adat? Vagy csak a korábbi képen nem látszik a lenyíló, azért nem látom?
)2. Makró nélkül nem megoldható, hogy tudd, hogy melyik tartományba kell dolgozni(melyik listában kellene szerepelnie az adatnak)
3. Ha csak az a cél, hogy a user kiválasszon egy listából egy adott kategóriában szereplő adott gyártó, adott termékét, akkor miért nem felel meg erre a célra az Autoszűrő?
Persze szívesen segítek/segítünk, csak valahogy nem értem a lényegét, hogy miért így akarod megvalósítani...
Fire.
-
#7213
Fire/SOUL/CD
félisten
Muton
#7212
Hali!
CTRL+H aztán példul: [link]
Persze odafigyelni, hogy valóban csak az cserélődjön aminek kell...
Pl a fenti képen látható csere a SZUM(A1:A2)-ből csinál SZUM(A1:$A2)-őt...
Ha a képletek egyike sem tartalmaz más "A" betűt, csak mint oszlopazonosítót, akkor lehet egyből a CTRL+H után az A-kat $A-kra cserélni.Fire.
-
#7209
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#7208
válasz
Fire/SOUL/CD
#7208
üzenetére
Szóval helyesen "A képen látható képlet a B2 cellában van"...De nyilván erre magadtól is rájöttél...
-
#7208
Fire/SOUL/CD
félisten
Azura
#7207
Hali!
Hát ha csak azt nézem, hogy kiderítsd, hogy a beírt elem szerepel-e a tartományban, akkor a korábbi Delila_1 által javasolt képlet megfelel erre a célra.
Itt a D2:D5 tartományt neveztem el KATEGORIA-nak
A képen látható képlet az A2 cellában van...A feladat csak részmegoldás, mert arról is gondoskodni kell, hogy ha az elem nem szerepelt a listában, akkor a KATEGORIA tartományhoz, hozzá legyen adva(meg persze a Gyártó/Típus-nál is ezt el kell "játszani"). Ehhez makrót kell használni, még akkor is, ha saját függvényt készítesz.
Fire.
-
#7206
Fire/SOUL/CD
félisten
Azura
#7205
-
#7204
Fire/SOUL/CD
félisten
Azura
#7202
Hali!
Nézd, nem tudom pontosan mit szeretnél megvalósítani, de azért sejtem.
(Számítógépboltok nagyker/alkatrész árlistájukra emlékeztet)
Ha megengeded, hogy elemeket lehessen hozzáadni egy listához(pl ahogy írtad LENOVO), akkor nyilván ehhez még a pontos típus és akár azon belül a hardverkiépítés is társulhat. Ha ez így van, akkor az Excel már nem a megfelelő választás. Az is kérdés, hogy mit kezdesz azzal, ha valaki kiválasztotta a megfelelő kategóriát/gyártót/típust/hardverkiépítést...stb. Pusztán csak az a lényeg, hogy lássa, hogy létezik olyan, vagy a kiválasztott elemmel még műveleteket akarsz véghezvinni. Előbbi esetben sokkal egyszerűbb megoldás lenne egy sima Autoszűrő, utóbbi esetben meg majd kiderül a válaszodból...Fire.
-
#7128
Fire/SOUL/CD
félisten
perfag
#7127
-
#7124
Fire/SOUL/CD
félisten
lappy
#7123
-
#7122
Fire/SOUL/CD
félisten
perfag
#7121
Hali!
A makrós megoldást én az Oly által megadott példaprogi kapcsán írtam, mert abban ListBox-ok szerepelnek, és ezen Listbox-ok esetén is ott vannak az üres listaelemek.
Az meg sem fordult a fejemben, hogy makróval a Datavalidation részbe matassak(ha lehet egyáltalán, még sosem csináltam olyat)A 2007-ben meg a Képletek csoport/Névjegykezelés (vagy hasonló, nem otthonról írok) alatt találod a tartománylistákat.
Fire.
-
#7119
Fire/SOUL/CD
félisten
Delila_1
#7118
-
#7115
Fire/SOUL/CD
félisten
Delila_1
#7114
-
#7113
Fire/SOUL/CD
félisten
Oly
#7112
-
#7110
Fire/SOUL/CD
félisten
Oly
#7109
Hali!
Ööö, szerintem itt valami félreértés van. Az Üres cellák mellőzés opció az nem arra vonatkozik, hogy a kijelölt tartományban lévő üres cellák ne jelenjenek meg a lenyílóban, hanem arra, hogy tetszőleges értéket lehessen az érvényesített cellába.
A lenyílókat arra használják, hogy kitöltött tartományt jelenítsenek meg, pl hogy kategóriák közül lehessen választani, ergo érvényesítéskor olyan tartományt jelölj ki, amiben minden cella kitöltött vagy az lesz. A példát elsősorban a tartomány elnevezés alkalmazására adtam, bár így visszaolvasva, valóban félreérthető volt, sorry... Csak én is rosszul értelmeztem a problémád, mert azt hittem, hogy az érvényesített cellában van "szépséghiba" az üres cellával, nem pedig a lenyíló listájában...Fire.
-
#7106
Fire/SOUL/CD
félisten
Oly
#7104
Hali!
Hát ha (bocs de nem néztem meg) az Adatok/Érvényesítés segítségével hozol létre lenyílót, akkor ott beállítható, hogy az üres cellák ne jelenjenek meg. Ez egy régebbi kép, nem konkrétan a te feladatodhoz tartozik
Fire.
-
#7101
Fire/SOUL/CD
félisten
Oly
#7100
-
#7098
Fire/SOUL/CD
félisten
Oly
#7096
-
#7095
Fire/SOUL/CD
félisten
Oly
#7089
Hali!
Igen, valóban, adatbázishoz kellene kötni, természetesen a legnyilvánvalóbb választás az Access. Vannak olyan feladatok, amelyek esetén már nem érdemes(még ha lehetséges is) Excelben makrózni.
Mondjuk ez a csoport dolog így nem teljesen világos a számomra, ezt látni kellene, meg azt is, hogy mi legyen a végeredmény(amit ki akarsz hozni belőle). Így csak vaktában lövöldözné(n)k.
Fire.
-
#7087
Fire/SOUL/CD
félisten
Oly
#7086
Hali!
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Workbook_Open()
MyFile = "d:\" & "myfilename.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), Environ("USERNAME")
Close #fnum
End SubFire.
-
#7085
Fire/SOUL/CD
félisten
Oly
#7084
Hali!
Remélem erre gondolsz
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub CommandButton1_Click()
'List_All_Environ_info
WriteToTextFile
End Sub
Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End Function
Sub WriteToTextFile()
MyFile = "d:\" & "myfilename.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), Environ("USERNAME")
Close #fnum
End SubFire.
-
#7061
Fire/SOUL/CD
félisten
VANESSZA1
#7060
válasz
VANESSZA1
#7060
üzenetére
Hali!
Ha a doksik ugyanabban a könyvtárban vannak mint az excel munkafüzet, akkor a hivatkozásban nem kell útvonalat megadni. Simán 1.doc, 2.doc, stb nem pedig c:\ubul\1.doc, c:\ubul\2.doc stb. Első esetben, ha könyvtárastól átmásolod a doksikat, az excel munkafüzettel együtt, akkor a másik gépen/könyvtárban is működnie kell.
Fire.
-
#7045
Fire/SOUL/CD
félisten
Delila_1
#7044
-
#7035
Fire/SOUL/CD
félisten
Delila_1
#7034
-
#7033
Fire/SOUL/CD
félisten
Delila_1
#7032
válasz
Delila_1
#7032
üzenetére
Hali!
Nem, szerintem kellhet, csak nem And hanem Or...
Azért írtam, mert az látszott, hogy a CountA, az mindig felülbírálja az IsEmpty-t, ellenben ha külön is kell vizsgálni, hogy egy adott cella üres-e(tartalmaz-e értéket stb), akkor szükség lehet az IsEmpty-re is, viszont ez esetben akkor Or.De ezt majd megvizsgálod és elnézést a szörszálhasogatásért...
Fire.
-
#7031
Fire/SOUL/CD
félisten
Delila_1
#7030
-
#7029
Fire/SOUL/CD
félisten
Delila_1
#7028
-
#6989
Fire/SOUL/CD
félisten
Oly
#6988
Hali!
Nem tudom, hogy egy ennyire egyszerű "azonosítás" megfelelne-e. Futtasd a makrót és láthatod, hogy milyen infókat tudsz lekérni ill. azok mit adnak vissza. Ha elég pl a számítógép neve és felhasználó alapján is loggolni, akkor megfelelhet.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub CommandButton1_Click()
List_All_Environ_info
End Sub
Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End FunctionFire.
-
#6972
Fire/SOUL/CD
félisten
kalasz
#6970
Hali!
A másik topic-ban írt válaszod alapján, akkor ezek szerint, még nem tudod, hogy egy makrót, hogyan is kell létrehozni. Sebaj, elég egyszerű.
1. Nyisd meg az excel-t, lesz egy üres munkafüzeted ugyebár
2. Munka1 -lapon ALT+F11
3. Bal oldalt duplakatt Munka1 (Munka1)-en
4. Egyik lenyílóból Worksheet, másikból Change
5. Másold be a kódot, amit én vagy amit Delila_1 adott
Mindez képbenDelila_1
Én irányítottam ide kalasz barátunkat [link].Fire.
-
#6939
Fire/SOUL/CD
félisten
zUlU53
#6938
Hali!
Az ablak felosztásának nevezik a dolgot, 2007-ben kattints egy cellán, amihez viszonyítva állíthatod, hogy mely sorok/oszlopok maradjanak fix-ek, és melyek scrollozzanak, ezután Nézet fül/Ablak csoport/Felosztás gombon katt
A függőleges és vízszintes(a képen kék) vonalakat húzhatod az egérrel "minden" irányba, ha megfelelően beállítottad, akkor panelek rögzítése. Mindez képbenBonyolultabbnak tűnik, mint valójában, de magadtól is rájössz majd...
Fire.
-
#6936
Fire/SOUL/CD
félisten
sossy
#6935
Hali!
Hát ha valóban jól írtad le a feladatot...
"...hogy excelben oldjak meg makróval..."
"Szerintem Word-be kéne átrakni az adatokat."Ez a lapján(és ha ez kikötés a feladatban), akkor nem jó a megoldásom, mert ahhoz nem kell makró ill. biztosan Word doksiba kerülnek az adatok..
Majd kiderül, ha meg mégsem jó ez a megoldás, akkor írj megint...
Fire.
-
#6934
Fire/SOUL/CD
félisten
sossy
#6933
Hali!
Akkor nagyon leegyszerűsítve
1. Létrehozod a táblázatot, Autoszűrővel ellátod(így szűrhető adott érték alapján, hogy mely sorok jelenjenek meg a táblázatban)
2. Word-ben Körlevelet hozol létre, elkészíted a Törzsdokumentumot, aminek az adatforrásának, ezt az Excel-táblát adod meg.Fire.
-
#6932
Fire/SOUL/CD
félisten
sossy
#6931
Hali!
Na itt pontosítsunk.
1. Légyszíves készítsd el a táblát, aztán egy képet róla belinkelni
2. Excelben nincs doksi, csak Munkafüzet, azonbelül meg munkalapok. Ez azért nem mindegy, mert ha Excel-en belül állítasz össze (egy másik munkalapon) egy "formanyomtatványt" ahhoz megint más megoldás társul, mintha Word-be kellene átvenni az Excel tábla adatait.Fire.
-
#6926
Fire/SOUL/CD
félisten
zUlU53
#6924
Hali!
Ez 7-el való osztás, meg 7-nek a többszörözése egy "gyanút" keltett. Nem lehet, hogy estleg olyan feladaton dolgozol, ahol pl arra vagy kíváncsi, hogy pl egy adott nap, az az adott év/hónap/hét hányedik napja, vagy munkanap-e, stb stb. Mert ha esetleg igen, akkor erre vannak beépített függvények az Excel-ben...
Ha nem, akkor meg megkaptad a válszt Delila_1-től...
Fire.
-
#6920
Fire/SOUL/CD
félisten
WildBoarTeam
#6919
válasz
WildBoarTeam
#6919
üzenetére
Hali!
Kösz, hogy megnézted. Reméljük superecneB 2007-est használ...
Fire.
-
#6918
Fire/SOUL/CD
félisten
superecneB
#6916
válasz
superecneB
#6916
üzenetére
Hali!
2007-esben ez megoldható, nézd meg, hogy működik-e 2003-ban is(teljesen elfelejtem a 2003-at lassan)
1. Alaphelyzet
2. Belekattintok az adott oszlopba, Rendezés és szűrés/Egyéni sorrend
3. Megjelenő ablakban meg lehet adni, hogy a Rendezés alapja, az a cella színe legyen, mindez KÉPBEN
4. Leokézod és ez lesz az eredményFire.
-
#6913
Fire/SOUL/CD
félisten
lazlo8
#6912
Hali!
"...albánia területét 28 egész és 748 ezrednek érzékeli holott ez 28 ezer vmennyi nem?"
De igen, jól gondolod.Akkor csak annyit kell tenned, mielőtt végrejatod a cserés dolgot, hogy az adott oszlopot SZÖVEGKÉNT formázod(oszlop kijelöl, jobb egér, cellaformázás, szöveg, OK)
Ha ez megtörtént, akkor balraigazítottá válnak az értékek.Fire.
UI: Azért nem talált korábban semmit a csere, mert ha SZÁMKÉNT van jelen a pl 28,748, akkor(ahogy azt írtam is) az excel a veszőt a tizedesjegyek elválasztására használja. Ha ebben vesszőt keresel, akkor azt keresheted, mert csak a számformátum miatt jelenik meg a cellában, de nem fizikailag tartalmazza a vesszőt, nem úgy, mintha egy szövegként lenne a cellában.
-
#6911
Fire/SOUL/CD
félisten
lazlo8
#6910
Hali!
Alapesetben a vessző a tizedesjegyek elválasztására szolgál, kérésedből olybá tűnik, hogy ezt a "konverziót" szeretnéd elvégezni
1. eset --- 444,1212 -> 4441212
2. eset --- 211.212,212 -> 211212,212 (lehet, hogy neked a 3. esetre van szükséged)
3. eset --- 211.212,212 -> 2112122121. esetben --- Kijelölöd az adott oszlopot, CTRL+H, Keresett mezőbe vessző, Csere mező üresen marad, Összes cseréje gombon katt.
2. esetben --- Kijelölöd az adott oszlopot, CTRL+H, Keresett mezőbe pont, Csere mező üresen marad, Összes cseréje gombon katt.
3. esetben --- Az első és második pontban leírtakat egymás után megcsinálni.
Fire.
-
#6897
Fire/SOUL/CD
félisten
Csakénvagyok
#6896
válasz
Csakénvagyok
#6896
üzenetére
-
#6895
Fire/SOUL/CD
félisten
Delila_1
#6894
válasz
Delila_1
#6894
üzenetére
Hali!
Igen, ma már "lőn világosság"...
Csak ez meg egy másik kérdést vetett fel bennem, nevezetesen, akkor miért van/mi értelme a 2007-ben fellelhető Leállítás, ha igaz lehetőségnek, a feltételes formázások listájában? A válasz egyszerű: [link]
A "A szabályértékelés leállítási idejének ellenőrzése a Leállítás, ha igaz jelölőnégyzet használatával" résznél van a lényeg...Egyszerűen kompatibilitási okokból vezették be a 2007-től, részletek a linkben.Fire.
-
#6892
Fire/SOUL/CD
félisten
Delila_1
#6891
válasz
Delila_1
#6891
üzenetére
Hali!
Oksa, így érthető(korábbi HSZ-ed is biztosan, csak nem ma)
Úgy lehetne ezt letesztelni, ha lenne olyan feltétel, hogy kisebb vagy egyenlő/nagyobb vagy egyenlő. Magyarul csinálsz(én ma biztosan nem ) 3 feltételt1. ha egyenlő
2. ha kisebb egyenlő
3. ha nagyobb egyenlőTermészetesen 3 különböző színre "festenék" a cellát. Mivel az egyenlő mindháromban benne van, ezért mindegy lenne a feltételek közti sorrend, mert mindig a legalsó/legutolsó feltétel teljesülne, hisz ott is megvizsgálod az egyenlőséget. Ha ez igaz, akkor bizonyítottuk, hogy az összes feltételen végigmegy, még akkor is, ha a legelső igaz is.
Na remélem, ezt meg én nem fogalmaztam túl bonyolultan...
(meg jó az okfejtésem és egyáltalán kivitelezhető)Fire.
-
#6890
Fire/SOUL/CD
félisten
Delila_1
#6889
válasz
Delila_1
#6889
üzenetére
Hali!
Öööö, bocs de ma adóbevallásokat töltögettem szinte egész nap, egy kissé meg vagyok zakkanva.
Ezt most úgy szájbarágósan leírnád még1x, mert egy kukkot nem fog fel az agyacskám belőle...Fire.
UI: De lehet, hogy ma ne is írd le, holnap reggel inkább elolvasom még1x, addigra talán javulást mutatok...
-
#6887
Fire/SOUL/CD
félisten
Delila_1
#6886
-
#6885
Fire/SOUL/CD
félisten
Delila_1
#6884
válasz
Delila_1
#6884
üzenetére
Hali!
Nem vagyok benne biztos, de szerintem minden feltétel meg lesz vizsgálva, függetlenül attól, hogy igaz avagy hamis. Pont ezért került be pl a 2007-esbe, hogy meg lehet "állítani" a feltételek feldolgozását. Leállítás, ha igaz
De még1x mondom, nem vagyok benne 100%-ban biztos...Fire.
-
#6878
Fire/SOUL/CD
félisten
Relisys
#6877
válasz
Relisys
#6877
üzenetére
Hali!
A oszlopban eladási ár, B-ben darabszám, akkor C1-be írd ezt a képletet =A1*B1
Megfogod a C1 cella jobb alsó sarkát és végigmásolod, ameddig kell. Ha ezzel megvagy, akkor meg a C oszlop utolsó cellája alá beteszel egy =SZUM(C1:C1234) függvényt.
(értelemszerűen, a szum függvény tartománya, az C1-től ameddig a C-ben vannak adatok)Fire.
-
#6875
Fire/SOUL/CD
félisten
Sickboy25
#6874
-
#6869
Fire/SOUL/CD
félisten
Hali!
Delila_1, Ulrik19
Kösz a korrekciót, most már van 3 képlet, valamelyik csak jó lesz Sickboy25 fórumtársunknak.Fire.
-
#6865
Fire/SOUL/CD
félisten
Sickboy25
#6859
válasz
Sickboy25
#6859
üzenetére
Hali!
Makró-kód
Private Sub Worksheet_Change(ByVal Target As Range)
X = Range(Target.Address)
Y = 50
On Error Resume Next
If Not Intersect(Range("P3:V25"), Range(Target.Address)) Is Nothing Then
If X <> "" Then
Application.EnableEvents = False
Range(Target.Address) = Y / X * 100
Application.EnableEvents = True
End If
End If
On Error GoTo 0
End SubAmit állíthatsz, az az Y(állandó, én most 50-nek vettem) illetve az adattartomány(esetünkben P3:V25). Természetesen ebben a tartományban nem lehet a táblázat fejléce csak számadatok. Amennyiben pl betűt is tartalmaz a cella(mert véletlenül melléütsz), akkor nem történik semmi, bekerül amit beírtál, nyilván nem lehet vele számolni.
Fire.
UI: Ha azt akarod kiszámolni, hogy hány százaléka X-nek Y, akkor korábban rossz képletet adtál meg. Helyesen Y/X*100...
-
#6864
Fire/SOUL/CD
félisten
Delila_1
#6862
válasz
Delila_1
#6862
üzenetére
Hali!
Pedig elég egyszerű és szerintem már Te is használtad korábban ezt a megoldást, nevezetesen hogy le kell tiltani az eseményeket. Vagy rosszul tévedek?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
MsgBox "Ez a cella módosult: " & Target.Address
MsgBox (Range(Target.Address))
Range(Target.Address) = Range(Target.Address) * 0.05
Application.EnableEvents = True
End SubFire.
UI: Persze most hibakezelés nincs, nem nézem meg hogy üres-e az adott cella, vagy ha nem üres, akkor lehet-e értelmezni számként stb stb, de a lényeg benne van...
-
#6857
Fire/SOUL/CD
félisten
neilszab
#6853
-
#6856
Fire/SOUL/CD
félisten
neilszab
#6853
válasz
neilszab
#6853
üzenetére
Hali!
Automatikus dátumfelismerés
Nem tudom, hogy ezt véglegesen ki lehet-e kapcsolni, de pl Excel 2007 esetén 2 darab kattintással orvosolható.A probléma
Abból indulok ki, hogy ilyen "számok" lehetnek
1,123,123.12
123.12
123,123Szóval olybá tűnik, hogy az ezres elválasztó a vessző és a tizedesjegyek elválasztója meg a pont. Nos ha ez a szitu, akkor ebben a sorrendben megoldható
1. illeszd be úgy ahogy van egy adott oszlopba az adatokat, jelöld ki az oszlopot
2. a vesszőt cseréld szóközre
3. a pontot cseréld vesszőre
4. állítsd számformátumra (bár már úgy néz ki, mintha az lenne, ezres elválasztóval, de akkor sem számformátumú a kiválasztott oszlopod)Ha jól értettem amit írtál, akkor ezzel meg is volnánk.
Fire.
-
#6811
Fire/SOUL/CD
félisten
zsotesz81
#6809
-
#6808
Fire/SOUL/CD
félisten
Delila_1
#6807
válasz
Delila_1
#6807
üzenetére
Hali!
VBA-ban igen, mert "átkonvertálja" Windows szabvánnyá. A sima chr(10) linux/unix rendszereknél a sordobás, Win esetében chr(13) + chr(10).
Msgbox esetén valóban mindegy, hogy chr(13) vagy chr(10).
Windows esetében az új sor(return/enter) az mindig is hexa 0xD azaz 13 volt és most is az(Win esetén pl egy szöveges fáljban az új sor az mindig 13,10 (0xd,0xa) "végződik", linuxnál csak 10(0xa). Weben erre oda kell figyelni, amikor szöveges állományt dolgozol fel, vannak direkt erre a célra függvények pl PHP-ban, amik ezeket a konverziókat(sorvége/újsor) elvégzik, oda-vissza)
Fire.
-
#6805
Fire/SOUL/CD
félisten
zsotesz81
#6803
válasz
zsotesz81
#6803
üzenetére
Hali!
Variációk egy témára
Private Sub CommandButton1_Click()
MsgBox ("A játékot xy nyerte" & Chr(13) & "Gartulálunk")
MsgBox ("A játékot xy nyerte" & vbCrLf & "Gartulálunk")
MsgBox ("A játékot xy nyerte" & vbCrLf & _
"Gartulálunk")
End Subchr(13) -> Carriage Return (CR)-> Egy sorral lejebb
chr(10) -> Line Feed (LF)-> Adott sor elejére ugrás
(Ez DOS-ban a sor elejére vitte a kurzort illetve a nyomtatáskor is volt(van) szerepe
vbCrLf -> VBA konstans a CF és a LF egyben
Fire. -
#6802
Fire/SOUL/CD
félisten
zsotesz81
#6801
válasz
zsotesz81
#6801
üzenetére
Hali!
Legegyszerűbb a form + image objektum. Ilyen "apróságokon" meg nem kell fent akadni(png-t nem kezeli), mert csak az időt viszi.
Meg kell nézni mit kezel, aztán konvertálás, aztán hajrá!
(Megfelelő konvertáló progival(ami csoportosan/batch módban dolgozik) pillanatok alatt megvan az ember)Fire.
-
#6800
Fire/SOUL/CD
félisten
zsotesz81
#6799
-
#6798
Fire/SOUL/CD
félisten
zsotesz81
#6797
Majd holnap...
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Érdekes.
Új hozzászólás Aktív témák
Fferi50- 18. helyet ért a Samsung Galaxy S26 Ultra kamerarendszere a DxOMarknál
- Annyira drága a DRAM, hogy bukta a legjobb konfigurációját a Mac Studio
- OLED monitor topic
- MWC 2026: Kezünkben a Vivo V70, megvan a magyar ára is
- iPhone topik
- Genshin Impact (PC, PS4, Android, iOS)
- A fociról könnyedén, egy baráti társaságban
- Xbox tulajok OFF topicja
- Kerti grill és bográcsozó házilag (BBQ, tervek, ötletek, receptek)
- Starlink
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- MS SQL Server 2016, 2017, 2019
- Csere-Beszámítás! Playstation 5 Lemezes kiadás!
- BESZÁMÍTÁS! Akár részletfizetés 0% THM ÚJ AMD RYZEN AM4 processzorok 3 év garanciával 27% áfaval
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
- Apple iPhone 12 Mini / 64GB / Kártyafüggetlen / 12HÓ Garancia / Akku: 100%
- Samsung LH55CSPLBC 55" LCD monitor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest