-
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
-
thee
csendes tag
Sziasztok!
Makróval szeretném ellenőrizni, hogy egy file tényleg létezik-e.filename = "c:\test.txt"
If "file tényleg letezik" Then
Range("A1").Value = "letezem"
Else
Range("A1").Value = "nem letezem"
End IfIf és a Then közé sok mindent írtam már, de nem jártam túl sok sikerrel....
Hogy kell ezt csinálni?Köszönöm!
-
thee
csendes tag
Nnno, a meglévő megoldást sikerült finomítani.
Nem a koordinátákat értékeit arányosítja, hanem a koordináták logaritmusát veszi alapul az arányosításhoz, így már a logaritmikus tengelyeken ábrázolt görbét sikerült viszonylag jól megközelíteni egy koordináták közötti egyenessel.Ez már épp elfogadható megoldást ad, de a jó lenne csinálni vagy szerezni vmi free curve fit tool-t az Excelhez.
Szóval tippek, tapasztalatok továbbra is sokat segítenének.
-
thee
csendes tag
Sziasztok!
Adott egy "pont x y" grafikon (Excel 2010), logaritmikus az x és az y tengely, kb 20 adatpárból van kirajzolva a görbe, adatok elég nagy tartományban mozognak (1,E+01 - 1,E+10).A feladat az lenne, hogy egy "y" érték alapján meg kellene adni a görbe szerinti "x" értéket.
Erre van valami beépített lehetőség?Használható trendvonalat nem tudtam a görbére ráilleszteni.
Van már egy megoldás:
Függvényekkel az adatokból keresse meg azt, hogy az adott "y" érték melyik két koordináta között helyezkedik el, és egy egyszerű arányosítással adjon meg egy "x" értéket.
Gond az, hogy egy logaritmikus tengelyen ábrázolt görbét ez elég durván közelít meg (pláne ilyen kevés koordináta esetén), ennél pontosabb adatokra lenne szükségünk.A grafikonon gyönyörűen kirajzolja a görbe minden egyes pontját, ez alapján nem lehet lekérdezni?
Esetleg egy újabb Excel verzió ügyesebb ebben?Már az is nagy segítség lenne, ha ki lehetne íratni a görbe pontjait vmi nagyon sűrű osztással (akár más programmal is). Ha elég sok koordinátánk van, akkor a fentebb leírt függvényes módszerrel már egész pontosak tudnánk lenni.
Köszönöm!
-
thee
csendes tag
Sziasztok!
Ezt a sort szeretném úgy átalakítani, hogy egy változó segítségével az oszlopszámhoz hozzá tudjak adni pl 2-t:
Worksheets("Munka1").Range("G14:G16") = ""
Ha .Range helyett .Cells-t használok, akkor tudok az oszlopszám mellé egy változót rakni, de a .Cells-el nem igazán sikerült tartományt kijelölni... -
#19344
thee
csendes tag
the radish
#19341
thee
csendes tag
válasz
the radish
#19341
üzenetére
A Szöveg függvénnyel fix szélességűre tudod venni a számokat:
szerk:
Bocs, a kép lemaradt:
-
thee
csendes tag
Sziasztok!
Van egy majd ezer soros vb kód, ami egy kicsit nehezen áttekinthető, pláne az alap 2010-es office-hoz járó VB for Applications felülettel.Szóval tudtok ajánlani egy olyan text editor-t, ami kezeli a VB kódját, és pl egy IF vagy Do While..Loop parancsok elejére és a végére rámutatna, esetleg ezekhez a parancsokhoz tartozó kódot össze lehetne "csukni" egy sorba?
-
thee
csendes tag
Kösz!
Sok ebben a számomra ismeretlen parancs, ha jól látom, akkor worksheet-re menti az adatokat.
Most én is hasonló megoldást használok, de lehet, hogy tömbre kéne váltani, mert az a módszer könnyebben kezelhetőnek és gyorsabbnak tűnik, nekem meg sok és sokféle műveletet kellene csinálnom az adatokkal. -
thee
csendes tag
Sziasztok!
Két témában lenne kérdésem.
1. Könyvtárat szeretnék létrehozni VB-vel, viszont nem tudom azt, hogy létezik-e már az adott könyvtár, és a MkDir parancsnál leáll a program futása, ha már létezik az emlegetett könyvtár.
Szóval miképp lehetne ezt megoldani? Valahogy lehet ellenőrizni azt, hogy létezik-e már a könyvtár?2. Egy TextFile-ban van rengeteg adat, amit egy 10001 soros és 401 oszlopos táblázatba lehetne elrendezni. Egy darab tömbbe be lehet olvastatni ennyi adatot?
Kétdimenziós tömb feltöltésére, kiolvasására tudnátok példát mutatni?(Tömb témában egyébként hol lehet jól tájékozódni? Jó lenne valami értelmes infó róla, mert még sose használtam őket, a VB súgójában meg túl sok infót nem találtam.)
Előre is kösz a választ!
-
#13863
thee
csendes tag
Fire/SOUL/CD
#13862
thee
csendes tag
válasz
Fire/SOUL/CD
#13862
üzenetére
Fura, nekem működik.
Data.hu-val eddig nem volt gondom... Esetleg tudsz ajánlani helyette egy jobb oldalt?
-
thee
csendes tag
Lenne nekem is egy kérdésem:
A megnyitott fájl nevét ("InpFileName") csak elérési úttal együtt szerepelt a változóban, csak a fájl nevét így tudtam kibányászni:
Set fs = CreateObject("Scripting.FileSystemObject")
InpFileName = Application.GetOpenFilename("NASTRAN result file(*.pch), *.pch")
' Nev kiiratas a munkalapra
CounterFN = 0
Pch1OpenFileName = InpFileName
LenPch1OpenFileName = Len(Pch1OpenFileName)
Do While CounterFN < LenPch1OpenFileName
Pch1OpenFileNameReverseT = Mid(Pch1OpenFileName, LenPch1OpenFileName - CounterFN, 1)
Pch1OpenFileNameReverse = Pch1OpenFileNameReverse & Pch1OpenFileNameReverseT
CounterFN = CounterFN + 1
Loop
Pch1FileName = Mid(Pch1OpenFileName, LenPch1OpenFileName - Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) + 2, Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) - 1)
Range("a4").Value = Pch1FileNameTudnátok erre egy elegánsabb megoldást ajánlani?
-
#13814
thee
csendes tag
concret_hp
#13811
thee
csendes tag
válasz
concret_hp
#13811
üzenetére
eddig azt hittem, h értem, h mire is lenne szükséged, de úgy látszik, h nem.
le tudnád írni egyértelműbben?
-
#13805
thee
csendes tag
concret_hp
#13804
thee
csendes tag
válasz
concret_hp
#13804
üzenetére
-
#13803
thee
csendes tag
concret_hp
#13801
thee
csendes tag
válasz
concret_hp
#13801
üzenetére
=SZUM(INDIREKT("s1o2";HAMIS):INDIREKT("s"&A1&"o2";HAMIS))
ha az A1 cella értéke 10, akkor b1:b10-et szummáz
-
thee
csendes tag
-
thee
csendes tag
Line Input paranccsal lenne egy olyan bajom, hogy csak PC (CR/LF) formátumú szövegeket tudja soronként beolvasni, Unix (LF) formátumú file-ban lévő soksoros szövegeket csak egy sorként tudja kezeli beolvasáskor
erre a problémára tudok valamit javasolni?
próbáltam már a beolvasást és kiíratást, de a formátuma a létrehozott file-nak ugyanaz maradt
-
#13554
thee
csendes tag
Fire/SOUL/CD
#13552
thee
csendes tag
válasz
Fire/SOUL/CD
#13552
üzenetére
Köszönöm!
-
thee
csendes tag
Megint "elakadtam"..
Ezt az excel-es parancsot szeretném VB-es környezet alatt megírni:=SOKSZOR("kiskutya";5)
Eddig nekem ezt sikerült összehoznom:
Dim Counter, Piece As Integer
Dim Text, Text1 As String
Piece = 5
Counter = 0
Text = "kiskutya"
Do While (Counter < Piece)
Text1 = Text1 & Text
Counter = Counter + 1
Loop
Worksheets("Munka1").Cells(11, 2) = Text1Tudtok ajánlani ennél egy egyszerűbb megoldást?
-
#13542
thee
csendes tag
Fire/SOUL/CD
#13541
thee
csendes tag
válasz
Fire/SOUL/CD
#13541
üzenetére
köszönöm a gyors választ, működik, így utólag már logikusnak is tűnik a megoldás...
-
thee
csendes tag
nekem is lenne egy kérdésem:
a következő részt szeretném átfaragni:
Range("B11:K11").Select
Selection.AutoFill Destination:=Range("B11:K5010"), Type:=xlFillDefaultaz "5010"-es fix érték helyett ezt a számot egy integer-el szeretném megadni
hogy kéne szerintetek ezt megadni?
Új hozzászólás Aktív témák
Fferi50- Formula-1
- Gamepad
- Az eddigi legolcsóbb, 3D V-Cache-t használó CPU-ját hozta forgalomba az AMD
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Milyen billentyűzetet vegyek?
- Mibe tegyem a megtakarításaimat?
- Futás, futópályák
- NOTEBOOK / NETBOOK / Mac beárazás
- Anglia - élmények, tapasztalatok
- Samsung Galaxy Felhasználók OFF topicja
- További aktív témák...
- MS SQL Server 2016, 2017, 2019
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- ÁRGARANCIA!Épített KomPhone Ryzen 9 5900X 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Gamer PC-Számítógép! Csere-Beszámítás! R5 2600 / RX 5700XT 8GB / 16GB DDR4 / 256SSD + 1TB HDD!
- HIBÁTLAN iPhone 14 Pro 256GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen, MS3235
- Okosóra felvásárlás!! Samsung Galaxy Watch 5 Pro, Samsung Galaxy Watch 6 Classic
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest