- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Honor 200 Pro - mobilportré
- Fotók, videók mobillal
- iPhone topik
- 45 wattos vezeték nélküli töltés jön az új iPhone-ba
- VoLTE/VoWiFi
- Bemutatkozott a Poco X7 és X7 Pro
- Milyen okostelefont vegyek?
- Xiaomi 14T Pro - teljes a család?
- Honor Magic6 Pro - kör közepén számok
-
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
-
Mutt
senior tag
Szia,
Power Query-ben megadhatsz nyelvterületet adatkonverziókor. Az oszlop bal felső sarkában az adattípus megadásakor a legutolsó opció ez, válaszd ki a megfelelő formátumot.
Ha ezt sokszor kellene megcsinálni, akkor érdemes alapértelmezetté tenni. Power Query-ben Fájl -> Lehetőségek és beállítások -> Lekérdezés beállításai. Alul az aktuális munkafüzetre tudsz adni egy területi beállítást.
üdv
-
Fferi50
Topikgazda
Szia!
A fájl beolvasása előtt próbáld meg a következőt:
Fájl - Beállítások - Speciális - Rendszerbeállítások szerinti elválasztók használata jelölőből vedd ki a pipát - majd a tizedesjel kockájába írd be a pontot, majd OK.
Ezután beolvasod a fájlt. A beolvasás után visszaállíthatod a tizedesjelet a rendszerbeállítások szerintire.
Üdv. -
Delila_1
veterán
Kipróbáltam, csak 20-ig írja rendesen. A 21-40 sorokban megint 1-gyel kezdődnek a számok, de zárójelek közé teszi. 41-60 között pontot tesz a számok után, de itt is 1 a kezdő érték. A 61-86 sorokban zárójelek között az ABC kisbetűi következnek, majd kör közepén a nagybetűk.
Érdekes, még nem tudom, mire lehetne használni. -
Fferi50
Topikgazda
Szia!
Ezt találtam a Help-ben:
"A külső adattartományokat automatikusan frissítheti a munkafüzet megnyitásakor. A külső adatok mentése nélkül is mentheti a munkafüzetet a fájl méretének csökkentése érdekében.
Jelöljön ki egy cellát a külső adattartományban.
Válassza az Adatok > Lekérdezések & Kapcsolatok > Kapcsolatok lapot, kattintson a jobb gombbal egy lekérdezésre a listában, majd válassza a Tulajdonságok lehetőséget.
A Kapcsolat tulajdonságai párbeszédpanel Használat lapján, a Frissítés vezérlő alatt jelölje be az Adatok frissítése a fájl megnyitásakor jelölőnégyzetet.
Ha a munkafüzetet a lekérdezés definíciójával együtt, de a külső adatok nélkül szeretné menteni, jelölje be az Adatok eltávolítása a külső adattartományból a munkafüzet mentése előtt jelölőnégyzetet."
Üdv. -
-
TheSaint
aktív tag
-
Fferi50
Topikgazda
Szia!
Például: abban a munkafüzetben, amiben a makró van, egy munkalap egy cellájába beírod a következő nyomtatás dátumát(időpontját). A makróval megnézed, hogy a cellában levő dátum/idő elmúlt-e már, ha igen akkor átírod a dátumot a következőre és nyomtatsz egyet, ha nem, akkor a makrónak nyomtatás nélkül vége.
Üdv. -
#50093
Fire/SOUL/CD
félisten
VGYke
#50092
Ennek a kérdésnek semmi értelme, mert:
1. Teljesen lényegtelen, hogy egy adott XLS/XSLX táblázatot mikor nyomtattál ki, ha közben eltelt 1 év... (pl. 1 éve kinyomtattál egy Excel táblát, de 1 órája meg nyomtattál akármit...)
2. Az OS automatikusan hozzárendeli a fájlhoz, az utolsó nyomtatási idejét, de ez nem mérvadó, lásd feljebb... (jobb egér a fájlon, tulajdonságok/részletek fül -> utolsó nyomtatás dátuma)Szóval, ha nem akarod, hogy beszáradjon a masina (van benne tapasztalatom, most már kb. 7-9 éve az ECO Tank Epson-okkal), akkor minden hónapban 1x nyomtass ki egy szines képet, jó minőségben, oszt' ennyi...
-
#49048
Fire/SOUL/CD
félisten
VGYke
#49046
Ha a legelején ezt így írtad volna le, akkor nem kellett volna köröket futni...
Én biztos nem foglalkoznék se képlettel, se makróval ez esetben, hanem az Összes lapon egy szűrőt dobnék a 2. sorra, az alapján bármely oszlop szerint lehet szűrni, szűrés után kijelölni a szűrt sorokat, aztán copy-paste-el meg beilleszteni a Keres lapra, ennyi(hivatkozások is jók lesznek). -
#49038
Fire/SOUL/CD
félisten
VGYke
#49036
Akkor csak arról van szó, hogy leklónozd a hiperhivatkozást? Ha igen, akkor
1. ELTOLÁS fx-re semmi szükség
2. Csak makróval lehet megoldani (tudom, írtad, hogy makró nélkül, de úgy nem megy)
# ALT+F11
# ThisWorkbook/jobb egér/Insert Module
# beilleszted az alábbi kódotFunction FireGetURLFromHyperlink(MySrcRange As Range) As String
FireGetURLFromHyperlink = MySrcRange.Hyperlinks(1).Address
End Function# így hivatkozol egy hiperlinket tartalmazó cellára
=HIPERHIVATKOZÁS(FireGetURLFromHyperlink(Összes!A2);Összes!A2) -
#49028
Fire/SOUL/CD
félisten
VGYke
#49025
-
#49023
Fire/SOUL/CD
félisten
VGYke
#49021
-
Fferi50
Topikgazda
-
Fferi50
Topikgazda
Szia!
A képleted nem pontos! Az FKERES függvénynek van egy negyedik paramétere, amelyik azt határozza meg, hogy pontos egyezést keressen-e vagy közelítőt. Ha ezt a paramétert elhagyjuk, akkor közelítő egyezést keres.
Ezért a képletedet a 4. paraméterrrel ki kell egészíteni:=HAHIBA(FKERES(DÁTUM($A3;B$2+1;1)-1;RTab;2;0);"")
Üdv. -
-
VGYke
addikt
Bocsánat, most látom lemaradt a kérdésem: az adott feladatra tud valaki egyszerűbb megoldást?
1-munkalapon a "szájbarágós" képletekkel, 2-munkalapon az egymásba másolt képletekkel mutatom be a saját megoldásomat, ami túl bonyolultnak tűnik számomra.
Van egyszerűbb megoldásod?
-
Delila_1
veterán
Mese a megjegyzésekben.
Sub Gyomlal()
'Az A1:A10 tartomány beírása az "eredeti" tömbbe
eredeti = Application.Transpose(Range("A1:A10"))
'Egyformák törlése az A oszlopból
For sor = 10 To 1 Step -1
If Application.CountIf(Columns(1), Cells(sor, 1)) > 1 Then _
Cells(sor, 1).Delete Shift:=xlUp
Next
'A kigyomlált A1:Ax tartomány beírása az "uj" tömbbe
usor = Range("A1").End(xlDown).Row
uj = Application.Transpose(Range("A1:A" & usor))
End Sub -
-
#13042
Fire/SOUL/CD
félisten
VGYke
#13041
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Play_Click()
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
WAVFile = "D:\test.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
Private Sub Stop_Click()
Call PlaySound(vbNullString, 0&, SND_ASYNC Or SND_FILENAME)
End SubMegjegyzés
A deklarációba bekerült nálam a PtrSafe, mert x64-es a rendszerem. 32 bites rendszernél nincs rá szükség. -
#13040
Fire/SOUL/CD
félisten
VGYke
#13039
-
poffsoft
veterán
If Not IsError(Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0) Then Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0)
legalábbis gugli szerint
az előző kérdésemre senki semmit?[link]
-
VGYke
addikt
Magamnak válaszolok, de hátha valaki tudja a megoldást.. Az a baj, a VB kiakad a vasúti sínnél (hiányzik).Átírtam a fentieket (gondolkodás nélkül, primitíven):
Do While Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0) = True
A Do While -ba írtam már mindent: "most: TRUE, előbb>0; isnumeric(), stb", nem hathtja meg. A Vasúti sínnél kiakad.
-
Delila_1
veterán
Egy kicsit egyszerűsítettem a 2. adatnál. Kevesebb változó, kevesebb számolás.
El tudod küldeni? Megnézném, mi lassítja.
A változók nevét érdemes úgy meghatározni, hogy utaljanak a tartalmukra.Sub Kitolt_1()
Dim WS As Worksheet
Dim sor%, usor%
Set WS = Sheets("Lekérdezés")
usor% = WS.UsedRange.Rows.Count
For sor% = 1 To usor% - 1
Cells(sor% + 1, 1) = WS.Cells(sor%, 1)
szla = WS.Cells(sor%, 2)
Cells(sor% + 1, 2) = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
'......hasonló 8. oszlopig
Next sor%
End Sub -
Delila_1
veterán
Az ActiveSheet.UsedRange.Rows.Count az aktív lap utolsó kitöltött sorának a számát adja, az ActiveSheet.UsedRange.Columns.Count pedig az oszlopét.
Ebből következik, hogy a ter nevű változónak az A1 cellától az utolsó használatban lévő oszlopig és sorig tartó területet adjuk meg. Ebben a tartományban keressük a meghatározott szöveget.
Én is autodidakta módon tanulok.
-
Delila_1
veterán
Az ActiveSheet.UsedRange.Rows.Count az aktív lap utolsó kitöltött sorának a számát adja, az ActiveSheet.UsedRange.Columns.Count pedig az oszlopét.
Ebből következik, hogy a ter nevű változónak az A1 cellától az utolsó használatban lévő oszlopig és sorig tartó területet adjuk meg. Ebben a tartományban keressük a meghatározott szöveget.
Én is autodidakta módon tanulok.
-
Delila_1
veterán
A makró kiírja a Blabla szöveget tartalmazó cella címét, és beteszi a sor és az oszlop változókba a címnek ezt a két adatát, további felhasználás céljára.
Sub keres()
Dim ter As Range, CV As Variant, sor As Long, oszlop As Long
Set ter = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, _
ActiveSheet.UsedRange.Columns.Count))
For Each CV In ter
If CV = "Blabla" Then
sor = CV.Row: oszlop = CV.Column
MsgBox CV.Address
Exit For
End If
Next
'A sor és oszlop változó további felhasználása
'...
'...
End Sub -
poffsoft
veterán
nem lehetne elnevezned a tartományokat mondjuk H : H ="forrás" és G : G ="cél"?
és cells helyett a range("forrás").range("A" & I) -vel hivatkozni a cellákra?Vagy másik megoldás a lapodhoz rendelni egy subot, ami minden változáskor megkeresi, hogy hová került a H oszlop fejléce. De ezt nem mondanám elegánsnak...
-
VGYke
addikt
Lejárt az időm, bocs... a fentiekhez annyit, hogy egy megoldást tudok:
Do - Loop feltételes ciklussal megkeresem mi van a "H1"-be mint oszlop elnevezésbe írva és ha az ami, oda kell beírni az adatokat (példámban ahol vége a ciklusnak, 8, ha törlünk, hozzáadunk oszlopokat, akkor más).
De nincs erre valami elegánsabb, rövidebb megoldás?
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Autós kamerák
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- hdanesz: Hyundai Ioniq 28 kWh 2018 2. felvonás
- Gamepad
- Apple MacBook
- Milyen program, ami...?
- Honor 200 Pro - mobilportré
- Milyen belső merevlemezt vegyek?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Új, bontatlan World of Warcraft gyűjtői kiadások
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Antivírus szoftverek, VPN
- Apple iPhone 13Pro 128GB Kártyafüggetlen 1Év Garanciával
- Realme 8i 64GB / Normál állapotban / 12 hónap jótállással
- BESZÁMÍTÁS! MSI B550M R7 3700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB NZXT H5 Flow RGB 650W
- CarPlay / Android Auto adapter meglévő Android alapú fejegységhez
- Csere-Beszámítás! Olcsó RTX Gamer Laptop játékra! I5 11400H / RTX 3050Ti / 16GB DDR4 / 512GB SSD
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest