Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Nelamuriri posturi titularizabile

Antena UHF PNI UF400, 47 cm, 430-...

Romania - Bielorusia (28.03.2023,...

Viza turist SUA
 Extender bay 3,5 carcasa

Soft evidența deplasari

Alegere laptop sh pana in 14”

Cum ati reusit sa va lasati de fu...
 Descifrarea numarului de inmatric...

Blocare telefon huawei p20 lite

Interpretare audiograma

Obtinere semnaturi centrala termica
 Mirosurile in blocurile noi

Vacanta Hurghada

Monitor 2 blurry

Ce vrea sa zica autorul?
 

TextBox to Integer

- - - - -
  • Please log in to reply
2 replies to this topic

#1
dustcp

dustcp

    Junior Member

  • Grup: Members
  • Posts: 84
  • Înscris: 07.10.2010
Salut! Vreau ca dintr-un textbox sa export datele ca integer printr-un buton intr-un excel, in sheet 2 pentru a folosi baza de date in alt program ulterior. Eu am incercat sa fac ceva, problema este ca daca modific datele din textbox. cand deschid fisierul excel respectiv, imi deschide si un "book" precedent, inainte sa fie modificat.
Puteti sa ma ajutati?
Folosesc Visual Basic 6.3.

#2
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 29,086
  • Înscris: 10.08.2005
texbox-ul este precum Notepad.

#3
horohoro

horohoro

    Junior Member

  • Grup: Members
  • Posts: 103
  • Înscris: 11.02.2010
sa inteleg ca vrei sa scapi de caractere si sa ramai doar cu cifre?

vezi poate te ajuta functia asta:

Public Function ConvertesteInNumar(ByVal strNumar As String) As String
  Dim a As Integer
  Dim buf As String
	
  For a = 1 To Len(strNumar)
   If IsNumeric(Mid(strNumar, a, 1)) Then buf = buf & Mid(strNumar, a, 1)
  Next a

  ConvertesteInNumar = CDbl(buf)
End Function

msgbox "TextBox=" & ConvertesteInNumar(Text1.text) & vbcrlf & _
		"String=" & ConvertesteInNumar(plictiseala2viata4ever2167 '[email protected][email protected] '45)

Edited by horohoro, 31 May 2012 - 04:47.


Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate