¿EXCEL expresión de diccionario de matrices múltiples?
La tabla contiene información del producto. Cuando ingresa un número de artículo en una orden de compra, desea que el nombre, la especificación y el precio unitario coincidan automáticamente.
Idea:
Escribir información del producto en el diccionario. Hay tres datos correspondientes a un producto: nombre, especificaciones y precio unitario. ¿Cómo puede un proyecto acomodar tres datos? Esa es la dificultad. Si los tres datos de nombre del producto, especificaciones y precio unitario se pueden escribir en una sola entrada, al ingresar el número de producto en la orden de compra, puede encontrar la entrada correspondiente a la clave en el diccionario y colocarla en los tres datos correspondientes. células. Veamos primero el código:
Private subsheet_Change(ByVal target as range)
Dim arr, d as object, i%
set d = CreateObject( " scripting . diccionario ")
Arr = Sheets("Información del producto"). Range("a2", Table("Información del producto").[d1].End(xlDown))
Para i = 1 a UBound(arr)
d(arr( i, 1)) = Matriz(arr(i, 2), arr(i, 3), arr(i, 4))
—————————————— ——
Declaración de derechos de autor: este artículo es un artículo original del blogger de CSDN "Die Wu Fan Xiangjing" y sigue el acuerdo de derechos de autor CC 4.0 BY-SA. Adjunte el enlace de la fuente original y esta declaración al reimprimir.
Enlace original:/weixin_34809240/article/details/1127 30015.