Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 274 След.
Перенос кода программно и сохранение в другом проекте, Перенос из проекта А в проект Б
 
День добрый.
Не могу справиться с сохранением кода в другой проект. Код переносится, но при закрытии книги не сохраняется. Подскажите пожалуйста, что делаю не так?
Скрытый текст
Изменено: Владимир - 18 Сен 2019 09:59:36
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Для кого придумана ветка "Работа"?, Рейтинг создают "старожилы", а пользуются <небольшая цензура> не знамо кто
 
Цитата
ikki написал:
Владимир пишет:Тебя кто-то заставляет что-ли, не дискутируй.чо, так тоже можно?
Простите....
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Как открыть книгу и достать все данные и вставить в другую?
 
Витя, здравствуй.
Игорь даёт удочку..
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
HB
 
Юрий, простите пожалуйста, Вы реально самый тутова крутой мужик. Нет понтов, и всё по делу.
Живите долго и не болейте пожалуйста. Долгих, Вам, лет и благоденствия.
Изменено: Владимир - 22 Июн 2018 23:28:39
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Поиск данных и вывод в строку
 
Можно и формулой, но это трудоёмко =
Код
 =ПРОСМОТР(СТРОКА(A2:$A$10);ЕСЛИ($G2=$A$2:$A$10;СТРОКА($A$2:$A$10));$C$2:$C$10)

Тут плюс нужна СЧЕТЕСЛИ()+ПРАВСИМВ(), ровно тогда это будет работать.

В примере написано количество 1, количество 2;
Ячейка 1; ..2.

К этому можно привязаться и решить. Вопрос: - а в реальности, ячейка 2, кол 3 существуют?
Как это бывает - но там ведь нет в реалии таких словесей..
А зачем тогда писать сложную формулу, когда предположительно Вы скажете, о ё..?????????
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
При вводе инвентарного номера заполнять название книги
 
=ВПР()
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Заявка на прописание формул в особом графике работы сотрудника excel
 
Если найдёте слова попроще, пишите. Деньги Моте.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Заявка на прописание формул в особом графике работы сотрудника excel
 
Если нужно просуммировать ["л";"б"]/["л";"б"], какой в этом смысл?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
О музыке.
 
Спасибо, Карен. Прослезился от твоей "видики-шмидики" давеча...
И тебе, дружище, всего доброго. Живи долго и счастливо. Не болей.
Господь - не Тимошка, видит немножко.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Благодарность Николаю Павлову, Реальное "спасибо" автору
 
SuperCat, Николай  = добрый, терпеливый человек. Давеча, таким как ты, подарил свои "мысли", с открытым кодом....может ты не заслужил...??
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
С наступающим 2018 годом ! ! !
 
Домик в деревне желаю и желанную рядом.. Пусть пироги печёт и детей рожает..
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
О вредном GoTo
 
Нет, по логике должен был выйти из For. Через Exit For проходит и всё равно на цикл уходит (на i переходит).
Код
For Each x In arrF.SpecialCells(-4144)
    If x Is Nothing Then Exit For
        i = i + 1
        ...
Next
А вот с такой конструкцией правильно получается:    
Код
For Each x In arrF.SpecialCells(-4144)
        If x Is Nothing Then
            Exit For
        Else
          ....
        End If
Next
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
О вредном GoTo
 
Точно. :)  
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
О вредном GoTo
 
Код
...
For y = 1 To Sheets.count
    Set arrF = Sheets(y).UsedRange.SpecialCells(-4123) 'определяем наличие ссылок (формул)
    kol = kol + arrF.SpecialCells(-4144).count 'определяем наличие комментов
    If kol = i Then GoTo 0 'если нет комментов на этом листе, то уходим к 0
    For Each x In arrF.SpecialCells(-4144)
        i = i + 1
        pathF = Replace(Replace(Split(arrF.Formula(1, 1), "]")(0), "[", ""), "='", "")
        Adr(i, 1) = Split(x.Comment.Text, ":")(0)
        Adr(i, 2) = Trim(Replace((Split(x.Comment.Text, ":")(1)), Chr(10), ""))
        Adr(i, 3) = Split(pathF, "\")(UBound(Split(pathF, "\")))
        Adr(i, 4) = Split(Split(arrF.Formula(1, 1), "]")(1), "'")(0)
    Next
0:
Next
...
Здесь нельзя использовать EXIT FOR, и т.к. более ничего не придумал, использую GOTO.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
О вредном GoTo
 
Код
for i=1to 5
      If Instr(...) then goto 0. ; Мне не нужно выходить EXIT FOR, мне нужно перейти на новый i+1 уровень.
0:
next
------------
Пока я эту проблему не решил, использую.
???
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
HB
 
Спасибо ребята. Простите меня пожалуйста. Просто простите и всё... Всего вам доброго.
Удачи. Здоровья. Я скоро вернусь..
----------------------
Серёжка, ты лучший. Уважаю и люблю тебя. С Днём рождения!
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Подсчет количества фамилий в столбце
 
Ничего страшного..бывает.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Скoлькo стoит час рабoты специалиста?
 
Мотя, это наш зёма - Первоуральский.. Крутой. Парсингом увлекается... Хотя для меня, - ты всё равно самая красивая.
Изменено: Владимир - 21 Окт 2017 04:44:27
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Если ВПР не помогает, ВПР, сравнение не точных текстовых списков
 
.. может не ИСТИНА, а...
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Подсчет количества фамилий в столбце
 
..для комфортно-визуального восприятия Вы могли бы рядом и мою неграмотную формулу показать. Согласитесь, когда они рядом всем проще - и людям и мне. А пока ничего не могу сказать.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Подсчет количества фамилий в столбце
 
Всё проще. Пост #3
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Подсчет количества фамилий в столбце
 
=СУММПРОИЗВ(($C$2:$C$13-$D$2:$D$13)*(E2:E13>0))
Изменено: Владимир - 20 Окт 2017 14:45:14
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Скoлькo стoит час рабoты специалиста?
 
У меня давеча случай был. Сделал работу и клиент начал торговаться:
- Давайте подешевле, Вы же это за 5 минут сделали.
Дык думаю, чтобы за 5 минут сделать, для этого годами этим нужно заниматься.
:qstn:  
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Автозаполнение нумерация с повторяющимся циклом
 
=ЕСЛИ(B2>0;1;C1+1)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
ВПР по нескольким условиям.
 
=ПРОСМОТР(2;1/((A3=$H$3:$H$5)*(C3=$I$3:$I$5));$J$3:$J$5)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
О погоде
 
Заказал на завтра незамерзайку, с ароматом яблока. Пора однако..
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Преобразование таблицы из 1 столбца в таблицу из 4 столбцов по определенному принципу
 
;СТРОКА($A1)*4+СТОЛБЕЦ(A$1)-4)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Среднее значение по условию, Вычисление среднего значения по всей строке, при условии, что в ней нет определнного числа. В противном случае возвращать 0
 
=СРЗНАЧЕСЛИ(C2:H2;">"&2;C2:H2)
Или так?
=ЕСЛИ(ЕЧИСЛО(ПОИСКПОЗ(2;C2:H2;0));;СРЗНАЧЕСЛИ(C2:H2;">"&2;C2:H2))
Изменено: Владимир - 19 Окт 2017 11:20:03
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Автонуммерация с учётом подгруппы, Порядковое присвоение номера с учётом нахождения в подгруппе
 
Дополните эту строку:If x > a Then y = 0: z = 0
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Автонуммерация с учётом подгруппы, Порядковое присвоение номера с учётом нахождения в подгруппе
 
Код
Sub NumbersRows()
Dim lstr&, i&, y&, x&, z&, a&, b&
lstr = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = True
Columns(6).NumberFormat = "@"
For i = 2 To lstr
    If Cells(i, 1).EntireRow.OutlineLevel = 1 Then x = x + 1
    If x > a Then y = 0
    If Cells(i, 1).EntireRow.OutlineLevel = 2 Then y = y + 1
    If y > b Then z = 0
    If Cells(i, 1).EntireRow.OutlineLevel = 3 Then z = z + 1
    Cells(i, 6) = Replace(CStr(x & "." & y & "." & z), ".0", "")
    a = x: b = y
Next
Application.ScreenUpdating = True
End Sub
Изменено: Владимир - 18 Окт 2017 17:22:36
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 274 След.
Наверх