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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 250 След.
Неспособность application.findformat жить внутри пользовательской функции VBA, Application.findformat не рабоает внутри функции
 
пользовательские функции не могут мегять значения и форматы других ячеек
возможно формат FindFormat'а то же не могут менять
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Создание связи между ячейками, и определение переменной откуда куда копируется значение
 
да, если добавите колонку, напрмер перед 10-й, то С = 15, нужно руками исправить на С = 16
код макроса не исправиться самостоятельно, как код формул, когда добавили(удалили) строки(столбцы)
Используйте не константу, а вычисляйте С, если есть возможность его вычислить
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Помогите найти ошибку в простенькой формуле СУММЕСЛИ, Формула СУММЕСЛИ, не могу понять как делать.
 
если обязательно СУММЕСЛИ, то
Код
=СУММЕСЛИ(Лист2!$A$1:$A$4;Лист1!A1;Лист2!$B$1:$B$4)+СУММЕСЛИ(Лист2!$A$1:$A$4;Лист1!A1;Лист2!$C$1:$C$4)
а если интересуют варианты по-проще, то они есть...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Функции листа, работающие по принципу Select Case и Split
 
Цитата
buchlotnik написал:
а splita  нету, периодически это бесит
Join, которого сильно не хватало, появился в офисе 2019 и 365
и split добявят, надеюсь))) решили что ТекстаПоКолонкам достаточно, но его в формулу не засунешь(((

ВЫБОР - вот аналог Select Case
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Заполнение данных из одной таблицы в другую., Циклами в циклах и массивами.
 
просто вместо того чтобы лаконично и точно описать задачу вы были слишком сосредоточены на описании своего решения этой задачи
написано,
- что вы осваиваете VBA
- о массивах,
- о разочаровании с Find
- о количестве данных
- и еще о чем-то
нет только четкого описания задачи
код у вас есть, добавьте строку, поправьте несколько и все готово)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формы выдает ошибку при переносе данных из textbox в ячейки
 
Код
Private Sub CommandButton1_Click()
  ActiveCell.FormulaR1C1 = TextBox1
  ActiveCell.Offset(0, 1) = TextBox2
  If IsNumeric(TextBox3) _
  Then ActiveCell.Offset(0, 2) = CDbl(Me.TextBox3) _
  Else MsgBox "TextBox3 = " & TextBox3 & "  не число!", vbCritical
  If IsNumeric(TextBox4) _
  Then ActiveCell.Offset(0, 3) = CDbl(Me.TextBox4) _
  Else MsgBox "TextBox4 = " & TextBox4 & "  не число!", vbCritical
  If IsNumeric(TextBox5) _
  Then ActiveCell.Offset(0, 4) = CDbl(Me.TextBox5) _
  Else MsgBox "TextBox5 = " & TextBox5 & "  не число!", vbCritical
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Заполнение данных из одной таблицы в другую., Циклами в циклах и массивами.
 
см. вложение
Код
Sub FillB()
  Const t$ = "Авария! Исправьте данные!!!"
  Dim r&, rc&, a, b, c, d, k&()
  Set d = CreateObject("Scripting.Dictionary")
  rc = Cells(Rows.Count, 7).End(xlUp).Row
  a = Range(Cells(1, 8), Cells(rc, 7))
  For r = 1 To UBound(a)
    If d.exists(a(r, 1)) Then
      b = d(a(r, 1)): ReDim Preserve b(0 To UBound(b) + 1)
    Else
      ReDim b(0 To 1): b(0) = d.Count
    End If
    b(UBound(b)) = r: d(a(r, 1)) = b
  Next
  c = Range(Cells(1, 1), Cells(rc, 2)): ReDim k(0 To d.Count - 1)
  For r = 0 To UBound(k): k(r) = 1: Next
  For r = 1 To rc
    If Not d.exists(c(r, 1)) Then _
    MsgBox "A" & r & " = " & c(r, 1) & vbLf & _
    "неожиданное значение!?!", vbCritical, t: Exit Sub
    n = d(c(r, 1))(0)
    If k(n) > UBound(d(c(r, 1))) Then _
      MsgBox "А" & r & " = " & c(r, 1) & vbLf & _
      "лишнее значение!", vbCritical, t: Exit Sub
    c(r, 2) = a(d(c(r, 1))(k(n)), 2): k(n) = k(n) + 1
  Next
  Range(Cells(1, 1), Cells(rc, 2)) = c
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формы выдает ошибку при переносе данных из textbox в ячейки
 
Юра, могу допустить, что в представлении  Deluxа из коровы должно получиться довольно большое число

проблемыDeluxа нужно разбивать на элементарные и обьяснять их, похоже, по другому ничего не получится.
обстоятельно обьяснять, с цитатами или ссылками на документацию, с примерами и пр.
трудно человеку обьяснять что такое интегралы, если он еще не освоил сложение простых чисел и ничего не знает о существовании таблицы умножения
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формы выдает ошибку при переносе данных из textbox в ячейки
 
смотрел "Уральских пельменей", закрыл перешел в эту тему, тут веселее
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Не менять ссылку при копировании формул
 
Цитата
DJMC написал:
Копирование формулу по всему листу
на листе 16 миллиардов ячеек - не многовато-ли будет формул на листе?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Генераторы отчетов из эксель в эксель
 
да есть, такой генератор отчетов называется VBA
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сохранение результатов поиска "найти"
 
это должно поискать в во внешнем файле
1. открываете этот файл с макросом
2. устанавливаете условия поиска
3. открываете файл с данными, делаете его активным
4. Alt+F8, находите FINDValues и выполняете ее
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как значение переменной внедрить в текст?
 
название темы:
как значение переменной внедрить в текст?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать количество без повторений
 
укажите другие диапазоны
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать количество без повторений
 
см. J17. K17
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать количество без повторений
 
введите как формулу массива
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать количество без повторений
 
=сумм(1/счетесли(...))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как значение переменной внедрить в текст?
 
название темы:
как найти ошибку в формуле, если ошибки в формуле нет,,а есть ошибка а записи ячейки в которую нужно эту формулу вставить?
или
можно-ли использовать запятую в качестве разделителя между именем обьекта и свойством  (методом) обьекта?
или
помогите сосчитать точки, запятые, открывающиеся, закрывающиеся скобки, кавычки, а то у меня где-то ошибка в макросе а я ее не вижу
или
требуются глазастые специалисты которые могут отличить точку от запятой и понимают где, согласно синтаксиса VB нужно писать точки, а где запятые
Изменено: Ігор Гончаренко - 16 сен 2020 23:03:20
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Фича с пятой строкой Excel, Автозаполнение формулы в 5-й строке.
 
в корень зрите
пишите в Майкрософт - они поменяют, если внемлют просьбе
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При закрытии формы лишний раз появляется сообщение
 
дел
Изменено: Ігор Гончаренко - 16 сен 2020 21:35:50
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сохранение результатов поиска "найти"
 
давайте так: - вы нам яблоки, мы вам - помощь
(куда высылать яблоки написано у меня в профиле)
Изменено: Ігор Гончаренко - 17 сен 2020 02:33:24
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Фича с пятой строкой Excel, Автозаполнение формулы в 5-й строке.
 
не важно успел об этом написать Николай Павлов или нет
посмотрите в дополнительных параметрах есть там пункт:
"Расширять форматы и формулы в диапазонах данных"
если есть снимите галку (птичку) избавитесь от "фичи 5-й строки")
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При закрытии формы лишний раз появляется сообщение
 
Цитата
Геннадий написал:
Проблема -  MsgBox появляется второй раз
Какое свойство/способ/хитрость нужно?
замените программиста (пока без файла)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Цитата
Молодое_Поколение написал:
понял не ругайтесь
извините
но это реально очевидные вещи и очень странно что об этом вообще нужно писать, особенно молодому поколению, которое уже давно должно было впитать эти принципы поиска ошибок в коде
когда мои макросы начинают работать криво, причина ВСЕГДА не в Microsoft, который дал в руки инструмент для работы, а в программисте, который не умеет им пользоваться, начиная с опечаток и ошибок в логике и заканчивая не желанием почитать документацию и вникнуть, что в ней написано
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Цитата
Молодое_Поколение написал:
Возможно ли такое что все дело именно в файле
очень возможно  как и многое другое
но кому интересно гадать а что же может быть если можно просто посмотреть а что там в файле
что-то с Excel. что-то с офисом, что-то с версиями, что-то с Windows, что-то с компьютером не так?
только не что-то в моем макросе, или что-то в моих данных? в том, что в этой проблеме внесено вашими руками!!!
у вас отличное направление мыслей - проблема в любых внешних факторах, только не в том что сделал я

так вы будете ее долго искать...
вы задаете вопрос что не так в макросе? где ошибка?
какая там ошибка? 10 строк кода все перед глазами и в конце концов мой файл в котором ВСЕ работает!
логические цепочки умеете строить? выявлять причинно следственные связи?
перестаньте впитывать всякое, а сосредоточтесь на поиске причины
руками скопируйте этот диапазон, скопировали? и при чем тут макрос?
Цитата
Молодое_Поколение написал:
Последнее время экселю плохо
все время Excelю нормально, последнее время особенно нормально
проблема не в Excel, проблема в пользователях бестолково его эксплуатирующих (нельзя пытаться лететь на вертолете винтом вниз и косить кукурузу для этого есть комбайн)
проблема не VBA, а в криво написанном КОНКРЕТНОМ макросе, который не учитывает особенности данных с которыми работает
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
не работает в том файле что я выслал или в вашем файле?
есть проблема - нужно искать причины а не паниковать и впадать в отчаяние.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
вас учило старшее поколение что врать - не хорошо?
какая ошибка?
работал и ваш макрос, но я убрад с него лищнее, суть  действий осталась прежняя, и этот
Код
Sub ИНФО_ПОСТЫ()
  With Worksheets("Запрос")
    .Range("AK1:AFF1010").Copy
    .Range("AGR1:BLM1010").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
  End With
End Sub
работает. открывайте файл, проверяйте
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как скрыть строки таблицы не содержащие текст, внесенный в контрольные ячейки над таблицей?
 
название темы:
как скрыть строки таблицы не содержащие текст, внесенный в контрольные ячейки над таблицей?
ответ см. в  сообщении #2
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выбор определенного значения из диапазона по условию, Помогите с формулой выбора определенного значения из диапазона по условию. Файл прилагаю.
 
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как скрыть строки таблицы не содержащие текст, внесенный в контрольные ячейки над таблицей?
 
видите-ли, в программировании не бывает так что данные у меня такие, или может такие или вообще такие что я еще не определился программирование это о чем-то конкретном
был бы пример файла - в нем было бы видно текстбоксы там или ячейки и стало бы понятно к чему обращаться....
с точки зрения простоты кода вариант с ячейками - предпочтительнее (на мой взгляд)
Код
Private Sub worksheet_Change(ByVal rg As Range)
  Dim urg As Range, c As Range, a, lk$, r&
  If rg.Row > 1 Then Exit Sub
  For Each c In rg
    a = Intersect(c.EntireColumn, Me.UsedRange)
    lk = "*" & IIf(IsEmpty(c), "", c & "*")
    For r = 2 To UBound(a)
      If Not a(r, 1) Like lk Then _
        If urg Is Nothing Then Set urg = Cells(r, 1) _
           Else Set urg = Union(urg, Cells(r, 1))
    Next
  Next
  If Not urg Is Nothing Then urg.EntireRow.Hidden = True
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 250 След.
Наверх