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

• #1313 Rayman15 csendes tag Haribo #68

  Új Válasz 2006-07-11 13:26:58 #1313

  Ú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

  

  Rayman15

  csendes tag

  válasz Haribo #68 üzenetére

  Nekem is ugyanez lenne a kérdésem: megoldható e az, hogy egy megadott számot betűvel írjon ki a program, magyarul? A neten böngészve találtam vmit, viszont ehhez teljesen láma vagyok, ha vki leírná pontosan,hogy hogyan tudnám használni,nagyon hálás lennék. Na szóval itt van:
  Function ftszoveg(ft)
  Dim n1(9), n2(9)
  n1(1) = ''egy''
  n1(2) = ''kettő''
  n1(3) = ''három''
  n1(4) = ''négy''
  n1(5) = ''öt''
  n1(6) = ''hat''
  n1(7) = ''hét''
  n1(8) = ''nyolc''
  n1(9) = ''kilenc''
  n2(1) = ''tíz''
  n2(2) = ''húsz''
  n2(3) = ''harminc''
  n2(4) = ''negyven''
  n2(5) = ''ötven''
  n2(6) = ''hatvan''
  n2(7) = ''hetven''
  n2(8) = ''nyolcvan''
  n2(9) = ''kilencven''
  w = ''''
  wo = Format$(ft, ''000000000'')
  w1 = CInt(Mid$(wo, 1, 1))
  If w1 <> 0 Then
  w = w + n1(w1) + ''száz''
  End If
  w2 = CInt(Mid$(wo, 2, 1))
  If w2 <> 0 Then
  w = w + n2(w2)
  End If
  w3 = CInt(Mid$(wo, 3, 1))
  If w3 <> 0 Then
  If w2 = 1 Then
  w = w + ''en''
  End If
  If w2 = 2 Then
  w = w + ''on''
  End If
  w = w + n1(w3)
  End If
  If w1 + w2 + w3 <> 0 Then
  w = w + ''millió''
  End If
  w1 = CInt(Mid$(wo, 4, 1))
  If w1 <> 0 Then
  w = w + n1(w1) + ''száz''
  End If
  w2 = CInt(Mid$(wo, 5, 1))
  If w2 <> 0 Then
  w = w + n2(w2)
  End If
  w3 = CInt(Mid$(wo, 6, 1))
  If w3 <> 0 Then
  If w2 = 1 Then
  w = w + ''en''
  End If
  If w2 = 2 Then
  w = w + ''on''
  End If
  w = w + n1(w3)
  End If
  If w1 + w2 + w3 <> 0 Then
  w = w + ''ezer''
  End If
  w1 = CInt(Mid$(wo, 7, 1))
  If w1 <> 0 Then
  w = w + n1(w1) + ''száz''
  End If
  w2 = CInt(Mid$(wo, 8, 1))
  If w2 <> 0 Then
  w = w + n2(w2)
  End If
  w3 = CInt(Mid$(wo, 9, 1))
  If w3 <> 0 Then
  If w2 = 1 Then
  w = w + ''en''
  End If
  If w2 = 2 Then
  w = w + ''on''
  End If
  w = w + n1(w3)
  End If
  If IsNull(w) Then
  w = Mid$(w, 2, Len(w) - 1)
  Else
  w = UCase$(Left$(w, 1)) + Mid$(w, 2, Len(w) - 1)
  End If
  ftszoveg = w
  End Function

• #75 Luxurka tag Haribo #63

  Új Válasz 2004-07-07 17:57:04 #75

  Ú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

  

  Luxurka

  tag

  válasz Haribo #63 üzenetére

  Csináld a célcellába, hogy a cella értéke legyen A oszlop X. sorának az értéke, ügye a legördülő lista megadja az X értéket és mindig megváltoztatja, ahogy átállítod a listát...
  Küldjek egy példát?

• #67 KovacsUr addikt Haribo #66

  Új Válasz 2004-06-08 13:00:08 #67

  Ú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

  

  KovacsUr

  addikt

  válasz Haribo #66 üzenetére

  Úgy is lehet.

• #65 KovacsUr addikt Haribo #63

  Új Válasz 2004-06-08 12:37:23 #65

  Ú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

  

  KovacsUr

  addikt

  válasz Haribo #63 üzenetére

  Ennek így is kell működnie, a kiválasztott érték indexét adja vissza. Keresd vissza a sor alapján a nevet, pld.
  
  =INDEX(nevek listája;a cella a visszatérési értékkel)
  

• #64 X-COM nagyúr Haribo #63

  Új Válasz 2004-06-08 08:48:21 #64

  Ú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

  

  X-COM

  nagyúr

  válasz Haribo #63 üzenetére

  ez érdekes most ''lemodelleztem'', de nekem működik rendesen
  
  csak az a tartomány van kijelölve, amiben a nevek vannak?

• #62 KovacsUr addikt Haribo #61

  Új Válasz 2004-06-07 19:42:11 #62

  Ú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

  

  KovacsUr

  addikt

  válasz Haribo #61 üzenetére

  Jöhet még konkrétabban. Írd le a kérdéseidet.

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