Új hozzászólás Aktív témák
-
Szia,
ezt találtam, ez most működik:
Dim aNumber As Double = TextBox1.Text
TextBox1.Text = aNumber.ToString("n2")[köszönöm] kipróbálom
-
szkristof05
tag
Köszönöm szépen a válaszát! Légyszíves el küldené nekem a kódsort hogy hogyan lehet növelni a cache méretét?
-
nem excelről van szó, honnan veszitek ezt? köze nincs hozzá. miért gondol mindenki excel-re ha VBA merül fel? egy mysql adatbázis turkáló program ez. (és az a része működik is. bár az se volt egyszerű...) egyetlen függőség egy mysql odbc connector driver ado-n keresztül, de lehet anélkül is meg lehetne oldani a kapcsolatot.
igazából nem nagyon tudom, mi a vb.NET.
nem nagyon akarnék .net függőségeket.
nem akarom winforms-ba átrakni, hanem a visual studió ilyen userformot hoz létre miután létrehoztam egy VB projektet, és csak winforms elemek vannak. comboboxra nem is találok multicolumn-ról semmit, egyáltalán, tulajdonságainál sincs. a winforms-os CB az ennyire más?
sokszáz szintaktikai eltérés és hiba volt, ezeket végigjavítottam vagy kikommenteltem, most lefordíja hiba nélkül a programot és megjelenik a form és látom, hogy az sql lekérdezések is mennek rendben. most igazából csak a triviális dolgokkal van egyelőre gond: a különböző comboboxok feltöltése (statikus) szövegekkel, eredmények megjelenítése (na az szép lesz, vba listbox helyett listview vagy datagrid lesz...)akkor úgy kérdezem: hogy fogjak hozzá egy ilyen VBA->standalone exe művelethez? a net szerint a visual studio a módja. azt se ismerem.
-
Atomantiii
addikt
-
Atomantiii
addikt
-
Atomantiii
addikt
-
Atomantiii
addikt
-
Atomantiii
addikt
-
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. -
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)
-
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 -
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ő
-
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. -
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...
-
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 Sub -
Atomantiii
addikt
-
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?
-
Köszönöm a segítséget és a kódokat. Most már lefut a program,de csak egy időre feltűnik a konzol majd utána el is tűnik.Tehát nem látom az eredményt.Valami olyan kellene mint a getchar a c-ben. VB-ben van ilyen?
A másik egy egyszerű animáció lenne de nem jó az eredmény.
A kód:
Imports System.Console
Module Module1Sub Main()
Dim str As String = "Animáció!"
For i As Integer = 1 To 60
CursorLeft = i
Write("" + str)
Threading.Thread.Sleep(100)
Next
Console.ReadKey()
End Sub
End ModuleLefut csak ilyen eredménnyel.
A sok A betűt kellene valahogy eltüntetni. -
Akkor én is ismétlem magam
, mert úgy érzem van itt egy kis félreértés.Nem ez a gond, az ilyesfajta tiltás már meg van oldva. (Van aki írhat is a táblába, és van aki csak megtekintheti)
A gond az, hogy magát a fájlt foglalják szerkesztésre olyanok akiknek egyébként (ha úgy tetszik) egyébként sincsen már joguk beleírni, mert beállítások miatt nem tud beleírni, csak keresni tud benne.
Ha azonban ugyan ekkor egy olyan személy szeretné megnyitni szerkesztésre akinek egyébként lenne joga beleírni, az meg nem tudja csak olvasásra megnyitni, mert ezt az üzenetet kapja:
"A xyz.xls fájl zárolva van szerkesztésre
'xy' által.
Megnyithatja "Olvasásra", vagy válassza az "Értesítés" gombot, ha az olvasásra való megnyitás mellett értesítést is kér, mikor a dokumentum használatát befejezik."
Erre a problémára keresek én megoldást.
-
Remélem nincs, most már minden bizonnyal megnézem.
Az nyilvánvaló, hogy a benne tárolt adathalmaz a cég tulajdona, de remélem maga a program nem...
Ha konkrétan nincs kikötve a munkaszerződésben, akkor elvileg szabad a gazda?
Ha esetleg el akarnám adni, akkor kéne valamiféle vállalkozást is létrehoznom, hogy adózási szempontból is jogszerű legyen?
nem nagyon akarnék .net függőségeket.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Star Citizen
- Kertészet, mezőgazdaság topik
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Kerékpárosok, bringások ide!
- Konteó topic
- sziku69: Fűzzük össze a szavakat :)
- Steam topic
- Samsung Galaxy A54 - türelemjáték
- Már megint variál a Samsung az Ultrával!
- Samsung Galaxy S26 Ultra - fontossági sorrend
- További aktív témák...
- !AKCIÓ+GARI! GAMER PC Intel Core i5-14400F/ASUS TUF Gaming B760M/RTX 4070 12GB/32 GB DDR5 5200 MHz
- Asus ROG ALLY X + tartozékok
- G.Skill Trident Z5 Neo RGB DDR5-6000 CL30 32GB (2 16GB) Fekete
- Üzletből, Macbook Pro Retina 16" 2021,M1 Pro 10mag 32GB RAM/1TB SSD/Metal 16magGPU/Liquid Retina XDR
- Eufy Security 2C Kit
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- Apple iPhone 14 /128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 85%
- BESZÁMÍTÁS! LG UltraGear 27GQ50F-B FHD 165Hz 5ms monitor garanciával hibátlan működéssel
- AKCIÓ! 4TB Seagate Skyhawk ST4000 SATA HDD meghajtó garanciával hibátlan működéssel
- BESZÁMÍTÁS! Intel Core i9 11900K 8 mag 16 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest