Új hozzászólás Aktív témák
-
-
-
válasz sztanozs #2629 üzenetére
Köszi az irányítást! Anno ZX81-en írtam azt, hogy 10 goto 20, és azóta hány év telt el...
Most pl. ott akadtam el, hogy villog a "scroll". (A form-on belül egy imagebox-ot tologatok pixelenként, és az időzítéssel szabályozom a scroll sebességét)Próbáltam a doublebuffer-t beszűrni, de vagy rosszul csináltam(ezt is), vagy nem segít.
Gondolom a directx-es abla(időzítés?) segítene a dolgon, de ahogy néztem nincs benne a directx lehetősége, csak c++-on és ott is valami fejlesztői fiókot akar tőlem.Én bénázok, vagy ezzel az ingyenes verzióval tényleg nem lehet directx-es applikációt gyártani?
Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews
-
válasz sztanozs #2631 üzenetére
Addig eljutottam, hogy nem írom ki újra a szöveget 1 pixellel feljebb, mert ez vmiért ette a procit, az egyik mag 100%-on pörgöt.
Most átalakítom a szöveget bitmap képpé, és ezt a képet pöckölöm pixelenként. A prociterhelés már elfogadható 20% körül mocorog, szóval nem a proci fogja vissza a scroll sebességét, de még mindég nem az igazi.3 dolog jutott eszembe:
- Nem az a baj, hogy a StudioComunity Edition-ban fordítom le, ezért nem natív Win32 app lesz, hanem "csak" egy .NET program?-Ahogy nézem a WPF programok a csilivilire vannak kihegyezve. Ha abban próbálnám lekódolni, megszünne a villogás?
- Nem lehet hogy az a baj, hogy a listbox-ot tologatom? Úgy is lehetne, hogy a listbox marad fixen, és benne a képet tolom felfele? Mintha a listbox egy ablak lenne, amit mögött elhúzom a képet.
[ Szerkesztve ]
Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews
-
-
Amiens
tag
válasz sztanozs #2719 üzenetére
Parancsoljatok!
Sub level()
sor = 2
kinek = Sheets("Alap").Range("b6")
Set OutApp = CreateObject("Outlook.Application")
While Not IsEmpty(Sheets(kinek).Cells(sor, 2))
If Sheets(kinek).Cells(sor, 1) = "Igen" And IsEmpty(Sheets(kinek).Cells(sor, 6)) Then
keres = Sheets(kinek).Cells(sor, 2)
Set OutMail = OutApp.CreateItem(0)
With OutMail
If Sheets("Alap").Range("b8") = "Nem" Then
.To = Sheets(kinek).Cells(sor, 3)
Else
.To = "valaki@valami.hu"
End If
If Sheets("Alap").Range("b7") = "Igen" Then
.CC = Sheets(kinek).Cells(sor, 4)
End If
.Subject = Sheets("Alap").Range("b1") & "-" & Sheets(kinek).Cells(sor, 2)
.HTMLBody = ""
.HTMLBody = .HTMLBody & Replace(Sheets("Alap").Range("b2"), Chr(10), "<br>") & "<BR>"
.HTMLBody = .HTMLBody & Replace(Sheets(kinek).Cells(sor, 5), Chr(10), "<br>") & "<BR>"
.HTMLBody = .HTMLBody & Replace(Sheets("Alap").Range("b3"), Chr(10), "<br>") & "<BR>"
If Not IsEmpty(Sheets("Alap").Range("b4")) Then
wb1 = ActiveWorkbook.Name
Workbooks.Open (Workbooks(wb1).Sheets("Alap").Range("b4"))
wb2 = ActiveWorkbook.Name
s = 1
kuld = False
While Not IsEmpty(Workbooks(wb1).Sheets("Alap").Cells(s + 9, 1))
sh = Workbooks(wb1).Sheets("Alap").Cells(s + 9, 1)
Select Case Workbooks(wb1).Sheets("Alap").Cells(s + 9, 3)
Case "Nem kell"
Workbooks(wb2).Sheets(sh).Select
Application.DisplayAlerts = False
Workbooks(wb2).Sheets(sh).Delete
Application.DisplayAlerts = True
Case "Mind"
Case "Szűrő"
oszlop = Workbooks(wb1).Sheets("Alap").Cells(s + 9, 2)
Workbooks(wb2).Sheets(sh).Select
msor = Workbooks(wb1).Sheets("Alap").Cells(s + 9, 4)
msor = msor & ":" & msor
Rows(msor).Select
Selection.AutoFilter
ActiveSheet.Range("$A:$XB").AutoFilter Field:=oszlop, Criteria1:="<>" & keres
Range(Cells(Workbooks(wb1).Sheets("Alap").Cells(s + 9, 4) + 1, 1), ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
[A1].Select '.pdf miatt
ActiveSheet.PageSetup.Orientation = xlLandscape '.pdf miatt
ActiveSheet.PageSetup.FitToPagesWide = 1 '.pdf miatt
ActiveSheet.ShowAllData
End Select
s = s + 1
Wend
Filename = ActiveWorkbook.Path & "/" & Workbooks(wb1).Sheets("Alap").Range("B5")
Application.DisplayAlerts = False
If Workbooks(wb1).Sheets("Alap").Range("D5") = ".pdf" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
ActiveWorkbook.SaveAs Filename
End If
ActiveWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True
Set myAttachments = OutMail.Attachments
myAttachments.Add Filename
End If
.Attachments.Add Sheets("Alap").Range("C7")
.Send 'or use .Display
Sheets(kinek).Cells(sor, 6) = Time()
End With
End If
sor = sor + 1
Wend
End SubiPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
-
Amiens
tag
válasz sztanozs #2721 üzenetére
Köszönöm szépen!
Tökéletesen működik! Mivel van meghatalmazásom a másik e-mail cím használatához, így patentul beírtam ezt a kódrészletet:If Sheets("Alap").Range("D1") = "Másik cím <másvalaki@valaki.hu>" Then
.SentOnBehalfOfName = Sheets("Alap").Range("D1")
End If
Mindezt betettem egy cellalistába, és voálá, annyit és azt teszek bele, akit akarok...[ Szerkesztve ]
iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
-
vilag
tag
válasz sztanozs #2752 üzenetére
Először is köszönöm a választ!
Röviden: ebben a programban userformon töltött adatokból ügyirat generálható (természetesen különböző vizsgálatok, szabályok futkorásznak).
A lényeg az lenne, hogy a már korábban itt közzétett vonalkódos programrésszel elkészül egy vonalkód amit most már szeretnék rá is nyomtatni az ügyiratra. Eddig nem került rányomtatásra az ügyiratra.
Az ügyirat releváns adatai (a vonalkód által fedett számot is beleértve) egy ideiglenes fájlban tárolódik is.Ennek oka az, hogy az általam írt postakönyvbe, így a postázást végző kollegina a szám bepötyörészését követően a szükséges adatokat importálja a postakönyvbe, így neki nem kell még egyszer a szükséges adatokat felvinnie.
A vonalkód rányomtatása pedig azt a célt szolgálná, hogy a számsor begépelésétől is megkíméljem.A szépséghiba ugye ott van, hogy ehhez a szükséges betűtípusnak telepítve kell lennie azon a gépen amelyről az ügyirat nyomtatódik.
Mivel nem önálló program lenne, hanem a már meglévő programba kerülne beépítésre, mindenképpen Visual Basices megoldást keresek.
A rendszergazdai jogosultság elméletileg nem gond.
Először olyanban gondolkodtam, hogy csak vizsgálja meg, hogy jelen van-e a szükséges betűtípus és ha nem akkor adjon egy rövid figyelmeztetést és egy telepítési útmutatót, majd indítsa el a betűtípus fájlt, hogy a felhasználó telepíteni tudja, de sajnos ez sem vált be, mert nem volt hajlandó elindítani a fájlt.
Addig eljutottam, hogy followhyperlink-el meghívtam a fájlt, kaptam is gyári hibaüzenetet, hogy egyes fájlok megnyitása veszélyes lehet, de a fájl mégsem indult el.
Na meg persze sokkal elegánsabb (és biztosabb) lenne, ha mindez a felhasználó (tudta és) beavatkozása nélkül történne, tudjuk az hová vezethet...
Mindent figyelembe véve kérlek téged/titeket, hogy visual basic segítségével próbáljuk meg megoldani a problémát.
Egyszerűen nem értem, hogy mi lehet a probléma.
Bár ezeket nem értem:
Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String) As Integer
Declare Function CreateScalableFontResource% Lib "GDI" (ByVal fHidden%, ByVal lpszResourceFile$, ByVal lpszFontFile$, ByVal lpszCurrentPath$)
Declare Function AddFontResource Lib "GDI" (ByVal lpFileName As Any) As Integer
Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long(...)
FontRes$ = Left$(FontPath$, Len(FontPath$) - 3) + "FOT"
Ret% = CreateScalableFontResource(0, FontRes$, FontFileName$, WinSysDir$)Nem tudom mire jó az, hogy "ttf" kiterjesztés helyett "FOT" kiterjesztést ad (vagy virtuálisan ad) a fájlnak.
-
vilag
tag
válasz sztanozs #2754 üzenetére
Nagyon, nagyon szépen köszönöm!
Némi küzdés után teszi a dolgát ahogy kell (a küzdés persze az én hibámból volt).
Teszteltem egy-két gépen és amelyiken nem szükséges rendszergazda jog ott gyönyörűen teszi a dolgát.
Ahol azonban nincs telepítési jog ott:
XP esetén: látszólagosan nem történik semmi.
Win7 esetén: feljön az ablak, hogy adjam meg a rendszergazda felhasználónevét és jelszavát a telepítéshez.1. A kérdésem az lenne, hogy meg lehet-e valahogyan esetleg oldani, hogy a felhasználónév és jelszó megadása kódból történjen? (hátha a rendszergazda ideadja az adatait)
2. Le lehet-e kérdezni, hogy az adott felhasználó rendelkezik-e rendszergazdai (telepítési) joggal? A környezeti változókban (ENVIRON) nem találtam ilyet...
Utóbbira azért lenne szükség, hogy ha az első verzió valamilyen okból (esetleges jelszócsere pl.) nem működne. -
vilag
tag
válasz sztanozs #2760 üzenetére
Az az érdekes, hogy ha megnézed a képet, az első oszlopban jó az alsó border (mondjuk ott történik egy automatikus sorszámozás).
A probléma egyébként akkor keletkezett amikor Win Xp-s (Office 2003) gépekről Win7-es (Office 2007) gépekre tértünk át.
Egyébként kódból már próbáltam ezt megoldani:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft) 'Bal
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop) 'Felső
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom) 'Alsó
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight) 'Jobb
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical) 'Belső függőleges
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End WithDe nem hozta a várt eredményt, szóval lehet még valahol valami turpisság a dologban.
-
-
Ispy
veterán
válasz sztanozs #2823 üzenetére
Hát ilyet én még nem csináltam VBA-ban (szerencsére már semmi nem csinálok VBA-ban jó ideje ), de a gugli szerint lehetséges.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Bazs87
tag
válasz sztanozs #2831 üzenetére
ActiveWindow.FreezePanes = False
Range("F7").Select
ActiveWindow.FreezePanes = TrueHa 2D-s zárolást szeretnék(azért mert ha csak 1D-t csinálok kizárólag az első sor lehet valamilyen beteg ok miatt zárolva, viszont én az első x sort szeretném zárolni), akkor vmivel ki kell jelölnöm, hogy honnan zárjon és manuális megoldással ezt az odaklikkeléssel lehet elérni.
Talán van valamilyen expert funkció, de sajnos én nem ismerem.
Nyitott vagyok és érdeklődő[ Szerkesztve ]
-
-
smallmer
őstag
válasz sztanozs #3003 üzenetére
Amit linkeltél két stack leírást felhasználtam.
myPath = " ide megadtam a fájlok elérési útját "
viszont ha futtatom akkor ugye kéri a macro-t amelyiket használja a megnyitás után. azt megadom neki és egyből jön egy hibaüzenet, hogy
compile error:
invalid outside proceduremit ronthattam el? köszönöm
-
vilag
tag
válasz sztanozs #2999 üzenetére
Van ötlet, hogy milyen módon lehetne megoldani a problémát?
Röviden annyi lenne, hogy otthagyom nekik a programokat használatra, viszont nem szeretném ha egyrészt a kódban babrálnának, másrészt azt sem akarom, hogy le tudják azt nyúlni.
Ezért gondoltam, hogy amolyan bünti lenne, hogy törli magát a kód ha hozzá akarnak nyúlni vagy le akarják nyúlni.Most is törölhetném a kódokat, de akkor azokkal a kollégákkal tolnék ki akiket szeretek.
Egyébként "mennyire könnyű" feltörni a projektet ha jelszavazom?
[ Szerkesztve ]
-
batagy
őstag
válasz sztanozs #3019 üzenetére
Szia!
Köszönet! Tényleg, igazad volt!
A tipped alapján csekkoltam az XML-t a VBA Referenciákban.Ez látható alapból:
Ha az XML 6.0-ás verzióvól kiveszem a pipát, és berakom a 3.0-ás XML-t, akkor már működik, nincs hibaüzenet.
Neten keresve ezt és ezt találtam, ami ide vonatkozik.
"On the other hand Microsoft XML, v3.0 exposes DomDocument, DomDocument26 and DomDocument30; version is 6.30.8250.0
With other versions of Windows, like 7 and XP, both msxml3.dll and msxml6.dll expose DomDocument, DomDocument30 and DomDocument60, among others."
Ha jól értem, kétféle megoldás lehet?
1) A referenciát átírni XML 3.0-ra minden ilyen Excel fájlban? De ez hosszú távon, lehet hogy nem célravezető.
2) A DomDocument interface-t átírni olyanra hogy msxml6.dll-tal is kompatiblis legyen?Olyanra kellene megírni, hogy Win7 gépeken is fusson és kvázi (a userek számára) visszafelé is kompatibilis legyen.
Köszönet!
2)
-
batagy
őstag
válasz sztanozs #3021 üzenetére
Az az érdekes egyébként, hogy mind Win7-n, mind Win10-en is a Microsoft XML, v6.0” (C:\Windows\System32\msxml6.dll ) van behivatkozva az Excel fájlban, de csak Win7-en működik.
A két dll verzió eltér:
Win10:
-------
C:\Windows\System32\msxml3.dll
MSXML 3.0
Microsoft XML Core Services
8.110.16299.15C:\Windows\System32\msxml6.dll
MSXML 6.0
Microsoft XML Core Services
6.30.16299.98Win7:
-----C:\Windows\System32\msxml3.dll
MSXML 3.0 SP11
Microsoft(R) MSXML 3.0 SP11
8.110.7601.23648C:\Windows\System32\msxml6.dll
MSXML 6.0 SP3
Microsoft(R) MSXML 6.0 SP3
6.30.7601.24000Tehát, a msxml6.dll újabb verziójában már módosulhattak az interface-ek. Ez lehetséges?
Az csak egy workaround, hogy msxml3.dll-lel működik Win10-en.
Kösz
-
Lokids
addikt
válasz sztanozs #3033 üzenetére
Azt tudja valaki, hogy lehet makrózni azt, hogy adja össze az összes Sum-ot?
A táblázat összegeket számol, sorokban projektenként van egy összegzés.
De kellene raknom a végére egy végösszeget, ami összeadja az összes sum-ot.
Ha z excelben rákattintok a sum-ra, akkor ő okosan kijelöli nekem a már Sum-ot tartalmazó cellákat. De a képletbe valami Formula R1C1 cucc van, amit nem értek.If you chase two rabbits you will lose them both.
-
Lokids
addikt
válasz sztanozs #3080 üzenetére
Igen. telnettel jó.
De itt olyan,mintha az excel nem is ismerné fel ezeket a parancsokat. Nem javítja, hogy kis vagy nagybetű, meg ilyenek. 0 hiba. még ha tök értelmetlen valamit írok is bele. Pl a send elé odaírom, hogy .asdfsfhegsd, az se fut hibára.
If you chase two rabbits you will lose them both.
-
Új hozzászólás Aktív témák
- ASUS ROG STRIX RTX 3060 Ti OC LHR - eladó!
- iMac 2019 27" Retina 5K / i5 3 GHz / 32 GB DDR4 / 1 TB SSD / Radeon Pro 570X 4 GB
- AKCIÓZVA! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 32/512 FHD HUN
- AKCIÓZVA! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 16/512 FHD HUN
- Dell SE2216H 22" 1920x1080 Full HD LED Monitor
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs