Cuestión : Fórmula para Dys cuarto, Excel

Necesito una fórmula que resuelva el día cuarto próximo a partir de la fecha de terminación inserted.
These sea:  ¿25/03, 24/06, 29/09 y 25/12.
So, si insertara “26/08/10”, poblaría 29/09/10 del “día cuarto próximo” cell.
Can cualquier persona ayuda?
Many thanks class= del

Respuesta : Fórmula para Dys cuarto, Excel

Aconsejo generalmente usar un objeto de la gama en vez del objeto de la selección en lo posible. También es más fácil ver que cuáles usted es están intentando hacer (y por lo tanto más fácil mantener) si usted especifica donde usted quiere estar en términos de objetos, en comparación con MoveDown y MoveRight, etc.

Sin embargo usted puede seleccionar y buscar una sola columna. 

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

DocControlAdd secundario privado ()
   El 'texta dévil, textb, textc, textd, texte, textf como secuencia 'esto amortigua todos excepto la variable pasada como variante

    Texta dévil como secuencia, textb como secuencia, textc como secuencia, textd como secuencia, texte como secuencia, textf como secuencia
     Tbl dévil como tabla
    RW dévil como fila
    Cl dévil como célula
    C dévil como número entero
    iStartCol dévil como número entero
    
    texta = ActiveDocument.CustomDocumentProperties.Item (“xRevisionNo”)
    textb = ActiveDocument.CustomDocumentProperties.Item (“xRevisionDate”)
    textc = ActiveDocument.CustomDocumentProperties.Item (“xDetails”)
    textd = ActiveDocument.CustomDocumentProperties.Item (“xPreparedby”)
    texte = ActiveDocument.CustomDocumentProperties.Item (“xReviewedby”)
    textf = ActiveDocument.CustomDocumentProperties.Item (“xApprovedby”)
    iStartCol = 1
   Fijar el tbl = ActiveDocument.Tables (1)

        Si ActiveDocument.CustomDocumentProperties.Item (“xNew”) = “Y” entonces
            Fijar RW = el tbl. Rows.Add
        ElseIf NewVersion = entonces verdad
            Fijar RW = el tbl. Rows.Add
        ElseIf NewVersion = falso entonces
                tbl. Columnas (iStartCol). Selecto
                Con Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = verdad
                    .MatchCase = verdad
                    Si. Ejecutar (FindText: =texta) entonces
                        Fijar el cl = Selection.Cells (1)
                        Fijar RW = tbl. Filas (cl.RowIndex)
                     Terminar si
                Terminar con
         Terminar si
         c = iStartCol
         RW. Células (c). Range.Text = texta
         c = c + 1
         RW. Células (c). Range.Text = textb
         c = c + 1
         RW. Células (c). Range.Text = textc
         c = c + 1
         RW. Células (c). Range.Text = textd
         c = c + 1
         RW. Células (c). Range.Text = texte
         c = c + 1
         RW. Células (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item (“xRevisionNoOld”). Valor = ActiveDocument.CustomDocumentProperties.Item (“xRevisionNo”). Valor

Submarino del extremo
Otras soluciones  
 
programming4us programming4us