![]() |
|
Курилка Автомобили, хобби, спорт. И Garik77 с металлоискателем. Коммерция запрещена. |
![]() |
|
Опции темы |
![]() |
#11 | |
Senior Member
Профессор
Регистрация: 22.06.2020
Сообщений: 685
Сказал(а) спасибо: 95
Получил(а) "Спасибо": 310
Нарушения: 0/0 (0)
Репутация: 336447
|
![]() Цитата:
ps. если серьезно, это не только без доходов оставит. с начало окончательно человечности лишит, а чуть позже и жизни. останется на планете один триллиорнер оператор роботов. будет с ними секесом заниматься плавая на алмазной яхте по морю из виски... коров доить не умеют а у же куда то роботами управлять прутся идиоты родители уже колонку с Алисой дитю ставят вместе того чтобы самим с ним поиграть.. и радуются... Чучело и вырастит в итоге.... |
|
![]() |
![]() |
![]() |
#12 |
Senior Member
Доцент
Регистрация: 23.06.2020
Сообщений: 490
Сказал(а) спасибо: 1,926
Получил(а) "Спасибо": 2,516
Нарушения: 0/0 (0)
Репутация: 80425
|
![]()
И продолжение с уточнением.
мне нужно изменить значение ячейки excel Чтобы изменить значение ячейки в таблице Excel средствами VBA, можно использовать свойство Value объекта Range. Например, следующий код изменит значение ячейки A1 на листе 1 в активной книге на "Новое значение": Код:
Sub ChangeCellValue() ' Получаем доступ к ячейке A1 на листе 1 Dim cell As Range Set cell = ActiveWorkbook.Sheets(1).Range("A1") ' Устанавливаем новое значение ячейки cell.Value = "Новое значение" End Sub Если вы хотите изменить значение нескольких ячеек одновременно, можно использовать объект Range для указания диапазона ячеек, которые нужно изменить. Например, следующий код изменит значения ячеек A1 и B1 на листе 1 в активной книге на "Новое значение" и "Еще одно новое значение", соответственно: Код:
Sub ChangeMultipleCellValues() ' Получаем доступ к диапазону ячеек A1:B1 на листе 1 Dim cells As Range Set cells = ActiveWorkbook.Sheets(1).Range("A1:B1") ' Устанавливаем новые значения ячеек cells.Value = Array("Новое значение", "Еще одно новое значение") End Sub |
![]() |
![]() |
![]() |
#13 |
попробуй отними
Профессор
Регистрация: 14.07.2020
Сообщений: 905
Сказал(а) спасибо: 1,099
Получил(а) "Спасибо": 2,159
Нарушения: 0/0 (0)
Репутация: 757769
|
![]()
HappySoftX, не то, я же специально указал пользовательская функция и изменение в другой ячейке
т.е. на листе в ячейку ты вводишь функцию, например, в ячейку B1 =ИЗМЕНИТЬЗНАЧЕНИЕ(A1;D1) и в зависимости от введённого значения в A1 изменяется заливка (цвет) в ячейки D1 |
![]() |
![]() |
![]() |
#14 |
Senior Member
Доцент
Регистрация: 23.06.2020
Сообщений: 490
Сказал(а) спасибо: 1,926
Получил(а) "Спасибо": 2,516
Нарушения: 0/0 (0)
Репутация: 80425
|
![]()
Я же говорю напиши слово в слово запрос. Как спросить?
|
![]() |
![]() |
![]() |
#15 |
попробуй отними
Профессор
Регистрация: 14.07.2020
Сообщений: 905
Сказал(а) спасибо: 1,099
Получил(а) "Спасибо": 2,159
Нарушения: 0/0 (0)
Репутация: 757769
|
![]()
HappySoftX, я же написал
пользовательская функция изменяющая значение другой ячейки excel |
![]() |
![]() |
![]() |
#16 |
Senior Member
Доцент
Регистрация: 23.06.2020
Сообщений: 490
Сказал(а) спасибо: 1,926
Получил(а) "Спасибо": 2,516
Нарушения: 0/0 (0)
Репутация: 80425
|
![]()
Напиши код пользовательская функция изменяющая значение другой ячейки excel
В VBA можно написать пользовательскую функцию, которая будет изменять значение другой ячейки в таблице Excel. Для этого можно использовать объект WorksheetFunction, который предоставляет доступ к многим встроенным функциям Excel. Вот пример кода пользовательской функции, которая устанавливает новое значение ячейки A1 на листе 1 в активной книге равным произведению двух аргументов функции: Код:
Function ChangeCellValue(ByVal arg1 As Double, ByVal arg2 As Double) As Double ' Получаем доступ к ячейке A1 на листе 1 Dim cell As Range Set cell = ActiveWorkbook.Sheets(1).Range("A1") ' Устанавливаем новое значение ячейки cell.Value = arg1 * arg2 ' Возвращаем новое значение ячейки ChangeCellValue = cell.Value End Function Обратите внимание, что эту функцию можно использовать в ячейке таблицы Excel, как и любую другую функцию, например, введя формулу =ChangeCellValue(2,3) в любой ячейке, что установит значение ячейки A1 в 6 и вернет значение 6 в текущую ячейку. Таким образом, эта функция изменяет значение ячейки A1, но ее результат можно использовать в любой другой ячейке таблицы. |
![]() |
![]() |
![]() |
#17 |
попробуй отними
Профессор
Регистрация: 14.07.2020
Сообщений: 905
Сказал(а) спасибо: 1,099
Получил(а) "Спасибо": 2,159
Нарушения: 0/0 (0)
Репутация: 757769
|
![]()
HappySoftX, бредо ответ
![]() правильные ответы https://vremya-ne-zhdet.ru/vba-excel...k-iz-funktsii/ https://www.excel-vba.ru/chto-umeet-...ugoj-yachejki/ https://www.planetaexcel.ru/forum/in...ID=91328&MID=s с разбором всех подводных камней ![]() |
![]() |
![]() |
![]() |
#18 |
попробуй отними
Профессор
Регистрация: 14.07.2020
Сообщений: 905
Сказал(а) спасибо: 1,099
Получил(а) "Спасибо": 2,159
Нарушения: 0/0 (0)
Репутация: 757769
|
![]()
HappySoftX, проблема в том что он не понимает что от него требуют
![]() он просто ищет наибольшее совпадения и выдаёт единственный ответ на данном этапе это вылечить невозможно |
![]() |
![]() |
![]() |
#19 | |
Senior Member
Доцент
Регистрация: 23.06.2020
Сообщений: 490
Сказал(а) спасибо: 1,926
Получил(а) "Спасибо": 2,516
Нарушения: 0/0 (0)
Репутация: 80425
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#20 |
Senior Member
Доцент
Регистрация: 23.06.2020
Сообщений: 490
Сказал(а) спасибо: 1,926
Получил(а) "Спасибо": 2,516
Нарушения: 0/0 (0)
Репутация: 80425
|
![]() |
![]() |
![]() |
![]() |
Опции темы | |
|
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
реклама seonews.ru, кто пробовал? | leonidukg | Разносортица | 3 | 15.08.2020 01:43 |