Vraag : Formule voor Kwart Dys, Excel

Ik heb een formule nodig die de volgende kwartdag vanaf de voltooiingsdatum inserted.
These is uitwerkt:  25/03, 24/06, 29/09 en 25/12.
So, als ik „26/08/10“ opnam, zouden het 29/09/10 in het „Volgende Kwart Dag“ cell.
Can iedereen hulp bevolken?
Many thanks

Antwoord : Formule voor Kwart Dys, Excel

In het algemeen, adviseer ik gebruikend een voorwerp van de Waaier in plaats van het voorwerp van de Selectie waar mogelijk. Ook is het gemakkelijker om te zien wat bent u proberen te doen (en vandaar gemakkelijker te handhaven) als u waar u in termen van de voorwerpen, in tegenstelling tot MoveDown en MoveRight, enz. wilt zijn specificeert.

Nochtans kunt u één enkele kolom selecteren en zoeken. 

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:

Privé SubDocControlAdd ()
   'Schemerige texta, textb, textc, textd, texte, textf als Koord 'dit verduistert allen behalve de laatste variabele als variant

    Schemerige texta als Koord, textb als Koord, textc als Koord, textd als Koord, texte als Koord, textf als Koord
     Schemerige tbl als Lijst
    Schemerige rw als Rij
    Schemerig cl als Cel
    Schemerig c als Geheel
    Schemerige iStartCol als Geheel
    
    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
   Reeks tbl = ActiveDocument.Tables (1)

        Als ActiveDocument.CustomDocumentProperties.Item („xNew“) = „Y“ toen
            Vastgesteld rw = tbl. Rows.Add
        ElseIf NewVersion = Waar toen
            Vastgesteld rw = tbl. Rows.Add
        ElseIf NewVersion = Vals toen
                tbl. Kolommen (iStartCol). Selecteer
                Met Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = Waar
                    .MatchCase = Waar
                    Als. Voer uit (FindText: =texta) toen
                        Vastgesteld cl = Selection.Cells (1)
                        Vastgesteld rw = tbl. Rijen (cl.RowIndex)
                     Eind als
                Eind met
         Eind als
         c = iStartCol
         rw. Cellen (c). Range.Text = texta
         c = c + 1
         rw. Cellen (c). Range.Text = textb
         c = c + 1
         rw. Cellen (c). Range.Text = textc
         c = c + 1
         rw. Cellen (c). Range.Text = textd
         c = c + 1
         rw. Cellen (c). Range.Text = texte
         c = c + 1
         rw. Cellen (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item („xRevisionNoOld“). Waarde = ActiveDocument.CustomDocumentProperties.Item („xRevisionNo“). Waarde

Sub van het eind
Andere oplossingen  
 
programming4us programming4us