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

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

Rekommendera Poster

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?

Dela detta inlägg


Länk till inlägg
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.

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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.

Dela detta inlägg


Länk till inlägg
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.

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...