- Aliexpress tapasztalatok
- Mobilinternet
- ASUS routerek
- Kaspersky Antivirus és Internet Security Fórum
- Olcsóbb lett a Tesla Full Self-Driving szoftvere
- Megrendszabályozza a Pornhubot az EU
- Kínában túl sok az EV, fokozódik az árháború
- Az MSI RadiX AXE6600 tesztje – router, játékosoknak
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- A Coca-Cola következő nagy újítása az AI
Új hozzászólás Aktív témák
-
martonx
veterán
válasz hiperFizikus #2200 üzenetére
Köszi, hogy elmondtad szerinted mi is a VBScript Annál sokkal több, mint amire gondolsz.
Nézz utána az objektum orientált programozásnak, program nyelvtől függetlenül mindig ugyanazok az elvei. Hidd el gugli, vagy egy könyvtár a barátod.
Én kérek elnézést!
-
sztanozs
veterán
válasz hiperFizikus #2200 üzenetére
Az osztály - a láthatóság szabályozása és a belső változók elrejtése céljából - tartalmaz olyan eszközt (tulajdonság - Property), ami megakadályozza, hogy a külső (nem szükségszerűen megbízható) hívó ne férjen hozzá az osztály belső váltózóihoz és azt ne tudja közvetlenül elérni/módosítani.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
senior tag
Üdv.
Holnap lesz programozásból vizsgám, egyáltalán nem vagyok felkészülve (megint). Visual Basic, Console Application. Egy próbát tennék azért tennék, ugyanis megszereztem a júniusi feladatokat, ami a 6-osért volt (Szerbia) és ha hasonlót adna, akár szerencsével is járhatnék. A feladat így hangzik, DIY fordítással.
1. Írj egy programot, amely fogad két paramétert és a két megadott paraméterben levő számjegyek számát kiírja a későbbiekben.
Például: ha a megadott két paraméter "Újvidék 5" és "Szabadka 1960", akkor az alprogram vissza kell, hogy adja az 5-öt, mivel a két megadott paraméterben összesen 5 számjegy szerepel.2. Vezetéknév/Név/Év/Éves jövedelem/Munkáltatói azonosító/Munkáltató neve
Írj egy programot, amely az EvesJovedelem.txt datotékát fogja használni és ez alapján készít egy jelentést. A felhasználó megadja a kritériumokat, melyek a következők: év, minimális és maximális kereset.
A jelentésnek a következő oszlopokat kell tartalmaznia: sorszám/vezetéknév/név/év/éves jövedelem.
A jelentést Console.SetCursorPosition() segítségével formázd meg.
A jelentés végén ki kell írni a megadott eredményekből (tehát amik megfelelnek a megadott kritériumoknak), hogy összesen hány sor van megjelenítve, valamint az átlag keresetet a kilistázottaknak.
A sorokat, amelyek megfelelnek a megadott kritériumoknak, be kell másolni az EvesJovedelemJelentes.txt datotékába.Elég gyenge magyar fordítás, de igazából nem is nagyon értem a 2. feladatot. Egyiket sem tudom konkrétan megcsinálni. Egyszer már kaptam itt PH!-n segítséget Bobrooney-tól, most gondoltam újra próbát teszek. Egy köszönömön kívül sajnos nem tudom máshogy meghálálni, tehát ha valaki segíteni tudna, ennyit tudnék csak visszaadni
⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!
-
kasam
csendes tag
Sziasztok!
Lenne egy technikai kérdése. Írtam egy makrót, aminek a lényege, hogy havonta hív be adatokat egy másik fájlból.
Az alap fájlnak a neve (ami a makrót tartalmazza) változik minden hónapban. Az érdekelne, hogy hogyan lehet elkerülni a manuális változtatást a makróban.Tehát a Hungary 2013 Aug fájl neve 2013 Aug Sept lesz.. így a makró nem fog működni, csak ha átírom manuálisan. Hogyan lehet ezt elkerülni?
Sheets("PBC Month Avg Currency Rates").Select
Workbooks.Open Filename:= _
"Yorporate ReportingMonthly FS & Final Year-end FSCurrecny Rates Actual2013 Currency_Rates Actual.xlsm"
Sheets("PL").Select
Range("A7:S200").Select
Selection.Copy
Windows("Hungary 2013 Aug FS.xlsm").Activate
Sheets("PBC Month Avg Currency Rates").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseKöszi előre is!
Máté -
fpeter07
veterán
Nem igazán vágom ezt a makrós témát. Ezt a feladatot pl. hogy tudom megoldani?
Készítsünk makrót, amely az A oszlopot feltölti az egész számokkal 0-tól 56-ig! A B
oszlop celláinak háttérszíne legyen az A oszlopban lév� számoknak megfelel�! -
sztanozs
veterán
-
pirit28
csendes tag
Jóó estét az uraknak ,hölgyeknek.
Régibb kaptam egy nagyon jó kis kereső kódocskát, amit egy másik excell file-ban szeretnék használni.
A problémám az lenne ,hogy a találati eredmény után ,ami ugye a keresett érték, a talált érték mellett a sorban 2 cellával arrébb kellene hogy kijelölje azt a cellát amibe adatot vinnék fel. Ez annyiban könnyítené meg a dolgom ,hogyha megvan az eredmény akkor nem kellene nyilacskát használnom ahhoz hogy az adatot a megfelelő helyre tudjam bevinni,minél hamarabbRange("a2:A1000").Select
amitkeres = InputBox("Add meg a keresni kívánt nevet vagy névrészletet !", "Keresés")On Error GoTo Nincs
Selection.find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Selection.Font.Bold = FalseExit Sub
Nincs:
MsgBox ("A keresett név nincs a listában.")
End SubRem érthető voltam ,a választ válaszokat előre is köszönöm.
Üdv.
[ Szerkesztve ]
-
-
sztanozs
veterán
válasz Milgram1 #2211 üzenetére
Amúgy még egy kis kiegészítés:
Az alábbi definíció
Dim f, m1, m2, r, F1 as Double
valójában a következőt csinálja:
Dim f as Variant , m1 as Variant, m2 as Variant, r as Variant, F1 as DoubleTehát csak az utolsót definiálja annak, amit a végéte írsz, mindent, amit nem specifikálsz azt Variant-ként hoz létre.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
pirit28
csendes tag
Jóó napot !
Ismét jelentkeznék egy kis segítségre !
2003-as excel-ben ,hogy tudnám azt megoldani,hogy
pl:; egy táblázat d oszlopában folyamatosan módosuló adatok vannak,amit kézzel vinnék be.
Amit a d oszlop valahányadik sorában beírnék az legyen szó -10-ről vagy 10-ről az az e oszlopban levő összegből , ugyan abban a sorban levonódna,vagy éppen hozzáadódna.Ami a lényeg lenne hogy az összeg ne változzon csak akkor ha minuszolok vagy plusszolok.A választ előre is köszönöm !
[ Szerkesztve ]
-
pirit28
csendes tag
válasz martonx #2225 üzenetére
Na szóval megpróbálom kicsit értelmesebben.
Azt szeretném ,ha pl a D3-as cellába beírok 30-at akkor az E3-as cellába összegezve jelenjen meg a beírt adat.
Tehát ha a D3-ba 30 van akkor az E3-ba 30 legyen ,aztán ha a D3-ba megint beírok 50-et ,akkor az E3-ba 80 legyen ..ha meg a D3-ba beírok -20-at akkor meg legyen 60.Rem értem
[ Szerkesztve ]
-
pirit28
csendes tag
válasz martonx #2227 üzenetére
Szia Martonx !
Akár mennyire gyötröm magam 15 órája,ha télen cseresznye terem ,akkor sem tudom magam a választ.Valószínű neked csukott szemmel menne.Majd ha be leszünk csippelve akkor majd biztosan és is annyira fogom tudni mint te.Nem sértésnek szántam.Ha a megoldást levezetnéd lépésről lépésre magyarázattal ,akkor majd valószínű legközelebb nem teszek fel hasonló kérdést.
Kössz. -
martonx
veterán
válasz pirit28 #2228 üzenetére
Ez tényleg annyira triviális volt, hogy rászántam azt a 30 másodpercet.
Nem a konkrét feladat megoldása, de példának tökéletes:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
valami = Target.Value
If Target.Column = 3 Then
Application.EnableEvents = False
Cells(Target.Row, Target.Column + 5) = Target
Application.EnableEvents = True
End If
End SubÉn kérek elnézést!
-
VB.NET hez kellene kis segítség.
Egy csv-ből olvasok be adatot datatable-be majd megjelenítem egy datagridviewbe. Megy oda vissza írás olvasás. Viszont valamiért az oszlopok adattípusát automatán változtatja a progi, pedig nincs megadva sehol hogy milyen típusú egy oszlop és én sem szeretném megváltoztatni.
Hogyan tudom kikapcsolni azt hogy a datagridview ne kezeljen automatán adattípust, vagy alapból legyen minden string típusú?
A csv-ből így olvasok be:
Dim CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & "\Tablazat" & ";Extended Properties=""text;HDR=YES;FMT=Delimited"";"
Using Adp As New OleDbDataAdapter("select * from adat.csv", CnStr)
Adp.Fill(adat)
End Using
adattablamegjelenito.DataSource = adatEzzel meg írom vissza:
Sub SetDataTable_To_CSV(ByVal dtable As DataTable, ByVal path_filename As String, ByVal sep_char As String)
Dim writer As System.IO.StreamWriter
Try
writer = New System.IO.StreamWriter(path_filename, False, System.Text.Encoding.Default)
Dim _sep As String = ""
Dim builder As New System.Text.StringBuilder
For Each col As DataColumn In dtable.Columns
builder.Append(_sep).Append(col.ColumnName)
_sep = sep_char
Next
writer.WriteLine(builder.ToString())
For Each row As DataRow In dtable.Rows
_sep = ""
builder = New System.Text.StringBuilder
For Each col As DataColumn In dtable.Columns
builder.Append(_sep).Append(row(col.ColumnName))
_sep = sep_char
Next
writer.WriteLine(builder.ToString())
Next
Catch ex As Exception
Finally
If Not writer Is Nothing Then writer.Close()
End Try
End SubTehát ha beírok csak számot az oszlopba akkor utána ha elmentem majd betöltöm akkor hibával elszáll ha betűket akarok beírni. Ugyanígy ha a csv-be csak számok vannak egy oszloppba akkor szintén nem lehet betűt beírni. Én minden egyes oszlopot stringként akarok kezelni.
Vintage Story PH szervere újra fut!
-
sztanozs
veterán
válasz MasterDeeJay #2230 üzenetére
Könnyű válasz nincs. Az alábbiak közül lehet szemezgetni:
1) DataReader használata
2) Import Export mód (IMEX=1) beállítás és registry túrás (TypeGuessRows)
3) Az első 8 sort feltöltöd az adattípusnak megfelelő dummy adatokkal és betöltés után törlöd őket
Az első megoldás problémája, hogy kézzel kell leprogramoznid az adatbevitelt, nem tudod egyszerű JET motorral behúzni.
A második megoldásnál az a bibi, hogy menyiségű adatsornál igen lassú a parse, mert beolvassa az összes sort.
A harmadik megoldásnál át kell szerkesztened az összes beolvasott fájlt és törölni a belovasott táblából a dummy adatokat.Ha jól rémlik egyébként, akkor az 1. vagy 3. megoldás szükséges, ha egy meződ 255-nél több karaktert kell tartalmazzon és az első sorában a megfelelő mezőkben ez nem teljesül. Ez a 2-es módszerrel nem megy.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
válasz sztanozs #2231 üzenetére
Köszi a választ!
Megtaláltam a megoldást, de teljesen más megközelítéssel.
CSV nem tárol semmit de egy ini fileal megoldható hogy menjen.Schema.ini-fileba:
[adat.csv]
ColNameHeader=False
Format=Delimited(;)
Col1=Sorszám integer
Col2=Cím1 char
Col3=Cím2 char
Col4=Cím3 char
Col5=Cím4 char
...
és így továbbEzzel rákényszerítve hogy minden oszlop előre meghatározott adat típusú legyen.
[ Szerkesztve ]
Vintage Story PH szervere újra fut!
-
Tomaaasz
aktív tag
Sziasztok!
Egy végtelenül egyszerű problémával állok szemben, de 2 óra masszív guglizás után se találtam meg a választ.
TextBox okat szeretnék létrehozni a kódból, de tetszőleges számút, vagyis a "Visible" Ture/False váltogatásával nem igazán vagyok kisegítve...
Maga a program egy adatbázis megjelenítő, és a rekordok száma lenne a textboxok száma is.Sub sorSzamol()
Dim azonTomb(maxSor) As Integer
Dim szamlalo As Integer
szamlalo = 0
Do While szamlalo < maxSor
azonTomb(szamlalo) = ds.Tables("Azon").Rows(szamlalo).Item("Azonosító")
szamlalo = szamlalo + 1
Loop
End SubEddig szép és jó. Milyen paranccsal tudom megoldani?
Köszönöm!
Oda mentem, ahol vagyok!
-
Tomaaasz
aktív tag
válasz Tomaaasz #2233 üzenetére
Nos, közben siker.
Do While szamlalo < maxSor
azonTomb(szamlalo) = ds.Tables("Azon").Rows(szamlalo).Item("Azonosító")
Dim txt1 As New TextBox
Me.Controls.Add(txt1)
With txt1
.Name = "txtAzon" & szamlalo
.Text = azonTomb(szamlalo)
.Height = 20
.Width = 50
.Left = 10
.Top = 10 * szamlalo * 2
End With
txt1 = Nothing
szamlalo = szamlalo + 1
LoopOda mentem, ahol vagyok!
-
emitter
őstag
-
Speeedfire
nagyúr
Tud valaki olyan egyszerű scriptet, amivel egy adott mappa alatt lévő fájlokat törölni lehet?
Konkrétan a temp fájlokat a c:\temp alá tettem és szeretném ezt törölni minden gép induláskor.Fotóim https://fb.com/toth.szabolcs.art || IG: http://instagram.com/_tothszabolcs_ || Weblapom http://szabolcs-toth.com
-
Bobrooney
senior tag
válasz Speeedfire #2237 üzenetére
Majd nézek neked
-
Bobrooney
senior tag
válasz Speeedfire #2239 üzenetére
Mindenképen VB-ben kell?
-
Bobrooney
senior tag
válasz Speeedfire #2239 üzenetére
-
-
Milgram1
aktív tag
Sziasztok!
Megtudja valaki mondani hogy miért 0-át ír az új tömbökbe?Imports System.Console
Module Module1
Sub Main()
Dim x(20), y(20), db1, db2, z(20) As Integer
Randomize()
For i = 1 To 20
x(i) = Rnd() * 99 + 1
WriteLine(x(i))
Next
db1 = 0
db2 = 0
For i = 1 To 20
If x(i) Mod 2 = 0 Then
x(i) = y(i)
db1 = db1 + 1
Else
x(i) = y(i)
db2 = db2 + 1
End If
Next
Write("páros számok:")
For i = 1 To 20
WriteLine(y(i))
Next
Write("páratlan számok:")
For i = 1 To 20
WriteLine(z(i))
Next
ReadLine()
End Sub
End Module -
belaur
tag
Hello
az alábbi Stringet szeretném beilleszteni egy cellába ugy hogy függvény maradjon.
keplet = "=IF($F" & sor & ”"”=preliminary””” & Chr(59) & "VLOOKUP(acquisition_projects!E" & sor & Chr(59) & "FPY_measure!$P$39:$R$41" & Chr(59) & "2)" & Chr(59) & "0)"
Az összes kapcsolódó forumot végignéztem de nem jutottam előrébb. .Value-val és .Formula-val is hibaüzenetet ad. Tudtok rá valami megoldást?
Köszi
-
sztanozs
veterán
Rossz helyen volt a dupla "" (preliminary előtt) és nem ártana régió mentes szeparátort sem használni:
xlls = Application.International(xlListSeparator)
keplet = "=IF($F" & sor & "=""preliminary""" & xlls & "VLOOKUP(acquisition_projects!E" & sor & xlls & "FPY_measure!$P$39:$R$41" & xlls & "2)" & xlls & "0)"Ja és az is lehet gond, hogy magyar az excel és a VLOOKUP és IF függvények nem értelmezettek...
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
- Milyen autót vegyek?
- Ford topik
- Samsung Galaxy S23 Ultra - non plus ultra
- Nyár közepén jön az AOC 540 Hz-es gaming monitora
- Mibe tegyem a megtakarításaimat?
- World of Tanks - MMO
- Nem indul és mi a baja a gépemnek topik
- Aliexpress tapasztalatok
- Epson nyomtatók
- AMD GPU-k jövője - amit tudni vélünk
- További aktív témák...