Вопрос : Формула для квартального Dys, Эксел

Мне нужна формула разрабатывает следующий квартальный день от даты завершения inserted.
These являются следующими:  25/03, 24/06, 29/09 и 25/12.
So, если я ввел «26/08/10», то он заселил бы 29/09/10 в «следующем квартальном дне» cell.
Can любом помощь?
Many thanks class=

Ответ : Формула для квартального Dys, Эксел

Вообще, я советую using предмет ряда вместо предмета выбора где по возможности. Также легке увидеть вы пытайтесь сделать (и следовательно легко для поддержания) если вы определяете, то где вы хотите быть оперируя понятиями предметов, в отличие от MoveDown и MoveRight, etc.

Однако вы можете выбрать и поискать одностоечное. 

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:

Приватное Sub DocControlAdd ()
   'Тусклое texta, textb, textc, textd, texte, textf как шнур 'это затемняет все за исключением последней перемеююого как вариант

    Тусклое texta как шнур, textb как шнур, textc как шнур, textd как шнур, texte как шнур, textf как шнур
     Тусклое tbl как таблица
    Тусклый rw как рядок
    Тусклый cl как клетка
    Тусклый c как интежер
    Тусклое iStartCol как интежер
    
    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 (1)

        Если ActiveDocument.CustomDocumentProperties.Item («xNew») = «y» после этого
            Установите rw = tbl. Rows.Add
        ElseIf NewVersion = True после этого
            Установите rw = tbl. Rows.Add
        ElseIf NewVersion = ложно после этого
                tbl. Колонки (iStartCol). Отборно
                С Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = True
                    .MatchCase = True
                    Если. Исполните (FindText: =texta) после этого
                        Установите cl = Selection.Cells (1)
                        Установите rw = tbl. Рядки (cl.RowIndex)
                     Закончитесь если
                Закончитесь с
         Закончитесь если
         c = iStartCol
         rw. Клетки (c). Range.Text = texta
         c = c + 1
         rw. Клетки (c). Range.Text = textb
         c = c + 1
         rw. Клетки (c). Range.Text = textc
         c = c + 1
         rw. Клетки (c). Range.Text = textd
         c = c + 1
         rw. Клетки (c). Range.Text = texte
         c = c + 1
         rw. Клетки (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item («xRevisionNoOld»). Значение = ActiveDocument.CustomDocumentProperties.Item («xRevisionNo»). Значение

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us