library LowLevelMouseHook;

uses
       Windows,
       Messages;

const
       WH_MOUSE_LL = 14;
       MMFName: PChar = 'MMF';

type
       PGlobalDLLData = ^TGlobalDLLData;
       TGlobalDLLData = packed record
         WndHook: HWND;
         Wnd: HWND;
       end;

type
      TMouseHookFilters = record
        BlockMouseMove: boolean;
        BlockLeftButton: boolean;
        BlockRightButton: boolean;
        BlockMiddleButton: boolean;
        BlockWheel: boolean;
        end;

var
       GlobalData: PGlobalDLLData;
       MMFHandle: THandle;
       Filters: TMouseHookFilters;
       MWM_LBUTTONDOWN: Cardinal;
       MWM_LBUTTONUP: Cardinal;

function LowLevelMouseProc(Code: Integer; wParam: DWORD; lParam: DWORD): Longint; stdcall;
begin
       if (Code = HC_ACTION) then
       begin
         if (wParam =  WM_LBUTTONDOWN) then
         begin
           SendMessage(GlobalData.Wnd, MWM_LBUTTONDOWN, 0, 0);
           if Filters.BlockLeftButton = True then
             Result := - 1
           else
             Result := CallNextHookEx(GlobalData^.WndHook, Code, wParam, lParam);
         end else
         if (wParam =  WM_LBUTTONUP) then
         begin
           SendMessage(GlobalData.Wnd, MWM_LBUTTONUP, 0, 0);
           if Filters.BlockLeftButton = True then
             Result := - 1
           else
             Result := CallNextHookEx(GlobalData^.WndHook, Code, wParam, lParam);
         end
         else
           Result := CallNextHookEx(GlobalData^.WndHook, Code, wParam, lParam);
       end;
end;

function StartMouseHook(State: Boolean; Wnd: HWND): Boolean; export; stdcall;
begin
       Result := False;
       if State = True then
       begin
         GlobalData^.WndHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, hInstance, 0);
         GlobalData^.Wnd := Wnd;
         if GlobalData^.WndHook <> 0 then
           Result := True;
       end
       else
       begin
         UnhookWindowsHookEx(GlobalData^.WndHook);
         Result := False;
       end;
end;

function StopMouseHook(): Boolean; export; stdcall;
begin
       UnhookWindowsHookEx(GlobalData^.WndHook);
       if GlobalData^.WndHook = 0 then
         Result := False
       else
        Result := True;
end;

function UpdateMouseHook(HookFilters: TMouseHookFilters): Boolean; export; stdcall;
begin
       Filters := HookFilters;
end;

procedure OpenGlobalData();
begin
       MWM_LBUTTONDOWN := RegisterWindowMessage('MWM_LBUTTONDOWN');
       MWM_LBUTTONUP := RegisterWindowMessage('MWM_LBUTTONUP');
       MMFHandle := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(TGlobalDLLData), MMFName);
       GlobalData := MapViewOfFile(MMFHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TGlobalDLLData));
       if GlobalData = nil then
         CloseHandle(MMFHandle);
end;

procedure CloseGlobalData();
begin
       UnmapViewOfFile(GlobalData);
       CloseHandle(MMFHandle);
end;

procedure DLLEntryPoint(Reason: DWORD);
begin
       case Reason of
         DLL_PROCESS_ATTACH: OpenGlobalData;
         DLL_PROCESS_DETACH: CloseGlobalData;
       end;
end;

exports StartMouseHook, StopMouseHook, UpdateMouseHook;

begin
       DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

MWM_LBUTTONDOWN := RegisterWindowMessage('MWM_LBUTTONDOWN');
MWM_LBUTTONUP := RegisterWindowMessage('MWM_LBUTTONUP');

     if StartMouseHook(true, Handle) = true then
              HookEnable := true;

procedure TForm1.WndProc(var Msg: TMessage)
{ отслеживаем нажатия левой кл. мыши } ;
begin
       inherited;
       if (Msg.Msg = MWM_LBUTTONDOWN{MWM_LBUTTONUP}) then
       begin
       ShowMessage('DOWN'{'UP'})
       end;
end;

Public Sub numbers()
With ActiveSheet.UsedRange
        For Each oCell In .Range("A:A,C:K,N:O")
            If oCell <> "" And Val(oCell) <> 0 Then
                oCell.Formula = Val(oCell)
            End If
        Next
End With
End Sub

For Each oCell In .Range("A:A,C:K,N:O")

For Each oCell In .Range("A:A,C:K,N:" & _
           Split(Columns(.Column + .Columns.Count - 1).Address(False, False), ":")(0))

Public Sub numbers()
With ActiveSheet.UsedRange
     For Each Rng In Array("A:A", "C:K", "N:O")
         For Each ocell In .Range(Rng).Rows(.Row & ":" & .Row + .Rows.Count - 1).Cells
             If ocell <> "" And Val(ocell) <> 0 Then
                 ocell.Formula = Val(ocell)
             End If
         Next
     Next
End With
End Sub

ТЕКСТ(4*30;"ММММ")

=МЕСЯЦ(A1)

=МЕСЯЦ(СЕГОДНЯ())

=(ПОИСК(ПСТР(A1;2;2);"anebarprayunulugepctovec")+1)/2

=(ПОИСК(ПСТР(A1;2;2);"нвеварпрайюнюлвгенктояек")+1)/2

=СУММ(ЕСЛИОШИБКА((ПОИСК(ПСТР(A1;2;2);{"нвеварпрайюнюлвгенктояек";"anebarprayunulugepctovec"})+1)/2;0))

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("№ ЗР";Диаграмма!$A$39;"Дата";ТЕКСТ(4*30;"ММММ");"фирма";"Юнтел";"Дата_Отчет";"Дата";"Роки";2014)

Application.CommandBars("cell").Enabled = False

Application.CommandBars(29).Enabled = False
Application.CommandBars(32).Enabled = False

Application.CommandBars("cell").Enabled = True

Application.CommandBars(29).Enabled = True
Application.CommandBars(32).Enabled = True

Public Sub numbers()
For Each oCell In ActiveSheet.UsedRange.Cells
     If oCell <> "" And Val(oCell) <> 0 Then
         oCell.Formula = Val(oCell)
     End If
Next
End Sub