///---Действия при CheckBox13
If CheckBox13.State = cbChecked Then
Form3.Caption :='www';
If CheckBox13.State = cbChecked Then
Ex.ActiveWorkBook.WorkSheets[L3].Range['E2'].Value:=n1;
If CheckBox13.State = cbChecked Then
Ex.ActiveWorkBook.WorkSheets[L1].Range['B26'].Value:='Новый лист';
If CheckBox13.State = cbChecked Then
begin
for i:=1 to length(mem3) do begin
j:=(i div 105) + 7;
Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value:=Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value+mem3[i];
end;
///---Действия при CheckBox14
If CheckBox14.State = cbChecked Then
Form3.Caption :='wwwwwww';
If CheckBox14.State = cbChecked Then
Ex.ActiveWorkBook.WorkSheets[L4].Range['E2'].Value:=n1;
If CheckBox14.State = cbChecked Then
Ex.ActiveWorkBook.WorkSheets[L1].Range['B46'].Value:='Новый лист-2';
If CheckBox14.State = cbChecked Then
begin
for i:=1 to length(mem4) do begin
j:=(i div 105) + 7;
Ex.ActiveWorkBook.WorkSheets[L4].Cells[j,2].value:=Ex.ActiveWorkBook.WorkSheets[L4].Cells[j,2].value+mem4[i];
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.