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

Страницы: 1
Непустые ячейки текстового формата содержащие цифры
 
Павел \Ʌ/, спасибо, учитель! ) Я допёр, всё получилось

А в чем прикол, почему апостроф к определённым именам книг присваивается, а к другим нет?
Изменено: rain_day - 08.06.2024 13:41:31
Непустые ячейки текстового формата содержащие цифры
 
Павел \Ʌ/, спасибо Вам, работает великолепно, но с одной интересной загадкой. Как Вы понимаете имя книг 1 и 2 это для примера. На самом деле они имеют названия типа 01-01-02. Так вот с такими именами книг перестаёт работать. При чем старая формула работает, а новая вообще не видит книгу-источник

Если книгу 1 переименовать в "01-01-02.xlsx", а в книге 2 в ячейке А2 указать имя "01-01-02" - ничего не работает
Если книга называется "1.xlsx", а в книге 2 в ячейке А2 указать имя "1" - всё работает

Будьте добры, подскажите как сделать что бы не было ограничений на имя книги. Их много, и имена у них все разные. Переименовывать не вариант
Изменено: rain_day - 08.06.2024 13:19:57
Непустые ячейки текстового формата содержащие цифры
 
Здравствуйте. Сделал с горем пополам две книги. В книге 2 в столбце Е заполняются данные из книги 1 из столбца А, при этом берутся непустые ячейки. Но я никак не могу добиться того что бы брались не только непустые, а только те, которые содержат цифры. Причем неважно какой формат ячейки и с каким разделителем цифры.


В книге 2 в столбце Е использую формулу массива:
=ЕСЛИОШИБКА(ДВССЫЛ("'["&$A$2&".xlsx]"&"Смета"&"'!"&"A"&НАИМЕНЬШИЙ(ЕСЛИ(ЕПУСТО(ДВССЫЛ("'["&$A$2&".xlsx]"&"Смета"&"'!"&"$A$"&$B$3&":$A$999"));"";СТРОКА(ДВССЫЛ("'["&$A$2&".xlsx]"&"Смета"&"'!"&"$A$"&$B$3&":$A$999")));СТРОКА(A1)));"")

Пытаюсь что-то придумать с использованием СЧЁТ(ПОИСК({1:2:3:4:5:6:7:8:9:0};A1))>0 или СЧЁТ(ПОИСК({1:2:3:4:5:6:7:8:9:0};A1))=0. Ничего не получается.


Прошу помощи. Как сделать что бы в книге 2 в столбце Е были только цифры?
Изменено: rain_day - 08.06.2024 09:01:26
Защитить ячейки со ссылками на незащищённый диапазон
 
RAN, не годится. Нужно что бы их можно было копировать
Защитить ячейки со ссылками на незащищённый диапазон
 
Странно. Когда я 2 раза щелкаю по защищенной ячейке, вылезает сообщение о её защите. Я жму ОК, после чего оказывается выделенной та ячейка, на которую ссылается защищённая
Защитить ячейки со ссылками на незащищённый диапазон
 
Скажите пожалуйста, как защитить ячейки со ссылками на незащищённый диапазон? Вот защитил я диапазон ячеек. При попытке изменить ячейку C5, выходит сообщение о том что нельзя этого сделать, и перебрасывает меня в диапазон, на который ссылается ячейка C5. Как этого избежать? Что бы он просто не давал редактировать защищённые ячейки никуда не перебрасывая и не выделяя другие диапазоны. Желательно, что бы вообще не выводил сообщение о защите, а просто нельзя было их изменить, но можно скопировать.
Вроде как можно сконвертировать xls в exe, но бесплатных конвертеров я не нашел.
Изменено: rain_day - 23.10.2016 10:26:21
Копирование из другой книги без привязки к имени текущей
 
Hugo, спасибо. У меня сработало thisworkbook. Ваш вариант, наверное, хорош, но я не понял чем он лучше первого. Я не спец.

Скажите пожалуйста, что б темы не плодить уж. Вот защитил я диапазон ячеек. При попытке изменить ячейку A1, выходит сообщение о том что нельзя этого сделать, и перебрасывает меня в диапазон, на который ссылается ячейка A1. Как этого избежать? Что бы он просто не давал редактировать защищённые ячейки никуда не перебрасывая и не выделяя другие диапазоны.
Копирование из другой книги без привязки к имени текущей
 
МатросНаЗебре, спасибо
Копирование из другой книги без привязки к имени текущей
 
Есть такой макрос, который в текущую книгу "Нагрузки.xlsm" копирует данные из книги "1.xls". Подскажите пожалуйста, как сделать, что бы не было привязки к конкретному названию текущей книги, что бы макрос работал, если изменить название "Нагрузки.xlsm"? Имя книги я здесь использую что бы после копирования данных вернуться в книгу "Нагрузки"



Код
Sub Комбинация_1()

'убрать мерцание экрана
 Application.ScreenUpdating = False
  'переименовать текущий лист из ячейки В2
  
'проверка наличия имени у группы узлов
If IsEmpty(Range("B2")) = True Then
 MsgBox "Необходимо задать имя группе узлов в синей ячейке"

 Else
   
ActiveSheet.Name = Range("B2").Text

   
'проверка открытой книги
If IsBookOpen("1.xls") Then
      
       'очистить данные
 Columns("AM:AT").Select
    Selection.ClearContents
    
'Скопировать нужный диапазон в открывшейся книге на листе 1
Workbooks("1.xls").Activate
Workbooks("1.xls").Worksheets("Узлы").Range("A:H").Copy
'Активируем нужную нам книгу
Workbooks("Реакции.xlsm").Activate
 
'Выделяем и вставляем скопированные данные

     Range("AM1").Select
    ActiveSheet.Paste
    
    
'Закрываем книгу откуда мы скопировали данные
Workbooks("1.xls").Activate
ActiveSheet.Range("A1").Copy
Workbooks("1.xls").Close
 
 'если нет открытой книги
 Else
        MsgBox "Нет открытого файла с реакциями", vbInformation, "Сообщение"
    End If
 
 
 End If
End Sub
Изменено: rain_day - 21.10.2016 16:39:41
Страницы: 1
Наверх