Прицел для Excel.

[agregator]

Здравствуйте, программисты. При заполнении таблицы большого размера бывает сложно попасть в нужную ячейку. Можно ли сделать прицел под вид, который показан на картинке "Прицел вид" (крест пунктиром), или как то ещё? В "Примере прицела" вариант, который выделяет крест цветом, но есть минус, он убирает заливку ячеек цветом.

[EducatedFool]

Поглядите это: http://www.excel-vba.ru/MyAddin_Koord_Selection.html
И это: http://www.planetaexcel.ru/tip.php?aid=61

[Igor67]

Как то на форуме выкладывали решение надстройкой. Посмотрите.

[agregator]

Спасибо, Igor67, хороший прицел. Как Вы ставите свой значок на кнопку панели инструментов?

[agregator]

Всем здрасти. Напишите, как поставить свой значок на кнопку панели инструментов.

[0mega]

to agregator
При работе с большими таблицами я пользуюсь "прицелом", который входит в комплект Exscel
Чтоб "шапка таблицы" не убегала при прокрутке скролинга надо:
1. щелкнуть мышкой в нужном месте таблицы
2. Верхняя панель. Окно=>Закрепить области
После этой манипуляции желтый и зеленый сектора не будут прокручиваться скролингом (обратите внимание на порядок алфавита и цифровое значение строк)

[avtopark]

Сообщение от agregator

Всем здрасти. Напишите, как поставить свой значок на кнопку панели инструментов.

серфис-надстройки-обзор указать путь к настройке-ок

[agregator]

0mega, спасибо, о закреплении области я знаю.

[agregator]

Вернее вопрос такой. Как макросом добавить кнопку на панели инструментов со своей картинкой?
Я знаю как добавить кнопку написав номер значка (Add_Control_Ex ShapesCB, 1, 579, "Выкл_таскать", "Выкл_таскать", True).

[EducatedFool]

Как макросом добавить кнопку со своей картинкой. Я знаю как добавить кнопку написав номер значка

А где у Вас эта картинка? В файле? Или на листе excel?

В любом случае, можно подгрузить картинку для значка из графического файла:

Function Add_Control_Ex(ByRef menu, ByVal B_Type As Integer, ByVal B_Face As Integer, _
                        ByVal On_Action As String, ByVal B_Caption As String, _
                        Optional ByVal Begin_Group As Boolean = False, Optional Tag As String = "") _
                        As CommandBarControl
    ' добавляет контролы в меню menu ' type=1 - это кнопка, type=4 - это комбобокс, 10 - popup
    On Error Resume Next
    Set Add_Control_Ex = menu.Controls.Add(B_Type, , , 1)
    With Add_Control_Ex
        If B_Face > 0 Then .FaceId = B_Face:
        .Tag = Tag: .OnAction = On_Action: .Caption = B_Caption: If Begin_Group Then .BeginGroup = True
    End With
End Function

Sub ФормированиеПанелиИнструментов()
    On Error Resume Next: Application.ScreenUpdating = False
    Application.CommandBars.Add(Name:="Размеры").Visible = True
    For i = 1 To 1000: DoEvents: Next
    Dim ShapesCB As CommandBar:    Set ShapesCB = Application.CommandBars("Размеры")
    For Each co In ShapesCB.Controls: co.Delete: Next
    ShapesCB.Visible = True: ShapesCB.Controls(1).BeginGroup = True

    Add_Control_Ex ShapesCB, 1, 23, "OpenCommPred", "Открыть комм. предложение", True
    ПутьКФайлуКартинки = "E:\Excel\joda3.bmp"
    ShapesCB.Controls(1).Picture = LoadPicture(ПутьКФайлуКартинки)
End Sub