Чат kullun

Говорящий рабочий лист
Function SAYIT(txt)
Application.Speech.Speak (txt)
SAYIT = txt
End Function


Эта функция носит развлекательный характер, но может использоваться и в серьезных
целях. Например, ее можно включить в следующую формулу:
=IF(SUM(А:А)>25000,Saylt("Цель достигнута "))
Если сумма значений в столбце А превышает 25000, вы услышите синтезированный
голос, сообщающий о том, что цель достигнута.

Возвращает целое число, соответствующее
' цвету ячейки
FILLCOLOR = cell.Range("Al").Interior.Colorlndex

Получение информации о форматировании ячейки

Function ISBOLD(cell) As Boolean
' Возвращает значение ИСТИНА, если ячейка выделена полужирным
ISBOLD = cell.Range ("Al").Font.Bold
End Function


В версии Excel 2010 появился но-
вый объект под названием Display Format. Он учитывает наличие условного формати-
рования. Ниже показан код функции ISBOLD, которая может обрабатывать полужирный
формат, являющийся результатом применения условного форматирования.

Function ISBOLD(cell) As Boolean
' Возвращает ИСТИНА даже в случае условного форматирования
ISBOLD = cell.Range("Al").DisplayFormat.Font.Bold
End Function

Следующая функция возвращает значение ИСТИНА, если используемая в качестве аргу-
мента ячейка выделена курсивом.
Function ISITALIC(cell) As Boolean
' Возвращает ИСТИНА, если ячейка выделена курсивом
ISItALIC = cell.Range("Al").Font.Italic
End Function

Sub test4()
'Application.ScreenUpdating = False
For r = 1 To 100
For c = 1 To 12
'a = Cells(r, c).Address
Cells(r, c) ="x"
Next c
Next r
End Sub

MsgBox IslnCollection(ActiveWorkbook.Names, "Data")

MsgBox IslnCollection(Workbooks, "budget.xlsx")

MsgBox IslnCollection(ActiveWorkbook.Worksheets, "Лист1")

ПРОВЕРКА ПРИНАДЛЕЖНОСТИ К КОЛЛЕКЦИИ

Private Function IsInCollection(Coin As Object, _
Item As String) As Boolean
Dim Obj As Object
On Error Resume Next
Set Obj = Coin(Item)
IsInCollection = Not Obj Is Nothing
End Function

Функция WorkbooklsOpen
Функция принимает один аргумент (название рабочей книги) и возвращает ИСТИНА,
если данная рабочая книга открыта.
Private Function WorkbooklsOpen(wbname) As Boolean
' Возвращает ИСТИНА, если рабочая книга открыта
Dim х As Workbook
On Error Resume Next
Set x = Workbooks(wbname)
If Err.Number = 0 Then WorkbooklsOpen = True _
Else WorkbooklsOpen = False
End Function

Private Function SheetExists(sname) As Boolean
' Возвращает ИСТИНА, если рабочий лист существует в активной
' рабочей книге
Dim х As Object
On Error Resume Next
Set x = ActiveWorkbook.Sheets(sname)
If Err.Number = 0 Then SheetExists = True _
Else SheetExists = False
End Function

Private Function RangeNameExists2(nname) As Boolean
' Возвращает ИСТИНА, если имя диапазона существует
Dim n As Range
On Error Resume Next
Set n = Range(nname)
If Err.Number = 0 Then RangeNameExists2 = True _
Else RangeNameExists2 = False
End Function

Private Function RangeNameExists(nname) As Boolean
' Возвращает ИСТИНА, если имя диапазона существует
Dim n As Name
RangeNameExists = False
For Each n In ActiveWorkbook.Names
If UCase(n.Name) = UCase(nname) Then
RangeNameExists = True
Exit Function
End If
Next n
End Function