Word: optionbutton blanco

[OctaFish]

Ik had deze. Vast niet zo mooi als snb, maar hij werkt. Dus ter lering ende vermaeck

Option Base 1

Sub Checken()
Dim i As Integer, y As Integer
Dim tbl As Table
Dim arr() As Integer

    Set tbl = ActiveDocument.Tables(1)
    With tbl
        ReDim arr(.Columns.Count)
        For i = 2 To .Rows.Count - 1
            For y = 2 To .Columns.Count
                If Left(.Cell(i, y).Range.Text, 1) = "X" Then
                    arr(y) = arr(y) + 1
                End If
            Next y
        Next i
    End With
    
    For i = LBound(arr) + 1 To UBound(arr)
        MsgBox arr(i) & " keer op " & i - 1
    Next i

End Sub

 

[snb]

In VBA is waar -1 en onwaar 0
Wil je 1 optellen als iest waar is dan zul je van dde waarde -1 , +1 moeten maken. Dat doe je door er een minteken voor te zetten.

test maar:

Sub tst()
  MsgBox 1 * True
  MsgBox -True
  MsgBox Abs(True)
End Sub

 

[OctaFish]

Overigens kan je de hele code op frm_01 vervangen door dit:

Private Sub Frm01Kennis_Initialize()
    With ActiveDocument.Tables(1)
        For i = 1 To 5
            If Left(.Cell(Row:=2, Column:=i + 1).Range.Text, 1) = "X" Then Me("OptionButton" & i).Value = True
        Next i
    End With
End Sub

Private Sub CmdVolgende_Click()
    For i = 1 To 5
        If Me("OptionButton" & i).Value = True Then
            ActiveDocument.Tables(1).Cell(Row:=2, Column:=i + 1).Range.Text = "X"
        Else
            ActiveDocument.Tables(1).Cell(Row:=2, Column:=i + 1).Range.Text = ""
        End If
    Next i
    Unload Me
    Frm02Nauwgezetheid.Show
End Sub

 

[snb]

@Octa,

mijn voorkeur:

Private Sub Frm01Kennis_Initialize()
   For i = 1 To 5
     Me("OptionButton" & i).Value=Left(ActiveDocument.Tables(1).Cell(2, i + 1).Range.Text, 1) = "X" 
   Next
End Sub

 

[Killerclown]

Alvast dank snb en OctaFish voor de uitleg. Ik ga dit eens grondig bestuderen en er iets uit leren.
Ik probeer mijn plan te trekken in VBA maar het is natuurlijk in het lang en het breed .

 

[Killerclown]

Hmm, weeral wat bijgeleerd:

In VBA is waar -1 en onwaar 0

Dit wist ik dus niet maar dit opent wel mogelijkheden nu ik dit weet
Thanks snb