Avatar billede jonasq1 Juniormester
13. april 2021 - 21:42 Der er 5 kommentarer og
1 løsning

Visual Basic

Hej

hvis jeg har en textbox i visual basic og jeg gerne vil have at hvis jeg skriver ja så returnere den 1 og hvis jeg skriver nej i tekstboxen returnere den 0. er der nogle der kan hjælpe

på forhånd tak
Avatar billede Jan K Ekspert
13. april 2021 - 22:31 #1
Sæt en variabel lig teksboksens værdi.

Så kan du test med en if om der er svaret ja eller nej og så sætte værdien i forhold til det

Nogrt i stil med

If Ucase(Textbox.Value )= "JA" Then
  Returvaerdi = 1

ElseIf Ucase(Texbox.Value) = "NEJ"
  Returvaerdi = 0
Else
  Returvaerdi = ""
End If
Avatar billede jonasq1 Juniormester
13. april 2021 - 22:50 #2
Hvordan tænker du at jeg skulle implementere det?

Private Sub cmdSave_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
If Trim(Me.txtDato.Value) = "" Then
  Me.txtDato.SetFocus
  MsgBox "Skriv venligst dato"
  Exit Sub
End If

'copy the data to the database
'use protect and unprotect lines,
'    with your password
'    if worksheet is protected
With ws
'  .Unprotect Password:="password"
  .Cells(iRow, 4).Value = Me.txtDato.Value
  .Cells(iRow, 6).Value = Me.txtFrakl.Value
  .Cells(iRow, 7).Value = Me.txtTilkl.Value
  .Cells(iRow, 8).Value = Me.txtMødt.Value
'  .Protect Password:="password"
End With

'clear the data
Me.txtDato.Value = ""
Me.txtFrakl.Value = ""
Me.txtTilkl.Value = ""
Me.txtMødt.Value = ""
Me.txtDato.SetFocus
End Sub
Avatar billede Jan K Ekspert
14. april 2021 - 13:36 #3
Som noget af det sidste. Hvilken af dine værdier er det, som der skal testes på?
Avatar billede jonasq1 Juniormester
14. april 2021 - 13:46 #4
Det er på den der hedder “mødt”
Avatar billede Jan K Ekspert
14. april 2021 - 14:23 #5
Noget i denne stil. Ikke testet, da jeg jo ikke har din formular

Private Sub cmdSave_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim TEST As String
Set ws = Worksheets("Data")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
If Trim(Me.txtDato.Value) = "" Then
  Me.txtDato.SetFocus
  MsgBox "Skriv venligst dato"
  Exit Sub
End If

'copy the data to the database
'use protect and unprotect lines,
'    with your password
'    if worksheet is protected

TEST = Me.txtMødt.Value
If UCase(TEST) = "JA" Then
  Worksheets("Data").Cells(iRow, 8).Value = 1
ElseIf UCase(TEST) = "NEJ" Then       
  Worksheets("Data").Cells(iRow, 8).Value = 0
Else
  Worksheets("Data").Cells(iRow, 8).Value = ""
End if
   
With ws
'  .Unprotect Password:="password"
  .Cells(iRow, 4).Value = Me.txtDato.Value
  .Cells(iRow, 6).Value = Me.txtFrakl.Value
  .Cells(iRow, 7).Value = Me.txtTilkl.Value
' .Cells(iRow, 8).Value = Me.txtMødt.Value
'  .Protect Password:="password"
End With

'Test om Mødt er udfyldt med Ja eller Nej

TEST = Me.txtMødt.Value

If UCase(TEST) = "JA" Then
  Worksheets("Data").Cells(iRow, 8).Value = 1
ElseIf UCase(TEST) = "NEJ" Then       
  Worksheets("Data").Cells(iRow, 8).Value = 0
Else
  Worksheets("Data").Cells(iRow, 8).Value = ""
End if


'clear the data
Me.txtDato.Value = ""
Me.txtFrakl.Value = ""
Me.txtTilkl.Value = ""
Me.txtMødt.Value = ""
Me.txtDato.SetFocus
End Sub
Avatar billede Jan K Ekspert
14. april 2021 - 14:24 #6
Du kunne indbygge fejlhåndtering, der testede om mødt udfyldes med andet end Ja eller Nej.  Her sættes cellen barte blank, hvis der er tastet noget andet.
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

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





CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
Eva Berneke stopper som topchef i KMD og flytter til Paris: Her er KMD's nye topchef
Efter syv år på posten som topchef for KMD forlader Eva Berneke selskabet. Nu flytter hun med familien til Paris, hvor hun vil fortsætte sit bestyrelsesarbejde. KMD har allerede afløser på plads.
White paper
Ryk SAP-workloads i skyen – og tag alle de kendte fordele med
SAP-kunder verden over har gennem de seneste 15 år draget fordel af løsninger baseret på NetApps ONTAP-data management-platform. Herunder en mere sikker og stabil drift samt forenklet administration, hvilket er afgørende for at gennemføre projekter effektivt og for at reducere deres risikoprofil. Gennem de seneste år er det i høj grad også blevet muligt at rykke SAP-workloads i skyen, og det ønsker mange virksomheder rimeligvis at drage fordel af – men uden at sige farvel til mulighederne med NetApp ONTAP. I dette whitepaper stiller vi skarpt på mulighederne for at indarbejde NetApp Cloud Volumes ONTAP and Azure NetApp Files som del af en SAP-strategi baseret på Microsoft Azure.