Hozzászólások
-
SzerzőBejegyzés
-
Azt hiszem meg lett a megoldás. A „helyette” függvény és szorozva 1-gyel.
Köszönöm a jelzést vessző és pont közti különbségre.Potus
CSV FILE ÉS pont (24.6)
Értem 😀 , Tanár Úr. Csak így tanul a nebuló.
Megoldottam, köszönöm szépen!!!Potus
Remek! Köszönöm szépen mindenkinek a megoldást.
Potus
köszönöm!
Potus
köszönöm szépen!
Potus
Helló!
Tökéletes, köszönöm!
Potus
Kedves Delila!
ZSENIÁLIS!
Köszönöm szépen!
Potus
Köszönöm szépen!
Köszi, figyelmetlen voltam. Most már műkődik.
Nem lehet ezt úgy modosítani, hogy meg tudjam határozni, hogy melyik órában melyik kép jelenjen meg? 🙂
Előre is köszi! Potus
Ezt írja…
wrong number of arguments or invalid property assignment
Köszi, probálkozom!
Szia!
Mellékeltem egy képet. Mindenhol ahol van valami ott képlet van. Egy macro az F1,F2,F3-ban változtatja a szöveget és ez a változás változtatja az adatokat. Szeretném, ha nem látszanának a képletek csak az eredmény ill. átírni sem tudná bárki a képleteket. Viszont a CCA feliratú beszúrt alakzatra – saját menű gomb – rakott macroval tudná változtatni az adatokat.
Potus
Attachments:
You must be logged in to view attached files.…és valóban!!!
Hú de kínos!!! 😀
Bocsi! Nem tudom miért ragaszkodom az „f”-hez…
Működik, köszi!!!!üdv.: Potus
köszönöm!
Hello!
Felvittem a kodot, de nekem nem működik.
Azt szeretném, hogy ha beütöm az F3-ba a dátumot ugorjon a kurzor az F10-be ahol az összeget kell beütni.Potus
Attachments:
You must be logged in to view attached files.köszi
köszi
a táblázat
Hát valószínűleg igen. 🙂 De mégis az utolsó 3 képet más-más méretben illeszti be. Honnan tudjam, hogy éppen melyik képet fogja másként méretezni?
köszönöm szépen a megoldást!
a képet a netről szúrom be hiperhivatkozás által
a melléklet
Kedves Imre!
Nagyon szépen köszönöm a választ! Így már tökéletes a project.
Ilyen amikor egy amatör kérdez. Gyakran még a kérdés sem pontos. 🙂
Megint sokat tanultam!köszönöm! Potus
Küldöm a példát. Nem az egész project csak példa…. Pirossal kiemeltem a hibát.
Potus
Hello!
Ez addig müködik amig csak tört számok vannak a web oldalról letöltött adatokban. De sajnos időnként akad benne egész szám is.
üdv: Potus
Köszönöm Delila!!!!! 🙂
üdv, Potus
Köszönöm!!! 🙂
szerintem félreértjük egymást. Az én képemen is látszik, hogy be van állítva min/max .
Ugye ez egy naptár szerűség heti nézete lenne. Ha mondjuk az első hetet nézem és aztán kiváncsi lennék az 53-ra akkor szeretném ha a lefele nyíl következő lépése – 1 után – 53 lenne. És fordítva a felfele nyílnál. 🙂 Lehet ilyet?üdv.: Potus
Hello!
Még egy kérdés…
Nem lehet valahogy végteleníteni a számolást? 53 után 1, 1 után 53?üdv.: Potus
Maradok a spin-nél. Ez a delay hatalmas ötlet, sokkal szimpatikusabb így. 🙂
Szükség van a csicsára is 🙂
ismét köszönöm!!!!!!!!!!!!!!!!!!! Potus
Attachments:
You must be logged in to view attached files.Szia!
az a problémám a spin buttonnal, hogy ráklikkelek és nincs semmi látvány, csak pár másodperc után változik a szám. De addig semmi „info” arró, hogy történne valami. Míg a parancsgomb látványilag „benyomódik” addig a spin button nekem nem 🙂
Attachments:
You must be logged in to view attached files.Azt hiszem tökéletes lett…
Attachments:
You must be logged in to view attached files.az itt kapott válaszok alapján mindig rá kell döbbenjek mennyire egyszerű az élet… 🙂
sokadszor is, köszönöm, Delila !
Hello!
Igen. De úgy emlékszem, hogy régebben amikor csak képet szúrtam be akkor meg örökké kijelőlődött és rendszeresen véletlen elmozdult. De ha lehet valahogyan fixen rögzíteni akkor ez a megoldás is érdekel.
Szia!
Így néz ki a dolog: a parancsgomb egy saját menüt vezérel, a többi activeX-en a „logom” van és néhány infó.Attachments:
You must be logged in to view attached files.azt hiszem ez a megoldás, de ez olyan magyartalan, nem?
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, ” Ft 0,00″)
End Subelőször nullák jelennek meg a textbox-ban, de ahogy elkezdem beütni a számokat a nullák eltünnek, a helyiérték kialakul, viszont nincs tizedes (pedig úgy lenne szép).
Attachments:
You must be logged in to view attached files.Köszönöm a segítséget. Alakulgat, csak…
Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, „### ###.00″ & ” Ft”)
End SubPrivate Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, „# 000.00″ & ” Ft”)
End SubPrivate Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, „### ###.00″ & ” Ft”)
End SubPrivate Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, „# 000.00″ & ” Ft”)
End SubBár milyen formában próbálgatom az első számjegy után a Ft utáni részre ugrik a curzor.
Attachments:
You must be logged in to view attached files.KÖSZÖNÖM!!!
Azt hiszem rossz helyen vannak a kódok a Userform_Initialize-ben. Átraktam a CommandButton1_Clickbe, persze kissé átírva :
If ListBox2 = „HUF” Then
Label1.Caption = Format(Label1.Caption, ” 0.000000 HUF”)
ElseIf ListBox2 = „USD” Then
Label1.Caption = Format(Label1.Caption, ” 0.000000 USD”)
ElseIf ListBox2 = „CHF” Then
Label1.Caption = Format(Label1.Caption, ” 0.000000 CHF”)
ElseIf ListBox2 = „Euro” Then
Label1.Caption = Format(Label1.Caption, ” 0.000000 EUR”)
ElseIf ListBox2 = „GBP” Then
Label1.Caption = Format(Label1.Caption, ” 0.000000 GBP”)
End If80%-ban müködik is. Csak a HUF esetében nem írja HUF-ot számok mellé.
Mi lehet az oka?Köszi!
Sziasztok, Delila, Titok, Kulcsmester!
Jelentős részét egyűtt hoztuk össze… KÖSZÖNÖM!!!!
Pacsi! Potus
de, mi lehet az oka, hogy ilyen „lassan” tölti be a userform-ot?
https://youtu.be/GWimtKGROoYigen… valószínű ez a megoldás befejezése.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(„nulla”).Select
End Sub
köszi, mindenkinek!Attól tartok ez nem megoldás a problémámra. Lehet félreértettük egymást…https://youtu.be/RU7IsYVjHYY
A naptár kezdő oldala előbb látható mint ahogy a belépéshez szükséges userform megjelenik.
A te megoldásod viszont csak a belépés után látszik.2019-03-30-21:10 Hozzászólás: [Resolved] megjegyzés beszúrása következő üres sor valamelyik cellájába -vba #5775Cells(sor, 8).AddComment
Cells(sor, 8).Comment.Text Text:=Me.TextBox16.Valuevalóban, múkődik 🙂 . Azt hittem ez csak rangre igaz.
A következő probléma, hogy , ha ezt a cella tartalmat egy kereső függvény átmásolja egy másik cellába akkor hogyan lehetne megoldani, hogy a megjegyzést is vigye magával…
2019-03-30-20:05 Hozzászólás: [Resolved] megjegyzés beszúrása következő üres sor valamelyik cellájába -vba #5773értem a célzást…
de eddig csak olyat találtam ami egy állandó szöveget egy adott cellába illeszt2019-03-30-18:38 Hozzászólás: [Resolved] megjegyzés beszúrása következő üres sor valamelyik cellájába -vba #5771pl.: sor = ws.Cells.Range(„b9:h375″).Find(What:=”*”, SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
ws.Cells(sor, 2).Value = Me.TextBox3.Value – erre a cellára szeretnék egy másik textbox segítségével megjegyzést beszúrni.a számok egyelőre még fiktívek, nem vagyok ennyíre elmaradva… 🙂
Attachments:
You must be logged in to view attached files.Azt hiszem meg van a megoldás… Ahogy unokaöcsém mondja, mikor őt zargatom hasonló kérdésekkel: „a google a jó barátod…”.
És milyen igaza van, utána olvasgattam, keresgettem éjszaka. De persze könnyebb segítséget kérni… 🙂
Megkerültem a textbox formázást egy – így most már – egyszerű függvénnyel.
De azok a kis zöld zászlócskák azért még zavarnak…Attachments:
You must be logged in to view attached files.OK. Probálkozom , köszönöm!
woooow… ez gyors volt!!!!!!
köszönöm!!!!!! 🙂woooow… ez gyors volt!!!!!!
köszönöm!!!!!! 🙂Eszembe jutott még egy kérdés…. sorry
Mi van akkor ha az oszlopban aminek a celláit törölni akarom a lejárt dátum alapján egyesített (2sor) cellák? Olyankor mit kell átírni a képletben?köszönöm a választ!
Kedves Delila!
Köszönöm a, már ki tudja hanyadik segítséget ill, választ!
Pacsi! Potus
A1-ben van a mai dátum B oszlop tartalmazza a dátumokat, C oszlop a megjegyzéseket.
Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.COUNT, „b”).End(xlUp).Row
For r = lr To 2 Step -1
If Range(„a1”).Value > Range(„B” & r).Value Then
Rows(r).ClearContents
End If
Next r
End Subszerettem volna saját dizájnolt órát a naptár „alkalmazásomba”.
így néz ki a dolog, kicsit lebutitva, de még így is nagy.
A két szintű legördülő már régen meg van , pont ezen link alapján készítettem el. Ez nem probléma…
Bocsi, hogy értetlenkedem, de…
Ezzel a makróval mindig 5 mp3-at játszanék le (muszáj megszámoltatni, meg egyáltalán hogyan kell? ), az albumos mp3 is valójában egy mp3, össze vannak fűzve a számok.
A sub zene() makróban mit jelent a hyperlinks után ez (1) ? Ezzel kell valamit kezdenem, át kell írnom 5-re, a sorok számára?
Beírtam a cellákba a hiperlink képleteket. De még mindig azt írja ki a sub zene() -re, hogy subscript out of range…Amúgy az én régi macrom felejtős, csak a sub zene() kell?
Bocsi, hogy ilyen ostoba vagyok , meg igaz, hogy nem létszükséglet, nem munkához kell, csak amolyan kialakuló félben lévő hobby… De nagyon szeretném „megoldani” a dolgot.
Köszönöm a választ!
Ahogy én értelmeztem : a sub zene() -t tettem a play gombra. A d140-d144 cellákban hoztam létre a hiperhivatkozásokat. pl:
d140: =hiperhivatkozás(„C:\Users\attic\Music\Sting\Sting_An_English_man_in_New_York.mp3”).
Persze átírva az eredeti cella sorokat. A play gombra kattintva „subscript out of range” üzenet jön folyamatosan.Pontosítanám a programom leírását.
Van egy (serviceaudio) munkalap.Ezen kilistázva a gépemen található összes mp3 file elérési útja előadónként oszlopokba. Van olyan mp3 file ami csak egy szám, van olyan ami egy album. Ezen a munkalapon van még 5 oszlop elnevezve előadók1, előadók2 stb..
Van egy (audio) munkalap. Ezen van a wmp control. Van ezen egy olyan makró(előadonként) ami segítségével kiválasztom a gépemen lévő eőadók mappájából a lejátszani kívánt mp3 file-t. Ezen a munkalapon hoztam létre az a150-a154 és a d150-d154 cellákban azt a kétszíntű legördűlő listát amivel alkalmanként összeállítanám a fentebb említett 5 mp3 egymás utáni automatikus lejátszását. Persze a lísta összetétele ezáltal változtatható lenne elképzelésem szerint.
Ha jól értelmezem az általad ajánlott megoldásban ez nem lehetséges ill. mindig át kellene írni a hiperhivatkozásokat. Ami nem lenne baj, ha lehetne automatizálni 🙂 .Üdv Potus
_
már beszereztem egy-két dolgot , ha nem lenne elég a manuális átállítása automatikusra…. 😀
Attachments:
You must be logged in to view attached files.a betyárját… ! Ez volt a megoldás. Pedig tele vagyok virusirtókkal.
köszönöm!!!!Potus
Hello NIN!
Az oldalon a file-t már én sem tudtam megnyítni. De ha minden igaz megtaláltam a gépemen, csak más néven, azt hiszem. A Munka1-en van egy parancs gomb onnan indul a dolog. Remélem ezt kerested.Pacsi! Potus
Attachments:
You must be logged in to view attached files.Abszolút amatőrként valójában egy complett kódot vártam volna 😀 😀 😀
De így is tökéletes. Köszi az ötletet… Kikisérletezgettem a kódot és mükődik. Legalább most is tanultam valamit. 😀
Sajnos nem olyan helyen dolgozom ahol ez a mondat „A két szabadnap az gondolom a Szo V lenne.” megállná a helyét 😀
ime a kód, gondolom elég bonyolultra sikerült, biztosan van egyszerűbb verzió is :
Private Sub cmdBeo_Click()
Dim sor As Integer
Dim WS As Worksheet
Set WS = Worksheets(„beoszt?s”)
sor = WS.Cells.Range(„b21:ag110″).Find(What:=”*”, SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
If ChbH = True Then
WS.Cells(sor, 6).Value = Me.TxtCopy.Value
ElseIf ChbFreeH = True Then
WS.Cells(sor, 6).Value = Me.TxtFree.Value
Else: WS.Cells(sor, 6).Value = Me.TextBox2.Value
End If
If ChbK = True Then
WS.Cells(sor, 10).Value = Me.TxtCopy.Value
ElseIf ChbFreeK = True Then
WS.Cells(sor, 10).Value = Me.TxtFree.Value
Else: WS.Cells(sor, 10).Value = Me.TextBox3.Value
End If
If ChbSze = True Then
WS.Cells(sor, 14).Value = Me.TxtCopy.Value
ElseIf ChbFreeSze = True Then
WS.Cells(sor, 14).Value = Me.TxtFree.Value
Else: WS.Cells(sor, 14).Value = Me.TextBox4.Value
End If
If ChbCs = True Then
WS.Cells(sor, 18).Value = Me.TxtCopy.Value
ElseIf ChbFreeCs = True Then
WS.Cells(sor, 18).Value = Me.TxtFree.Value
Else: WS.Cells(sor, 18).Value = Me.TextBox5.Value
End If
If ChbP = True Then
WS.Cells(sor, 22) = Me.TxtCopy.Value
ElseIf ChbFreeP = True Then
WS.Cells(sor, 22).Value = Me.TxtFree.Value
Else: WS.Cells(sor, 22).Value = Me.TextBox6.Value
End If
If ChbSzo = True Then
WS.Cells(sor, 26).Value = Me.TxtCopy.Value
ElseIf ChbFreeSzo = True Then
WS.Cells(sor, 26).Value = Me.TxtFree.Value
Else: WS.Cells(sor, 26).Value = Me.TextBox7.Value
End If
If ChbV = True Then
WS.Cells(sor, 30).Value = Me.TxtCopy.Value
ElseIf ChbFreeV = True Then
WS.Cells(sor, 30).Value = Me.TxtFree.Value
Else: WS.Cells(sor, 30).Value = Me.TextBox8.Value
End If
WS.Cells(sor, 4).Value = Me.txtH.Value
‘WS.Cells(sor, 8).Value = Me.txtK.Value
‘WS.Cells(sor, 12).Value = Me.txtSze.Value
‘WS.Cells(sor, 16).Value = Me.txtCs.Value
‘WS.Cells(sor, 20).Value = Me.txtP.Value
‘WS.Cells(sor, 24).Value = Me.txtSzo.Value
‘WS.Cells(sor, 28).Value = Me.txtV.Value
‘WS.Cells(sor, 6).Value = Me.TextBox2.Value
‘WS.Cells(sor, 10).Value = Me.TextBox3.Value
‘WS.Cells(sor, 14).Value = Me.TextBox4.Value
‘WS.Cells(sor, 18).Value = Me.TextBox5.Value
‘WS.Cells(sor, 22).Value = Me.TextBox6.Value
‘WS.Cells(sor, 26).Value = Me.TextBox7.Value
‘WS.Cells(sor, 30).Value = Me.TextBox8.Value
WS.Cells(sor, 2).Value = Me.txtWeek.Value
WS.Cells(sor, 32).Value = Me.TxtCopy.Value
WS.Cells(sor, 33).Value = Me.TxtFree.Value
msgbox „r?gz?tve”, vbOKOnly
Me.txtH.Value = „”
‘Me.txtK.Value = „”
‘Me.txtSze.Value = „”
‘Me.txtCs.Value = „”
‘Me.txtP.Value = „”
‘Me.txtSzo.Value = „”
‘Me.txtV.Value = „”
Me.TextBox2.Value = „”
Me.TextBox3.Value = „”
Me.TextBox4.Value = „”
Me.TextBox5.Value = „”
Me.TextBox6.Value = „”
Me.TextBox7.Value = „”
Me.TextBox8.Value = „”
Me.txtWeek.Value = „”
Me.TxtCopy.Value = „”
Me.TxtFree.Value = „”
Me.txtH.SetFocusUnload Me
End Sub
BEÍRTAM, SEMMI VÁLTOZÁS. AZ NEM GOND, HOGY AZ EGYIK SUB A MÁSIK PRIVATE SUB? KIPROBÁLTAM ÚGY IS, HOGY MINDKETTŐ SUB, DE ÚGY SINCS VÁLTOZÁS.
Sub cmdMa_Click()Application.screenupdating = False
Sheets(„adat”).Select
Range(„B8:G209”).Select
Selection.copyRange(„CQ8”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseDim DataSH As Worksheet
On Error GoTo errhandler:Set DataSH = Sheets(„adat”)
DataSH.Range(„cy8”).Value = Sheets(„adat”).Range(„b2”)
DataSH.Range(„cy9”).Value = Sheets(„adat”).Range(„b1”)
DataSH.Range(„cq8”).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range(„adat!criteria4”) _
, CopyToRange:=DataSH.Range(„adat!extract4”)
‘Set myRng = Sheet1.Range(„outdata”)
lboMa.RowSource = Sheets(„adat”).Range(„outdata4″).Address(external:=True)
Exit Sub
errhandler:
‘if error occurs then show me exactly where the error occurs
Call msgbox5.show ‘”No match found for ” & txtSearch.Text
On Error GoTo 0
Exit Sub
Application.screenupdating = True
Call lboMa_Click
End SubPrivate Sub lboMa_Click()
Me.txtDate.Value = Me.lboMa.Value
Me.txtMonth.Value = Me.lboMa.Column(1)
Me.txtTali.Value = Me.lboMa.Column(2)
Me.txthido.Value = Me.lboMa.Column(3)
Me.txtFeladat.Value = Me.lboMa.Column(4)
Me.txtID.Value = Me.lboMa.Column(5)
End Subnagyon köszönöm! Most jelenleg így néz ki. Még finomitok rajta:
Potus
Attachments:
You must be logged in to view attached files.Hello!
írtam a legutóbbbi bejegyzésemben, hogy (pont abban a formában, ahogyan te is írtad ) megoldottam. Köszi!Üdvözlöm!
Köszönöm szépen, hogy időt szánt a problémámra ilyen késői órán is.
Én is már a képletekre kezdtem gyanakodni. Ebben megerősített.
Még az éjszaka közepén „lejátszottam”, rögzitettem és bemásoltam. Csak közben belealudtam ( 🙂 )…
Azt hiszem meg van a megoldás. Már csak esztétikai okokból a formátum átmásolását vagy a hely formátumának megtartását kellene megoldani.
Hobby szinten üzöm az egész dolgot, nagyon amatör színten és többnyire éjszaka. Örülök, hogy önök által is felfedeztem az Fkeres függvényt. Szinte mindenről az jut eszembe. Hasznos kis függvény. Emlitette , hogy -talán erre az egyszerű dologra – itt nem ezt kellene használnom. Mit javasolna? (Tudom, egy tanfolyamot, de azon kívül? 🙂 )Még egyszer köszönöm! Üdv.: Potus
ebben a táblázatban műkődik a sorba rendezés és az üres sorok kihagyása, de bárhogy probáltam az előzőre alkamazni, nem műkődőtt. Pedig csak átmásoltam a kodot és a tartományokat írtam át…..
Attachments:
You must be logged in to view attached files.hangsúlyoznám,hogy teljesen amatör vagyok! Első ránézésre tetszik a dolog! De mi az , hogy frissítsd az egész kimutatást? Hogyan kell?
mindezt egy gomb nyomásra…
Attachments:
You must be logged in to view attached files.EGY NAPIREND RÉSZ PROGRAMHOZ VAN SZÜKSÉGEM AZ ADATOKRA. MEGOLDOTTAM. Az összevissza sorrendben felütött adatokat – a rendezés egyszerűbbsége okán egy cellába felvitt dátumot és időt – a netről leszedett és kissé modosított program sorba rakja. Az egy cellába zsúfolt adatokat számmá formázom, majd – a szép nevű – csonk – ugyancsak a neten lelt – függvénnyel szétválasztom egész és tizedes részre, a tizedes rész az időpont, külön cellába kerülnek, ahol újra dátum és idő formátumot kapnak. az fkeres függvény soronként – de szét szórva -egybe rendezi őket. Az előbbiekben már emlitett program sorba rendezi őket ill. kiveszi közüllük az üres cellákat. És így már egy tömbbe kerülve könnyen áthívhatók a napirendi táblázatba. Mindezt a program – gyorsabban, mint a nyúlak – egy pillanat alatt ki il. visszamásolással és a munkaterület másolással történő visszaszínezésével 4 db táblázat tekintetében végzi el.
Szia Imre!
Köszönöm a választ, hasznos olvasmány.
Esetemben sajnos nem megoldás, mert az alkalmazás amit -bár amatőr módon, hobby szinten – „fejlesztgetek” véleményem szerint valamiféle automatizmust kivánna meg. A beépített szűrő manuális alkalmazásával épp lényegét vesztené a project. Más esetben hatalmas segítség lenne…Potus
Szia Delila!
Köszönöm szépen! Alkalmaztam az egyszerűbb verziót.
Szerintem tetszetős desing elem, de… De nem lehet a design elem voltán túl a valós frissítési folyamathoz kötni? Mint a „valódi” profi programoknál. Vagy ott is tulajdonképpen csak a látványt szolgálja? Vagy rossz helyre szúrtam be?Sub refresh()
Dim screenupdating As Application
Application.screenupdating = False
UserForm14.Show
ThisWorkbook.RefreshAll
UserForm13.Show
Application.screenupdating = True
End Sub( a userform14.show a „Private Sub UserForm_Activate() , a UserForm13.Show pedig egy kép az msgbox helyett a folyamat végét jelzandő ) .
Még az is – nem nagy , de mégis csak – problémám, hogy hiába kapcsolom ki a képernyő frissítést munkafűzet frissítés közben, időnkét , egyszer – kétszer fehér lesz a képernyő és egy windows media player ikon töredék látszik rajta. Nem lehet ilyenkor helyette valami képet – mellékelem – megjeleníteni helyette?
T Ö K É L E T E S !!!!!!!!!!!!! 🙂 Köszönöm!
Hello, Delila!
Bolyongva a neten ezt találtam Andy Pope-tól: Not sure you can use a progress bar as the Refresh does not yield cpu cycles for your to run code in. What you could do is put a please wait message in the statusbar. (Nem biztos benne, hogy használhatja a folyamatjelző sávot, mivel a Frissítés nem hozza létre a cpu ciklusokat a kód futtatásához. Amit tehetnék, tegyen egy kérem várjon üzenetet az állapotsorban.) Ezek szerint a frissítés alatt nem valószínű, hogy futni fog a progress bar-om. Ha igaz szomorú vagyok 🙁 .
Viszont nem értem mit csináljak avval amit példaként írtál? Összeadja az 1 és második oszlopot? De melyik sor a statusz sor?
Elmagyaráznád nekem, nagyon kezdő vagyok még ehhez. Bocsi!Hello!
Műkődik a dolog, köszi.Találtam a neten egy progress bar kodot. Be lehet ezt illeszteni valahová , a frissítésbe, hogy megjelenítse a folyamat haladását. Jól mutatna.
sub refresh()
application.screenupdate=falsh
Thisworkbook.refreshall
application.screenupdate=truehova illesszem be?
Attachments:
You must be logged in to view attached files.Lehetséges,hogy a nettel komunikál a soundme() ? Most, hogy bezártam a böngészőt csend van. De az ébresztő program aktiválásakor sincs hang. Visszalépve a netre teljes a hangzavar… Ki érti ezt!!!???
közben sikerült megalkotnom egy képletet : e1=amikor meg kellene szólalnia , e2= e1+2 perc (2perc=0,001388889), a2= a valós idő. A képlet : =HA(E1=A2;SoundMe();HA(ÉS(A2>E1;A2<E2);SoundMe();””)) , vagy =HA(ÉS(E1<A2;A2<E2);SOUNDME();””). De, gondolom mivel két dolognak kell megfelelnie a képletek alapján a soundme()-nek így , ha pillanatnyi eltolódással ia, de 2x kezdi el játszani a hangot és így egy furcsa egyveleg keletkezik az eredeti hang helyett, ami aztán az utolsó másodpercekre kitisztul… Hogyan lehetne ezt a hangzavart kiküszöbölni????????????
pacsi Potus
Hello Titok!
Mint már az eddigiekből is kiderülhetett annyira nem vágom még ezt a témát mint az az iménti hozzászólásodból következne 🙂 Úgy hogy segítségre lenne szükségem. Ezt a két macrot ( vagy ez nem is két macro???) kellen egy helyen üzemeltetnem.
Sub Ticker()
Application.Calculation = xlCalculationManual
Dim tMsg As String, tCell As Range, tLen As Long, tPos As Long
Dim Start, Delay
Set tCell = Range(„L11”)
tMsg = Range(„N16”)
With tCell.Font
.Name = „Courier New”
.FontStyle = „Regular”
.Size = 10
End With
tCell.ColumnWidth = Round(tCell.ColumnWidth, 1)
tLen = tCell.ColumnWidth – 1
Do
Start = Timer
If tPos > Len(tMsg) Then
tPos = 1
Delay = Timer + 1
Else
tPos = tPos + 1
Delay = Timer + 0.2End If
Do While Timer < Delay
DoEvents
tCell.Value = Mid(tMsg, tPos, tLen)
Loop
LoopEnd Sub
Sub worksheet_change(ByVal target As Range)
Application.Calculation = xlCalculationAutomatic
End Sub
Dim TimerActive As Boolean
Sub StartTimer1()
Start_Timer1
End Sub
Private Sub Start_Timer1()
Dim TimerActive As Boolean
TimerActive = True
Application.OnTime Now() + TimeValue(„00:00:01”), „Timer1”
End Sub
Private Sub Stop_Timer1()
TimerActive = False
End Sub
Private Sub Timer1()
Dim TimerActive As Boolean
If TimerActive Then
Sheets(„Munka1”).Cells(1, 1).Value = Time
Application.OnTime Now() + TimeValue(„00:00:01”), „Timer1”
End If
End SubElőre is köszi a sokadik segitséget! Potus
na, jó… Remélem valóban ilyen egyszerű 🙂
Köszi!
-
SzerzőBejegyzés
