Red de conocimiento informático - Aprendizaje de programación - Programación en Excel VBA, filtre las tres materias de chino, matemáticas e inglés y ordene por puntajes, como se muestra en la figura. Aprende programación, pide consejo nuevamente

Programación en Excel VBA, filtre las tres materias de chino, matemáticas e inglés y ordene por puntajes, como se muestra en la figura. Aprende programación, pide consejo nuevamente

Sub?Test()

dim?i,j,k,t,s,arr(1?to?2,?1?to?3

i=2

while?celles(i,1)<>""

'Make?arr

j=1

for?each?k ?en?matriz?(2,4,6)

arr(1,j)=celdas(1,k)

arr(2,j)=celdas(i, k)

¿siguiente?

for?k=j+1?to?3

si?arr(2,k)

para?t=1?to?

s=arr(t,k)

arr(t,k)=arr(t ,j)

arr(y,j)=s

siguiente?t

end?if

siguiente?k

siguiente?i

'eliminar?<60

for?j=1?to?

if?arr(2,j) <60?then?arr(1,j)=""

siguiente?j

'¿Guardar?

celdas(i,8)=arr( 1,1)? &"?" &?arr(1,2)? &" &?arr(1,3)

i=i+1

¿Fin?