Cambio a programación Vba
¿Alcance (MSTR)? =?Cuadro de lista 1. Valor 'ltCell>Región(MSTR)=? El valor de ListBox1, mstr se refiere a la celda en la que hizo clic, pero no vi que haya definido una variable global.
Cuadro de lista 1. ¿visible? =?Falso? ListBox1 oculta
TextBox1. ¿visible? =?Falso? El cuadro de texto 1 está oculto
¿Fin? Fin de la subrutina "Sub"
¿Privada? ¿Sub? "textbox 1_change()" evento de cambio del cuadro de texto 1.
¿Abierto? ¿error? CV? ¿Cuándo será el próximo error? ¿ir? Entonces
yo. Cuadro de lista 1. ¿Entiendo? Borre el valor en listbox1.
¿Oscuro? ah? ARR1(),? k? ¿Como? Entero,? ¿ss? ¿Como? ¿Variable de definición de 'cadena'? ARR, ARR1() - matriz activa, k? ¿para qué? ¿Valor entero, sss? ¿para qué? Cadena
¿ARR? =?hoja("datos"). ¿Rango("F1:F2000 ")'? ARR = el valor de f1:F2000 en la tabla de datos (debería haber un problema con esta oración, puede ser f1:g2000).
¿sss? =?Yo. Cuadro de texto 1. 'Texto' asigna el contenido ingresado en el control de texto a la variable sss.
¿Raedim? ARR1(1? ¿A dónde ir? UBound(ARR))'¿Redefinir el rango de la matriz arr1? 1? Superíndice de matriz arr
¿Para qué? ¿incógnita? =?1?¿Adónde ir? UBound(ARR)' establece el rango de variables de X=1 a (ARR)
If? ¿Asc(sss)? ¿gt? 0?s si? ¿Después de que la primera letra de sss se convierta en un valor numérico> 0? ¿Y luego ejecutar?
¿Y si? ¿ARR(X,?1)?¿Por ejemplo? ¿UCase(sss)? ¿amperio? "*"?sif? ARRR(X,1)? ¿semejanza? Mayúsculas (sss). Agregue comodín * para que coincida.
k? =?k? ?1' k = k 1, donde k es el contador,
ARR1(k)? =?ARR(X,?2)'El k-ésimo valor de la matriz arr1 (es decir, el último actual)=arr(x,2).
¿Fin? Si termina el proceso de sentencia.
Además, además
¿Y si? ¿ARR(X,?2)?¿Por ejemplo? ¿ss? ¿amperio? "*"?sif? ARR(X,2)? ¿semejanza? ¿ss? Añadir comodines (este párrafo se puede simplificar)
k? =?k? ?1'k=k 1
ARR1(k)? =?ARR(X,?2)'ARR1(k)=ARR(X,2)
¿Fin? Si termina el proceso de sentencia.
¿Fin? Si termina el proceso de sentencia.
¿Siguiente? ¿El próximo X
k? =?0'k=0
Yo. Cuadro de lista 1. ¿Lista? =?ARR1'? Valor del elemento de la lista en el cuadro de lista = arreglo 1.
¿Fin? Fin de la subrutina "Sub"
¿Privado? ¿Sub? Worksheet_SelectionChange(ByVal? Target? As? Range) 'Cuando cambia la selección de la hoja de trabajo, se ejecuta este proceso, es decir, el evento de selección de la hoja de trabajo.
¿Y si? Objetivo. ¿Columna? =?1? Entonces qué. Objetivo. Filas. ¿Contar? =?1?if Entonces, ¿la etiqueta de la columna de Target=1? ¿Y el valor de recuento del número de fila de Target = 1? ¿Y luego ejecutar? : Es decir, la celda seleccionada está en la columna A y el campo del patrón de celda es columna, entonces
MSTR? =?Objetivo.
Dirección'MSTR=? La dirección del objetivo: esta variable tiene una referencia en la parte superior y debe definirse como una variable pública.
Cuadro de texto 1. ¿Arriba? =?Celda Activa. ¿Arriba? Cuadro de texto superior 1 =? Parte superior de la celda activa
Cuadro de lista 1. ¿Arriba? =?Cuadro de texto 1. ¿Arriba? ?Cuadro de texto 1. ¿altura? Cuadro de lista superior 1 =? ¿Parte superior del TextBox1? La altura de TextBox1: estas dos oraciones establecen la posición donde aparece el cuadro de lista del cuadro de texto. Visible=true debe llamarse primero. Luego establezca la posición donde aparece el control. También se debe configurar la izquierda. Ancho y otros atributos.
Cuadro de lista 1. ¿visible? =?¿En serio? ListdBox1 muestra
el cuadro de texto 1. ¿visible? =?¿En serio? El cuadro de texto 1 muestra
lo contrario.
Cuadro de lista 1. ¿visible? =?Falso? ListBox1 oculta
TextBox1. ¿visible? =?Falso? El cuadro de texto 1 está oculto
¿Fin? Si termina el proceso de sentencia.
¿Fin? Finaliza la subrutina "Sub"
¿Sub? ¿Subrutina AA()'? AA()
¿Cuadro de mensajes? Len("A")? ¿amperio? "?-"?¿amperio? ¿LenB("A")' muestra un cuadro de mensaje y se muestra? 1-2. ¡No sé si hay algún significado especial aquí!
¿Fin? ¿La subrutina finaliza ARR? =?hoja("datos"). Range("F1:F2000")
¿Es lo mismo que
ARR(X, ?2)? No, ¿está seguro de que este código se ejecutará?
En general, es un poco desordenado. No sé si está relacionado con tu copia
Además: el cuadro de texto es un cuadro de texto y el cuadro de lista es un cuadro de lista. .
La idea general del código anterior es:
Haga clic en cualquier celda de la columna A de la hoja de trabajo actual (el número de celdas es inferior a 2), el cuadro de lista y Se mostrarán los controles del cuadro de texto. . La parte superior del cuadro de texto está al mismo nivel que la parte inferior de la celda. La parte superior del cuadro de lista va seguida de la parte inferior del texto. .
Cuando el valor del cuadro de texto cambie, ejecute el evento textboxchange (tenga en cuenta que este evento se ejecutará cada vez que se ingrese o elimine un carácter) y busque el comienzo del carácter de entrada actual en f1. : f2000 área del contenido de la tabla de datos y agregue todo el contenido al control del cuadro de lista. . (Hay una matriz en el medio a modo de transferencia, sin duplicación)
Seleccione el contenido del cuadro de lista cuando haga clic con el mouse. Activa un evento de clic en el cuadro de lista (no me sentí muy bien, así que lo cambié a un evento de doble clic) para agregar contenido a la celda activa anterior. El control está oculto. .