![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() всем привет.
Помогите плиз сделать маленькое задание по предмету ВБА. Нужно с помощью функции windows.api запросить и изменить цвет фона в ячейке excel. Кто сможет помочь, буду очень благодарен. Так же готов заплатить тому, кто выполнит это задание. Нужно очень срочно. Спасибо. |
#2
|
|||
|
|||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); var XlApp, WSh, Rng : Variant; begin try XLApp:= CreateOleObject('Excel.Application'); except on E : EOleError do begin ShowMessage('MS Exel отсутствует на компьютере!'); Exit; end; end; try XLApp.DisplayAlerts := false; XLApp.Workbooks.Open('C:\WORK\For Excel\bilet.xls'); //имя файла excel WSh := XLApp.WorkBooks[1].WorkSheets[1]; //книга и лист WSh.Select; Rng := WSh.Cells[2, 1]; //номер строки, номер столбца (начинаются с 1) Rng.Select; Rng.Interior.ColorIndex := 8; // Cyan XLApp.Visible := True; XLApp.DisplayAlerts := True; finally WSh := Unassigned; XLApp := Unassigned; end; end; Не забывайте делать резервные копии |
#3
|
|||
|
|||
![]() я не знаю причём здесь API, преподаватель дал формулировку задания, я написал его дословно. Значит надо с помощью API сделать
|