Cuestión : Alternativa de EOMONTH, de EDATE y de NETWORKDAYS

¿Hola, el

Using el código atado consigo el #NAME del error? en algunas máquinas. ¿Pienso que lo he establecido claramente abajo al hecho que el versiones de sobresalen la gama a partir de 2000 - 2003 sp3 y algunos no tienen el toolpack del análisis instalado? ¿

Is allí una alternativa que puedo utilizar para las cuatro líneas abajo?
-------------------------------------------------------------------------------------------------------------------

Range (“AS2”). Fórmula =

Range (“A47” del “=EOMONTH (AL2,1) “). Fórmula = “=AS2- ((EOMONTH (AS2,0) - EOMONTH (AS2, - 1)) - 1) “

Range (“A48: A58”) .FormulaR1C1 = “=EDATE (R [- 1] C [], - 1) “

Range (“D47: ¡D58”) .FormulaR1C1 = “=NETWORKDAYS (RC [- 3], EOMONTH (RC [- 3], 0), Control! R2C13:

de R23C13) “-------------------------------------------------------------------------------------------------------------------el



What que estoy intentando alcanzar es que esa célula AS2 es avanzada por más entonces se extiende 1 mes las listas A47-A58 se extienden los 12 meses pasados incluyendo el mes actual también D47: D58 da los días laborables totales para cada uno estos del
Sq




 de months.

Thanks por adelantado class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
>Private notpretty MonthPlus1 secundarios " del class= " del id= " codeSnippet779726 del
class= del

Respuesta : Alternativa de EOMONTH, de EDATE y de NETWORKDAYS 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Función Networkdaysvba (startDate como doble, endDate como fecha, días de fiesta opcionales como variante) como número entero
    Amortiguar i como número entero
    Amortiguar el tmp como número entero
    Amortiguar despegue como fecha, dtStart como fecha
    
    startDate = arreglo (startDate)
    tmp = ((endDate - startDate de + semanas enteras del trabajo 1) \ 7) * 5 '
    dtStart = startDate + (tmp * 7/5) 'movimiento a la semana pasada
    Para despegue = dtStart al endDate
        Si día laborable (despegue, vbMonday) <>= h entonces
                tmp = tmp - 1
            Terminar si
        Después
    Terminar si
    Networkdaysvba = tmp
Función del final

Función EOMonthVBA (startDate como doble, meses como de largo) como fecha
    startDate = arreglo (startDate)
    EOMonthVBA = DateAdd (“m”, meses + 1, startDate - día (startDate) + 1) - 1
Función del final

Función EDateVBA (startDate como doble, meses como de largo) como fecha
    startDate = arreglo (startDate)
    EDateVBA = DateAdd (“m”, meses, startDate)
Función del final
Otras soluciones  
 
programming4us programming4us