Frage : Formel für ViertelDys, Excel

Ich benötige eine Formel, die den folgenden Vierteltag vom Beendigungsdatum inserted.
These sind ausarbeitet:  25/03, 24/06, 29/09 und 25/12.
So, wenn ich „26/08/10“ einsetzte, würde sie 29/09/10 am „folgenden Vierteltag“ cell.
Can jemand Hilfe bevölkern?
Many thanks

Antwort : Formel für ViertelDys, Excel

Im Allgemeinen rate ich using einen Streckengegenstand anstelle vom Vorwählergegenstand wo möglich. Auch es ist einfacher, zu sehen, dass was sind Sie, versuchen zu tun (und folglich einfacher beizubehalten) wenn Sie spezifizieren, wo Sie in den Gegenständen ausgedrückt, im Vergleich mit MoveDown und MoveRight sein möchten, etc.

Jedoch können Sie ein Einspalten vorwählen und suchen. 

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

Privates VorDocControlAdd ()
   'Schwaches texta, textb, textc, textd, texte, textf als Schnur 'dieses verdunkelt alle ausgenommen die letzte Variable als Variante

    Schwaches texta als Schnur, textb als Schnur, textc als Schnur, textd als Schnur, texte als Schnur, textf als Schnur
     Schwaches tbl als Tabelle
    Schwaches RW als Reihe
    Schwaches Cl als Zelle
    Schwaches c als ganze Zahl
    Schwaches iStartCol als ganze Zahl
    
    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
   Tbl = ActiveDocument.Tables einstellen (1)

        Wenn ActiveDocument.CustomDocumentProperties.Item („xNew“) = „Y“ dann
            Einstellen RW = tbl. Rows.Add
        ElseIf NewVersion = ausrichten dann nn
            Einstellen RW = tbl. Rows.Add
        ElseIf NewVersion = falsch dann
                tbl. Spalten (iStartCol). Auserwählt
                Mit Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = ausrichten en
                    .MatchCase = ausrichten en
                    Wenn. Durchführen (FindText: =texta) dann
                        Cl = Selection.Cells einstellen (1)
                        Einstellen RW = tbl. Reihen (cl.RowIndex)
                     Beenden wenn
                Mit beenden
         Beenden wenn
         c = iStartCol
         RW. Zellen (c). Range.Text = texta
         c = c + 1
         RW. Zellen (c). Range.Text = textb
         c = c + 1
         RW. Zellen (c). Range.Text = textc
         c = c + 1
         RW. Zellen (c). Range.Text = textd
         c = c + 1
         RW. Zellen (c). Range.Text = texte
         c = c + 1
         RW. Zellen (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item („xRevisionNoOld“). Wert = ActiveDocument.CustomDocumentProperties.Item („xRevisionNo“). Wert

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us