Just nu i M3-nätverket
Gå till innehåll

Hämta data från cell till textbox i userform


Blomman upps

Rekommendera Poster

Blomman upps

Hej jag är helt ny i vba världen och har väl två frågor som jag vill ha hjälp med.

 

Låt säga att jag har ett excelark vi kallar det "data" i fält "A1" har jag ett värde som jag fört över from ett formulär som vi kan kalla UserFrm men av någon anledning behöver jag ändra värdet genom formuläret igen hur skulle koden ser ut för att textboxen skall få med sig angivet värde från cell A1?

 

nästa fråga skulle vara om en combobox har ett par olika rader med i mitt fall komponenter vill jag att intill liggande textbox skall kunna fylla i ett värde som baseras på vilken rad som valts i comboboxen hur skulle det kunna se ut i kod?

Länk till kommentar
Dela på andra webbplatser

jag svarar inte med exakt kod utan med ett resonemang.

 

Du kan alltid nå en cell om du adresserar med med blad och cellnamn, exempelivis

Blad1.Range("A1")

Worksheets("Blad1").Range("A1")

eller om du namngett cellen kort och gott

Range("minCell")

även om det även då är god sed att ange blad.

 

På samma vis kan du, inom ditt formulär, nå din textbox:

 Me.TextBox1

 

Så med andra ord, ge den ett värde

Me.Texbox1.Text = Blad1.Range("A1")

och vice versa

Blad1.Range("A1") = Me.Textbox1.Text

 

När ska denna kod köras? Den andra förslagsvis när användaren trycker på knapp för att spara eller när forumläret stängs.

Den första förslagsvis när formuläret inititeras.

för båda dessa händelser finns det funktionen på formuläret redan.

 

Combobox

Du har en tabell i din arbetsbok som grund antar jag?

Då är det enkelt:

Private Sub ComboBox1_Change()
    If Me.ComboBox1.ListIndex <> -1 Then
        Me.TextBox1.Text = Blad1.Cells(Me.ComboBox1.ListIndex, 2)
    End If
End Sub

exempelvis. Du får givetvis anpassa referensen till arbetsbladet att passa dig. Exemplet ovan utgår från att du har en tabell på Blad1, A1:B100 exemplevis.

Länk till kommentar
Dela på andra webbplatser

Blomman upps

Detta ska när formulär initieras och jag har givetvis andra namn på flikar dock inte i cellerna kanske bör fixa det :)

 

Tack för svaret så tacksamt att kunna fråga om saker.

Länk till kommentar
Dela på andra webbplatser

Kom åter om du behöver djupare förklaring.

 

Google är en bra vän även när man undrar över något om VBA men fråga på här om du undrar.

Länk till kommentar
Dela på andra webbplatser

Blomman upps

Jag har en exempelfil men lyckas inte ladda upp den till dig så du kan se vad jag menar

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...