Три дня чтения в подарок
Зарегистрируйтесь и читайте бесплатно

Цитаты из Excel. Трюки и эффекты

Читайте в приложениях:
3550 уже добавило
Оценка читателей
2.76
  • По популярности
  • По новизне
  • chkVarify.Value = CBool(strFunc)
    1 В мои цитаты Удалить из цитат
  • Сводный пример расчета комиссионного вознаграждения
    В мои цитаты Удалить из цитат
  • Sub UpdateTime()
    Dim varNextCall As Variant
    ' Записываем в ячейку текущее время
    Cells(1, 1).Value = Now
    ' Записываем в varNextCall время, когда вызвать этот макрос _
    в следующий раз (через 1 секунду)
    varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now)
    + 1)
    ' Уведомляем Excel в необходимости вызова макроса
    Application.OnTime varNextCall, «UpdateTime»
    End Sub
    В мои цитаты Удалить из цитат
  • ижняя – другим. В приведенном в листинге 2.31 макросе верхняя граница диапазона будет начертана толстой синей линией, а нижняя – розовой пунктирной обычной толщины
    В мои цитаты Удалить из цитат
  • противном случае.
    Использование функции Array для заполнения
    В мои цитаты Удалить из цитат
  • Второй способ
    Допустим, что нам нужно быстро заполнить диапазон, состоящий из 10 ячеек в высоту и 5 ячеек в ширину, последовательностью чисел, расположенных по порядку от 1 до 50. Для решения данной задачи напишем в стандартном модуле редактора VBA представленный ниже код (листинг 2.24).
    В мои цитаты Удалить из цитат
  • Макрос – программа, которая написана на встроенном в Excel языке программирования Visual Basic for Applications (VBA). Переход в режим работы с макросами осуществляется с помощью команды Вид → Макросы.
    В мои цитаты Удалить из цитат
  • Редактор VBA – интегрированная среда разработки, в которой осуществляется написание кодов (программирование) на языке VBA. Чтобы перейти в данный режим, необходимо нажать сочетание клавиш Alt+F11.
    В мои цитаты Удалить из цитат
  • В большинстве случаев рабочая книга имеет расширение XLSX.
    В мои цитаты Удалить из цитат
  • VBA (для перехода к редактору VBA используется комбинация клавиш Alt+F11).
    В мои цитаты Удалить из цитат
  • Восстановление важной информации из испорченного файла
    В мои цитаты Удалить из цитат
  • Можно ли сделать так, чтобы документ распечатывался вместе с сеткой?
    По умолчанию Excel не выводит на печать сетку рабочего листа. Однако при необходимости эту настройку можно изменить. Чтобы документ выводился на печать вместе с сеткой, следует перейти на вкладку Разметка страницы и в окне Параметры страницы на вкладке Лист установить флажок сетка, после чего нажать кнопку ОК. Здесь же находится еще несколько полезных параметров – в частности, путем установки флажка заголовки строк и столбцов можно выводить на печать номера строк и названия столбцов; в поле примечания из раскрывающегося списка можно выбрать требуемый режим вывода на печать имеющихся на рабочем листе примечаний (возможные значения – нет, В конце листа и Как на листе); в поле ошибки ячеек как указывается наиболее приемлемый способ печати находящихся в ячейках ошибок.
    В мои цитаты Удалить из цитат
  • Sub Clear()
    ' Выделение и очистка всех используемых для кроссворда ячеек
    Range(Cells(dhcMinRow, dhcMinCol), _
    Cells(dhcMaxRow, dhcMaxCol)).Select
    Selection.Clear
    ' Удаление сетки всего кроссворда
    ClearGrid
    Range(«A1»).Select
    End Sub
    В мои цитаты Удалить из цитат
  • Sub CreatePanel()
    Dim i As Integer
    On Error Resume Next
    ' Удаление одноименной панели (если есть)
    CommandBars(«Список месяцев»).Delete
    On Error GoTo 0
    ' Создание панели «Список месяцев»
    With CommandBars.Add
    .Name = «Список месяцев»
    ' Создание списка месяцев
    With .Controls.Add(Type:=msoControlDropdown)
    ' Настройка (имя, макрос, стиль)
    .Caption = «DateDD»
    .OnAction = «SetMonth»
    .Style = msoButtonAutomatic
    ' Добавление в список названий месяцев
    For i = 1 To 12
    .AddItem Format(DateSerial(1, i, 1), «mmmm»)
    Next i
    ' Выделение первого месяца
    .ListIndex = 1
    End With
    ' Показываем созданную панель
    .Visible = True
    End With
    End Sub
    Sub SetMonth()
    ' Перенос названия выделенного месяца в ячейку
    On Error Resume Next
    With CommandBars(«Список месяцев»).Controls(«DateDD»)
    ActiveCell.Value = .List(.ListIndex)
    End With
    End Sub
    В мои цитаты Удалить из цитат
  • Sub FillCells()
    Dim intStartVal As Integer ' Начальное значение
    Dim intStep As Integer ' Шаг при изменении значения
    Dim intEndVal As Integer ' Конечное значение
    Dim intVal As Integer ' Текущее значение
    Dim intCellOffset As Integer ' Смещение от начальной ячейки
    ' Установка параметров заполнения
    intStartVal = 1
    intStep = 1
    intEndVal = 100
    ' Заполнение ячеек текущего столбца значениями от 1 до 100
    For intVal = intStartVal To intEndVal Step intStep
    ActiveCell.Offset(intCellOffset, 0).Value = intVal
    intCellOffset = intCellOffset + 1
    Next intVal
    End Sub
    В мои цитаты Удалить из цитат