Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час функция:
Public Function FUN_CLEAR_Range(Str_Range As String) ' диапазон на этом листе On Error GoTo FUN_CLEAR_Range_Error '---------------------------------------------------------------------------------- Set OOO_Range = OOO_Sheet.getCellRangeByName(Str_Range) ' очистка всех значений в диапазоне OOO_Range.clearContents (1 Or 2 Or 4) 'FlagsVALUE = 1 FlagsDATETIME = 2 FlagsSTRING = 4 OOO_Range.Merge (False) ' объединить-true разьединить - False ячейки диапазона '---------------------------------------------------------------------------------- On Error GoTo 0 Exit Function FUN_CLEAR_Range_Error: Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), "Error " & Err.Number & " (" & Err.Description & ") in procedure FUN_CLEAR_Range of Module OOO_MOD") End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.