Új hozzászólás Aktív témák

• martonx veterán

  2013-12-23 22:56:34 #2300

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz luzer0901 üzenetére #2299

  Na, így már azért más. Akkor nem kell mesterséges intelligencia, és tényleg excelben kell megoldani (az eszemet eldobom).
  Igaziból ha jól értem egyedül az kell, hogy a sakk szabályait ismerje a program, és szóljon ha valaki szabálytalanul lépett. Ez így már azért mindjárt más.
  Mennyivel egyszerűbb lett volna, ha ezzel kezded. Fórumtársak, van-e kedve valakinek karácsonykor leírni azt a pár sor kódot, amivel el tudna indulni luzer0901? Mondjuk egy csikó lépésének ellenőrzését, mert még talán az a legbonyolultabb.
  Illetve luzer901 tőled kérdezem, hogy mi az, ami nem megy ezen?

• luzer0901 csendes tag

  2013-12-23 10:39:08 #2299

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  luzer0901

  csendes tag

  válasz martonx üzenetére #2298

  Egyrészt köszi, hogy legalább segítesz másrészt én nem azt kértem, hogy írd meg helyettem hanem azt hogy segíts az elindulásban. A feladat így hangzikldjuk meg valamilyen módon az Excelben, hogy a munkalapon valamilyen módon jelzett sakkbábukkal játszani tudjon
  egymással 2 személy. Oldjuk meg, hogy a játék kezelje a sakkhoz tartozó lépéseket és szabályokat

• martonx veterán

  2013-12-23 00:00:57 #2298

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz luzer0901 üzenetére #2297

  Ez esetben mi lenne ha írnál nekünk konkrétumokat? Konkrétan mit értesz vba-s megvalósítás alatt? Excelben, wordben, powerpointban, netán outlook-ban kell-e sakk programot írni? Vajon te is érzed-e, hogy mennyire vicces már maga a feltételezés is? Ergo én azt gyanítom, hogy a feladatot sem sikerült megértened. Ha esetleg a konkrét feladat szöveget bemásolnád ide, nem pedig csak a saját interpretációdat, az sokat segítene.
  De hogy ne keltsek hiú reményeket, én biztosan nem fogok neked sakk programot készíteni. Annyit szívesen segítek, hogy értelmezem helyetted a feladatodat, és elindítalak a helyes irányba.

• luzer0901 csendes tag

  2013-12-22 22:23:12 #2297

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  luzer0901

  csendes tag

  válasz martonx üzenetére #2296

  Sajnos kötelező egy leadandó feladatom miatt, amúgy eszembe se jutna a vba-val kezdeni, nem tudnál segíteni nekem, legalább egy kicsit az elinduláshoz légyszíves

• martonx veterán

  2013-12-22 19:46:48 #2296

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz luzer0901 üzenetére #2295

  Akkor ha tudod mi a VBA, miért éppen vba-ban akarsz sakk programot írni? A Word, Excel nem erre való
  Ha pedig már a visual basic is ekkora gondot okoz, biztos, hogy sakk programmal akarsz kezdeni?

• luzer0901 csendes tag

  2013-12-22 18:09:57 #2295

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  luzer0901

  csendes tag

  Azt tudom, de nem sok mindennel vagyok tisztában vele, egyszerűen probáltam megérteni, de nem megy

• martonx veterán

  2013-12-22 18:03:54 #2294

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz luzer0901 üzenetére #2293

  Akkor egy gyors kérdés. Azt tudod mi az a vba?

• luzer0901 csendes tag

  2013-12-22 17:14:34 #2293

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  luzer0901

  csendes tag

  Tudom, hogy nem egy nehéz dolgot kértem, de én nagyon hülye vagyok a vba-hoz és ez a legfőbb probléma. Amúgy egy kis segítségnek is örülnék, bárkitől.

• martonx veterán

  2013-12-22 14:57:40 #2292

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz luzer0901 üzenetére #2291

  Egy sakkozó mesterséges intelligenciát megírni azért nagyon nem triviális. Mondjuk olyat írni, ami a szabályos lépéseket ismeri, és véletlenszerűen lépeget, nem vészes.
  Plusz mindezt meg is jeleníteni, és pont VBA-ban?

• luzer0901 csendes tag

  2013-12-22 14:23:29 #2291

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  luzer0901

  csendes tag

  Valaki olyat keresek aki akár pénzért, de segítene nekem egy vba-s sakk létrehozásában.

• luzer0901 csendes tag

  2013-12-22 12:21:27 #2290

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  luzer0901

  csendes tag

  Sziasztok ,ha valaki tudna segíteni nekem egy sakkhoz alapot ajálani azt nagyon megköszönném

• Syntax csendes tag

  2013-12-21 23:49:42 #2289

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Syntax

  csendes tag

  válasz olli üzenetére #2288

  Passz

• olli tag

  2013-12-21 17:48:20 #2288

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  olli

  tag

  VB6-ban írt pcthermometer programmal kapcsolatban felmerült:
  8 db DS 1624 szenzort lehet címezni, egy további ADS 7828E 8 csatornás konvertert kellene I2C vonalon csatlakoztatni.
  Az ADC címe megegyezik a szenzorok egyikével, &H48, a csatorna kiválasztását hogyan kell beszúrni,
  Csatorna címe pl &H21, &H23, &H24
  "The address byte is the first byte received following the
  START condition from the master device. The first five bits
  (MSBs) of the slave address are factory pre-set to 10010.
  The next two bits of the address byte are the device select
  bits, A1 and A0. Input pins (A1-A0) on the ADS7828 determine
  these two bits of the device address for a particular
  ADS7828. A maximum of four devices with the same pre-set
  code can therefore be connected on the same bus at one
  time.
  The A1-A0 Address Inputs can be connected to VDD or digital
  ground. The device address is set by the state of these pins
  upon power-up of the ADS7828.
  The last bit of the address byte (R/W) defines the operation
  to be performed. When set to a ‘1’ a read operation is
  selected; when set to a ‘0’ a write operation is selected.
  Following the START condition the ADS7828 monitors the
  SDA bus, checking the device type identifier being transmitted.
  Upon receiving the 10010 code, the appropriate device
  select bits, and the R/W bit, the slave device outputs an
  acknowledge signal on the SDA line.

  The ADS7828 operating mode is determined by a command
  byte which is illustrated above.
  SD: Single-Ended/Differential Inputs
  0: Differential Inputs
  1: Single-Ended Inputs
  C2 - C0: Channel Selections
  PD1 - 0: Power-Down Selection
  X: Unused
  See Table I for a power-down selection summary.
  See Table II for a channel selection control summary.
  MSB 6 5 4 3 2 1 LSB
  1 0 0 1 0 A1 A0 R/W
  PD1 PD0 DESCRIPTION
  0 0 Power Down Between A/D Converter Conversions
  0 1 Internal Reference OFF and A/D Converter ON
  1 0 Internal Reference ON and A/D Converter OFF
  1 1 Internal Reference ON and A/D Converter ON

• Syntax csendes tag

  2013-12-20 20:39:28 #2287

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Syntax

  csendes tag

  válasz vilag üzenetére #2282

  Hali

  Illetve ha magát azt a file-t akarod csak olvasásra megnyitni amit indítasz akkor a ThisWorkook -ba a kövi megy bele.

  Private Sub Workbook_Open()
  ActiveWorkbook.ReadOnlyRecommended = True
  End Sub

• Syntax csendes tag

  2013-12-20 20:10:49 #2286

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Syntax

  csendes tag

  válasz vilag üzenetére #2285

  Hali talán erre gondoltál...

  Workbooks.Open Filename:="ide adod meg a file nevet", ReadOnly:=True

• vilag tag

  2013-12-20 16:31:38 #2285

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  Nagyon Boldog Békés Ünnepeket mindenkinek!

• vilag tag

  2013-12-18 10:27:58 #2284

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz Petya25 üzenetére #2283

  Ahogy írtam VBA-ban szeretném ezt a problémát megoldani, így sajnos az általad kínált megoldás nem használható.

  A VBA súgójában annyit találtam, hogy "ActiveWorkbook.ReadOnly" az csak lekérdezhető.

  A probléma az, hogy az adot fájlt tööben is használják a hálózaton, viszont a felhasználók egy körének csak olvasásra szabadna megnyitnia.
  Fájlszinten a biztonsági beállítások között szépen be is állítottam, hogy mely felhasználók nyithatják írásra, és melyek szerkesztésre.
  A fájl elsődleges használója azonban nem én vagyok. Hiába állítottam be mint tulajdonos, hogy semelyik más felhasználónak nem engedélyezem, hogy saját tulajdonba vegye a fájlt, ez valamiért időnként mégis előfordul és ilyenkor minden beállított fájlszintű korlátozás ment a levesbe.

  Ezért akartam ezt programkódból megoldani, ha lehet.

• Petya25 őstag

  2013-12-18 09:34:29 #2283

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Petya25

  őstag

  válasz vilag üzenetére #2282

  Nem tudom miben használod, de nekem egy acFormReadOnly segíteni szokott.

  DoCmd.OpenForm "amitnyitsz", , , , acFormReadOnly

• vilag tag

  2013-12-18 08:44:03 #2282

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  Üdv!

  Mondja már meg valaki, hogy programkódból (VBA) meg lehet e oldani, hogy az adott fájl (amiből a kódot futtatom) csak olvasásra nyíljon meg?

  Azt akarom elérni, hogy írásra csak bizonyos felhasználóknak nyíljon meg a fájl.

  Köszönöm!

• Barett 50cal senior tag

  2013-12-15 17:37:26 #2281

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Barett 50cal

  senior tag

  válasz yahagyma üzenetére #1

  Sziasztok!

  Tudnátok nekem abban segíteni, hogy egy nagyon alap Sakk játékot hol találok, amit VBA-ban irtak?
  Csak az alap mozdulatok is elég nekem nem kell szabályok szerint mennie.. Van esetleg valami ötlet?:/ Már elég sokat néztem de mindegyik rossz

  köszönöm

• vilag tag

  2013-12-13 13:13:43 #2280

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz martonx üzenetére #2277

  A vállalkozóbarátságot már volt szerencsém tapasztalni, amikor utánakérdeztem, hogy egy cukrász végzettségű ember hogyan tudja legalizálni ha néha néha süt egy-egy tortát valakinek pénzért

  (A párom cukrász)

  De nem biztattak nagyon.
  Így maradt az illegális tevékenység.

  Úgy is mondhatnám mi vagyunk a sötétben bujkáló ellenforradalmár...

• Petya25 őstag

  2013-12-12 16:11:16 #2279

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Petya25

  őstag

  válasz Petya25 üzenetére #2278

  Lett egy egyszerű megoldásom:

  filename = FileSystem.dir("\\gepnev\Images\" & kep_nev & "*.jpg")

  url = "\\gepnev\Images\" & fajlnev

  Ez minden hókuszpókusz nélkül visszaadja a talált fájlt.

• Petya25 őstag

  2013-12-12 14:07:13 #2278

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Petya25

  őstag

  MS Access VB-ben kéne némi segítség.

  Úgy kéne egy képet megnyitnom, hogy a pontos nevét nem tudom. A fájlok nevében van a kép neve + egy növekvő sorszám (amit előre nem tudok) + .jpg
  Minden kép egyedi, tehát csak egy fájlt ad vissza ha keresném csillaggal: kep_neve*.jpg
  De ezt így simán nem eszi meg a VB, nem ad vissza képet.
  A csillaggal elérhető fájl pontos nevét kéne valahogy visszakapnom, azt már tudom használni. A sorszám nélküli verzióban fájlnév keresés nélkül is simán működik pontos névre. Ezzel próbálkozok:

  Dim kep_nev As String
  Dim filename As String
  Dim url As String

  kep_nev = "a kívülről megkapott kép neve sorszám és jpg nélkül"

  filename = My.Computer.FileSystem.GetFiles("\\gep\Images\",
  FileIO.SearchOption.SearchTopLevelOnly, kep_nev & "*.jpg")

  url = "\\gep\Images\" & filename

  Shell "explorer.exe " & url, vbMaximizedFocus

• martonx veterán

  2013-12-11 16:25:37 #2277

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz vilag üzenetére #2275

  Ha számlát is akarsz adni, akkor egyéni vállalkozóit érdemes kiváltani. Ha jól rémlik ez ingyenes, csak némi okmányirodai szopás (űrlap, sorban állás stb...) kell hozzá. Meg majd venned kell egy számlatömböt, ha már kaptál adószámot, mint egyéni vállalkozó.
  Plusz ettől kezdve valamivel macerásabb lesz az éves adóbevallásod.
  Ha netán nem akarod a gatyádat is leadózni, akkor meg el kell kezdeni költség számlákat gyűjteni, könyvelőt fogadni.
  Innen csókoltatom a vállalkozásbarát magyar államot.

• martonx veterán

  2013-12-11 16:22:32 #2276

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz vilag üzenetére #2272

  Elvileg a szabadalmi hivatalnál bármit be lehet jegyeztetni. Én már csináltam olyan programot ami védelem alatt van, de nem én intéztem a bejegyzését.
  De ezzel nem sokra mész, ha feltörik, és orrba-szájba ingyen használják. A legjobb, ha minél jobban levéded a kódot. Esetedben ez kimerül a vba projekt jelszavazásában.

• vilag tag

  2013-12-11 12:42:34 #2275

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz sztanozs üzenetére #2274

  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?

• sztanozs veterán

  2013-12-11 10:46:07 #2274

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz vilag üzenetére #2273

  Inkább a munkaszerződésben szokták kikötni, hogy a cég eszközein (illetve a munkaidőben) végzett szellemi termék jogai felett a cég rendelkezik. Tehát amit a munkaeszközödön, vagy munkaidőben, vagy a munkavégzéssel kapcsolatban készítesz, annak a cég a jogtulajdonosa, nem te és így nem is adhatod el - sem a cégnek, sem másik harmadik félnek.
  Persze csak ha ez el van rejtve a munkaszerződésedben.

• vilag tag

  2013-12-11 10:34:43 #2273

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz sztanozs üzenetére #2271

  A cég legálisan rendelkezik az Office 2003 és 2007 licencekkel.
  Mondjuk ezek szerint lehet, hogy az általam írt program az övék?

• vilag tag

  2013-12-11 10:33:05 #2272

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz martonx üzenetére #2270

  Kell valahol valamilyen szerzői jogot bejegyeztetni ha azt akarom, hogy "ne nyúlhassák le" a programot?
  Tudja esetleg valaki, hogy van ennek a menete?

• sztanozs veterán

  2013-12-11 09:11:13 #2271

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz vilag üzenetére #2269

  Ja és kivéve akkor, ha nem jogszerűen használod a fejlesztőkörnyzetet - vagy a használt környezet liszensze kiköti, hogy az csak nonprofit (pl oktatási) célra használható

• martonx veterán

  2013-12-11 08:17:38 #2270

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz vilag üzenetére #2269

  Miért ne? Kivéve, ha olyan 3rd party open source komponenseket használtál benne, amik GPL liszenszűek.
  De általában még ekkor is eladhatod a saját programod, csak éppen előtte meg kell venned a kérdéses 3rd party komponenseket.
  A licenszelés mindig kemény ügy, pláne hazánkban, ahol az utolsó, ami az emberek eszébe jut, hogy programot vegyen, pénzért.

• vilag tag

  2013-12-11 07:07:42 #2269

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  Üdv!

  Tudja valaki, hogy hogyan vannak itt a szerzői jogok?
  Úgy értem, hogy ha VB-vel írok egy programot, akkor azt mondjuk eladhatom?

• vilag tag

  2013-12-04 10:30:10 #2268

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz martonx üzenetére #2267

  Na igen, a visszafelé kompatibilitás itt is érvényes...

  Majd csak kerül valaki a másik fórumban is aki tud segíteni

• martonx veterán

  2013-12-03 18:43:08 #2267

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz vilag üzenetére #2266

  Nem különösebben, én leginkább .Net vonalon, ott is ASP.NET-ben mozgok. Egyszer egy Android-os alkalmazás backend-jét fejlesztettem Java-ban, nem ragadott meg.

  Tényleg a Referenciáknál az Excel mutatja, hogy melyik hiányzik, látszik, hogy (hál istennek) jópár hónapja már nem kell excel vba-znom. Fontos tudnod, hogy ha kizárólag Excel 2003-ban fejlesztesz, akkor az abban felhasznált referenciák egytől egyig működni fognak az újabb exceleken. Ez visszafelé viszont nem igaz!!!

• vilag tag

  2013-12-03 15:15:34 #2266

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz martonx üzenetére #2264

  Köszönöm!

  Ezek szerint nem a megfelelő helyen kerestem.

  Ha lesz időm belevetem magamat.
  Egyébként járatos vagy a témában?

• vilag tag

  2013-12-03 15:13:22 #2265

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz sztanozs üzenetére #2262

  Na, nem akarom elkiabálni, de úgy tűnik működik a dolog.

  Úgy néz ki valóban a referenciákkal volt a probléma.
  Ha elindítod, és gubanc van, akkor a "References" menüben a problémás referencia neve elé oda kerül, hogy "MISSING: "

  Úgy tűnik, ez jellemzően abból adódik, hogy a 2003-as office (11.0) nem találja a későbbi 2007-es officehoz (jelen esetben 14.0) referenciát.

  Mélyebb vizsgálatra nem volt alkalmam, mert még nem tudtam a bizonyos gép elé kerülni, de ha odajutok, akkor megírom a tapasztalatokat.

  Köszönöm mindkettőtöknek a segítséget!

• martonx veterán

  2013-12-03 14:23:49 #2264

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz vilag üzenetére #2263

  tessék itt a topikjuk: [link]

• vilag tag

  2013-12-03 14:15:20 #2263

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  Halihó!

  Nem tudja véletlenül valaki, hogy melyik topikban találok olyan mágust aki segítene nekem összedobni egy nem túl bonyolult Android alkalmazást?

  Keresgéltem a fórumon, de nem találtam fejlesztőknek szóló topikot.

• sztanozs veterán

  2013-12-02 14:10:39 #2262

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz vilag üzenetére #2261

  Igen és igen. A referenciák munkafüzethez kötöttek: a munkafüzeteket úgy kell elképzelni, mint külön-külön - excel környezetben - elindított különálló programokat.

• vilag tag

  2013-12-02 13:50:16 #2261

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz sztanozs üzenetére #2260

  Értem a különbséget.

  Most az az érdekes helyzet állt elő, hogy elindítottam azt a fájlt amit a másik gépen próbáltam futtatni, és most meg nekem írja ki a szóban forgó hibaüzenetet.

  Mókás kis hiba ez, de már jó lenne tudni mi a megoldás...

  Biztosan csak a referencia okozhatja ezt a hibát?

  (Akkor ha jól értem a referenciák az adott munkafüzethez kötöttek.)

• sztanozs veterán

  2013-12-02 13:22:31 #2260

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz martonx üzenetére #2259

  Mármint azt viszi magával, hogy a lokális gépen mit kell betöltenie, hogy futni tudjon... szóval a referenciákat magával viszi, de a hivatkozott fájlokat nem.

• martonx veterán

  2013-12-02 13:18:12 #2259

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz sztanozs üzenetére #2258

  "Referenciákat magával viszi, de ha nincs ott a fájl (vagy ott van, de nem kompatibilis), akkor nem tudja felvenni." - azaz igaziból nem viszi magával a referenciákat, mint pl. .Net környezetben egy Assembly a Copy Local = true esetben.

• sztanozs veterán

  2013-12-02 13:07:57 #2258

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz vilag üzenetére #2257

  Trim biztos megy plusz referenciák nélkül is. Az tudom elképzelni, hogy valamelyik referencia felüldefiniálja Trim-et (ami amúgy elég szarul működik alapból)...
  Referenciákat magával viszi, de ha nincs ott a fájl (vagy ott van, de nem kompatibilis), akkor nem tudja felvenni.

  Ebben van egy pár példa: [link]

• vilag tag

  2013-12-02 12:52:08 #2257

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz sztanozs üzenetére #2256

  Az Applicaion.UserName-el az a gond, hogy az az excelben használt felhasználói név, amelyet a felhasználó akár meg is változtathat, ellenben az Environ("Usernam")-el, amelyet egy mezei felhasználó nem nagyon változtathat meg.

  Nekem pedig szükségem van a "stabil" környezetre, mert jogosultságok kötődnek ehhez a felhasználói névhez.

  Megj.: még ha az Environ("Username") nincs is benne monndjuk a Basicben, azért szerintem a Trim-nek csak benne kellene lennie...

  Amit belinkeltél azt én is megtaláltam, de még nem volt alkalmam kipróbálni, tekintve, hogy a problematikus gép másik helyszínen van.

  A referenciákat viszi magával a program, vagy hogyan működik ez?

• sztanozs veterán

  2013-12-02 11:01:21 #2256

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz vilag üzenetére #2255

  FYI - http://stackoverflow.com/questions/507191/cant-find-project-or-library-for-standard-vba-functions
  Szedjél ki minden nem szükséges referenciát (fenti linken van élda, mi maradjon), az Environ("USERNAME") helyett használd az Application.Username-t.

• vilag tag

  2013-12-02 10:34:35 #2255

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  válasz martonx üzenetére #2254

  Próbáltam is, többször kiugrik ugyan ezzel a hibaüzenettel.

  Először pl. ennél a sornál: nev = Environ("USERNAME")
  Az "Environ" szövegrészt pedig szépen kijelöli kékkel.

  Ha ezt a sort kiveszem, akkor meg pl. itt:

  xy=Trim(Str(Date))
  Itt pedig a "Trim" szövegrészt jelöli ki.

  Esetleg, így valami pontosabb megoldási ötlet?

• martonx veterán

  2013-12-02 10:29:19 #2254

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz vilag üzenetére #2253

  Hehehe, hát ezért is halnak ki lassan a vastag kliensek. A gondot biztosan az okozza, hogy valamilyen dll hiányzik.
  Hogy ez nálatok valamilyen egyedi 3rd party dll volt-e, ami minden gépen ott csücsült, vagy az Office Professional valamilyen saját dll-je, ami az Office Basic-ben nincs csak meg, azt így messziről persze, hogy nem fogjuk tudni neked megmondani.
  A hibát dobó gépen pont ugyanúgy tudsz debug-olni, és akkor remélhetőleg pontosabban látszik, hogy hol kapod ezt a hibát.

• vilag tag

  2013-12-02 10:07:14 #2253

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  Üdv!

  Olyan problémába futottam, hogy az egyik általam írt programot (Excel VBA) elvittem egy másik gépre, azonban ott nem fit rendesen, mert az alábbi hibaüzenetet kapom:

  Compile error:

  Can't find project or Library

  Ez a kérdés itt a fórumban már kétszer is felmerült, azonban senki nem válaszolt azokra a kérdésekre.
  Próbáltam kicsit kutakodni a neten, ott annyit találtam (ha jól értettem), hogy a references-el lehet a baj.

  Nálam (és a helyi hálón leledző gépeken) Office 2003 Professional, illetve 2007 Professional van, azon a gépen amelyiken nem megy ott Office 2003 Basic van.
  Utóbbi gépen újra futtattam a telepítőt és "Minden a saját gépről fut" opcióval újratelepítettem az office alkalmazásokat.

  Van esetleg valakinek ötlete a hibára vonatkozóan?

  Mondanom sem kell, hogy nagyon fontos volna.

  Előre is köszönöm a segítséget!

• belaur tag

  2013-11-14 20:53:45 #2252

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  belaur

  tag

  válasz sztanozs üzenetére #2251

  A programom lényege, hogy a user kijelöl egy cellát akkor a gomb megnyomására beilleszt alá egy uj sort és beir képleteket amiknek a "sor" változó mondja meg hogy hanyadik sor lett a beszurt sor. Azaz, tulajdonképpen semmi mást nem csinal a program csak az uj sort feltölti képletekkel. Azon is gondolkodtam, hogy esetleg, ha lemásolom az egyel fölötte/alatta lévő sort, akkor a cellákban lévő függvényeket lehetne módosítani.

• sztanozs veterán

  2013-11-14 15:08:35 #2251

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz belaur üzenetére #2250

  Ha a teljes függvényt (vagy csak egy részét-nem csak ezt a sort) bemásolnád, az is segítene.
  Amúgy a sor változó "rendes" értéket vesz fel? Nem 0, üres vagy negatív?

• belaur tag

  2013-11-13 18:27:59 #2250

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  belaur

  tag

  válasz sztanozs üzenetére #2249

  Köszönöm a válaszod, Még mindig Application-defined or object-defined error-t dob ki Van egyéb ötleted mit ronthatok el?

• sztanozs veterán

  2013-11-13 18:10:50 #2249

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz belaur üzenetére #2248

  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...

• belaur tag

  2013-11-13 17:27:09 #2248

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  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

• Milgram1 aktív tag

  2013-11-11 21:51:38 #2247

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Milgram1

  aktív tag

  válasz Bobrooney üzenetére #2246

  igen, direkt

• Bobrooney senior tag

  2013-11-11 19:41:06 #2246

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Bobrooney

  senior tag

  válasz Milgram1 üzenetére #2245

  grat!
  Amúgy direkt szervezted külön a dolgokat? 1 ciklussal le lehet zavarni a dolgokat, csak szelekciót kell írnod hozzá.

• Milgram1 aktív tag

  2013-11-11 19:18:10 #2245

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Milgram1

  aktív tag

  válasz Bobrooney üzenetére #2244

  Megoldottam. Köszönöm

• Bobrooney senior tag

  2013-11-11 17:08:06 #2244

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Bobrooney

  senior tag

  válasz Milgram1 üzenetére #2243

  Mert az y változód sosem kap értéket. és az x-et teszed egyenlővé y-al.
  Remélem azt még tudod, hogy z tömbváltozódon kívül minden variant!

• Milgram1 aktív tag

  2013-11-11 15:58:36 #2243

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  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

• Speeedfire félisten

  2013-11-11 00:24:46 #2242

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Speeedfire

  félisten

  válasz Bobrooney üzenetére #2240

  Nem, más ms alatt futó script is jó nekem.

  Próbáltam már batch-t is, de nem ment.
  Holnap(ma) kipróbálom amit küldtél.

• Bobrooney senior tag

  2013-11-10 23:26:07 #2241

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Bobrooney

  senior tag

  válasz Speeedfire üzenetére #2239

  [link]

• Bobrooney senior tag

  2013-11-10 23:09:01 #2240

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Bobrooney

  senior tag

  válasz Speeedfire üzenetére #2239

  Mindenképen VB-ben kell?

• Speeedfire félisten

  2013-11-10 22:40:42 #2239

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Speeedfire

  félisten

  válasz Bobrooney üzenetére #2238

  

• Bobrooney senior tag

  2013-11-10 22:39:50 #2238

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Bobrooney

  senior tag

  válasz Speeedfire üzenetére #2237

  Majd nézek neked

• Speeedfire félisten

  2013-11-10 17:27:23 #2237

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Speeedfire

  félisten

  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.

• emitter őstag

  2013-11-07 10:27:16 #2236

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  emitter

  őstag

  válasz emitter üzenetére #2235

  ezt kissé elhamarkodtam.. szóval a gond az volt hogy a Join-nak tömböt kell átadni:
  sIp = Join( Array( sIp, CStr(bIp(i)) ), "." )

• emitter őstag

  2013-11-07 10:00:39 #2235

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  emitter

  őstag

  Sziasztok!

  A képen látható kód a következő hibát dobja fordításkor:
  Error: Expecting ')' (10586)

  

  Ha ezt:
  sIp = Join(sIp, CStr(bIp(i)), ".")

  erre cserélem:
  tmpIp = CStr(bIp(i))
  sIp = Join(sIp, tmpIp, ".")

  akkor is marad a hiba... Mi lehet a gondja? Máskor teljesen jól működött nekem ez a Join...

• Tomaaasz aktív tag

  2013-11-06 19:12:42 #2234

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Tomaaasz

  aktív tag

  válasz Tomaaasz üzenetére #2233

  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
  Loop

• Tomaaasz aktív tag

  2013-11-06 18:38:44 #2233

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  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 Sub

  Eddig szép és jó. Milyen paranccsal tudom megoldani?

  Köszönöm!

• MasterDeeJay veterán

  2013-10-29 12:07:01 #2232

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MasterDeeJay

  veterán

  LOGOUT blog

  válasz sztanozs üzenetére #2231

  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ább

  Ezzel rákényszerítve hogy minden oszlop előre meghatározott adat típusú legyen.

• sztanozs veterán

  2013-10-29 10:52:45 #2231

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz MasterDeeJay üzenetére #2230

  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.

• MasterDeeJay veterán

  2013-10-29 08:53:02 #2230

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MasterDeeJay

  veterán

  LOGOUT blog

  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 = adat

  Ezzel 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 Sub

  Tehá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.

• martonx veterán

  2013-10-16 16:34:50 #2229

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz pirit28 üzenetére #2228

  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

• pirit28 csendes tag

  2013-10-16 15:13:43 #2228

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  pirit28

  csendes tag

  válasz martonx üzenetére #2227

  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

  2013-10-15 23:17:47 #2227

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz pirit28 üzenetére #2226

  Értem. Ez most csak én értem túl triviálisnak, vagy tényleg nem tudod megoldani? Worksheet change eseményt kell figyelned. Amikor az XY mező változik, akkor az értékét hozzá kell adnod XY + akármennyi mezőhöz.

• pirit28 csendes tag

  2013-10-15 20:41:57 #2226

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  pirit28

  csendes tag

  válasz martonx üzenetére #2225

  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

• martonx veterán

  2013-10-15 19:26:12 #2225

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz pirit28 üzenetére #2223

  Ezt most vajon csak én nem értettem?

• Milgram1 aktív tag

  2013-10-15 15:41:51 #2224

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Milgram1

  aktív tag

  válasz McReay üzenetére #2220

  így próbáltam csak a végéről lemardt a ;
  köszönöm

• pirit28 csendes tag

  2013-10-15 15:20:46 #2223

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  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 !

• pirit28 csendes tag

  2013-10-15 14:28:36 #2222

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  pirit28

  csendes tag

  válasz pirit28 üzenetére #2217

  Jó napot !

  Nah sikerült megoldanom,a tegnapi problémámat.
  ActiveCell.Offset (X, Y).Select-el.

  Köszöntem

• sztanozs veterán

  2013-10-15 09:21:13 #2221

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz Milgram1 üzenetére #2211

  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 Double

  Tehá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.

• McReay aktív tag

  2013-10-15 07:51:31 #2220

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  McReay

  aktív tag

  válasz Milgram1 üzenetére #2218

  Abban az esetben az m1 nevű változódnak ad ezt:
  m1 = m1.Text;

  Így működni fog!

  Bár, ahogy martonx is mondta, nem szerencsés ugyanazt a nevet adni egy változónak és egy object-nek!

• martonx veterán

  2013-10-15 07:18:11 #2219

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz Milgram1 üzenetére #2218

  Ennek örülök, akkor viszont minek dimenzionálsz ugyanolyan néven változókat? Kérlek egy pindurkát olvass utána, hogy mik azok a változók, mit jelent egy változó élettartalma, láthatósága.

• Milgram1 aktív tag

  2013-10-14 23:03:08 #2218

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Milgram1

  aktív tag

  válasz martonx üzenetére #2214

  s zövegdobozok m1 m2-nek vannak elnevezve

• pirit28 csendes tag

  2013-10-14 20:32:06 #2217

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  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 hamarabb

  Range("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 = False

  Exit Sub
  Nincs:
  MsgBox ("A keresett név nincs a listában.")
  End Sub

  Rem érthető voltam ,a választ válaszokat előre is köszönöm.

  Üdv.

• martonx veterán

  2013-10-14 14:41:27 #2216

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz McReay üzenetére #2215

  próbáltam rávezetni én is

• McReay aktív tag

  2013-10-14 10:20:10 #2215

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  McReay

  aktív tag

  válasz Milgram1 üzenetére #2211

  Így helyes:
  

• martonx veterán

  2013-10-13 21:36:57 #2214

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz Milgram1 üzenetére #2213

  Ez oké, hogy ennek szántad, de konkrétan a dimenzionálás után hol adsz nekik értéket???

• Milgram1 aktív tag

  2013-10-13 14:59:34 #2213

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Milgram1

  aktív tag

  válasz martonx üzenetére #2212

  az m1 az első test tömege az m2 meg a második

• martonx veterán

  2013-10-13 14:32:02 #2212

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz Milgram1 üzenetére #2211

  Hol adsz értéket m1, m2-nek, r-nek?

• Milgram1 aktív tag

  2013-10-13 11:13:43 #2211

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Milgram1

  aktív tag

  Sziasztok!
  Szeretném megcsinálni hogy a program kiszámolja a tömegvonzást de végeredménynek mindig azt írja ki hogy nem szám
  Hol a hiba?

  

  

• sztanozs veterán

  2013-10-08 21:21:32 #2210

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz fpeter07 üzenetére #2209

  Hint:
  F4

• fpeter07 veterán

  2013-10-08 20:51:46 #2209

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  fpeter07

  veterán

  válasz sztanozs üzenetére #2208

  Megvolt. Most majd szorzótáblát csinálok. Az előbbi feladat alapján fel tudtam írni a számokat 1-10-ig, a következő lépésen még gondolkoznom kell...

• sztanozs veterán

  2013-10-08 17:01:36 #2208

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz fpeter07 üzenetére #2207

  Szerintem az elsőre tutira magadtól is találsz google példát, a másodikra annyi segítséget adok, hogy ColorIndex.

• fpeter07 veterán

  2013-10-08 16:05:14 #2207

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  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�!

• martonx veterán

  2013-09-25 17:09:31 #2206

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz kasam üzenetére #2205

  Bolondbiztos módszer nincs rá, de mondjuk minden futáskor megnézed, hogy milyen hónap van, és az alapján a hónapot átforgatod szöveggé pl. 9-dik hónap -> Szept

• kasam csendes tag

  2013-09-25 15:01:23 #2205

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  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:=False

  Köszi előre is!
  Máté

• 4ron senior tag

  2013-09-23 23:37:59 #2204

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  4ron

  senior tag

  válasz 4ron üzenetére #2203

  Az első feladatot sikerült megoldanom, már csak a 2. várat magára. Remélem összehozom valahogy...

• 4ron senior tag

  2013-09-23 22:17:55 #2203

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  4ron

  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

• sztanozs veterán

  2013-09-13 17:27:38 #2202

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  válasz hiperFizikus üzenetére #2200

  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.

• martonx veterán

  2013-09-13 15:45:01 #2201

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  válasz hiperFizikus üzenetére #2200

  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.

Új hozzászólás Aktív témák