Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Не работает выпадающий список в excel 2007
 
Ну до этой публикации я б этом ещё не знал)
Не работает выпадающий список в excel 2007
 
Код я убедился что на список не влияет, но в других версиях список работает а в 2007 нет. Пришлось на каждом файле сформировать список заново проверкой данных.
Не работает выпадающий список в excel 2007
 
Так какого тогда оно может не работать в 2007 excel ?
Не работает выпадающий список в excel 2007
 
Здравствуйте, есть файлик excel с двумя листами на одном таблица с данными на другом словарь с которого берутся данные в выпадающий список на каждой ячейки в определенном столбце. Вообщем работает во всех версиях office кроме 2007, даже в libbreoffice работает.
Код
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit

Sub OpenDialog()
''' Процедура формирования гипперссылки
Dim strAddres As String, Vl
strAddres = fnOpenTextFile
If Len(strAddres) > 0 Then
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=strAddres
End If
End Sub

Public Function fnOpenTextFile(Optional sTitle As String = "Выбор файла", _
                               Optional MultiSelectFiles As Boolean = False)
''' Функция диалога выбора файла _
 по умолчанию выбор любого файла, выбор одного файла
  fnOpenTextFile = Application.GetOpenFilename _
                  ("????? ????? (*.*),*.*", , sTitle, , MultiSelectFiles)
End Function

Подскажите где подправить макрос чтоб это все заработало?

Автофильтр более 10000 строк, Оптимизация работы с автофильтром с объемом строк более 10000
 
Здравствуйте, хотел обратиться с таким же вопросом, похожая ситуация только строк в листе около 150000 и нужно выбрать нужные строки на новый лист или книгу. Хотел воспользоваться макросом предложенным KuklP

Private Sub Worksheet_Change(ByVal Target As Range)  
  If Target.Address <> [g3].Address Then Exit Sub
  Call Mfind([g3])
End Sub  

Sub Mfind(c As Range)  
  Dim X As Range, r As Range, fA$  
  If c.Text <> "" Then  
      Sheets(2).UsedRange.Clear  
      Set X = Me.UsedRange.Columns(4).Find(c.Text & "*", LookAt:=xlWhole)  
      If Not X Is Nothing Then  
          Set r = X  
          fA = X.Address  
          Do  
              Set X = Me.UsedRange.Columns(4).FindNext(X)  
              Set r = Application.Union(r, X)  
          Loop While Not X Is Nothing And X.Address <> fA  
          r.EntireRow.Copy Sheets("Лист2").[a1]
          Me.[a2].Select
          Sheets("Лист2").Activate  
      End If: End If  
End Sub  


но не получается его применить на практике, не пойму как он работает. Вставляю его в исходный текст Лист1 нажимаю запуск макроса он мне показывает окно создать новый макрос.

Приложу пример своей урезанной таблицы (выбрать строки нужно по названию выделенным красным), может кто объяснит как его правильно использовать!
Изменено: Денис Корсачёв - 17.12.2020 09:25:05
Страницы: 1
Наверх