Asdasdsad

* Realizar una macro q permita lee un numero y averiguar si es divible hasta un numero de cinco digitos pera 3 utilizando el siguiente método
El numero leído debe ser asignado a una sola variableSe sumen todos los digitos del numero obteniéndose un resultado
Con el valor obrtenido se debe chequear i es 3 6 o 9
En caso de q sea asi el numero leído será diovisible para 3 en caso contrario nolo será
Finalmente se debe escribir el mnsaje apropiado dependiendo de las condiciones dadas anteriormente
\
c = 10
While Num >= 100
N = N - 100
c = c + 1
Wend
d = 0
While Num >= 10
N= N - 10
d = d + 1
u = Num - (Num \ 100) * 10

Liceo Municipal “Fernández Madrid”
Ernesto Zumba
3°Ciencias “A”
Deber

* Realizar una macro q permita lee un numero y averiguar si esdivisible hasta un numero de cinco dígitos pera 3 utilizando el siguiente método
El número leído debe ser asignado a una sola variable
Se sumen todos los dígitos del número obteniéndose un resultado
Conel valor obtenido se debe chequear i es 3 6 o 9
En caso de q sea así el numero leído será divisible para 3 en caso contrario no lo será
Finalmente se debe escribir el mensaje apropiado dependiendode las condiciones dadas anteriormente

Sub Macro1()
'
' Macro1 Macro
'
' Acceso directo: CTRL+l
'
Range("B2").Select
N = Val(InputBox(""))
ActiveCell.FormulaR1C1 = N
While N<= 99999
r = N Mod 10
s = s + r
N = N \ 10
Wend
Range("B3").Select
If s Mod 3 = 0 Then
Range("B4") = "<<<<<Divisible>>>>>"
ElseRange("B4") = "<<<<<NO Divisible>>>>>"
End If

End Sub

* Utilizando otro método averiguar si el numero es divisible para 3:
Sub Macro1()
'
' Macro1 Macro
'' Acceso directo: CTRL+l
'
Range("C2").Select
N = Val(InputBox(""))
ActiveCell.FormulaR1C1 = N
c = 10
While Num <= 99999
N = N - 100
c = c + 1
Wend
d = 0
While Num >=...