AYUDA! DESBORDAMIENTO..URGENTE!
Publicado por Franz (2 intervenciones) el 11/07/2017 15:47:16
TEGNO UN ERROR EN MI CODIGO .. ME APARECE DESBORDAMIENTO Y YA INTENTE CAMBIARLE DE TIPO DE VARIABLE Y NADA, INCLUSO USE CDbl & CVar & Csng.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Matriz_K_Locales()
Call GenerarTitulo
Dim MatrizT() As Variant
Dim MatrizKlocal() As Variant
Dim MatrizPropIndividual() As Variant
Dim m As Long
Dim k As Long
Dim x As Long
Dim i As Long
Dim j As Long
Dim q As Single
Dim l As Single
Dim b As Single
Dim h As Single
Dim E As Double
Dim beta As Single
Dim c1 As Single
Dim c2 As Single
Dim v As Single
Dim g As Double
Dim a As Single
Dim Ixy As Double
Dim f1 As Double
Dim f2 As Double
Dim fi As Variant
m = 6 'Worksheets("Hoja1").Range("A8", Range("A8").End(xlDown)).Count
'GENERAR VARIAS MATRICES LOCALES PARA CADA ELEMENTO
For x = 1 To Datos.NdeElementos
ReDim Preserve MatrizPropIndividual(1 To m, 1)
For k = 1 To mMatrizPropIndividual(k, 1) = Worksheets("Hoja1").Cells(k + 7, x + 1).Value
l = MatrizPropIndividual(1, 1)
b = MatrizPropIndividual(2, 1)
h = MatrizPropIndividual(3, 1)
E = MatrizPropIndividual(4, 1)
c1 = MatrizPropIndividual(5, 1)
c2 = MatrizPropIndividual(6, 1)
beta = 1.2
v = 0.2
g = E / (2 * (1 + v))
a = b * h
Ixy = b * (h ^ 3) / 12
fi = (3 * E * Ixy * beta) / (g * a * (l ^ 2)) ' AQUI EL DESBORDAMIENTO
Valora esta pregunta
0
