Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Дорогие форумчане подскажите пожалуйста как найти в скрытых столбцах последний не пустой столбец в конкретной строке?
Этот код находит последний по всему листу, а мне нужно только в одной строке.
Код
clm = shm.Cells(2, shm.UsedRange.Columns.Count).End(xlToLeft).column


Заранее благодарю! Уже все перепробовала, везде поискала:(
Изменено: bekzus - 07.06.2018 19:20:31
Разрешить вводить только русские буквы/ кириллицу, Запрет ввода данных
 
Здравствуйте дорогие форумчане!

Как можно разрешить вводить в ячейку на листе только русские буквы?
Смогла найти запрет на ввод русских букв, а вот наоборот не получилось найти.
Код
Private Sub Worksheet_Change(ByVal Target As Range)   
   Dim i As Integer   
   If Target.Column <> 1 Then Exit Sub   
   For i = 1 To Len(Target)   
       If Asc(Mid(Target, i, 1)) > 191 And Asc(Mid(Target, i, 1)) < 256 Then   
           MsgBox "Неправильный ввод", vbExclamation   
           Target = ""   
       Exit Sub   
       End If   
   Next   
End Sub

Попыталась переделать под себя, но не работает
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   Dim i As Integer
   If Target.Column <> 10 Then Exit Sub
   For i = 1 To Len(Target)
   Select Case Asc(Mid(Target, i, 1))
       Case 32, 45, 39, 96, 1040 To 1105
       Case Else: Target = "": MsgBox "Только на кириллице!", vbCritical, "Ограничение ввода букв"
   End Select
   Next
End Sub

Буду очень признательна!
Изменено: bekzus - 27.10.2017 22:30:49
Указать примечания из ячеек в ListBox'e на пользовательской форме., Как перенести значения из примечаний ячеек в listbox
 
Здравствуйте дорогие форумчане самого полезного форума в сети!

Пыталась своими силами решить этот вопрос, но все тщетно. Не смогла найти в интернете подходящее решение.

Проблема именно в том, что в примечании текст переносится одной строкой в ListBox, а мне надо, что бы все было как в самом примечании в несколько строк.

Есть идеи по решению? Буду очень признательна!
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
Дорогие форумчане, подскажите пожалуйста где у меня ошибка. Вроде все делаю по правилам и логике как у всех но почему то не работает.
Код
Sub CopyNames()
    Application.ScreenUpdating = False
    Dim i, k As Long
    
    For i = 4 To n
        For k = 1 To n
            shm.Cells(k, 2) = shm.Cells(i, 1)
        Next k
        i = i + 4
    Next i
    Application.ScreenUpdating = True
End Sub

Есть два столбца

Начиная с 4 строки каждую пятую строку надо скопировать в столбец B.

         А                                      B
1                                      Градусник
2                                      Сироп
3                                      Пюре
4   Градусник                  Настойка
5
6
7
8
9   Сироп
10
11
12
14  Пюре
15
16
17
18
19   Настойка
Изменено: bekzus - 23.08.2017 08:23:00
Поиск нужной строки по условию., VBA
 
Дорогие форумчане помогите пожалуйста!

Как можно найти строку, которая будет отвечать следующему условию:

При вводе любого числа в textbox и нажатии кнопки поиск должен срабатывать макрос, который должен найти строку где число должно быть меньше введенного числа или равное ему, но число в следующей строке должно быть больше введенного и выдать соответствующий код в соседнем столбце.

То есть если ввести в textbox число 65 000, то макрос должен выдать код с первой строки 12 434 345. Если ввести 73 000 то следующую строку и код 34 467 323.
суммакод
60 00012 434 345      
70 00034 467 323
80 00056 500 301
90 00078 533 279
100 000         10 056 625
110 00022 599 235
120 00014 632 213
130 00016 665 191
140 00018 868 169
150 00021 071 147
160 00023 274 125
170 00025 471 503
180 00027 680 081
190 00029 886 359
Попыталась написать такой код, но все тщетно.
Код
Dim i, ra
Dim t

t = TextBox1.Value
ra = sha.Range(sha.Cells(1,1), sha.Cells(Rows.Count, 1).End(xlUp).Row).Value

For i = 1 to UBound(ra)
    if t>=ra(i,1) and t<ra(i+1, 1) then
       msgbox ra.offset(0,1)
    else
       end sub
    end if
next
Изменено: bekzus - 09.08.2017 22:13:19
Создание единого правила для всех SpinButton'ов на форме, которые связаны с TextBox'ами., Есть очень много SpinButton'ов, которые меняютTextBox'ы.
 
Подскажите дорогие форумчане, как можно оптимизировать следующие коды для SpinButton. Их множество, а коды однотипные.
Код
Private Sub SpinButton_d1_Change()
If SpinButton_d1.Value <> 0 Then
   sold_d1 = SpinButton_d1.Value
Else
   sold_d1 = ""
End If
End Sub

Private Sub SpinButton_d2_Change()
If SpinButton_d2.Value <> 0 Then
   sold_d2 = SpinButton_d2.Value
Else
   sold_d2 = ""
End If
End Sub

Private Sub SpinButton_d3_Change()
If SpinButton_d3.Value <> 0 Then
   sold_d3 = SpinButton_d3.Value
Else
   sold_d3 = ""
End If
End Sub

Private Sub SpinButton_d4_Change()
If SpinButton_d4.Value <> 0 Then
   sold_d4 = SpinButton_d4.Value
Else
   sold_d4 = ""
End If
End Sub

Private Sub SpinButton_d5_Change()
If SpinButton_d5.Value <> 0 Then
   sold_d5 = SpinButton_d5.Value
Else
   sold_d5 = ""
End If
End Sub


Все они на пользовательской форме.
Указание ячеек, откуда берутся данные для Label на пользовательской форме
 
Здравствуйте дорогие форумчане!

Решила спрятать сам лист с данными и все отобразить на форме. Устала прописывать все в ручную каждую отдельную ячейку.
Кто может подсказать возможно ли упростить код?
Код
price_c1.Caption = "(" & Sheets("УЧЕТ").Range("Q45") & "тг" & ")"     'ЦЕНА ВСЕХ СОСОК НА ПОЛЬЗОВАТЕЛЬСКОЙ ФОРМЕ
price_c2.Caption = "(" & Sheets("УЧЕТ").Range("Q46") & "тг" & ")"
price_c3.Caption = "(" & Sheets("УЧЕТ").Range("Q47") & "тг" & ")"
price_c4.Caption = "(" & Sheets("УЧЕТ").Range("Q48") & "тг" & ")"
price_c5.Caption = "(" & Sheets("УЧЕТ").Range("Q49") & "тг" & ")"
price_c6.Caption = "(" & Sheets("УЧЕТ").Range("Q50") & "тг" & ")"
price_c7.Caption = "(" & Sheets("УЧЕТ").Range("Q51") & "тг" & ")"
price_c8.Caption = "(" & Sheets("УЧЕТ").Range("Q52") & "тг" & ")"
price_c9.Caption = "(" & Sheets("УЧЕТ").Range("Q53") & "тг" & ")"
price_c10.Caption = "(" & Sheets("УЧЕТ").Range("Q54") & "тг" & ")"
price_c11.Caption = "(" & Sheets("УЧЕТ").Range("Q55") & "тг" & ")"
price_c12.Caption = "(" & Sheets("УЧЕТ").Range("Q56") & "тг" & ")"
price_c13.Caption = "(" & Sheets("УЧЕТ").Range("Q57") & "тг" & ")"
price_c14.Caption = "(" & Sheets("УЧЕТ").Range("Q58") & "тг" & ")"
price_c15.Caption = "(" & Sheets("УЧЕТ").Range("Q59") & "тг" & ")"
price_c16.Caption = "(" & Sheets("УЧЕТ").Range("Q60") & "тг" & ")"
price_c17.Caption = "(" & Sheets("УЧЕТ").Range("Q61") & "тг" & ")"
price_c18.Caption = "(" & Sheets("УЧЕТ").Range("Q62") & "тг" & ")"
price_c19.Caption = "(" & Sheets("УЧЕТ").Range("Q63") & "тг" & ")"
price_c20.Caption = "(" & Sheets("УЧЕТ").Range("Q64") & "тг" & ")"


Буду очень признательна!
Можно ли узнать о том, что книга открывается макросом, а не обычным способом?, обойти появление формы, зная логин и пароль
 
Уважаемые форумчане!

Нужно открыть защищенную паролем книгу, где появляется форма авторизации. Можно ли обойти появление формы зная логин и пароль?

В интернете не нашла.
Изменено: bekzus - 28.02.2017 12:33:37
Одновременная двойная сортировка по вертикали и горизонтали.
 
Помогите кто может пожалуйста. В интернете честно искала похожие варианты уже 3 дня. Ничего подобного не нашла. Все только по отдельности описано, а как вместе сразу сортировать никто не показывает.

Или просто такое не делается?

Одновременное сортирование в двух таблицах на двух разных листах ("УЧЕТ") и ("УЧЕТ2"). Одно по строкам, а другое по столбцам. Таблица где производится сортировка по строкам является основным и отвечает за порядок расположения имен во второй таблице где все расположено иначе.

Есть кто работает в предновогодний день? :)
Вычитание от всех чисел с 1-й строки все числа выбранной строки последовательно по столбцам, Последовательное вычитание чисел по столбцам
 
Подскажите плиз как можно реализовать последовательное вычитание всех чисел из выбранной строки от всех чисел с 1-й строки из того же столбца и результат прописывать в 1-ю строку? То есть  числа с 1-ой строки должны измениться.

Просто таких столбцов много очень, а именно с 9-го по 49 столбец.
Сбросить SpinButton, чтобы отсчет начинался заново с нуля. SpinButton1.Value=0 не помогает
 
Есть пользовательская форма.

На ней TextBox  SpinButton связанный c ним.
И есть  кнопка которая копирует значение набранное SpinButton'ом в TextBox'е и затем очищающее ее. Но после очищения SpinButton начинает набирать с последнего числа, которое было до этого. Никак не получается обнулить до 0, чтобы начинался отсчет с 1-го, а не с 2.

Подскажите плиз как это можно сделать. Никто не сталкивался с такой проблемой?
Возврат предыдущего значения ячейки по условию, можно ли хранить значение в памяти?
 
В столбце "С:С" выпадающий список с накоплением. (Взяла его здесь с этого сайта.) При выборе каждого элемента из списка в соседнем столбце "D:D" суммируется общая сумма стоимости обучения. А в столбце "В:В" выпадающий список обычный с выбором пакета со скидкой. Так вот без сохранения старого значения общей суммы обучения в столбце "Е:Е" не получается получать правильное вычисление суммы после скидки при каждом его изменении.
Искала ответ в интернете. Вроде надо как то декларировать его в памяти VBA.
Подскажите плиз. HUGO, Юрий М. Такое возможно? Кто нибудь пожалуйста!
Изменено: bekzus - 15.12.2016 12:00:49
Как вписать Excel'вскую формулу через VBA?
 
Подскажите добрые люди, как вписать через макрос в ячейку "K1" следующую формулу:
Код
=ЕСЛИОШИБКА(ЕСЛИ((СЧЁТЕСЛИ(L1:FE1;"0")+2*СЧЁТЕСЛИ(L1:FE1;"0+0")>СУММ(L1:FE1)*0,15);(СУММ(L1:FE1)+СУММ(L1:FE1)*0,15);(СУММ(L1:FE1)+СЧЁТЕСЛИ(L1:FE1;"0")+2*СЧЁТЕСЛИ(L1:FE1;"0+0")));"")
Пожалуйста!
Код
Range("K1").FormulaLocal
не помогает
Изменено: bekzus - 07.03.2015 18:15:40
Последовательное извлечение данных с определенного диапазона с определенных страниц в одну
 
Голову сломала пытаясь написать такой код.
Последовательное извлечение данных с определенного диапазона с определенных страниц по столбцам в одной странице по соответствующим строкам.

Есть 6 преподавателей у каждого по 8 уроков. Всего 48 уроков.
каждый урок помещен на странице с названиями начинающиеся на "Предмет"
с каждого урока нужно извлечь данные такие как ("Название урока", "Время начала урока", "Дата начала") и поместить по порядку по столцам в строке соответстующего преподавателя.

Преподаватели по строкам. То есть должно получится 6 строк
Уроки по столбцам. То есть должно получится 8 столбцов.
И так выходит таблица 6x8

Для лучшего понимания сделала упрощенный пример с задачей, которая кажется практически "головоломкой года"
Помогите пожалуйста у кого есть идеи как решить.
Брать в textbox только первые 2 цифры до символа ":"
 
Как программно показать в textbox только первые 2 цифры до символа ":" из данных в определенной ячейке?
Например: 111:00 и тогда надо чтобы в textbox выходил 11

Заранее благодарна!
Почему при установке пароля на проект начинает глючить программа (без пароля все работает идеально)
 
Хочу сначала поздравить с новым годом всех участников форума, создателей этого прекрасного сайта и гуру VBA и excel HUGO, Юрий М, Максим Зеленский, The_Prist, которые всегда находили время и отзывались на помощь, находя самые идеальные решения разным вопросам.

Подскажите плиз в чем может быть проблема при установлении пароли на проект начинает глючить программа, без пароли все работает идеально.
Пользовательская форма появляется только со 2-го раза
 
Подскажите, плиз, почему моя пользовательская форма открывается только после второго раза?
То есть, это происходит только на новом компьютере или после того как меняю его расположение в компе. На тех компьютерах где прежде открывала этот файл форма нормально появляется. Но стоит мне отправить по почте или скопировать по локальной сети в другой комп то выходит debug Журнал_посещений.show
Код
Private Sub Workbook_Open()
Application.Visible = False
    Журнал_посещений.show
End Sub
В чем может быть проблема не могу понять.
Подскажите кто знает как решить такую проблему пожалуйста.
Поиск последней ячейки с примечанием в определенной строке.
 
В 1 строке имеются ячейки с датами этого месяца и в каждую ячейку ставится примечание каждый день. Я хочу создать пользовательскую форму, где будет показан текст последнего примечания.
Код
Примечание.Text = Sheets("Предмет1").Rows(1).Find(Comment.Value).End(xlToRight).Comment
Так не получается.
Макрос на определенных листах для определенного диапазона одновременно.
 
Доброго дня всем форумчанам! Дорогие Hugo, Юрий М, Максим Зеленский, The_Prist и остальные профи VBA, пожалуйста помогите с вопросом кто сможет.

Сама билась, пыталась изменить код, но все тщетно  :(  
Надо это ниже указанный макрос по удалению пустых строк использовать максимально эффективно на определенных листах, ("Предмет1", "Предмет2", "Предмет3)",для определенного диапазона, как например только Range("B3:B11") и Range("E3:BD11") .

Что нужно изменить в нем, чтобы он работал так?
Код
Sub DeleteEmptyRowsInSelection()
    Dim i As Long, usrCalculation As Long
    With Application
    usrCalculation = .Calculation: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    With Intersect(Selection, ActiveSheet.UsedRange) 'ñî ñïðàâåäëèâîé ïîäà÷è Alex_ST
        For i = .Rows.Count To 1 Step -1
            If Application.CountA(.Rows(i)) = 0 Then
                .Rows(.Rows.Count + 1).Insert
                .Rows(i).Delete
            End If
        Next
    End With
    With Application
    .ScreenUpdating = True: .EnableEvents = True: .Calculation = usrCalculation
    End With
    Application.ScreenUpdating = True
End Sub
Как запускать макрос после завершения другого макроса, Подскажите пожалуйста где ошибка
 
Здравствуйте дорогие форумчане!

Я установила кнопки, которая запускает макрос календарь "samradDatePicker" для определенной ячейки. Как нужно исправить следующий код, чтобы другой макрос срабатывал только после того, как выбирается дата на календаре и прописывается в данной ячейке?
В моем коде другой макрос срабатывает еще до выбора даты. Не успеваю указать дату, а календарь уже закрывается.

Код
Sub dateautochoose()
With ActiveSheet()
Range("E1").Select
Application.Run "samradDatePicker.xla!modDate.DisplayCalendar"
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:BD1"), Type:=xlFillDefault
Rows("40:40").Select
Range("E40:BD40").FormulaR1C1 = "=TEXT(R[-39]C,""Д МММ ДДД"")"
Range("E40:BD40").Select
Selection.Copy
Range("E1:BD1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Rows("40:40").Select
Selection.ClearContents
End With
End Sub
 
Преобразование нескольких чисел в даты, которые находятся в одной ячейке и разделенны запятыми.
 
Дорогие форумчане!
Этот макрос берет даты с самой первой строки страницы и через запятую ставит в одну ячейку, только в формате простых чисел. А нужно в формате даты. Можно ли скорректировать код так, чтобы брались не просто числа в виде 41836, 41837, 41842, а нормальные даты типа 16 июл, 17 июл, 22 июл?


Код
Sub Отчет по успеваемости()
    S = Range(Cells(1, 11), Cells(1, 11)).Text
    Worksheets("Предмет1".Visible = True
    Sheets("Предмет1".Select
    DDD = ""
    A = 0
    B = Range(Cells(3, 2), Cells(53, 2)).Count
    For i = 3 To B + 2
    If Range(Cells(i, 2), Cells(i, 2)).Text = S Then
        For j = 5 To 60
        If Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "i" Then
        A = A + 1
        ElseIf Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "" Then
        Else
        DDD = DDD + Range(Cells(i, j), Cells(i, j)).Offset(-(i - 1), 0).FormulaR1C1 + ", "
        End If
        Next j
    Sheets("Отчет по успеваемости".Select
    Range(Cells(4, 2), Cells(4, 2)).FormulaR1C1 = DDD
    End If
    Next i
    Worksheets("Предмет2".Visible = True
    Worksheets("Предмет1".Visible = False
    Sheets("Предмет2".Select
    DDD = ""
    For i = 3 To B + 2
    If Range(Cells(i, 2), Cells(i, 2)).Text = S Then
        For j = 5 To 60
        If Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "i" Then
        A = A + 1
        ElseIf Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "" Then
        Else
        DDD = DDD + Range(Cells(i, j), Cells(i, j)).Offset(-(i - 1), 0).FormulaR1C1 + ", "
        End If
        Next j
    Sheets("Отчет по успеваемости".Select
    Range(Cells(5, 2), Cells(5, 2)).FormulaR1C1 = DDD
    End If
    Next i
    Worksheets("Предмет3".Visible = True
    Worksheets("Предмет2".Visible = False
    Sheets("Предмет3".Select
    DDD = ""
    For i = 3 To B + 2
    If Range(Cells(i, 2), Cells(i, 2)).Text = S Then
        For j = 5 To 60
        If Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "i" Then
        A = A + 1
        ElseIf Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "" Then
        Else
        DDD = DDD + Range(Cells(i, j), Cells(i, j)).Offset(-(i - 1), 0).FormulaR1C1 + ", "
        End If
        Next j
    Sheets("Отчет по успеваемости".Select
    Range(Cells(6, 2), Cells(6, 2)).FormulaR1C1 = DDD
    End If
    Next i
    Worksheets("Предмет4".Visible = True
    Worksheets("Предмет3".Visible = False
    Sheets("Предмет4".Select
    DDD = ""
    For i = 3 To B + 2
    If Range(Cells(i, 2), Cells(i, 2)).Text = S Then
        For j = 5 To 60
        If Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "i" Then
        A = A + 1
        ElseIf Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "" Then
        Else
        DDD = DDD + Range(Cells(i, j), Cells(i, j)).Offset(-(i - 1), 0).FormulaR1C1 + ", "
        End If
        Next j
    Sheets("Отчет по успеваемости".Select
    Range(Cells(7, 2), Cells(7, 2)).FormulaR1C1 = DDD
    End If
    Next i
    Worksheets("Предмет5".Visible = True
    Worksheets("Предмет4".Visible = False
    Sheets("Предмет5".Select
    DDD = ""
    For i = 3 To B + 2
    If Range(Cells(i, 2), Cells(i, 2)).Text = S Then
        For j = 5 To 60
        If Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "i" Then
        A = A + 1
        ElseIf Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "" Then
        Else
        DDD = DDD + Range(Cells(i, j), Cells(i, j)).Offset(-(i - 1), 0).FormulaR1C1 + ", "
        End If
        Next j
    Sheets("Отчет по успеваемости".Select
    Range(Cells(8, 2), Cells(8, 2)).FormulaR1C1 = DDD
    End If
    Next i
    Worksheets("Предмет6".Visible = True
    Worksheets("Предмет5".Visible = False
    Sheets("Предмет6".Select
    DDD = ""
    For i = 3 To B + 2
    If Range(Cells(i, 2), Cells(i, 2)).Text = S Then
        For j = 5 To 60
        If Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "i" Then
        A = A + 1
        ElseIf Range(Cells(i, j), Cells(i, j)).FormulaR1C1 = "" Then
        Else
        DDD = DDD + Range(Cells(i, j), Cells(i, j)).Offset(-(i - 1), 0).FormulaR1C1 + ", "
        End If
        Next j
    Sheets("Отчет по успеваемости".Select
    Range(Cells(10, 2), Cells(10, 2)).FormulaR1C1 = A
    Range(Cells(9, 2), Cells(9, 2)).FormulaR1C1 = DDD
    End If
    Next i
    Worksheets("Предмет6".Visible = False
End Sub
Автозаполнение квитанции по значению ячейки с суммой, помощь в написании макроса.
 
Добрый день Hugo, Юрий, Максим и остальные гуру VBA!
Есть рутинная однотипная работа по заполнению бланка квитанции, которую было бы очень замечательно автоматизировать.

Кто-нибудь помогите пожалуйста как можно при указании ячейки с суммой, которую нужно указать в квитанции, заполнялись остальные нужные данные, как например: ФИО, Сумма, Дата и (еще, если возможно, номер строки) в бланке квитанции.

Файл приложила. Там 2 листа "База" и "Квитанция"
Поиск по цвету заливки., УФ если значение меньше нуля окрасить в красный
 
Здравствуйте форумчане! Подскажите пожалуйста как можно найти ячейку с определенным цветом заливки(это УФ, условие, которого = окрасить ячейку в красный цвет если значение меньше 0) по строке в самом крайнем столбце (например: такая ячейка есть в столбце A3, B3, C3, M3, W3 но берем только W3) и скопировать его содержимое в определенную ячейку на этой же строке, только в другом столбце (например: Z3)?
копировать значение указанных столбца и строки в другую ячейку определенных столбца и строки, помогите плиз в написании макроса
 
Всем доброго дня! Как можно копировать значения ячейки из определенного столбца по указанной строке в другую ячейку в определенном столбце по указанному ранее строке.

Картинки удалены: превышение допустимого размера вложения [МОДЕРАТОР]
Макрос для создания отдельной таблицы с данными из определенных столбцов из другой таблицы с накоплением.
 
Доброго Всем дня дорогие форумчане и разбирающиеся в макросах и excel!
Появилась в ходе создания базы данных студентов необходимость в подсчете зарплаты преподавателей по месяцам. Задача оказалась не из легких, так как таблица с базой данных имеет не совсем удобную структуру и здесь я думаю без макроса не обойтись. Возможно и есть способ решения без макросов но такого к сожалению я не сумела найти. Может кто из знающих подскажет, как здесь быть, выведет из тупика. Я думала, что разберусь своими силами, но все тщетно:(
Попытаюсь объяснить, как можно проще
Есть исходная основная таблица:
Имя студентаТип курсаПрепод.Дата нач. обуч.Кол. днейЗавер-шилДат Завер-шенияСуммаТип курсаПреподДата нач. обуч.Кол. днейЗавер-шилДат Завер-шенияСумма
Андрей АршавинГрам-матикаАлексей15 май23Завер-шил17 июн2 000  IELTSВася16 июл23Завер-шил22 авг4 000  
Надо преобразовать в следующую таблицу, которая автоматически должна обновляться при добавлении студентов в исходную таблицу:
ИмяТип курсаПрепод.Дата нач. обуч.Кол.  днейЗавершилДат ЗавершенияСумма
Андрей АршавинГрамматикаАлексей15.07.201423Завершил17.07.2014 2 000  
Андрей АршавинIELTSВася16.07.201423Завершил22.07.2014 4 000  
Для лучшего понимания задачи приложила сам файл.

Очень надеюсь на Вашу помощь дорогие форумчане!
Страницы: 1
Наверх