Как составить план проекта в Excel.

Как составить план проекта в Excel. Этот шаблон позволяет запланировать задачи, выполняемые в рамках проекта. Он позволяет планировать задачи на предстоящий период и учитывать возможность одновременного выполнения нескольких проектов. В этом плане можно перетаскивать время начала и окончания, чтобы отражать изменения в плане. Различные планы можно раскрасить разными цветами, чтобы отразить различные выполняемые действия. код Private Sub CommandButton1_Click() Dim name As String Dim rng As Range Dim rownumber, monthmove As Integer Dim Lstart, LEnd, difference, lnext As Integer Dim x As Long If TextBox1.Text = "" Then MsgBox "Введите имя" End If name = TextBox1 'name = Trim(TextBox1.Text) Set rng = Sheet1.Columns("B:B").Find(What:=name, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If rng Is Nothing Then MsgBox "Имя не найдено" Else rownumber = rng.Row End Если Если cbmonths.Value = "Январь" Тогда monthmove = 2 Конец если Если cbmonths.Value = "Февраль" Тогда monthmove = 33 Конец если Если cbmonths.Value = "Март" Тогда monthmove = 62 Конец если Если cbmonths.Value = -1 Тогда MsgBox "Месяц не выбран" Конец если MsgBox monthmove Lstart = Trim(TextBox2.Text) + monthmove LEnd = Trim(TextBox3.Text) + monthmove Sheet1.Cells(rownumber, Lstart).Value = name Sheet1.Cells(rownumber, LEnd).Value = name difference = LEnd - Lstart Если difference(символ больше) 1 Тогда lnext = Lstart Do While lnext (символ меньше)LEnd Sheet1.Cells(rownumber, lnext).Value = name lnext = lnext + 1 If lnext = LEnd Then GoTo ende End If Loop End If ende: End Sub Private Sub CommandButton2_Click() TextBox1.Text = "" cbmonths.Value = "" TextBox2 = "" TextBox3 = "" End Sub Для получения дополнительной помощи посетите мой веб-сайт http://www.easyexcelanswers.com или напишите мне по электронной почте easyexcelanswers@gmail.com. Свяжитесь со мной по поводу настройки этого шаблона под ваши нужды. Доступно индивидуальное онлайн-обучение Excel. Напишите мне, чтобы договориться. Я могу предоставить онлайн-помощь на вашем компьютере по разумной цене. Посмотрите мой следующий часовой вебинар по Excel: https://www.crowdcast.io/easyexcelans... Для записи видео я использую конденсаторный микрофон Blue, вот ссылка: https://amzn.to/37gyyGa Посмотрите Crowdcast для создания вебинаров: https://app.linkmink.com/a/crowdcast/83 Если вам нужно купить Office 2019, перейдите по ссылке: https://amzn.to/2VX5dv8 Подписывайтесь на меня в Facebook:   / easyexcel.answers   Подписывайтесь на меня в Twitter: easyexcelanswers Instagram: @barbhendersonconsulting Вы можете помочь и создать свой собственный перевод. язык http://www.youtube.com/timedtext_cs_p... *Это описание может содержать партнерские ссылки. При переходе по ним я могу получить небольшую комиссию без дополнительных затрат с вашей стороны. Я рекомендую только те продукты и услуги, которые я использовал или с которыми имею опыт.