completare automata campuri
completare automata campuri
buna ziua,
ma intereseaza si pe mine dupa completarea unui textbox in vb (textbox1) dupa ce dau enter sa imi completeze automat textbox2 si textbox3 cu date luate dintr-un fisier.txt de pe hard. in fisierul respectiv sa am de exemplu randul 123 abc ABC si in momentul in care tastez 123 si dau enter sa imi apara automat abc si ABC.
va multumesc.
ma intereseaza si pe mine dupa completarea unui textbox in vb (textbox1) dupa ce dau enter sa imi completeze automat textbox2 si textbox3 cu date luate dintr-un fisier.txt de pe hard. in fisierul respectiv sa am de exemplu randul 123 abc ABC si in momentul in care tastez 123 si dau enter sa imi apara automat abc si ABC.
va multumesc.
- Dr.Excel
- Site Admin
- Mesaje: 1997
- Membru din: Sâm Ian 24, 2009 1:45 pm
- Localitate: Bucharest
- Contact:
Re: completare automata campuri
Exemplul rezolvat la cheie il gasesti in arhiva atasata (inclusiv fisierul text). Am scris cod la evenimentul KeyDown pentru a prinde tasta enter:
Cod: Selectaţi tot
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = KeyCodeConstants.vbKeyReturn Then
ChDir "C:\bogdan\Desktop\CSV"
Workbooks.OpenText Filename:="C:\bogdan\Desktop\CSV\date.txt", Origin:=437 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
(3, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.ActiveSheet.Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Selection.Offset(0, 1).Select
Dim valoarea2 As String
Dim valoarea3 As String
valoarea2 = Selection.Value
Selection.Offset(0, 1).Select
valoarea3 = Selection.Value
Selection.Copy
Windows("START.xlsm").Activate
Windows("date.txt").Close False
TextBox2.Value = valoarea2
TextBox3.Text = valoarea3
End If
End Sub
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
MCT, MCITP
MOS Master Instructor
IT Learning