Avatar billede Chewie Novice
11. oktober 2002 - 15:16 Der er 6 kommentarer og
3 løsninger

Userfrom, VB. og andet guf

Hej

Jeg har et par spm som jeg ved excel gutterne kan svare på :o)

1) kompinationsboks, hvor kan jeg tilføje til listen i VB ?? (den første på listen skal altid stå som standard)

2) Jeg har lavet en knap i userformen som gemmer arket før men indtaster, hvordan får jeg aktiveret teksbox10 igen så man er klar til at indtaste igen efter "gemningen" ??
----------
Private Sub CommandButton3_Click()
ActiveWorkbook.Save
End Sub
----------

3a)hvordan konvatere jeg Textbox1 til dd-mm-åååå i userformen altså __-__-____.

3b)Det er lavet sådan at der automatisk stå dagsdato i denne box
----------
Public Sub LoadForm()
    Load UserForm1
    UserForm1.Show
UserForm1.TextBox1 = Date
UserForm1.TextBox10 = ""
UserForm1.CheckBox1 = False
UserForm1.CheckBox3 = False
UserForm1.CheckBox2 = False
UserForm1.TextBox9 = ""
UserForm1.TextBox7 = ""
UserForm1.CheckBox4 = False
UserForm1.CheckBox7 = False

End Sub
-----------
Hvorfor komme der kun dato i feltet nogle gange ??

Chewie
Avatar billede lsimony Nybegynder
11. oktober 2002 - 18:01 #1
Hej Chewie

Jeg har lige lavet et regneark, hvor jeg også har datoen stående i userform'en. Prøv i editoren at indsætte dette under din userform:

Private Sub UserForm_Activate()
    TextBox1.Text = Format(Now, "dd-mm-yyyy")
End Sub

Hvis du skriver denne metode under din Userform, da vil den først kører denne metode.

Håber det kunne hjælpe.

Lars
Avatar billede bak Forsker
13. oktober 2002 - 09:55 #2
Chewie-> Du kan bruge ComboBox1.Additem  til at sætte nye items på din combobox.
ComboBox1.ListIndex = 0 til at gøre første på listen standard.
TetxBox10.SetFocus til at aktivere textbox10 efter gemning.

Private Sub CommandButton3_Click()
ActiveWorkbook.Save
TextBox10.SetFocus
End Sub
Avatar billede Slettet bruger
14. oktober 2002 - 22:05 #3
1.
Private Sub UserForm_Activate()
  UserForm1.ComboBox1.AddItem "Første element", 0
  UserForm1.ComboBox1.AddItem "Anden element", 1
  UserForm1.ComboBox1.AddItem "Tredie element", 2  'osv.
End Sub

2.
Private Sub CommandButton1_Click()
  UserForm1.TextBox10.SetFocus
End Sub

3a.
Dette er ikke muligt i VBA, kun i VB.
Du kan evt. lave en label ved siden af textboxen der viser det korrekte format (f.eks: dd-mm-åååå), eller du starte op med at eksemplet står i textboxen. En tredie mulighed er at validere inputtet løbende ved hjælp af
TextBox1_Change() funktionen.

3b.
Koden skal ligge i UserForm_Activate(), ligsom lsimony skriver.
Avatar billede bak Forsker
15. oktober 2002 - 09:14 #4
3a. du kan prøve dette og tilpasse det hvis det kan bruges..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  With TextBox1
    Select Case Len(.Value)
      Case 4
      .Value = Format(DateValue(Mid(.Value, 1, 2) & "-" & Mid(.Value, 3, 2) & "-" & Year(Date)), "dd-mm-yyyy")
      Case 6
      .Value = Format(DateValue(Mid(.Value, 1, 2) & "-" & Mid(.Value, 3, 2) & "-" & Mid(.Value, 5, 2)), "dd-mm-yyyy")
      Case 8
      .Value = Format(DateValue(Mid(.Value, 1, 2) & "-" & Mid(.Value, 3, 2) & "-" & Mid(.Value, 7, 2)), "dd-mm-yyyy")
    End Select
    If UCase(.Value) = "DD" Then .Value = Format(Date, "dd-mm-yyyy")
  '[a1] = DateValue(.Value)
  End With
End Sub
Avatar billede Chewie Novice
15. oktober 2002 - 16:15 #5
Undskyld..  der ikke har været meget responce fra mig .... men jeg er syg og forventer at starte på en frisk imorgen

Chewie
Avatar billede Chewie Novice
16. oktober 2002 - 10:40 #6
Hej

Så er jeg på benene igen :o)

Jeg har fået det meste til at virke .... I er bare SUPER

3b) har jeg droppet da jeg nu får d.d. vær gang :o)

1) Dog har jeg lidt problemmer med min Combobox, Bak >> skriver man skal sætte den der skal være valgt som standard til 0 .... men den funker ikke rigtig den starter som tom ... hvordan løser jeg dette ??
Avatar billede bak Forsker
16. oktober 2002 - 11:15 #7
Har du en tom værdi som den første ?
ellers prøv at skrive
ComboBox1.ListIndex = 1
Avatar billede Chewie Novice
16. oktober 2002 - 11:43 #8
Bak >> så virker det :o) ((svar ??))

Takker for Jeres gode besvarelser

Chewie
Avatar billede bak Forsker
16. oktober 2002 - 11:53 #9
ok :-)
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