Чат kullun
kullun (off) Хозяин
18 июня 2018, 14:51
Говорящий рабочий лист
Function SAYIT(txt)
Application.Speech.Speak (txt)
SAYIT = txt
End Function
Эта функция носит развлекательный характер, но может использоваться и в серьезных
целях. Например, ее можно включить в следующую формулу:
=IF(SUM(А:А)>25000,Saylt("Цель достигнута "))
Если сумма значений в столбце А превышает 25000, вы услышите синтезированный
голос, сообщающий о том, что цель достигнута.
-----
kullun (off) Хозяин
7 июня 2018, 01:25
Возвращает целое число, соответствующее
' цвету ячейки
FILLCOLOR = cell.Range("Al").Interior.Colorlndex
-----
kullun (off) Хозяин
7 июня 2018, 01:25
Получение информации о форматировании ячейки
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
-----
kullun (off) Хозяин
7 июня 2018, 01:12
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
-----
kullun (off) Хозяин
7 июня 2018, 01:03
MsgBox IslnCollection(ActiveWorkbook.Names, "Data")
MsgBox IslnCollection(Workbooks, "budget.xlsx")
MsgBox IslnCollection(ActiveWorkbook.Worksheets, "Лист1")
-----
kullun (off) Хозяин
7 июня 2018, 01:01
ПРОВЕРКА ПРИНАДЛЕЖНОСТИ К КОЛЛЕКЦИИ
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
-----
kullun (off) Хозяин
7 июня 2018, 00:53
Функция 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
-----
kullun (off) Хозяин
7 июня 2018, 00:52
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
-----
kullun (off) Хозяин
7 июня 2018, 00:51
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
-----
kullun (off) Хозяин
7 июня 2018, 00:50
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
-----
стр. Пред. 1,2,3,4,5,6 ... 12,13,14 След.
0.027 сек
SQL: 3