completare automata campuri

Închis
tudorel20
Mesaje: 1
Membru din: Lun Aug 25, 2014 1:17 pm

completare automata campuri

Mesaj de tudorel20 » Lun Aug 25, 2014 1:23 pm

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.

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje: 1947
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest
Contact:

Re: completare automata campuri

Mesaj de Dr.Excel » Dum Sep 28, 2014 12:40 pm

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

Închis

Înapoi la “Visual Basic for Application (VBA) - Intrebari tehnice”