-
IT café
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
-
Magnat
veterán
Üdv,
hogyan lehetséges egy cellára egyszerre igaz, hogy:
IsEmpty:false
Len:0
.Text= semmi
.Value= semmi
WorksheetFunction.IsText=trueTehát elvileg text, nem üres, mégis 0 a hossza és nincs tartalma... Ez egy konzekvens állapot v vmi bug? A tábla egyébként Oracle Forms-ban lett előállítva vmilyen pluginnal, valamit frissítettek az alkalmazáson és azóta ezt csinálja. Régebbi változattal kimentett tábláknál ugyanilyen celláknál az IsEmpty érték true. (Ezen a különbségen szépen el is hasalt a Vba scriptem, ok, át tudtam írni a Len használatával, de azért kíváncsi lennék, mi a szösz ez.)
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz poffsoft #32844 üzenetére
Köszi azért, átírtam mindenhol len-re, azzal műxik.
Még egy kérdés, nem csak neked : Az Intellisense működése nem tiszta... pl akarom tudni a Cells metódusait, tulajdonságait, stb. Beírom, h "Cells." és a pont lenyomása után segít az Intellisense - vagy ha nem, akkor Ctrl+J-re biztosan. Akkor is segít, ha ezt írom: "Cells()." - viszont pont úgy, ahogy normálisan használni kell, pl. "Cells(1,1).", nem működik. Hiába nyomkodom a Ctrl+J-t, csak dingel. Miért?
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz zsolti_20 #45300 üzenetére
Szia
csinálsz egy formot (Userform1), rá egy Listboxot (Listbox1), aztán:
Sub Popup()
Dim cel As Range
Dim selectedRange As Range
Set selectedRange = Application.Selection
UserForm1.ListBox1.Clear
For Each cel In selectedRange.Cells
UserForm1.ListBox1.AddItem (cel.Value2)
Next cel
UserForm1.Show
End Sub
Ez a szelektált cellák tartalmát fogja bedobni a Listbox1-be.
Szerk.: Ha legördülő kell, akkor Listbox helyett Combobox kell.
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
Üdv,
valakinek ha volt ilyen problémája, sikerült esetleg DateTimePicker MonthView modulját behackelni Office 365 alá? Ha nem, mit használtok helyette?
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
Szia,
makró rögzítésével csináld meg egy lapra, aztán:
Sub WSLoop()
Dim I As Integer
For I = 1 To Worksheets.Count
Worksheets(I).Activate
'Ide pedig másold be a generált kódot.
Next
End Sub
A generált kód meg ilyesmi lesz:
Cells(1,2).locked=false
ActiveSheet.Protect password:="pw", UserInterfaceOnly:=Truefeloldásnál értelemszerűen Unprotect ...
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
-
Magnat
veterán
válasz BigBadPlaYeR #48246 üzenetére
Közi előre is, addig meglesem amit küldtél!
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
-
Magnat
veterán
Szia,
a html-ben hogy van a táblázat, tr, th, td tagekkel? Ha igen és dinamikusan kell kiolvasni, van rá kimondottan egy objektum vba-ban (fejből nem emléxem, de az otthoni gépemen megvan), ha pedig egyszeri alkalom, akkor van pl ez a konverter, ha bemásolod a html kódot, csinál belőle táblát, amit csak át kell dobni Excelbe.
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
-
Magnat
veterán
válasz Fire/SOUL/CD #48498 üzenetére
Még beletehetnéd, h az elválasztást is a helyesírás szabályai alapján csinálja
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
-
Magnat
veterán
válasz Magnat #48568 üzenetére
Meg is van: legyen az eredeti tábla neve "Sorrend", a munkalapja amiről másolunk meg "Munka1", illetve egy másik tábla (neve lényegtelen, mert nem hivatkozzuk meg) eredeti munkalapja pedig "Ori" (ebben vannak a rendezendő adatok), mint original. Az első sorban vannak a mezőnevek, én most 4 mezőt hoztam létre vízszintesen és mindegyik alá 2 sornyi adatot. Nyitsz egy új munkalapot az Ori mellé, A1-be beírod:
=VKERES([sorrend.xlsx]Munka1!A$1;Ori!$A$1:$D$3;SOR(A1))
Aztán ezt jobbra elhúzod addig amennyi oszlopod van (4), lefelé pedig addig amennyi a maximális sorszám (3 -> fejléc + 2 adatsor), és kész is. Értelemszerűen a képletben szereplő "$A$1:$D$3" tartományt mindig akkorára kell venni, amekkora az eredeti tábla.
Szerk.: Ha az eredeti sorrendű táblára nincs szükséged, akkor kijelölöd az egész táblát és érték másolással felülcsapod az Ori fület, ezt meg törlöd.
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
Sztem alapból nem tudja, de ha megguglizod, vannak Excelben integrálszámításra megoldások ... mondjuk első körben sokat segítene, ha az adott görbét fel tudnád írni függvényként, mert így ahogy leírtad, már ott is probléma fogsz ütközni, hogy az Excel egyáltalán "tudja", h mit kell kiszámolnia.
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz Fire/SOUL/CD #48713 üzenetére
Köszi, ezt olvastam és tudtam is, h depricated, most visszakerestem azt a táblát amikor teszteltem Office 2021-ben, ahol ezt adja vissza:
Aztán nekiálltam tesztelgetni és kiderült, hogy a fenti képletet valami példából dobtam át és valami elb@szott kódlap lehetett a weblapon ahonnan másoltam, íme alatta a működő képlet:
Mondjuk kissé félrevezető, hogy nem vmi argumentumhibát dob, hanem olyan mintha magával a fv-vel lenne baja...
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz _stick_ #48810 üzenetére
Szia,
Vagy ha nem akarsz a feltételes formázással trükközni, akkor a D2-ben azt mondod, hogy =HA(ÉS(A2="nem fizette be";B2="Nem fizette be");"!";""), aztán ezt lehúzod az aljáig és aki egyik évben sem fizetett, annál ott lesz a felkiáltójel a D oszlopban (amire természetesen szűrni is lehet).
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz wr6vhwxeq #48820 üzenetére
Szia,
A Windows és az Office 2 külön termék, előbbiből van Home és Professional... De nem attól nincs rajta Excel és Word mert Home, hanem mert az egyik Windows, a másik meg Office. Gondolom a fizetés nélküli beszerzést legális keretek között értetted, mert egyébként záros határidőn belül moderálnák a posztodat Egyébként itt a HA!-n is találsz aprópénzért legális Office kulcsot.
Egyébként nem akarok a zsebedben turkálni, de elég drágán adhatta az ismerősöd azta kulcsot, ha bármilyen havi fizetés felét kérte érte.[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz bteebi #48927 üzenetére
Szia,
Set eredmenyek = ActiveSheet.Range("B2:B10,D2:D10,F2:F10")
Vizsgal = false
For Each cella In eredmenyek
If Vizsgal Then
If Abs(Cella - PreCell) < 1 Then
Application.Speech.Speak "Please check", SpeakAsync:=True
Else: Application.Speech.Speak "OK", SpeakAsync:=True
End If
Else
Vizsgal = true
End If
PreCell = Cella
Next[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz bteebi #48955 üzenetére
Nmit, arra, h az első cellát még nincs mivel hasonlítsa, így meg az első alkalommal az else ágra fut, átbillenti a Vizsgal-t true-ra és a második cellától kezdve vizsgál mindig az előzővel.
Igazából sztem csak a vba "engedékenységének" köszönhető, h a Vizsgal nélkül nem fut hibára az első körben, hiszen akkor a PreCell-nek még nincs is értéke, szóval vagy Null vagy vmi szemét van benne, szigorúbb nyelvek esetében sztem exceptiont dobna. (Ha meg a ciklus előtt adnál értéket a PreCellnek, pl azt, h PreCell=0, akkor meg az lenne a gond, h ha az első mezőben szintén pont 0 az érték, akkor "Please check"-re fut ok nélkül ... szóval sztem ezért korrekt a Vizsgal változóval)[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz Fferi50 #49978 üzenetére
Igen, mondjuk a Text amiatt is necces, h ott mindig azt kapod ami éppen ki van írva, szóval ha össze van nyomva a cella és nem fér ki a valós tartalom, akkor a textben sem lesz benne (meg elég lassú is)... a Value2 annyiban is jobb mint a Value (ez annak a folyománya amit írtál), h az általad is említett currency és date típusoknál adatvesztést is okozhat tizedesek tekintetében, illetve kicsit lassabb is a Value2-nél: [link]
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
Üdv,
rosszul emléxem, h régebben volt valamelyik Excel verzióban olyan lehetőség, h ha egy oldalra akarok mindent kinyomtatni, akkor szélességben és magasságban is ki tudta maxolni az oldalt úgy, h a szükséges irányba torzította is a nyomtatási területet? Excel 2021-ben kellene ilyet csináljak, de nem találok ilyen opciót sajnos...
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Magnat
veterán
válasz Lasersailing #50490 üzenetére
Szia,
bakker hogy nem ütötte ki a szememet, nagyon köszi
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
Új hozzászólás Aktív témák
- Lakáshitel, lakásvásárlás
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Ford topik
- Tőzsde és gazdaság
- Milyen belső merevlemezt vegyek?
- Luck Dragon: Asszociációs játék. :)
- Nyaralás topik
- KuKirin G4 - a sebesség ára
- 3D nyomtatás
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen