11. juni 2001 - 11:11Der er
3 kommentarer og 1 løsning
kode i CheckBox
Jeg har problemer med denne kode Private Sub CheckBox1_Click() Application.ScreenUpdating = False If CheckBox1.Value = True Then Sheets(\"beregnings tal\").Select Select (\"B2\") ActiveCell.FormulaR1C1 = \"j\" Sheets(\"vaskedata\").Select ElseIf CheckBox1.Value = False Then End If Exit Sub End Sub Det jeg gerne ville var at når der flueben i Boxen så skal der indsættes et j i b2 på arket\" beregningstal\" og når der ikke er flueben i skal det slettes i B2 hvordan gør man det ? jeg ved godt min koder ikke er færdig men jeg får fejl ved Select B2 alerede så jeg er ikke kommet længere
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub CheckBox1_Click() Application.ScreenUpdating = False If CheckBox1.Value = True Then Sheets(\"beregnings tal\").Range(\"B2\").FormulaR1C1 = \"j\" Else Sheets(\"beregnings tal\").Range(\"B2\").FormulaR1C1 = \"j\" End If End Sub
Private Sub CheckBox1_Click() Application.ScreenUpdating = False If CheckBox1.Value = True Then Sheets(\"beregnings tal\").Range(\"B2\").FormulaR1C1 = \"j\" Else Sheets(\"beregnings tal\").Range(\"B2\").FormulaR1C1 = \"j\" End If Application.ScreenUpdating=True \'vi skal lige tænde igen :o) End Sub
Private Sub CheckBox1_Click() Application.ScreenUpdating = False If CheckBox1.Value = True Then Sheets(\"beregnings tal\").Range(\"B2\").FormulaR1C1 = \"j\" Else Sheets(\"beregnings tal\").Range(\"B2\").FormulaR1C1 = \"\" \'den skal jo være tom :o) End If Application.ScreenUpdating=True \'vi skal lige tænde igen :o) End Sub
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.
