Добрый день, появилась такая необходимость как запретить перетаскивание ячеек курсором, можно ли как-то запускать данный макрос только в той книге где он прописан?
Application.CellDragAndDrop = Falce
Application.CellDragAndDrop = Falce
28.03.2018 17:15:55
Добрый день. Можно, наверное, на событие открытия книги повесить эти инструкции.
Кому решение нужно - тот пример и рисует.
|
|
|
|
28.03.2018 17:18:11
Данный код применяется ко всем книгам Excel
Private Sub Workbook_Open() Application.CellDragAndDrop = Falce End Sub |
|
|
|
28.03.2018 17:27:58
В стандартный модуль:
В модуль "Эта Книга"
Автор кода: ZVI
Изменено:
Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!
|
|||||
|
|
28.03.2018 17:36:05
Ну просто супер!!! Спасибо !!!!
|
|
|
|
11.06.2022 21:19:03
Вот решение. Подскажите как заметить постоянный диапазон, на Selection?
Sub UNIC() Dim z, i& z = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Value With CreateObject("scripting.dictionary"): .CompareMode = 1 For i = 1 To UBound(z) If Not .exists(z(i, 1)) Then .Item(z(i, 1)) = 0: .Item(z(i, 1)) = .Count Next For i = 1 To UBound(z): Range("A" & i + 1) = .Item(z(i, 1)): Next End With End Sub
Изменено: |
||||
|
|
|||