Como principiante en VBA, explique el significado de cada código, ¡gracias!
¿Privado? ¿Sub? CommandButton1_Click()
Las siguientes tres líneas definen variables sin explicación, ¿verdad?
¿Oscuro? ¿Así que? ¿Fld? ¿Fd? F,? Longitud femoral
¿Oscura? ah? k,? icl
¿Atenuado? ¿Dic? ¿Como? Destino
Inicialice este objeto; debe consultar Diccionario y FileSystemObject para obtener una explicación más detallada.
¿Configuración? ¿Dic? =?Createobject("Script.Dictionary")'Crear un diccionario.
¿Configuración? ¿Fso? =?Createobject("Script.Objeto del sistema de archivos")'Crear FSO.
¿Configuración? ¿Fld? =?Fso.getfolder(ThisWorkbook. Path? amp?" \ ")'Obtener el objeto de carpeta actual
¿Configuración? ¿Fd? =?Fld. "Subcarpeta" obtiene todos los valores de las subcarpetas de la carpeta actual.
¿Para qué? ¿Cada? ¿F? ¿existir? ¿Fd? ¿Para qué es esto? Cada bucle implementa la función de atravesar todas las subcarpetas bajo la carpeta de la hoja de trabajo.
¿Para qué? ¿Cada? ¿Florida? ¿existir? f.¿Archivo? Archivos en todas las subcarpetas Fl
¿Y si? Instrumento (Nombre de Florida, ?[B1])? Si el nombre del archivo contiene el contenido de la hoja de trabajo actual B1.
Libro de ejercicios. ¿abierto? ' Fl '¿Qué usar para abrir un archivo
? "Libro de trabajo activo" El libro de trabajo activo es un archivo recién abierto.
¿Arrr? =?. Hoja Activa. [A3:F5] 'Guarda la hoja de trabajo predeterminada A3:F5 para los archivos recién abiertos en una matriz.
. "Cerrar" cierra el archivo recién abierto.
¿Fin? Con
¿Para qué? k? =?1?¿Adónde ir? Matriz de doble anillo UBound(Arr)
¿Para qué sirve? ¿icl? =?1?¿Adónde ir? 5? ¿Un paso? 2
¿Dic(Arr(k,icl))? =?Arr(k,?icl??1)'Crear o modificar elementos del diccionario.
Entonces
Entonces
¿Arr? =?Range("A2",[A65536].End(3)(1,?2))'Utilice un diccionario para traducir la columna A de la hoja de trabajo actual a la columna b.
¿Para qué? k? =?1?¿Adónde ir? Debido
Arr(k,?2)?=?Dic(Arr(k,1))
Entonces
[B2]. cambiar tamaño(k?-?1)?=?aplicar. Índice(Arr,?2)
¿Salir? Submarino
¿Fin? Si
entonces
entonces
libera esas variables de objeto.
¿Configuración? ¿Fso? =?Nada:? ¿Fld? =?Nada:? ¿F? =?Nada:? ¿Florida? =?Nada
¿El final? Submarino