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

• #4340 FragMaster addikt FragMaster #4338

  Új Válasz 2009-01-08 15:10:57 #4340

  Ú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

  Privát üzenet küldése

  

  FragMaster

  addikt

  válasz FragMaster #4338 üzenetére

  Első megoldva célértékkereséssel.

• #4339 Delila_1 veterán FragMaster #4338

  Új Válasz 2009-01-08 15:03:50 #4339

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4338 üzenetére

  Solver, elküldtem.

• #4314 FragMaster addikt FragMaster #4309

  Új Válasz 2009-01-04 23:29:29 #4314

  Ú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

  Privát üzenet küldése

  

  FragMaster

  addikt

  válasz FragMaster #4309 üzenetére

  Na én a kiemelt sort alahogy így értelemezem:

  Dim MyTime
  Dim MyDouble
  MyTime = Time
  MyDouble = CDbl(MyTime)

  Egyáltalán kapizsgálok?

• #4311 Delila_1 veterán FragMaster #4309

  Új Válasz 2009-01-04 19:26:14 #4311

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4309 üzenetére

  Nics Cdbl függvényem.

  Értékek az ellenőrzéshez:
  szám 5 (Double tip. adat)
  dátum 7 (Date tip.)
  szöveg 8 (String tip.)

  A 8:25:12 formában megadott időt is számként értelmezi. A VarType és a TypeName függvényekkel lehet lekérdezni -> cells(1,2)=VarType(cells(1,1))
  cells(1,3)=TypeName(cells(1,1).Value) Ennél a másodiknál szükséges a Value, anélkül Range értéket ad.

  Tényleg használhatatlan a könyv. A példa szerint a határértékek mindegyikére 2 válasz is lehetséges. Pl. a 10 órára a Jó reggelt, és a Jó napot is igaz. Elég pongyola megfogalmazás.

• #4310 Delila_1 veterán FragMaster #4308

  Új Válasz 2009-01-04 18:25:37 #4310

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4308 üzenetére

  Ennél a feladatnál az is kérdés volt, hogy milyen napra esik a születési dátum. A WEEKDAY függvény (hét.napja) megadja, hogy a hivatkozott dátum a hét hányadik napjára esik. A második paraméter - jelengeg 2 - azt adja meg, hogy hétfővel kezdődik a hét. 1 esetén vasárnap lenne a kezdő nap.
  Az év kiszámításához a 365-tel való osztás helyett a YEAR (év) függvényt használd.
  (októberben töltöttem az n-edik évemet, és ez a galád most, év elején n+1-et ír ki)

  Function KORA(Születési_dátum)
  If VarType(Születési_dátum) = 0 Then
  KORA = "Nincs adat": Exit Function
  End If
  If VarType(Születési_dátum) <> 7 Then
  KORA = "Hiba": Exit Function
  End If
  KORA = Year(Date) - Year(Születési_dátum)
  nap = Weekday(Születési_dátum, 2)
  Select Case nap
  Case 1
  nap = "hétfő"
  Case 2
  nap = "kedd"
  Case 3
  nap = "szerda"
  Case 4
  nap = "csütörtök"
  Case 5
  nap = "péntek"
  Case 6
  nap = "szombat"
  Case 7
  nap = "vasárnap"
  End Select
  KORA = KORA & " éves, születésének napja: " & nap
  End Function

• #4307 Delila_1 veterán FragMaster #4306

  Új Válasz 2009-01-04 09:30:57 #4307

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4306 üzenetére

  

• #4275 Delila_1 veterán FragMaster #4267

  Új Válasz 2009-01-03 09:07:22 #4275

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4267 üzenetére

  A csirkés feladatra:

  Function HETES(Kikelési_dátum)
  If VarType(Kikelési_dátum) = 0 Then 'Üres string
  HETES = "Nincs adat": Exit Function
  End If
  If VarType(Kikelési_dátum) <> 7 Then 'Nem dátum tip. adat
  HETES = "Dátumot kérek": Exit Function
  End If
  HETES = Round((Date - Kikelési_dátum) / 7) 'Kerekítve
  End Function
  
  
  Sub Start_HETES()
  Kikelési_dátum = ActiveCell.Value
  HETES Kikelési_dátum
  ActiveCell.Offset(, 1).Value = HETES(Kikelési_dátum)
  End Sub

  A lényeg a Function, a zárójelek közé olyan nevet adj a változónak, ami utal a függvényben megadandó adatra.

• #4266 Delila_1 veterán FragMaster #4265

  Új Válasz 2009-01-02 19:39:56 #4266

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4265 üzenetére

  Szívesen. Szerintem a #4261-est csináld meg.

• #4260 Delila_1 veterán FragMaster #4257

  Új Válasz 2009-01-02 15:30:26 #4260

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4257 üzenetére

  A fix érték helyett a Start()-ban cellahivatkozást adj meg, akkor a hibára utaló szövegeket is előcsalhatod.

  xnum=cells(1,1)

• #4258 Delila_1 veterán FragMaster #4257

  Új Válasz 2009-01-02 15:23:43 #4258

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz FragMaster #4257 üzenetére

  A "parancsikonból" talán ezt jelenti:

  Sub Start()
  xnum = 5000
  GÁZ xnum
  MsgBox GÁZ(xnum)
  End Sub

• #4256 Fire/SOUL/CD félisten FragMaster #4254

  Új Válasz 2009-01-02 13:53:22 #4256

  Ú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

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz FragMaster #4254 üzenetére

  Hali!

  Először is BÚÉK mindenkinek!

  Nos megnéztem a feladatsort, nem olyan bonyolult mint amilyennek elsőre tűnik, ne aggódj.
  Bár néhány esetben az ilyen sorokkal, hogy
  "A függvényt hívja meg parancsmakróból is" nem igazán tudok mit kezdeni, mert nem tudom, hogy milyen eseményhez vagy objektumhoz stb kötödjön!!??
  Megköszönném, hogy ha leírnád, hogy itt mire is kellene gondolni...

  Addig ezenkívül itt az első feladat, remélem minden érthető lesz benne.
  

  

  Function GÁZ(xnum)
  If Not IsEmpty(xnum) Then
  If IsNumeric(xnum) And xnum > 0 Then
  Select Case xnum
  Case 1 To 3000
  GÁZ = xnum * 100
  Case 3001 To 4000
  GÁZ = xnum * 120
  Case 4001 To 5000
  GÁZ = xnum * 140
  Case Else
  GÁZ = xnum * 150
  End Select
  Else: GÁZ = "Csak szám lehet!"
  End If
  Else: GÁZ = "Nem lehet üres!"
  End If
  End Function

  Fire.

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