Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Наутилус
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
данные из неоткрытого файла
 
#
08.11.2017 00:02:26
Спасибо, заработало !
 
Перейти    
данные из неоткрытого файла
 
#
07.11.2017 22:09:07
Цитата
Hugo написал:
Так самая наипростейшая "функция", просто вводите в ячейку = и тыкаете в ячейку другого файла. Затем тот другой можно закрыть.
То ли лыжи не едут...

Два окна, два файла. В одном в ячейке ввожу =
в другом тыкаю по ячейкам - обычный фокус на ячейку
возвращаюсь в первый файл - там открытая ячейка, в ней =

Т.е. файлы в окнах живут независимо и в обоих может быть открытая формула. Exel 2016

Если тыкать не в соседний файл, а на соседний лист, то вводится адрес ячейки
 
Перейти    
данные из неоткрытого файла
 
#
07.11.2017 00:01:43
возможно глупый вопрос, но..

что нужно поместить в ячейку, чтобы получить в ней содержимое из другого файла?
на листе с макросами кроме этой строки еще что-то должно быть?
 
Перейти    
данные из неоткрытого файла
 
#
06.11.2017 10:10:26
покажете как?
 
Перейти    
данные из неоткрытого файла
 
#
06.11.2017 02:24:58
Попробовал. А можно указывать относительный путь?  (например как в DOS)
Если да, то как будет выглядеть ссылка на данные из файла 1.xlsx, находящегося в том же каталоге, что и исходный файл?
 
Перейти    
Формула вместо результата вычисления
 
#
06.11.2017 02:21:19
решение через макрос тут http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=97794&...
по теме хочется все же узнать ответы:
1. что за странное поведение? http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=97778&...
2. как сделать относительную ссылку в обычном режиме ссылок http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=97778&amp...
Изменено: Наутилус - 06.11.2017 12:54:16
 
Перейти    
Автоматическое добавление даты для новой строки
 
#
06.11.2017 02:19:22
ответ тут http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=97794&amp...
 
Перейти    
Формула вместо результата вычисления
 
#
06.11.2017 01:36:38
Очень специфическое поведение.

Включаем режим ссылок R1C1

в новой строке
В столбец 2 вводим Люди Х
В столбец 3 число(любое)

все срабатывает верно

в новой строке
вводим в столбец 2 Галя
и видим знач во всех строках Люди Х

снова в новой строке
в столбец 2 Люди Х
в столбец 3 число
видим правильные цифры, но не во всех строках
еще раз введем в столбец 3 (в той же строке) число - теперь правильно везде

вот такие чудеса происходят )
Изменено: Наутилус - 06.11.2017 02:25:47
 
Перейти    
Запрос значения от пользователя и заполнение строки на его основании
 
#
06.11.2017 01:21:45
дату не проставляет слева. т.е. не копирует с верхней ячейки

поправил. вот что получилось. наверное криво, но работает )
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim lReply As Long
 
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B9999")) Is Nothing Then
    If Target = "Люди Х" Then
        Dim Znach1
        Znach1 = Application.InputBox("Введите 'Знач1'", Type:=1)
        If IsNumeric(Znach1) Then
            Application.EnableEvents = False
            Target.Offset(, 1) = Znach1
            Target.Offset(, 2) = Znach1 - Znach1 / 11
            Target.Offset(, 3) = (Znach1 - Target.Offset(, 2)) * 0.1
        End If
    End If
    If IsEmpty(Target) Then Exit Sub
      If WorksheetFunction.CountIf(Worksheets("Справочник").Range("Imena"), Target) = 0 Then
         lReply = MsgBox("Добавить новое имя " & _
                        Target & " в выпадающий список?", vbYesNo + vbQuestion)
         If lReply = vbYes Then
             Worksheets("Справочник").Range("Imena").Cells(Worksheets("Справочник").Range("Imena").Rows.Count + 1, 1) = Target
         End If
      End If
    End If
  Dim rg As Range, cell As Range
  Set rg = Intersect(Target, Range("B4:B1048576")):  If rg Is Nothing Then Exit Sub
  For Each cell In rg:   cell.Offset(0, -1) = IIf(IsEmpty(cell.Offset(0, -1)), cell.Offset(-1, -1), cell.Offset(0, -1)):  Next
  Application.EnableEvents = True
End Sub

Дату копирует только если она не заполнена. Для Люди Х запрашивает значение и вводит результат формул в нужные столбцы. Спасибо!
Изменено: Наутилус - 06.11.2017 02:18:25
 
Перейти    
Формула вместо результата вычисления
 
#
06.11.2017 00:54:55
gling я не знаю точно, как это работает, но работает точно. вот в этой статье описано подробно... ищу..
не могу найти. похоже вот эта http://www.planetaexcel.ru/techniques/1/38/

upd:

да, но в таком варианте и расчет формулы происходит только для C6, но в С12 например другое значение и по той же формуле должно быть рассчитано уже для С12

upd2:
перевел в режим ссылок R1C1 в настройках - посчитало!! )
даже в таком варианте =ВЫЧИСЛИТЬ(СМЕЩ(Справочник!R1C5;ПОИСКПОЗ(Выбор_имени;Imena;0)-0;0;1;1)) работает, т.е. ВЫЧИСЛИТЬ можно сразу в имена запихнуть
вопрос теперь как в обычном режиме указать относительную ссылку?
Изменено: Наутилус - 06.11.2017 12:53:54
 
Перейти    
Формула вместо результата вычисления
 
#
06.11.2017 00:45:12
Цитата
Sanja написал:
звучьте ЗАДАЧУ (наверное в другой теме)
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=97794&...

Честно сказать - решение, которое делается сейчас мне нравится больше. Имена у меня в любом случае используются, макрос не нужно допиливать
Изменено: Наутилус - 06.11.2017 00:46:06
 
Перейти    
Формула вместо результата вычисления
 
#
06.11.2017 00:36:11
Sanja Ну с этого началось - написать макрос. В нескольких темах пытался найти части решения и решение целиком. Никто не ответил. В итоге сейчас с макрофункцией почти работает )
 
Перейти    
Формула вместо результата вычисления
 
#
06.11.2017 00:31:59
ну наши с вами варианты отличаются только способом выбора формулы. Подозреваю что одно и то же, только написано по разному.
пример приложил. У меня Eval, тоже самое что у вас Результат
Изменено: Наутилус - 06.11.2017 00:37:56
 
Перейти    
Формула вместо результата вычисления
 
#
06.11.2017 00:03:46
Дак это как раз то что мне нужно! )

давайте тогда дальше разбираться
Код
Премия_товара=СМЕЩ(Товары!$F$1;ПОИСКПОЗ(Выбор_товаров;Tovari;0)-0;0;1;1)

дает (RC[-2]-RC[-1])*0.1
как раз нужная формула (она указана в таблице соответствий)
а вот следующая дает #ЗНАЧ!
Код
Eval_премия=ВЫЧИСЛИТЬ(Премия_товара)

В чем ошибка?

п.с. Была попытка:
Код
Премия_товара=ВЫЧИСЛИТЬ(СМЕЩ(Товары!$F$1;ПОИСКПОЗ(Выбор_товаров;Tovari;0)-0;0;1;1) )

тоже #ЗНАЧ!
Изменено: Наутилус - 06.11.2017 00:16:07
 
Перейти    
Формула вместо результата вычисления
 
#
05.11.2017 21:58:05
Не могу найти описание и разобраться. Что за функция ВЫЧИСЛИТЬ ? использована в вашем примере
 
Перейти    
Запрос значения от пользователя и заполнение строки на его основании
 
#
05.11.2017 16:13:20
Здравствуйте большие специалисты )

Помогите переделать макрос

При вводе в ячейку B значения "Люди Х" должно появиться окно-вопрос
Введите значение Знач1. Вводим значение, жмем ОК.
Это введенное значение вносим в столбец справа (знач1) от Наименования
в столбец справа через 1 от наименования (знач2) вносим по формуле =Знач1-Знач1/11
в столбец справа через 2 от наименования (знач3) вносим по формуле =(Знач1-Знач2)*0.1
в столбец справа через 3 от наименования (знач4) вносим по формуле =Знач3

Макрос для внесения даты в столбец слева от наименования должен сработать только если в ячейке с датой еще нет значения:
Код
  Dim rg As Range, cell As Range
  Set rg = Intersect(Target, Range("B4:B1048576")):  If rg Is Nothing Then Exit Sub
  For Each cell In rg:   cell.Offset(0, -1) = IIf(IsEmpty(cell), Empty, cell.Offset(-1, -1)):  Next

Макрос на добавление нового Имени в Справочник должен сработать только если введено не "Люди Х":
Код
Dim lReply As Long
 
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B9999")) Is Nothing Then
     If IsEmpty(Target) Then Exit Sub
       If WorksheetFunction.CountIf(Worksheets("Справочник").Range("Imena"), Target) = 0 Then
          lReply = MsgBox("Добавить новое имя " & _
                         Target & " в выпадающий список?", vbYesNo + vbQuestion)
          If lReply = vbYes Then
              Worksheets("Справочник").Range("Imena").Cells(Worksheets("Справочник").Range("Imena").Rows.Count + 1, 1) = Target
          End If
       End If
     End If
Макрос целиком (то что есть сейчас):
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim lReply As Long
 
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B9999")) Is Nothing Then
     If IsEmpty(Target) Then Exit Sub
       If WorksheetFunction.CountIf(Worksheets("Справочник").Range("Imena"), Target) = 0 Then
          lReply = MsgBox("Добавить новое имя " & _
                         Target & " в выпадающий список?", vbYesNo + vbQuestion)
          If lReply = vbYes Then
              Worksheets("Справочник").Range("Imena").Cells(Worksheets("Справочник").Range("Imena").Rows.Count + 1, 1) = Target
          End If
       End If
     End If
  Dim rg As Range, cell As Range
  Set rg = Intersect(Target, Range("B4:B1048576")):  If rg Is Nothing Then Exit Sub
  For Each cell In rg:   cell.Offset(0, -1) = IIf(IsEmpty(cell), Empty, cell.Offset(-1, -1)):  Next
End Sub


В версии 2003 не работает, сохранил пример в новой.
Изменено: Наутилус - 05.11.2017 17:10:09 (не с того листа макросы были. исправил)
 
Перейти    
Формула вместо результата вычисления
 
#
05.11.2017 12:02:04
да, спасибо большое!
 
Перейти    
Формула вместо результата вычисления
 
#
05.11.2017 00:26:06
Похоже, но это для 1 ячейки. А у меня в каждой строке

уточнил пример. нужно чтобы в столбце D были формулы без кавычек, которые берутся из соседнего листа
 
Перейти    
Формула вместо результата вычисления
 
#
04.11.2017 23:48:15
Дак нет, понятно что так можно.
Но Вась, петь и прочих много. Формул у них тоже. Формулы могут меняться. Поэтому хочу брать нужную формулу из отдельной таблицы
 
Перейти    
Формула вместо результата вычисления
 
#
04.11.2017 23:36:58
Дело в том, что в зависимости от условия, формулы разные

Примерно так: если в ячейке E1 вася, то в D1 =A1*B1
а если в E1 петя, то D1=A1+B1

И есть таблица соответствия, где указаны формулы для васи и пети
Изменено: Наутилус - 04.11.2017 23:37:51
 
Перейти    
Автоматическое добавление даты для новой строки
 
#
04.11.2017 23:31:59
как сделать чтобы если ячейка с датой заполнена, то процедура не выполнялась?

делаю так:
Код
  If IsEmpty(cell.Offset(0, -1)) Then
  For Each cell In rg:   cell.Offset(0, -1) = IIf(IsEmpty(cell), Empty, cell.Offset(-1, -1)):  Next
  End If

ошибка
Изменено: Наутилус - 04.11.2017 23:45:30
 
Перейти    
данные из неоткрытого файла
 
#
04.11.2017 23:20:33
Цитата
Hugo написал: самая наипростейшая "функция"
При следующем пересчете данные будут получены из указанного файла?
 
Перейти    
данные из неоткрытого файла
 
#
04.11.2017 22:59:20
Помогите, не могу найти. Автор форума где-то описывал функцию, позволяющую получать данные из другого файла, даже если он не открыт.

ткните в этот гайд пожалуйста
(фалы конечно эксельные)
 
Перейти    
Формула вместо результата вычисления
 
#
04.11.2017 22:55:11
Как сделать, чтобы в ячейку попал не результат вычисления формулы, а сама формула и согласно этой формуле было вычислено значение ячейки
 
Перейти    
Суммесли для ОДНОГО из нескольких условий
 
#
04.11.2017 21:47:52
Цитата
Bema написал:
Проверьте эту формулу:
=СУММ(СУММЕСЛИ(B1:B31;{"Вася":"Петя"};C1:C31))
Великолепно. Спасибо. Понимать бы еще, что все это значит...

В случае с СУММЕСЛИМН такой трюк пройдет? хочу допилить еще интервал по датам
 
Перейти    
Суммесли для ОДНОГО из нескольких условий
 
#
04.11.2017 21:25:50
Цитата
Bema написал:
может Вы пример покажете?
Эм.. конечно. Просто он такой примитивный, думал необязательно
 
Перейти    
Суммесли для ОДНОГО из нескольких условий
 
#
04.11.2017 20:44:14
Цитата
Catboyun написал:
=СУММЕСЛИ(B5:B99999;"Вася";C5:C99999)+СУММЕСЛИ(B5:B99999;"Петя";C5:C99999)
А если вась с петями много? Нет варианта через точку с заяптой? Диапазоны у них общие
 
Перейти    
Суммесли для ОДНОГО из нескольких условий
 
#
04.11.2017 20:36:35
Цитата
Bema написал:
Заверните в СУММ и введите как формулу массива. ИЛИ тоже лишнее.
можно пример?
 
Перейти    
Суммесли для ОДНОГО из нескольких условий
 
#
04.11.2017 20:15:53
=СУММЕСЛИ(B5:B99999;"Вася";C5:C99999)
работает верно

а вот
=СУММЕСЛИ(B5:B99999;ИЛИ("Петя";"Вася");C5:C99999)
дает всегда 0 и при пошаговом вычислении формулы
ИЛИ("Петя";"Вася") дает #знач!

Как исправить? Нужно суммировать ячейки у которых Вася или Петя
 
Перейти    
Совместное редактирование файла в Excel 2016
 
#
02.11.2017 00:10:05
Неужели никто не пользуется?
 
Перейти    
Страницы: 1 2 След.
Наверх