vb-exel
Modificar datos de una tabla con un ListBox en Excel
http://www.exceleinfo.com/excel/modificar-datos-de-una-tabla-con-un-listbox-en-excel/CONTROL DATA - VB 6.0
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/219-editar-listview-con-dao-access.htm
EXEL
-------------------------------------------------------------------------------------------------
MANUAL DE VB-EXEL
CALCULO DE PROMEDIO
MANUAL DE VB-EXEL
CALCULO DE PROMEDIO
ESTADO
|
CANTIDAD
|
PORCENTAE
|
||
BUENO
|
37
|
27.41
|
B2*100/$B$6
|
|
REGULAR
|
58
|
42.96
|
B3*100/$B$6
|
|
DETERIORADO
|
40
|
29.63
|
B4*100/$B$6
|
|
135
|
100
|
SUMA(C2:C5)
|
1.-CALCULO
DE PROMEDIO
A
|
B
|
C
|
|
1
|
1
|
3
|
5
|
2
|
4
|
4
|
4
|
promedio de solo a1
c2 RESULTADO 2.5 =PROMEDIO(A1;C2)
promedio desde a1 c2 RESULTADO 3.5 =PROMEDIO(A1:C2)
2.-REDONDEO
Supongamos que este
valor esta A7 : 1,454564566 RESULTADO SERA 1.45 =REDONDEAR(A7;2)
3.-COMPARACION
Supongamos que AVION
PRIMERO ESTA A10 Y EL SEGUNDO EN B10
AVION AVION RESULTADO
SERA VERDADERO =IGUAL(A10;B10)
AVION AVIONX RESULTADO
SERA FALSO =IGUAL(A10;B10)
4.-COMVERTIR
A MINUSCULA
SUPONGAMOS QUE “TIMO” ESTA EN LA CELDA A10 RESULTADO SERA timo
=MINUSC(A10)
5.-EXTRAE
Supongamos que el texto
está escrito”de A10 se vuelve MINUS “ de 14 dígitos está en el A14 RESULTADO
SERA vu =EXTRAE(A14;11;2), solo
extrae 2 dígitos
6.-NOMBRE
PROPIO
Supongamos que el
texto “avión” esta escrito en A10 RESULTADO SERA Avion =NOMPROPIO(A10)
7.-HALLAR
UNA LETRA EN UNA CADENA
Supongamos que el
texto “avión” esta escrito en A10 RESULTADO SERA 2 =HALLAR("V";A10) encuentra y
escribe el Nro de posición
7.-QUITAR
ESPACIOS
Supongamos que el
texto “ espacio_t” esta escrito en A13
con espacio RESULTADO
SERA “espacio_t” =ESPACIOS(A13)
8.-CONTAR
CELDAS VACIAS
Contamos celdas
vacias en el recuadro siguiente y son 3 =CONTAR.BLANCO(A1:C3)
A
|
B
|
C
|
|
1
|
1
|
3
|
5
|
2
|
4
|
4
|
4
|
3
|
SI DESEO CONTAR UNA COLUMNA POR EJEMPLO CUANTOS REGISTROS TENGO EN LA COLUMNA B RESPUESTA TENGO 2 REGISTROS DE 3 Y 4
LA FORMULA SERIA : =CONTAR.SI(B1:B3,">0")
ACLARANDO QUE SOLO CUENTA DATOS NUMERICOS
9.-INSERCION
DE FECHAS
se inserta la fecha que
uno desee =FECHA(2004;4;25) à25/04/2004
se inserta la
fecha de hoy =HOY() à11/01/2014
extraigo solo el dia
de la fecha =DIA(H1) à25
supongamos 25/04/2004 está en la celda H1
extraigo solo el mes
de la fecha =MES(H1) à04 supongamos 25/04/2004 está en la celda H1
extraigo solo el año
de la fecha =AÑO(H1) à2004
supongamos 25/04/2004 está en la celda H1
fecha y minutos =AHORA() à11/01/2014
10:35
nro de dia de la
semana =DIASEM(H24;1) à
7 está en la celda H24 “11/01/2014 10:35”
10.-CONCATENAMOS
GIGITOS DE CELDAS
Concatenar 2 numeros
a1- espacio- a2 =CONCATENAR(A1;"
";A2) o =A1&" "&A2 à14
A
|
B
|
C
|
|
1
|
1
|
3
|
5
|
2
|
4
|
4
|
4
|
3
|
11.-ENCONTRAR
UN DIGITO EN UNA CELDA
encuentra
"m" en Mailxmail supongamos esta en la celda E10 =ENCONTRAR("m";E10)
y esta en la pociosion 6 à
6
12.-CONTAR
Y EXTRAER DIGITOS DESDE LA IZQUIERDA
El texto “Mailxmail” supongamos
está en la celda E10 =IZQUIERDA(E10;6) à Mailxm
A la celda E10 cuenta cuantos digitos tiene =LARGO(E10) à9
13.-REEMPLAZAR
Reemplaza desde nro
de digitos hasta nro de digitos. El texto
“a E10 cuenta cuantos digitos tiene” está en la celda E13 =REEMPLAZAR(E13;1;5;"T") à
T cuenta cuantos digitos tiene
14.-REPETIR
Repite (la) 5 veces =REPETIR("la";6) à
lalalalala
15.-SUSTITUIR
UN DIGITO CON UNA CADENA
Encuentra el carácter
buscado y lo sustituye con el cadena señalada en la formula
Este texto esta la
celda E19 “Registra de E17 8 digitos desde la derecha” =SUSTITUIR(E19;"8";"RR")
à
Registra
de E17 RR digitos desde la derecha
16.-IF
- CONDICION
si a1 es > o = a
18 entonces es Mayor de edad caso
contrario Menor de edad =SI(A1>=18;"Mayor
de edad";"Menor de edad") à Menor
de edad
A
|
B
|
C
|
|
1
|
1
|
3
|
5
|
2
|
4
|
4
|
4
|
3
|
si E30 > a16 y F30
es >150 entonces puede pasar caso contrario no puede pasar =SI(Y(E30>16;F30>150);"Puede
pasar";"NO puede pasar") à Puede
pasar
E
|
F
|
|
30
|
17
|
151
|
31
|
18
|
4
|
32
|
=SI(O(E30>16;F30>150);"Puede
pasar";"NO puede pasar")
DIGITAMOS EN LA COLUMNA CAL
=SI(R2>=5,"1","0")
meses
|
CAL
|
6
|
1
|
2
|
0
|
2
|
0
|
2
|
0
|
11
|
1
|
10
|
1
|
2
|
0
|
=SI(R2>=5,"1","0")
17.-ABS
SIEMPRE POSITIVO
ABS siempre combierte en positivo =ABS(F37) à 2
en la celda F37 está registrado -2, si es positivo resultado será igual
18.-BUSCAR
MULTIPLOS DE UN NUMERO
MULTIPLO.SUPERIOR(5;2)
en este caso siempre buscara el múltiplo superior el más cercano al 5 que será 6 =MULTIPLO.SUPERIOR(5;2) à 6
MULTIPLO.INFERIOR(5;2)
en este caso siempre buscara el múltiplo inferior el más cercano al 5 que será 4 =MULTIPLO.INFERIOR(5;2) à 4
19.-RESIDUO
residuo 2*5=10 sobra
2 =RESIDUO(12;5) à
2
20.-TRUNCAR
NUMEROS DECIMALES
truncar numero de
decimales =TRUNCAR(445,56;1) à
445.5
21.-BUSCAR
REGISTRO EN HOJA XLS.
B
|
C
|
D
|
||
2
|
||||
3
|
CODIGO
A BUSCAR
|
A-5
|
||
4
|
DESCRICION
DEL PRODUCTO
|
EEE
|
||
5
|
CANTIDAD
EN ALMACEN
|
140
|
||
6
|
||||
7
|
||||
8
|
CODIGO
|
DESCRIPCION
|
CANTIDAD
|
|
9
|
A-1
|
AAA
|
150
|
|
10
|
A-2
|
BBB
|
100
|
|
11
|
A-3
|
CCC
|
20
|
|
12
|
A-4
|
DDD
|
10
|
|
13
|
A-5
|
EEE
|
140
|
|
14
|
A-6
|
FFF
|
150
|
|
15
|
A-7
|
GGG
|
120
|
|
16
|
A-8
|
HHH
|
14
|
|
17
|
A-9
|
IIII
|
147
|
|
18
|
B-1
|
RRR
|
148
|
|
19
|
ST1
|
XXX
|
8
|
|
20
|
1890317
|
TIMO
|
10
|
|
21
|
1890406
|
JUAN
|
11
|
|
D3=INGRESO
MI CRITERIO DE BUSQUEDA
D4=FORMULA
"=BUSCARV(C1;A7:C100;2)"
|
||||
D5=FORMULA
"=BUSCARV(C1;A7:C100;3)"
|
||||
22.-DATOS
DESDE OTRA HOJA
Tengo una hoja con
nombre: ESC en la celda D17 escribo la
formula “=+FFI!F37” à 1330.90 y tengo otra
hoja con nombre : FFI en la celda F37 escribo 1330.90
Resultado: puedo visualizar en la hoja ESC en la celda
D17 los 1330.90
INGRESOS
|
|||
FECHA
|
OBSERVACIONES
|
INGRESOS
|
|
01/01/13
|
efectivo
|
72,00
|
|
01/01/13
|
efectivo
|
2100,00
|
|
16/01/12
|
efectivo
|
120,00
|
|
25/01/2013
|
EN
DOCUMENTOS
|
23,50
|
|
04/02/2013
|
efectivo
|
184,50
|
|
TOTAL
INGRESOS
|
2.500,00
|
||
0,00
|
SALDO
|
||
EGRESOS
|
|||
01
|
FFI
|
EGRESOS DE FONDO FIJO (CAPITAL TRABAJO)
|
1.330,90
|
02
|
GAD
|
GASTOS ADMINISTRATIVOS
|
10,50
|
03
|
MVE
|
MOVILIDAD EJECUTOR
|
0,00
|
04
|
MVR
|
MOVILIDAD PERIFERICOS RED TECNICOS
|
0,00
|
05
|
OTR
|
OTROS EGRESOS POR JUSTIFICAR
|
0,00
|
TOTAL
EGRESOS
|
1.341,40
|
||
SALDO
|
1.158,60
|
||
22.-AJUSTAR HOJA PARA IMPRIMIR
Imprimir-->vista preliminar-->vista previa-->configurar pagina-->ajustar al : ponga un numero que ajuste para imprimir la pagina.23.-FORMULA PARA VER DATOS DESDE UNA HOJA DE CALCULO GUARDADO EN UNA CARPETA DIRENTE
='F:\02-04-2014 SIAMCO\GASTOS CAPITAL TRABAJO SIAMCO\informes - siamco\ENERO-16\[COSTO DETALLADO DIC - ORIGINAL.xlsx]INFRA'!L13
No hay comentarios:
Publicar un comentario