Ayuda en analisis de resultados repetidos
Publicado por vianney (15 intervenciones) el 28/03/2020 23:10:29
Saludos estiamdos señores, estoy buscando ayuda con un codigo para analizar resultados repetidos, tengo unos datos estructurados en tablas, tabla_analisis(1) contiene los 4 numeros de identificacion del paciente, tabla_cortadaF(1) contiene los datos personales del paciente y el resultados del examen y quiero guardar los resultados del paciente en una sola fila, concatenados los datos personales del paciente a cada uno de los resultados de los examenes, en la tabla_fija(). La estructura de los datos se las muestro a continuacion:
9635.-GARCIA GIORGINA AGE 11 AÑOS SEX F TS=GlicCro 107.584 mg/dL
9639.-COLMENARES JHAY AGE 23 AÑOS SEX F TS=TGO1 22.3280 U/L
9639.-COLMENARES JHAY AGE 23 AÑOS SEX F TS=DBiliB 0.11975 mg/dL
9640.-PEREZ ALEXANDRA AGE 10 AÑOS SEX F TS=GlicCro 86.0610 mg/dL
9650.-TORO GOMES LUIS AGE 76 AÑOS SEX M TS=GlicCro 101.451 mg/dL
9657.-CALDERON YOLIMA AGE 51 AÑOS SEX F TS=GlicCro 96.1858 mg/dL
9657.-CALDERON YOLIMA AGE 51 AÑOS SEX F TS=Trig 71.9156 mg/dL
9657.-CALDERON YOLIMA AGE 51 AÑOS SEX F TS=LDL1 110.540 mg/dL L
9663.-GELVIS CLEMENTE AGE 81 AÑOS SEX M TS=GlicCro 81.1211 mg/dL
9667.-ROSALES MARIA L AGE 64 AÑOS SEX F TS=GlicCro 104.922 mg/dL
9667.-ROSALES MARIA L AGE 64 AÑOS SEX F TS=Cole 172.160 mg/dL
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=GlicCro 99.2925 mg
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=Cole 158.000 mg/dL
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=HDLidg 51.9285 mg/
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=CaDiag2 9.21807 mg
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=TGP1 10.8688 U/L
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=RAG1 0.99805
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=BIbio 0.51487 mg/d
9677.-GUEVARA JOSEFA AGE 74 AÑOS SEX F TS=CaDiag2 10.0000 mg/dL
9679.-MENDEZ LINDEYLI AGE 40 AÑOS SEX F TS=GlicCro 102.074 mg/dL
9679.-MENDEZ LINDEYLI AGE 40 AÑOS SEX F TS=AcUric 3.19464 mg/dL
9684.-LOPEZ ISABEL AGE 1 AÑO SEX F TS=GlicCro 68.4888 mg/dL L
9684.-LOPEZ ISABEL AGE 1 AÑO SEX F TS=CaDiag2 9.60000 mg/dL
9684.-LOPEZ ISABEL AGE 1 AÑO SEX F TS=Albm 4.33854 g/dL TS
9693.-MONTERO MIRIAM AGE 72 AÑOS SEX F TS=GlicCro 88.8969 mg/dL
9693.-MONTERO MIRIAM AGE 72 AÑOS SEX F TS=Cole 147.715 mg/dL
9693.-MONTERO MIRIAM AGE 72 AÑOS SEX F TS=IPhos 3.47631 mg/dL
9699.-MOLINA VIRGILIO AGE 45 AÑOS SEX M TS=GlicCro 103.620 mg/dL
9699.-MOLINA VIRGILIO AGE 45 AÑOS SEX M TS=Trig 160.144 mg/dL
9699.-MOLINA VIRGILIO AGE 45 AÑOS SEX M TS=LDL1 85.3673 mg/dL
9711.-GARCIA MARIA JOSE AGE 33 AÑOS SEX F TS=GlicCro 95.1604 mg/dL
9711.-GARCIA MARIA JOSE AGE 33 AÑOS SEX F TS=Cole 143.561 mg/dL
9711.-GARCIA MARIA JOSE AGE 33 AÑOS SEX F TS=LDL1 78.2576 mg/dL
El analisis que hago es el siguiente: Por medio de un ciclo For i=1 to Total_Examenes, lo que analizo es para cuando i=1 el codigo me llene la primera casilla de resultados. Luego por un condicional if i es mayor que 1 debo analizar si el numero de ppaciente esta repetido o no. El codigo debe comparar el numero de paciente en i mayor que 1, con el numero de paciente anterior (i-1), si el numero de paciente nuevo es igual al numero de paciente anterior el resultado esta repetido, por tanto me concatena al valor anterior el resultado actual. En caso contrario el valor de identificacion del paciente actual es diferente del valor de identificacion del paciente anterior, por tanto el resultado es nuevo, y lo asigna a la casilla i mayor que 1.El codigo es el siguiente:
Dim numero_examenes as integer
Dim tabla_cortadaF(1) As String
El valor de tabla_cortada(1) contiene la descripcion con los datos personales del paciente y el resultado del examen.
Dim tabla_analisis(1) As String
Contiene el numero de identificacion del paciente son 4 digitos, y este valor es el que si el paciente tiene varios examenes se repite, este mismo valor por cada Nuevo resultado. Esta tabla ya tiene los números de pacientes cargados.
Dim tabla_fija() As String
En esta tabla pretendo guardar los resultados del paciente, una sola descripción con los resultados del paciente uno al lado del otro.
El tema es que el codigo falla, y en la ventana de inmediato, no me imprime nada. Espero su ayuda por favor. Gracias.
Vianney Colmenares.
9635.-GARCIA GIORGINA AGE 11 AÑOS SEX F TS=GlicCro 107.584 mg/dL
9639.-COLMENARES JHAY AGE 23 AÑOS SEX F TS=TGO1 22.3280 U/L
9639.-COLMENARES JHAY AGE 23 AÑOS SEX F TS=DBiliB 0.11975 mg/dL
9640.-PEREZ ALEXANDRA AGE 10 AÑOS SEX F TS=GlicCro 86.0610 mg/dL
9650.-TORO GOMES LUIS AGE 76 AÑOS SEX M TS=GlicCro 101.451 mg/dL
9657.-CALDERON YOLIMA AGE 51 AÑOS SEX F TS=GlicCro 96.1858 mg/dL
9657.-CALDERON YOLIMA AGE 51 AÑOS SEX F TS=Trig 71.9156 mg/dL
9657.-CALDERON YOLIMA AGE 51 AÑOS SEX F TS=LDL1 110.540 mg/dL L
9663.-GELVIS CLEMENTE AGE 81 AÑOS SEX M TS=GlicCro 81.1211 mg/dL
9667.-ROSALES MARIA L AGE 64 AÑOS SEX F TS=GlicCro 104.922 mg/dL
9667.-ROSALES MARIA L AGE 64 AÑOS SEX F TS=Cole 172.160 mg/dL
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=GlicCro 99.2925 mg
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=Cole 158.000 mg/dL
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=HDLidg 51.9285 mg/
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=CaDiag2 9.21807 mg
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=TGP1 10.8688 U/L
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=RAG1 0.99805
9671.-GUEVARA MARIA ISABEL AGE 74 AÑOS SEX F TS=BIbio 0.51487 mg/d
9677.-GUEVARA JOSEFA AGE 74 AÑOS SEX F TS=CaDiag2 10.0000 mg/dL
9679.-MENDEZ LINDEYLI AGE 40 AÑOS SEX F TS=GlicCro 102.074 mg/dL
9679.-MENDEZ LINDEYLI AGE 40 AÑOS SEX F TS=AcUric 3.19464 mg/dL
9684.-LOPEZ ISABEL AGE 1 AÑO SEX F TS=GlicCro 68.4888 mg/dL L
9684.-LOPEZ ISABEL AGE 1 AÑO SEX F TS=CaDiag2 9.60000 mg/dL
9684.-LOPEZ ISABEL AGE 1 AÑO SEX F TS=Albm 4.33854 g/dL TS
9693.-MONTERO MIRIAM AGE 72 AÑOS SEX F TS=GlicCro 88.8969 mg/dL
9693.-MONTERO MIRIAM AGE 72 AÑOS SEX F TS=Cole 147.715 mg/dL
9693.-MONTERO MIRIAM AGE 72 AÑOS SEX F TS=IPhos 3.47631 mg/dL
9699.-MOLINA VIRGILIO AGE 45 AÑOS SEX M TS=GlicCro 103.620 mg/dL
9699.-MOLINA VIRGILIO AGE 45 AÑOS SEX M TS=Trig 160.144 mg/dL
9699.-MOLINA VIRGILIO AGE 45 AÑOS SEX M TS=LDL1 85.3673 mg/dL
9711.-GARCIA MARIA JOSE AGE 33 AÑOS SEX F TS=GlicCro 95.1604 mg/dL
9711.-GARCIA MARIA JOSE AGE 33 AÑOS SEX F TS=Cole 143.561 mg/dL
9711.-GARCIA MARIA JOSE AGE 33 AÑOS SEX F TS=LDL1 78.2576 mg/dL
El analisis que hago es el siguiente: Por medio de un ciclo For i=1 to Total_Examenes, lo que analizo es para cuando i=1 el codigo me llene la primera casilla de resultados. Luego por un condicional if i es mayor que 1 debo analizar si el numero de ppaciente esta repetido o no. El codigo debe comparar el numero de paciente en i mayor que 1, con el numero de paciente anterior (i-1), si el numero de paciente nuevo es igual al numero de paciente anterior el resultado esta repetido, por tanto me concatena al valor anterior el resultado actual. En caso contrario el valor de identificacion del paciente actual es diferente del valor de identificacion del paciente anterior, por tanto el resultado es nuevo, y lo asigna a la casilla i mayor que 1.El codigo es el siguiente:
Dim numero_examenes as integer
Dim tabla_cortadaF(1) As String
El valor de tabla_cortada(1) contiene la descripcion con los datos personales del paciente y el resultado del examen.
Dim tabla_analisis(1) As String
Contiene el numero de identificacion del paciente son 4 digitos, y este valor es el que si el paciente tiene varios examenes se repite, este mismo valor por cada Nuevo resultado. Esta tabla ya tiene los números de pacientes cargados.
Dim tabla_fija() As String
En esta tabla pretendo guardar los resultados del paciente, una sola descripción con los resultados del paciente uno al lado del otro.
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
For i = 1 To numero_examenes Step 1 If i = 1 Then' asigana a la primera casilla el primer resultadotabla_fija(i) = tabla_cortadaF(1)
ElseIf i > 1 ThenIf tabla_analisis(1) = mid(tabla_fija(i - 1), 1, 5) Then
' Me compara si el nuevo numero de paciente es igual al valor del paciente de la casilla anterior, lo que implica que es un dato repetido' me concatena el nuevo resultado al valor del paciente anteriortabla_fija(i) = tabla_fija(i - 1) & tabla_cortadaF(1)
Else
' El caso contrario del if implica que el el numero de paciente es diferente al paciente anterior 'por tanto asigna el valor del examen a la casillatabla_fija(i) = tabla_cortadaF(1)
End If
End If
Debug.Print tabla_fija(i)
Next i
El tema es que el codigo falla, y en la ventana de inmediato, no me imprime nada. Espero su ayuda por favor. Gracias.
Vianney Colmenares.
Valora esta pregunta
0