Questione : Formula per Dys quarto, Excel

Ho bisogno di una formula che risolve il giorno quarto prossimo a partire dalla data inserted.
These di completamento è:  25/03, 24/06, 29/09 e 25/12.
So, se inserissi “26/08/10„, popolerebbe 29/09/10 in “giorno quarto prossimo„ cell.
Can chiunque aiuto?
Many thanks class= del

Risposta : Formula per Dys quarto, Excel

Raccomando generalmente using un oggetto della gamma anziché l'oggetto di selezione nel possibile. Inoltre è più facile da vedere che che cosa siete stanno provando a fare (e quindi più facile effettuare) se specificate dove volete essere in termini di oggetti, in contrasto con MoveDown e MoveRight, ecc.

Tuttavia potete selezionare e cercare una singola colonna. 

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 secondario riservato ()
   'Il texta fioco, il textb, il textc, il textd, il texte, textf come stringa 'questo oscura tutti tranne l'ultima variabile come variante

    Texta fioco come stringa, textb come stringa, textc come stringa, textd come stringa, texte come stringa, textf come stringa
     Tbl fioco come Tabella
    Il RW fioco come fila
    Cl fioco come cellula
    C fioca come numero intero
    iStartCol fioco come numero intero
    
    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
   Regolare il tbl = ActiveDocument.Tables (1)

        Se ActiveDocument.CustomDocumentProperties.Item (“xNew„) = “Y„ allora
            Regolar il RW = tbl. Rows.Add
        ElseIf NewVersion = allora allinea
            Regolar il RW = tbl. Rows.Add
        ElseIf NewVersion = falso allora
                tbl. Colonne (iStartCol). Prescelto
                Con Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = allineano
                    .MatchCase = allineano
                    Se. Eseguire (FindText: =texta) allora
                        Regolare il Cl = Selection.Cells (1)
                        Regolar il RW = tbl. File (cl.RowIndex)
                     Concluder se
                Concluder con
         Concluder se
         c = iStartCol
         il RW. Cellule (c). Range.Text = texta
         c = c + 1
         il RW. Cellule (c). Range.Text = textb
         c = c + 1
         il RW. Cellule (c). Range.Text = textc
         c = c + 1
         il RW. Cellule (c). Range.Text = textd
         c = c + 1
         il RW. Cellule (c). Range.Text = texte
         c = c + 1
         il RW. Cellule (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item (“xRevisionNoOld„). Valore = ActiveDocument.CustomDocumentProperties.Item (“xRevisionNo„). Valore

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us