Avatar billede splokit Nybegynder
31. oktober 2005 - 19:48 Der er 7 kommentarer og
1 løsning

Tekst felt = tal

Jeg søger en formel til at kopiere efter det tal som er i det tekstfelt ud for de 12 rækker som den så skal kopiere ned i cellerne B18:I29 Så et er øverst og 12 nederstdet skal gøres ved tryk på en knap
F.eks
Tekst Felt
[2]    B2:I2   
[1]    B3:I3

1    B3:I3
2    B2:I13
Avatar billede oyejo Nybegynder
01. november 2005 - 10:43 #1
Option Explicit
Option Base 1

Public Sub Test()
Dim c As Range
Dim n As Long, i As Long
Dim vDb(12, 9) As Variant

With ActiveSheet
  For Each c In Range(.Cells(2, 1), .Cells(13, 1))
    For n = 1 To 9
      vDb(c.Value, n) = .Cells(c.Row, n).Value
    Next
  Next
  Range(.Cells(18, 1), .Cells(29, 9)).Value = vDb
End With
End Sub
Avatar billede splokit Nybegynder
01. november 2005 - 18:59 #2
Hvordan binder jeg en tekstbox til en celle
Avatar billede oyejo Nybegynder
02. november 2005 - 09:39 #3
er ikke sikker på hva du mener, men.
Hvis du skal vise en celles verdi i en tekstboks:

-Høyreklikk på tekstboksen
-Velg Egnenskaper
-Der er det et valg: Linked Cell. skriv inn feks A1
Avatar billede oyejo Nybegynder
02. november 2005 - 10:40 #4
hvis du skriver en ny verdi i celle a1, vil den vises i tekstboksen
OG.. hvis du skriver en ny verdi i tekstboksen vil den vises i celle A1
Avatar billede splokit Nybegynder
02. november 2005 - 14:23 #5
F.eks Hvis jeg har en userform med 5 tekstboxe
man skal åbne den form med en knap... i den form er der 5 T-boxe og en knap hvis man trykker på den knap skal den tage de værdier som der er i U-formen og smide det ind i et ark
Avatar billede oyejo Nybegynder
02. november 2005 - 16:15 #6
trykk Alt + F11 for å åpne vba editoren
trykk Ctrl + R hvis du ikke kan se modulene i prosject exploreren
dobbelklikk på din userform
nå kommer userformen opp i et vindu,
merk userformen og trykk F7

Nå kan du med piltastene i vinduet oppe til venstre velge din commandbuttom.
det kan koden for 1. knapp se slik ut:

Private Sub CommandButton1_Click()
    ThisWorkbook.Sheets(1).Cells(1, 1) = TextBox1.Value
End Sub
Avatar billede splokit Nybegynder
29. november 2005 - 17:43 #7
slut
Avatar billede splokit Nybegynder
29. november 2005 - 17:43 #8
.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester