Sumar valores true i false de la casilla de verificacion

Hola :-)

Hola amigos,

Estoy interesado en saber como se suman los valores true o false de
una casilla de verificacion que estan en una tabla, celdas y columnas,
es decir tengo una columna con 10 filas, en cada celda esta una
casilla de verificacion, los valores son activado i desactivado, como
puedo hacer para que me sume solamente los acttivados.

Muchas gracias por vuestra ayuda.

tomas

A falta de mas detalles :-\ , de momento segun la consulta el siguiente
codigo te suma los valores [ FormCheckBox ] que tenemos como true en un
documento :

'[]
Sub contar_checkbox_document()

Dim x As Long, y As Long

With ActiveDocument

For x = 1 To .FormFields.Count
If .FormFields(x).Type = wdFieldFormCheckBox Then
If .FormFields(x).CheckBox.Value = True Then y = y + 1

End If

Next x

MsgBox "hay " & y & " " & " checkboxes activados :D "

End With


End Sub

'[]

Comentanos ok? :-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]
» Nothing Else Matters [ Metallica ]

www.fermu.com

On 3 dic, 21:38, Tux wrote:

Hola :-)

> Hola amigos,

> Estoy interesado en saber como se suman los valores true o false de
> una casilla de verificacion que estan en una tabla, celdas y columnas,
> es decir tengo una columna con 10 filas, en cada celda esta una
> casilla de verificacion, los valores son activado i desactivado, como
> puedo hacer para que me sume solamente los acttivados.

> Muchas gracias por vuestra ayuda.

> tomas

A falta de mas detalles :-\ , de momento segun la consulta el siguiente
codigo te suma los valores [ FormCheckBox ] que tenemos como true en un
documento :

'[]
Sub contar_checkbox_document()

Dim x As Long, y As Long

With ActiveDocument

For x = 1 To .FormFields.Count
If .FormFields(x).Type = wdFieldFormCheckBox Then
If .FormFields(x).CheckBox.Value = True Then y = y + 1

End If

Next x

MsgBox "hay " & y & " " & " checkboxes activados :D "

End With

End Sub

'[]

Comentanos ok? :-)

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

>> Now We are free [Enya]
>> United states of love [ Westbam and the love commitee ]
>> Nothing Else Matters [ Metallica ]

www.fermu.com

Hola, primero de todo darte las gracias por tu respuesta, funciona
estupendamente pero lo que me iria bien seria que el resultado de los
activados me lo diera en la celda final de totales con un número, ya
que no me sirve el msgbox.

Repito las gracias y hasta pronto,

tomas

hola tomas :)

resultado de los
activados me lo diera en la celda final de totales con un número, ya
que no me sirve el msgbox.

No dupliques las preguntas que luego es un caos a la hora de
encontrarlas y quedan todas sueltas :-)

Bien prueba con la siguiente modificacion:

Y comentanos cualquier duda ?


'- modificacion codigo

'[]

Sub contar_checkbox_document()

Dim x As Long, y As Long

On Error Resume Next

ActiveDocument.Unprotect ("111")

With ActiveDocument

For x = 1 To .FormFields.Count
If .FormFields(x).Type = wdFieldFormCheckBox Then
If .FormFields(x).CheckBox.Value = True Then y = y + 1

End If

Next x
'MsgBox "hay " & y & " " & " checkboxes activados :D "
Selection.Tables(1).Cell(10, 1).Range.Text = y

End With

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

End Sub

'[]

On 5 dic, 23:27, Tux wrote:

hola tomas :)

> resultado de los
> activados me lo diera en la celda final de totales con un número, ya
> que no me sirve el msgbox.

No dupliques las preguntas que luego es un caos a la hora de
encontrarlas y quedan todas sueltas :-)

Bien prueba con la siguiente modificacion:

Y comentanos cualquier duda ?

'- modificacion codigo

'[]

Sub contar_checkbox_document()

Dim x As Long, y As Long

On Error Resume Next

ActiveDocument.Unprotect ("111")

With ActiveDocument

For x = 1 To .FormFields.Count
If .FormFields(x).Type = wdFieldFormCheckBox Then
If .FormFields(x).CheckBox.Value = True Then y = y + 1

End If

Next x
'MsgBox "hay " & y & " " & " checkboxes activados :D "
Selection.Tables(1).Cell(10, 1).Range.Text = y

End With

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

End Sub

'[]

Hola, no consigo que esto vaya bien, lo he hecho con excel y es
superfacil, en word, no se como se suman las casillas de verificacion
poniendo el resultado en la ultima fila que evidentemente no tiene
casilla de verificacion,
gracias, en todo internet no he encontrado una respuesta que te sume
los si(activado) y no (desactivado), esta claro con el programa word.

hasta pronto,
tomas

Hola Tomas :-)

Hola, no consigo que esto vaya bien, lo he hecho con excel y es
superfacil, en word, no se como se suman las casillas de verificacion
poniendo el resultado en la ultima fila que evidentemente no tiene
casilla de verificacion,
gracias, en todo internet no he encontrado una respuesta que te sume
los si(activado) y no (desactivado), esta claro con el programa word.

hasta pronto,
tomas

Bien el codigo nuevo que te pase lo *hace correctamente* te situa en la
columna 1 fila 10 dicha suma de casillas activadas :-)

Tienes que ver que excel esta preparado entre otras cosas para el
Calculo y word esta preparado para procesar texto, entonces...

Se puede hacer en word ???

Si mediante codigo por ejemplo, si lo pruebas nos puedes comentar en que
te falla o que es lo que le falta ??

Comentanos ok? :-)

Saludos
Monica






Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]
» Nothing Else Matters [ Metallica ]

www.fermu.com