Fråga : Formeln för inkvarterar Dys, Excel

Jag behöver en formel som fungerar det nästa inkvarterar ut dag från sluttidpunkten inserted.
These är:  25/03, 24/06, 29/09 och 25/12.
So, om jag satte in ”26/08/10”, den skulle befolkar 29/09/10 i ”inkvarterar därefter dagen” cell.
Can någon hjälp?
Many thanks " klar "

Svar : Formeln för inkvarterar Dys, Excel

I allmänhet jag råder using en spänna anmärker i stället för valet anmärker var möjligheten. Också det är lättare att se att vad du är, var pröva att göra (och hence lättare att underhålla) om du specificerar var du önskar att vara in benämner av anmärker, som motsatt till MoveDown och MoveRight, Etc.

Emellertid du kan välja och söka en singelkolonn. 

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:

Privata underDocControlAdd ()
   'Alla den dunkla textaen, textb, textc, textd, texte, textf som stränger 'detta fördunklar undantar den sist variabeln som en variant

    Dunkel texta som stränger, textb som stränger, textc som stränger, textd som stränger, texte som stränger, textf som stränger
     Dunkel tbl som bordlägger
    Dunkel rw som ror
    Dunkel cl som cellen
    Dunkelt c som heltal
    Dunkel iStartCol som heltal
    
    texta = ActiveDocument.CustomDocumentProperties.Item (”xRevisionNoen”)
    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
   Fastställd tbl = ActiveDocument.Tables (1)

        Om ActiveDocument.CustomDocumentProperties.Item (”xNew”) = ”Y” därefter
            Uppsättning rw = tbl. Rows.Add
        ElseIf NewVersion = True därefter
            Uppsättning rw = tbl. Rows.Add
        ElseIf NewVersion = falskt därefter
                tbl. Kolonner (iStartCol). Valt
                Med Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = True
                    .MatchCase = True
                    Om. Utför (FindText: =texta) därefter
                        Fastställd cl = Selection.Cells (1)
                        Uppsättning rw = tbl. Ror (cl.RowIndex)
                     Avsluta om
                Avsluta med
         Avsluta om
         c = iStartCol
         rw. Celler (c). Range.Text = texta
         c = c + 1
         rw. Celler (c). Range.Text = textb
         c = c + 1
         rw. Celler (c). Range.Text = textc
         c = c + 1
         rw. Celler (c). Range.Text = textd
         c = c + 1
         rw. Celler (c). Range.Text = texte
         c = c + 1
         rw. Celler (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item (”xRevisionNoOld”). Värdera = ActiveDocument.CustomDocumentProperties.Item (”xRevisionNo”). Värdera

Avsluta suben
Andra lösningar  
 
programming4us programming4us