Pytanie : Formuła dla Kwartalny Dys, Przodować

I potrzebować formuła che pracować być the następny kwartalny dzień od the ukończenie data inserted.
These być:  25/03, 24/06, 29/09 i 25/12.
So, jeżeli I wkładać "26/08/10", ono zaludniać 29/09/10 w the "Następny Kwartalny Dzień" cell.
Can 29/09/10 pomoc?
Many thanks

Odpowiedź : Formuła dla Kwartalny Dys, Przodować

Ogólnie, I radzić using Pasmo przedmiot zamiast the Wybór przedmiot dokąd ewentualny. Także ono być łatwy co ty być próbować (i hence łatwy) jeżeli ty precyzować dokąd ty chcieć pod względem the przedmiot, w przeciwieństwie do MoveDown i MoveRight, Etc.

Ty móc I pojedynczy kolumna. 

(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:

Intymny Okręt podwodny DocControlAdd ()
   'Ciemnawy texta, textb, textc, textd, texte, textf Równie Sznurek 'textf Ćmić textf oprócz the ostatni zmienna wariant

    Ciemnawy texta Jako Sznurek, textb Sznurek, textc Jako Sznurek, textd Sznurek, texte Jako Sznurek, textf Sznurek
     Ciemnawy tbl Stół
    Ciemnawy rw Rząd
    Ciemnawy cl Jako Komórka
    Ciemnawy c Jako Integer
    Ciemnawy iStartCol Jako Integer
    
    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)
   Ustalony tbl = ActiveDocument.Tables (1)

        Jeżeli ActiveDocument.CustomDocumentProperties.Item ("xNew") = "Y" Wtedy
            Set rw = tbl. Rows.Add
        ElseIf NewVersion = Prawdziwy Wtedy
            Set rw = tbl. Rows.Add
        ElseIf NewVersion = Fałszywy Wtedy
                tbl. Kolumna (iStartCol). Wybiórka
                Z Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = Prawdziwy
                    .MatchCase = Prawdziwy
                    Jeżeli. Wykonywać (FindText: =texta) Wtedy
                        Ustalony cl = Selection.Cells (1)
                        Set rw = tbl. Rząd (cl.RowIndex)
                     Kończyć Jeżeli
                Kończyć Z
         Kończyć Jeżeli
         c = iStartCol
         rw. Komórka (c). Range.Text = texta
         c = c + (1)
         rw. Komórka (c). Range.Text = textb
         c = c + (1)
         rw. Komórka (c). Range.Text = textc
         c = c + (1)
         rw. Komórka (c). Range.Text = textd
         c = c + (1)
         rw. Komórka (c). Range.Text = texte
         c = c + (1)
         rw. Komórka (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item ("xRevisionNoOld"). Wartość = ActiveDocument.CustomDocumentProperties.Item ("xRevisionNo"). Wartość

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us