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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 239 След.
Изменение части текста в ячейке (string, range, superscript), Форматирование текста в ячейке при помощи функции
 
нельзя
пользуйтесь написанным Sub formatcell_superscript
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Ранжирование позиций по итогам двух тестов
 
нет, без обьяснений - никак
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как посчитать количество Да за указанный период времени
 
Код
=СУММПРОИЗВ((A2:G5594="Да")*(H2:H5594>=J1)*(H2:H5594<=L1))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как посчитать количество Да за указанный период времени
 
название темы:
как посчитать количество Да за указанный период времени

ответ;
=СУММПРОИЗВ(...)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как посчитать количество Да за указанный период времени
 
=СУММПРОИЗВ(...)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить имя диаграммы, Нужно вывести имя выделенной диаграммы на листе
 
Цитата
Dis Dis написал:
Короче - "иностранец"
тут есть возможность на русском обьяснить что хотите получить в итоге
вам покажут как это будет выглядеть на VBA
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Присвоение цвета ячейке с датой от количества дней в другой
 
у меня полно этих формул:
=СЕГОДНЯ()-СсылкаНаЯчейку > 6
=СЕГОДНЯ()-СсылкаНаЯчейку > 4
=СЕГОДНЯ()-СсылкаНаЯчейку > 2
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Присвоение цвета ячейке с датой от количества дней в другой
 
короткий ответ: можно
чуть шире: а что подтягивать-то? СЕГОДНЯ() постоянно доступна
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
vba скопировать формулу из одной ячейки в другую
 
Цитата
Иван Иванов написал:
Вопрос: как скопировать формулу?
ответ
не нужно копировать формулу, присвойте ячейке текст формулы
Код
cells(r,c).formula = cells(ro,co).formula
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Представить рубли числом, а копейки прописью
 
я тут неоднократно публиковал свою ПРОПИС
она умеет прописываь все что угодно,
причем
42 коп., может написать как сорок две копейки
51 коп. как пятьдесят одна копейка
а 65 коп как шестьдесят пять копеек
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
На точечную диаграмму с отрезками добавить длину каждого отрезка
 
можно.
по расценкам на мою работу это 1300 руб.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
[ Закрыто] Собственные формулы в Excel, Помогите, пожалуйста, с тем, как лучше оформить подсчеты, чтобы не вручную делать
 
любая формула, которую вы напишете в Excel автоматически становится вашей собственной формулой
дерзайте, удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Суммировать значения, стоящие рядом в строке с выводом каждого результата в отдельную ячейку
 
задача сформулирована очень расплывчато (со множеством неизвестных), решение невозможно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как заставить макрос копирования из одной книги в другую, работать только с одним листом?
 
 а такой итоговый код не проканает?
Код
 Dim CopyTo As Range
  With Workbooks.Open ("Отчёт.xlsm") .Worksheets(1)
    Set CopyTo = .Cells(.UsedRange.SpecialCells(11).Offset(1).Row, 1)
  End With
  With Workbooks.Open("1.xlsx").Worksheets(1)
    .Range(.Range("A3"), .Range("A3").SpecialCells(11)).Copy CopyTo
  End With
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Отобразить показатели по выбранным "единице" и "магазину" (таблицы магазинов на разных листах)
 
vonBlomberg,
вы хотите на лист Расчет написать 4000 х 24 = 100тыс. формул чтобы получить данные с нужного листа
вместо того чтобы 1 формулой просто вычислить ссылку на нужные данные и использовать ее в ЛЮБЫХ расчетах?

отличная идея!
другими словами, на кой вам нужны все эти данные на листе Расчет, если они УЖЕ есть на других листах???
Изменено: Ігор Гончаренко - 2 Июн 2020 18:03:45
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подставить значение при совпадении двух условий
 
вычислить
Код
=ИНДЕКС(C9;МИН(ЕСЛИ(ИНДЕКС(C7;ПОИСКПОЗ(R[2]C;C7;)+1):ИНДЕКС(C7;ПОИСКПОЗ(R[2]C;C7;)+6)=R[3]C;СТРОКА(ИНДЕКС(C7;ПОИСКПОЗ(R[2]C;C7;)+1):ИНДЕКС(C7;ПОИСКПОЗ(R[2]C;C7;)+6)))))
(формула массива)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос для удаления файла, путь к которому указан в ячейке
 
невозможно сложить слово ВЕЧНОСТЬ из букв О П Ж А
а удалить файл, имя которого записано в А1 - легко))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Отобразить показатели по выбранным "единице" и "магазину" (таблицы магазинов на разных листах)
 
vonBlomberg,
по вашей теме есть две новости:
1. (плохая)
преодолеть системное ограничение Excel вы не сможете ни при каких обстоятельствах. максимум 64 - значит 64
2. (хорошая)
если математика нашла ответ на такой парадоксальный вопрос сколько КВАДРАТНЫХ метров помещается в КРУГЛОМ круге, когда обычный житейский опыт говорит что НЕ ВОЗМОЖНО замостить круглый бассейн квадратной плиткой даже при наличии у нас в неограниченных количествах квадратных плиток любых размеров
найдется решение и для вашей задачи, если в след. теме сможете обьяснить что за задачу вы решаете.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как заставить макрос копирования из одной книги в другую, работать только с одним листом?
 
Код
  Dim CopyTo As Range
  With ThisWorkbook.Worksheets(1)
    Set CopyTo = .Cells(.UsedRange.SpecialCells(11).Offset(1).Row, 1)
  End With
  With Workbooks.Open("1.xlsx").Worksheets(1)
    .Range(.Range("A3"), .Range("A3").SpecialCells(11)).Copy CopyTo
  End With
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При нажатии на ToggleButton1 все остальные ToggleButtons на форме должны принять значение false кроме ToggleButton1
 
все решаемо)
а для начала можете удалить строки с Application.EnableEvents = ...
это никак не решает вашу задачу, но реально эти строки там не нужны
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При нажатии на ToggleButton1 все остальные ToggleButtons на форме должны принять значение false кроме ToggleButton1
 
таки-да(((
а так:
Код
Private Sub ToggleButton1_Click()
  Dim x As Control
  For Each x In UserForm1.Controls
    If TypeOf x Is msforms.ToggleButton _
     And x.Name <> "ToggleButton1" Then x.Value = False
  Next
  ToggleButton1 = True
End Sub
Изменено: Ігор Гончаренко - 29 Май 2020 02:05:39
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При нажатии на ToggleButton1 все остальные ToggleButtons на форме должны принять значение false кроме ToggleButton1
 
Код
Private Sub ToggleButton1_Click()
  Dim x As Control
  Application.EnableEvents = False
  For Each x In UserForm1.Controls
    If TypeOf x Is msforms.ToggleButton Then x.Value = False
  Next
  ToggleButton1 = True
  Application.EnableEvents = True
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как начать поиск нужного значения с конца списка?, Список постоянно пополняется новыми значениями
 
у Вас не хватает знаний, у нас - данных. типичный замкнутый круг
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Почему переменные с одинаковыми значениями не видят друг друга?, и выполнение кода пропускает их одинаковые значения, может из-за кавычек, возвращаемых одной из переменных?
 
Внимание! уникальный случай
Домкрат, переубедил редактор VBA как правильно писать код! редактор запросил пощады и сдался
редактор отрекся от ереси увидел и уверовал в истинный код!
(все, кто думал, что только Чак Норрис может обыграть стенку в тенис прошу критично пересмотреть свои взгляды)
у всех есть шанс на спасение, нужно только раскаяться и поверить в всепобеждающую силу Истинного Кода
Изменено: Ігор Гончаренко - 28 Май 2020 18:31:04
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Почему переменные с одинаковыми значениями не видят друг друга?, и выполнение кода пропускает их одинаковые значения, может из-за кавычек, возвращаемых одной из переменных?
 
опа! в теме зашел разговор о 10р.
Код
            a = CStr(tbl.Cells(lngRowIndex - 1, "D").Value)                     
            For k = Nachalo To lngKonec Step 1
           ' данные для переменной   kODvD беру здесь:
             KodVd = CStr(ActiveSheet.Cells(k, 4).Value)
           ' В ОПРЕДЕЛЕННЫЙ МОМЕНТ УСЛОВИЕ ВЫПОЛНЯЕТСЯ: 9004109100 = 9004109100, 
            If KodVd = a Then
             Cells(k, 19) = Cells(k, 11)
         ' но код не видит , что условие выполнено, а постоянно пререходит на енд иф:
            End If
            Next
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как настроить двусторонние связи между таблицами, Попытки настроить обмен данными между таблицами
 
есть такая статья "VBA для чайников"
с нее и начните
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Расчет возраста на VBA
 
все правильно, в VBA, как в любом другом языке есть ограниченный набор базовых функций
и у вас есть мозг, который способен из этого ограниченного набора функций языка программирования составить неограниченное количество комбинаций
для получения требуемого результата достаточно разумно соединить эти два инструмента и.... готово!

функция HowOld посчитает возраст (в годах) на сегодня, если у казать только дату рождения (BD) и возраст на любую дату, если указать 2-й параметр
Код
Function HowOld(BD As Date, Optional OnTheDate As Date = 0)
  If OnTheDate = 0 Then OnTheDate = Date
  HowOld = Year(OnTheDate) - Year(BD) - _
  IIf(DateSerial(Year(OnTheDate), Month(BD), Day(BD)) <= OnTheDate, 0, 1)
End Function
Изменено: Ігор Гончаренко - 28 Май 2020 02:16:06
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверить, что в ячейках нет определенных символов.
 
7. не шлите больше, кошелек полный, из него все равно теперь все вываливается
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Передача аргументов пользовательской форме.
 
да, с "Войной и мир" в одном ТекстБоксе будет облом по любому
решение - скроллер в ТекстБоксе и по-барабану сколько в нем текста
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить номер строки внутри умной таблицы, зная адрес ячейки на Листе
 
конструкцию 3-2 (Х-У) вы до этого никогда не видели?
Изменено: Ігор Гончаренко - 27 Май 2020 21:38:33
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 239 След.
Наверх