-
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 m.zmrzlina #11704 üzenetére
Megjeleníteni egyik form-ról a másikat próbáld meg így (UserForm1-en lévő CommandButton1-el jeleníted meg a UserForm2-őt, Modal módban (a Modal mód azt jelenti, hogy amíg az adott ablakot/Form-ot be nem zárod, addig nem tudsz kattintani máshova, se munkafüzetre, se másik form-ra stb))
Private Sub CommandButton1_Click()
UserForm2.Show vbModal
End SubA UserForm2-ön lévő CommandButton1-el meg így zárd be a UserForm2-őt.
Private Sub CommandButton1_Click()
Unload Me
End SubEz Nálam kifogástalanul működik évezredek óta...
[ 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)
-
félisten
válasz m.zmrzlina #11707 üzenetére
És ha simán az ablak/form jobb felső sarkában lévő X-el zárod be, akkor is ez a szitu?
Badb0y
Ezt nem kell indítani, ez egy függvény, amit úgy használhatsz, mint pl a SZUM függvényt. Ha új modulba bemásolod a kódot (első bekezdés), amit adtam, akkor egy adott cellán állva elkezded begépelni, hogy =FSCD és már látod is a függvény nevét meg hogy egy cellát kell megadni bemenő paraméterként.[ 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)
-
félisten
válasz m.zmrzlina #11710 üzenetére
Először is egy új/üres munkalappal kezdj, arra tegyél egy activex CommanButton-t, ami megjeleníti a UserForm1-et, a UserForm1-re megint egy CommandButton-t, ami negjeleníti a UserForm2-öt, UserForm2-re egy CommandButton, ami bezárja. Mindezt úgy, ahogy korábban írtam(abban a formában, a modal-t is úgy használva), semmi más.
Ha ez működik, akkor a VBA kódoddal van gond, ami akár abból is adódhat, hogy különböző események is fel vannak programozva, és esetleg "keresztbe tesznek" egymásnak stb.
Így legalább kiderül, hogy merre kell keresni a hibát. Ha a kódodban, azt sajnos csak Te tudod megtenni/javítani...[ 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)
-
félisten
válasz Badb0y #11711 üzenetére
Pontosan melyik sorban (a notebook.xls A oszlopában) van a dupla szóköz?
A pl TOSHIBA helyett Toshiba megoldható szerintem, mert a gyártó kerül az első helyre mindig, viszont ugye a típusszámnál hülyén néz ki a pl NVS1234 helyett a Nvs1234, de ha így kell, az is kivitelezhető.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)
-
félisten
válasz Badb0y #11715 üzenetére
Function FSCD_GetMachineInfo(MyRange As Range) As String
Dim MyString As String
Dim MyArray() As String
Dim MyRightMarker_Good() As Variant, MyRightMarker_Bad() As Variant
MyRightMarker_Good = Array("11.6", "12.1", "12.5", "12.6", "13.1", "13.3", "14.1", "15.6", "17.3", "18.4")
MyRightMarker_Bad = Array("11,6", "12,1", "12,5", "12,6", "13,1", "13,3", "14,1", "15,6", "17,3", "18,4")
MyString = MyRange.Value
For i = 0 To UBound(MyRightMarker_Good)
MyString = Replace(MyString, MyRightMarker_Bad(i), MyRightMarker_Good(i))
Next i
MyString = Replace(MyString, "BONTOTT", "")
MyString = Replace(MyString, "NB", "")
MyString = Trim(MyString)
MyString = Replace(MyString, ",", " ")
MyString = Replace(MyString, " ", " ")
MyString = Replace(MyString, " ", " ")
MyArray = Split(MyString, " ")
MyString = ""
For i = 0 To UBound(MyArray)
If Not (InStr(1, MyArray(i), ".", vbTextCompare) > 0 Or _
InStr(1, MyArray(i), ",", vbTextCompare) > 0 Or _
InStr(1, MyArray(i), """", vbTextCompare) > 0) Then
If i = 0 Then
MyString = MyString + StrConv(MyArray(i), vbProperCase) + " "
Else
MyString = MyString + MyArray(i) + " "
End If
Else
Exit For
End If
Next i
FSCD_GetMachineInfo = Trim(MyString + "Laptop")
End Functionm.zmrzlina
Igen, ezek azok a hibák, amit csak a kód készítője tud kibogarászni, de a lényeg, hogy meglett a bug...[ 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)
-
félisten
válasz Badb0y #11718 üzenetére
Én a szerkesztési idő alatt még módosítottam a kódon, szerintem az idő alatt másoltad ki.
Nem kell módosítani rajta semmit, mert akkor nem hagy ki szóközt a gyártó meg a típus között pl ToshibaSatellite L650-17Q LaptopTöröld a függvényt és másold be újra kódot és akkor nincs szükség módosításra.
(Az elvvel teljesen ellentétes az a módszer)Amúgy meg szívesen.
[ 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)
-
félisten
Makróval megoldható, csak pár infóra szükség van
1. Melyik oszlopban vannak a Típusok, és melyikben az időadatok?
2. Van-e fejléce az oszlopoknak?
3. Melyik cellától kezdődjön az összesítő táblázat? (Pl C1-től és függőlegesen legyenek a típusok és melléjük a MIN/MAX értékek)[ 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)
-
félisten
Berakom ezt a makrót is, ha másért nem, hátha mások találnak benne a későbbiekben hasznosítható ötletet.
Private Sub CommandButton1_Click()
'FSCD_MIN_MAX_With_Unique Macro
Dim MyCell As Range
Dim MyCollection As New Collection
Dim MyValue As Variant
Dim MyTypeSrcRange As Range, MyTimeSrcRange As Range, MyDestRange As Range
Dim MyTypeColumnRow As Range, MyTimeColumnRow As Range
Dim MySrcColumn As String
Dim MySrcRow As Integer
Dim MyFxs As WorksheetFunction
Set MyFxs = Application.WorksheetFunction
Application.EnableEvents = False
Application.ScreenUpdating = False
'A TÍPUS adatok ettől a cellától kezdődnek
Set MyTypeColumnRow = Range("A2")
'Az IDŐ adatok ettől a cellától kezdődnek
Set MyTimeColumnRow = Range("B2")
'Az elkészítendő TÁBLÁZAT kezdőcellája (táblázat bal-felső sarka)
Set MyDestRange = Range("C2")
Set MyTypeSrcRange = Range(MyTypeColumnRow.Address & ":" & Chr(MyTypeColumnRow.Column + 64) & Cells(Rows.Count, Chr(MyTypeColumnRow.Column + 64)).End(xlUp).Row)
Set MyTimeSrcRange = Range(MyTimeColumnRow.Address & ":" & Chr(MyTimeColumnRow.Column + 64) & Cells(Rows.Count, Chr(MyTimeColumnRow.Column + 64)).End(xlUp).Row)
For Each MyCell In MyTypeSrcRange
On Error Resume Next
MyCollection.Add MyCell.Value, CStr(MyCell.Value)
Next MyCell
i = 1
MyDestRange.Offset(0, 0) = "Típus"
MyDestRange.Offset(0, 1) = "MIN"
MyDestRange.Offset(0, 2) = "MAX"
For Each MyValue In MyCollection
MyDestRange.Offset(i, 0).NumberFormat = "@"
MyDestRange.Offset(i, 0) = MyValue
MyDestRange.Offset(i, 1).NumberFormat = "[h]:mm:ss"
MyDestRange.Offset(i, 1).FormulaArray = "=MIN(IF(" & MyTypeSrcRange.Address & "=""" & MyDestRange.Offset(i, 0) & """," & MyTimeSrcRange.Address & "))"
MyDestRange.Offset(i, 2).NumberFormat = "[h]:mm:ss"
MyDestRange.Offset(i, 2).FormulaArray = "=MAX(IF(" & MyTypeSrcRange.Address & "=""" & MyDestRange.Offset(i, 0) & """," & MyTimeSrcRange.Address & "))"
i = i + 1
Next MyValue
Set MyTypeSrcRange = Nothing
Set MyTimeSrcRange = Nothing
Set MyDestRange = Nothing
Set MyTypeColumnRowe = Nothing
Set MyTimeColumnRowe = Nothing
Set MyCollection = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub[ 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)
-
félisten
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)
-
félisten
válasz Badb0y #11735 üzenetére
Nincs, de szerintem tudom mi szívatja a buksidat. (Meg ezek szerint minden topikosét)
Ha kimásolod a kódot, majd beillszted az Excelbe, akkor a
MyString = Replace(MyString, ",", " ")
MyString = Replace(MyString, " ", " ")
MyString = Replace(MyString, " ", " ")helyett ezt másolja be, azaz kiszedi a kódból a többszörös space-t.
MyString = Replace(MyString, ",", " ")
MyString = Replace(MyString, " ", " ")
MyString = Replace(MyString, " ", " ")Megkérdem, hogy ezt a PH motor avagy valami más pl böngésző helyesírás ellenörzője stb okozza-e.
[ 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)
-
félisten
válasz Badb0y #11737 üzenetére
A böngésző a ludas, viszont kipróbáltam és a Google Chrome rendes munkát végez, olyannyira, hogy az Excelbe beillesztett makrókód formátumában is megegyezik a PH!-s formátummal. (Szóköz/tabulátorok stb, mind tökéletes)
Szóval azt tudom csak jelenleg javasolni, hogy aki forrást másol PH!-ról, az tegye fel a Chrome-ot...
[ 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)
-
félisten
válasz Badb0y #11767 üzenetére
Pl mik lennének a feltételek? Sima sorokról van szó, avagy esetleg szűrt sorokról (filter)?
UI: Olvastam a privet, de nem tudtam megoldani, mivel töröltem a leveleid, így a csatolmányokat is. Csak addig tartok meg hasonló küldeményeket, amíg az adott feladat el nem készül.
[ 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)
-
félisten
válasz Badb0y #11769 üzenetére
A linkelt macro teljesen rendben van, ha nálad nem működik, annak az lehet az oka, hogy nem módosítottad a saját adataidnak megfelelően (pl nem az A oszlopban vannak az adataid stb)
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)
-
félisten
válasz Badb0y #11775 üzenetére
A felgyülemlett levelezésemet elintézem, aztán megírom a macro-t, bár lehet addigra megcsinálja a kódot valaki más...
[ 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)
-
félisten
válasz Badb0y #11775 üzenetére
Private Sub CommandButton1_Click()
Dim MyRange As Range
Dim MyFirstRow As Long, MyLastRow As Long
Dim MyArray As Variant
'Ettől a cellától kezdődnek az adatok
Set MyRange = Range("H1")
'Az ezeket a string-eket tartalmazó sorok lesznek törölve
MyArray = Array("BONTOTT", "Scratch", "Refurbished")
MyFirstRow = MyRange.Row
MyLastRow = ActiveSheet.UsedRange.Rows.Count
For i = MyLastRow To MyFirstRow Step -1
If Not IsError(Application.Match(Cells(i, MyRange.Column).Value, MyArray, 0)) Then Cells(i, MyRange.Column).EntireRow.Delete
Next i
End SubMindenki 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)
-
félisten
válasz Badb0y #11778 üzenetére
Mert ez nem függvény, hanem a egy gomb eseménye, egész pontosan amikor rákattintasz a parancsgombra. (ActiveX vezérlő CommandButton)
Az ilyen jellegű makrókat nem függvényben írjuk, hisz nem az a cél, hogy beírd egy cellába, aztán lemásold.
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)
-
félisten
válasz Badb0y #11780 üzenetére
1. Melyik excel sheet-hez adtad hozzá? (ahhoz kell, amin az adataid vannak a H oszlopban)
2. Ha ráklikkeltél (duplaklikk ugye), akkor létrejön automatikusan ez:Private Sub CommandButton1_Click()
End SubÉrtelemszerűen, az általam adott makró kódjából csak az ez közti kódot kell már csak bemásolni, nem az egészet, mert akkor hibát fog dobni.
3. Mi az hogy nem megy? Hibát dob? Nem azt csinálja, amit szeretnél?
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)
-
félisten
válasz Badb0y #11782 üzenetére
Első körben, amikor mented, akkor nem ártana makróbarát munkafüzetként elmenteni. Ha úgy sem jó, akkor meg küld el mail-ben ezt a táblát (ezt a CSV-t)
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)
-
félisten
-
félisten
válasz atillaahun #11785 üzenetére
[ 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)
-
félisten
válasz atillaahun #11785 üzenetére
Ja bocsesz, fáradt vagyok már azt hiszem, van egyszerűbb is:
=PLAFON(A1;50)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)
-
félisten
válasz atillaahun #11789 üzenetére
Nem tudom, hogy ez kihatással-e van a "problémádra", de talán megér egy próbát. [link]
Arra ügyelj, hogy ne a letölthető fix-et használd, hanem kézzel állítsd be a registry-ben, amit kell. Ha nem jönne össze a dolog, akkor ez a fix vissza már nem állítja dolgokat (régebben legalábbis nem tette)Faterkam
Ne viccelj már, ez általános iskolai matek... [link][ 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)
-
félisten
válasz Faterkam #11792 üzenetére
Először is bocsesz, tényleg nem sértésnek szántam, pont arra gondoltam, hogy csak ilyen leblokkolásról lehet szó...
Szóval a feladat annyi (maradva a korábbi példádnál), hogy külön-külön hány százaléka a 225/300/1200 az 1500-nak.
=225/1500
=300/1500
=1200/1500Ezeket a cellákat pedig formázd %-ra a cellaformázás segítségével.
természetesen cellákra is hivatkozhatsz pl A1-ben van a 225, B1-ben a 300, C1-ben az 1200 és D1-ben az 1500, akkor
=A1/D1
=B1/D1
=C1/D1Mindenki 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)
-
félisten
-
félisten
válasz atillaahun #11797 üzenetére
Akkor nem, mert ez biztonsági beállítás, amit minden gépen a registry-ben meg kellene tenni.
Mint írtam, ez csak tipp volt részemről, az sem biztos, hogy ez segített volna a dolgon. Lehet, hogy valaki más tud majd segíteni...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)
-
félisten
válasz Badb0y #11782 üzenetére
Private Sub CommandButton1_Click()
Dim MyRange As Range
'Ettől a cellától kezdődnek az adatok
Set MyRange = Range("C2")
For i = ActiveSheet.UsedRange.Rows.Count To MyRange.Row Step -1
If (InStr(1, Cells(i, MyRange.Column).Value, "BONTOTT", vbTextCompare) > 0 Or _
InStr(1, Cells(i, MyRange.Column).Value, "Scratch", vbTextCompare) > 0 Or _
InStr(1, Cells(i, MyRange.Column).Value, "Refurbished", vbTextCompare) > 0) Then
Cells(i, MyRange.Column).EntireRow.Delete
End If
Next i
End SubMindenki 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)
-
félisten
-
félisten
válasz Sas madár #11869 üzenetére
A oszlop kijelöl és pénznem-re formáz, majd feltöltöd az adatokka
B oszlopot feltöltöd a darabszámokkal
C oszlop kijelöl és pénznem-re formáz, majd a C1 cellába ezt a képletet beírod =A1*B1, majd a C1 cella sarkát megfogod az egérrel és lemásolod ameddig kell.
Az utolsó adatot tartalmazó C cella alá pedig beszúrsz egy SZUM függvényt.
Mindez képben[ 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)
-
félisten
-
félisten
válasz m.zmrzlina #11936 üzenetére
Végül is meg is válaszoltad magadnak a 2 módszerrel....
Nyilván a MAX tartományt vár, VB-ben a B:B az nem tartomány, sima hiba.maxpont = Application.WorksheetFunction.Max(Range("B:B"))
vagy (bár ez nem biztos, hogy működni fog)
maxpont = Application.WorksheetFunction.Max([B:B])
[ 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)
-
félisten
válasz Sir Pocok #11952 üzenetére
Szövegből oszlopok funkció. Pl kijelölöd az A oszlopot/szövegből oszlopok/tagolt/elválasztó karakter a szóköz/rendeltetési hely =$B:$B és OK.
(Egymás alá a szövegből oszlopok funkció nem foga beszúrni. Ha mindenképp ez a feladat, akkor képlettel/makróval lehet operálni)[ 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)
-
félisten
válasz Sir Pocok #11956 üzenetére
Úgy lettek beexportálva valamilyen módszerrel és lehet, hogy a tizedeselválasztók nem felelnek meg az Office beállításainak. Szorozd meg 1-el.
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)
-
félisten
válasz Sir Pocok #11959 üzenetére
Segédoszlopot vegyél fel és abba (ha pl az A oszlopban vannak az adatok), írd be ezt a képletet =A1*1 és másold le ameddig kell. Azt is megpróbálhatod, hogy a =SZÁM(A1) képletet használod és másolod le. Ha ez IGAZ értéket ad, és mégsem tudsz számolni a cellákkal, akkor más gebasz van. (Ha van makró is a munkafüzetben, az is szokott ilyen jelenséget okozn)Az Office naprakész-re van frissítve?Sir Pocok #11960
Figyelmesebben olvashatnál, pont ezt írtam korábban...[ 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)
-
félisten
válasz Apollo17hu #11997 üzenetére
Cseréld le erre: SZÖVEG(D2;"éééé.hh.nn - nnnn")
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)
-
félisten
-
félisten
-
félisten
válasz Geryson #12100 üzenetére
Magyarul a pl =SZUM(Munka3!A1:A5) képletet másolod és ebből =SZUM(A1:A5) kellene hogy legyen? Ha igen, akkor simán átmásolod, majd CTRL+H, a keresett szöveghez Munka3! és a csere erre mezőt meg üresen hagyod. Így a munkalapon, az összes képletben lecseréli.
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)
-
félisten
válasz Sickboy25 #12103 üzenetére
Hát így konkrétan nem tudom, hogy mit csesztél el, ha egyáltalán elcsesztél, mert közel sem biztos. A hivatkozásokat lehet kezelni, konfigolni, ehhez a Adat fül/Kapcsolatok csoport/Hivatkozások-ra kell kattintani. (Ez csak akkor aktív, ha a munkafüzetben valóban vannak hivatkozások (külső/belső))
Ott be lehet állítani, hogy honnan és mit frissítsen az adott munkafüzet és azt is, hogy azt automatikusan tegye-e.
Először nézd meg ezt, hátha ez megoldja a problémát.
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)
-
félisten
válasz bugizozi #12105 üzenetére
Pontosan nem tudom miért van szükséged ciklusra (ami automatikusan makró-t jelent), de a SZÁM függvénnyel megvizsgálható, hogy egy adott cella számot avagy nem azt tartalmaz.
=SZÁM(A1) - IGAZ értéket ad vissza, ha a vizsgált cellában szám található, minden más esetben HAMIS értékkel tér vissza.
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)
-
félisten
Egy fontos dologra ki kell térni, amit általában nem tudnak/elfelejtenek stb a versenyzők, nevezetesen azt, hogy az FKERES (és még számos más függvény) az első előfordulásig fut.
Ez lefordítva annyit jelent, hogy ha pl a cégnél több azonos nevű dolgozó van (pl Kovács János, ami gyakori név), akkor az FKERES (a megadott tartományban) az első találatkor (az első Kovács János-nál) le fog állni minden esetben, az összes Kovács János-nak ugyanaz lesz a címe.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)
-
félisten
-
félisten
válasz lajszer #12148 üzenetére
Ha úgy érted, hogy annak a számolótáblának weben is ugyanúgy kellene működni(be lehessen vinni adatokat stb), az "felejtős". Azért az macskaköröm, mert vannak olyan progik, amelyek képesek HTML kódot előállítani, de azok általában nem szoktak illeszkedni a webfejlesztő elképzelésébe jobb azt magadnak megírni.
Azt, hogy ezt milyen módon oldod meg, az rajtad múlik, lehet PHP-vel, Flsah Action Scriptel, vagy legegyszerűbben javascript-el...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)
-
félisten
válasz paatrick #12150 üzenetére
# Jobb egér a képen/Makró hozzárendelése
# Makró helye lenyíló -> Ebben a munkafüzetben és katt az Újat gombon
# a megjelenő ablakban a megjelenő kódblokk közé másold be az alábbi kódot.Range("B1").Value = Range("B1").Value + 1
Ha ezt megcsináltad, akkor a teljes kódnak így kell kinéznie
Sub Kép1_Kattintás()
Range("B1").Value = Range("B1").Value + 1
End Sub[ 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)
-
félisten
válasz zoli1962 #12153 üzenetére
Korábbi Excel-el pl így: =INT(VÉL()*(C1-B1)+B1)
B1->Mettől, C1->meddig és így a B1:C1-1 tartományban ad vissza egész értéket, azaz ha B1=5, C1=10, akkor 5-től 9-ig.
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)
-
félisten
-
félisten
-
félisten
válasz bozsozso #12262 üzenetére
.Selection.TypeText Text:=" " & Application.WorksheetFunction.Text(Cells(sor, 8), "yyyy. mmmm d") & _
" - " & Application.WorksheetFunction.Text(Cells(sor, 9), "yyyy. mmmm d")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)
-
félisten
válasz tezse66 #12281 üzenetére
[link]
természetesen ez nem a neked szánt kód, csak abban segít, hogy hogyan és hova kell majd bemásolnod/megírnod a kódot, ami egy függvény.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)
-
félisten
válasz Regirck #12284 üzenetére
És mindezt alkalmanként szeretnéd megkapni avagy automatikus legyen a dolog, azaz ha módosítasz egy számon a listában, kitörölsz vagy hozzáadsz sort, akkor is legyen legenerálva egy ilyen táblázat?
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)
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest