![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Поиск данных нештатными средствами
Листинг 3.62. Поиск данных с помощью макроса Sub CustomSearch() Dim strFindData As String Dim rgFound As Range Dim i As Integer
' Ввод строки для поиска strFindData = InputBox(" Введите данные для поиска") ' Просмотр всех рабочих листов книги For i = 1 To Worksheets.Count With Worksheets(i).Cells ' Поиск на i-м листе Set rgFound =.Find(strFindData, LookIn: =xlValues) If Not rgFound Is Nothing Then ' Ячейка с заданным значением найдена - выделим ее Sheets(i).Select rgFound.Select Exit Sub End If End With Next ' Поиск завершен. Ячейка не найдена MsgBox (" Поиск не дал результатов") End Sub Включение автофильтра с помощью макроса Листинг 3.63. Включение автофильтра Sub EnableAutoFilter() On Error Resume Next Selection.AutoFilter End Sub Трюки с форматированием Изменение формата представления чисел нештатными средствами Листинг 3.64. Формат «два знака после запятой» Sub ChangeNumberFormat() Selection.NumberFormat = " 0.00" End Sub Листинг 3.65. Использование разделителя по разрядам Sub ThreeNullSepatator() Selection.NumberFormat = " #, ##" End Sub Листинг 3.66. Изменение формата Sub ChangeNumerFormatEx() Selection.NumberFormat = " #, ##0.00" End Sub Помещение последнего символа ячейки над строкой Листинг 3.67. Помещение последнего символа над строкой Sub LastCharUp() ' Изменение расположения последнего символа ячейки With ActiveCell.Characters(Start: =Len(Selection), Length: =1).Font .Superscript = True End With End Sub Создание нестандартной рамки Листинг 3.68. Нестандартная рамка Sub ChangeSelGrid() ' Оформление границ выделения ' Левая граница With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With ' Правая граница With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With ' Верхняя граница With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With ' Нижняя граница With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With
' Изменение сетки внутри выделения ' Вертикальные линии сетки With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With ' Горизонтальные линии сетки With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub
|