Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
функция:

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