• Гигабайты ценной информации. Присоединяйся.
    У нас действительно всё бесплатно, включая ChatGPT/DALLE/VISION)

Добрый робот идёт на помощь, есть вопрос? Не тяни, да всю суть изложи. ChatGPT

Интересная технология? Нужна ли она нам.

  • Крутая, оставляй пока есть возможность.

    Голосов: 104 94,5%
  • Игрушка на время. Не верю я в эти технологии.

    Голосов: 6 5,5%

  • Всего проголосовало
    110
  • Опрос закрыт .

Roman_krsk

Пользователь
Регистрация
15 Мар 2021
Сообщения
17
Реакции
2
Ra
325
@Добрый робот (ChatGPT) напиши текст предвыборной листовки кандидата на выборах. целевая аудитория жители юга москвы, старше 30 лет. цель листовки чтобы прочитавший выбрал данного кандидата на выборах
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT) напиши текст предвыборной листовки кандидата на выборах. целевая аудитория жители юга москвы, старше 30 лет. цель листовки чтобы прочитавший выбрал данного кандидата на выборах
Уважаемые жители Юга Москвы,
Я, [имя кандидата], объявляю свою кандидатуру на выборах в [название должности]. Я хочу быть вашим представителем и бороться за интересы нашего района. Я знаю, что наш район имеет свои особенности и проблемы, и я хочу быть голосом, который будет слышен и действовать в вашу пользу.
Я обладаю опытом работы в [указать релевантный опыт работы], что доказывает мою способность решать проблемы и добиваться результатов. Я также имею прекрасную команду профессионалов, которые будут работать со мной, чтобы выполнить обещания, которые я делаю вам.
Мои приоритеты включают в себя [указать основные проблемы района, которые кандидат хочет решить]. Я буду работать на благо нашего района, чтобы улучшить его условия жизни и сделать его более безопасным и процветающим.
Я глубоко убежден, что могу быть тем кандидатом, который будет наиболее эффективным в решении проблем нашего района. Я прошу вас поддержать меня на выборах и дать мне возможность быть вашим представителем. Я готов слушать вас, работать для вас и достигать результатов вместе с вами.
С уважением,
[имя кандидата]
 

Roman_krsk

Пользователь
Регистрация
15 Мар 2021
Сообщения
17
Реакции
2
Ra
325
@Добрый робот (ChatGPT) напиши текст поста в социальной сети с обьявлением о том, что по определенному адресу осуществляется сбор гуманитарной помощи жителям донбасса, пострадавшим от боевых действий. текст должен мотивировать участвовать в сборе гуманитарной помощи. текст должен быть составлен в милтон модели нлп
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT) напиши текст поста в социальной сети с обьявлением о том, что по определенному адресу осуществляется сбор гуманитарной помощи жителям донбасса, пострадавшим от боевых действий. текст должен мотивировать участвовать в сборе гуманитарной помощи. текст должен быть составлен в милтон модели нлп
Уважаемые друзья!
Мы хотим поделиться с вами возможностью помочь людям, которые пострадали от боевых действий на Донбассе. Сейчас им необходима наша помощь, и мы можем сделать многое, чтобы облегчить их страдания.
По этому адресу: [адрес] осуществляется сбор гуманитарной помощи для жителей Донбасса. Это включает в себя продукты питания, одежду, лекарства и другие необходимые вещи. Ваша помощь может стать незаменимым источником поддержки для тех, кто нуждается в нашей помощи.
Мы знаем, что каждый из нас может внести свой вклад в эту благородную и важную миссию. Давайте объединим усилия и покажем, что мы можем быть сильными и эффективными в решении гуманитарных проблем.
Поэтому, присоединяйтесь к нам в этой важной миссии и внесите свой вклад. Вместе мы можем сделать многое для тех, кто нуждается в нашей помощи. Спасибо вам за вашу доброту и солидарность!
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT)
Почему сосулька - сосулька, если она изо льда, а леденец - леденец, если он не изо льда, но его сосут?
Это игра слов, основанная на различии в значениях слов "сосулька" и "леденец".
Сосулька - это конструкция изо льда, которая образуется в результате таяния
 

buska

Активный
Регистрация
9 Сен 2020
Сообщения
124
Реакции
139
Ra
903
@Добрый робот (ChatGPT)
Какие специальности будут актуальны для людей в 2040-х годах, тоесть через 20 лет? В каких областях невозможно заменить людей на роботов или нейросеть?
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT)
Какие специальности будут актуальны для людей в 2040-х годах, тоесть через 20 лет? В каких областях невозможно заменить людей на роботов или нейросеть?
Прогнозирование того, какие специальности будут актуальны через 20 лет, является сложным заданием, поскольку быстро меняющаяся экономика и технологические изменения могут значительно повлиять на то, какие навыки и профессии будут востребованы.
Однако, некоторые тенденции, которые сегодня можно наблюдать, могут указать на то, какие профессии могут сохранять свою актуальность в будущем:
  • Специалисты по технологиям и искусственному интеллекту (AI): С развитием и использованием AI, машинного обучения и автоматизации, растет потребность в специалистах, которые могут разрабатывать, управлять и обслуживать эти технологии.
  • Специалисты по кибербезопасности: Рост числа кибератак и уязвимостей в системах заставляет компании и организации уделять большее внимание безопасности. Как следствие, спрос на специалистов по кибербезопасности продолжит расти в будущем.
  • Медицинские работники: В связи с демографическими изменениями и увеличением числа стареющего населения, повышается спрос на медицинские услуги. Некоторые специальности, такие как медсестры, врачи и техники, будут особенно востребованы в будущем.
  • Эксперты по устойчивому развитию: Каждый день мы сталкиваемся с угрозами климатических изменений, уменьшением природных ресурсов и другими экологическими проблемами. Эксперты по устойчивому развитию будут всегда востребованы для поиска решений и разработки новых технологий.
Относительно вопроса о том, какие области невозможно заменить людей на роботов или нейросеть, следует отметить, что многие профессии, требующие творческого мышления, способности к анализу и принятию решений на основе эмоций и этики, будут трудно заменить на автоматизированные системы. Например, работа в сфере искусства, дизайна, со
 

zuvl

Особенный
Спасибо от Разулы
Регистрация
1 Окт 2019
Сообщения
726
Реакции
2.351
Ra
2.109
@Добрый робот (ChatGPT) Что делает эта строка подробно из макроса в листе excel
Cells(i, "C").Resize(k - j + 1) = Evaluate("ROW(R" & j & ":R" & k & ")")
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT) Что делает эта строка подробно из макроса в листе excel
Cells(i, "C").Resize(k - j + 1) = Evaluate("ROW(R" & j & ":R" & k & ")")
Эта строка кода используется для заполнения столбца C в диапазоне ячеек, начиная с ячейки (i, "C"), до ячейки, соответствующей размеру, определяемому методом Resize.
Конкретно, эта строка кода заполняет столбец C ячеек, начиная с ячейки (i, "C"), значениями, соответствующими номерам строк в диапазоне строк в столбце R, определяемом строками от j до k.
То есть, метод Evaluate используется для создания массива из номеров строк в столбце R от j до k, и затем этот массив используется для заполнения столбца C в указанном диапазоне ячеек.
Кроме того, метод Resize используется для задания размера диапазона ячеек, который нужно заполнить. В данном случае, размер диапазона определяется вычитанием j из k и добавлением 1, чтобы учитывать первую строку.
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT) Что делает эта строка подробно из макроса в листе excel
Dim i&, s$(), j&, k&
Эта строка объявляет несколько переменных в VBA (Visual Basic for Applications), языке программирования, используемом для написания макросов в Excel.
Вот, что означает каждое объявление переменной:
  • "Dim i&": объявляет переменную i как целое число (integer).
  • "s$()": объявляет переменную s как массив строк (string array).
  • "Dim j&": объявляет переменную j как целое число (integer).
  • "Dim k&": объявляет переменную k как целое число (integer).
Знак "&" после каждого объявления переменной означает, что тип данных переменной является целочисленным.
Объявление массива строк "s$()" означает, что s - это массив, то есть набор элементов, каждый из которых является строкой. После объявления этого массива, можно будет использовать переменную s для хранения набора строк.
Объявление переменных является важным шагом в написании макросов, так как это позволяет явно указать тип данных переменных и оптимизировать использование памяти в программе.
 

zuvl

Особенный
Спасибо от Разулы
Регистрация
1 Окт 2019
Сообщения
726
Реакции
2.351
Ra
2.109
@Добрый робот (ChatGPT)
Что делает эта строка подробно из макроса в листе excel
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
s = Split(Cells(i, "D"), "-")
If UBound(s) > 0 Then
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT)
Что делает эта строка подробно из макроса в листе excel
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
s = Split(Cells(i, "D"), "-")
If UBound(s) > 0 Then
Эта строка кода - это начало цикла for в языке VBA для Excel. Он используется для выполнения повторяющихся действий на листе Excel. Давайте рассмотрим каждую строку по порядку:
  • For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1 - это начало цикла for. i - это переменная, которая будет использоваться для итерации через строки в диапазоне. Cells(Rows.Count, "A").End(xlUp).Row означает, что мы начинаем с последней строки в столбце "A" и движемся вверх до первой строки в столбце "A". Step -1 означает, что мы будем двигаться вверх по строкам в столбце "A".
  • s = Split(Cells(i, "D"), "-") - это используется для разделения значения в ячейке "D" на несколько значений, используя дефис как разделитель. Результат разделения сохраняется в массиве s.
  • If UBound(s) > 0 Then - это условный оператор, который проверяет, имеет ли массив s более одного элемента. UBound(s) возвращает индекс последнего элемента в массиве s. Если индекс последнего элемента больше 0, значит в массиве есть более одного элемента.
Здесь не хватает закрывающей строки для оператора If, поэтому дальнейший код не может быть точно определен. Однако, скорее всего, код будет выполняться только в том случае, если в ячейке "D" содержится текст, разделенный дефисами на несколько значений.
 

zuvl

Особенный
Спасибо от Разулы
Регистрация
1 Окт 2019
Сообщения
726
Реакции
2.351
Ra
2.109
@Добрый робот (ChatGPT)
Что делает эта строка подробно из макроса в листе excel
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
s = Split(Cells(i, "D"), "-")
If UBound(s) > 0 Then
j = s(0): k = s(1)
Rows(i + 1).Resize(k - j).Insert
Cells(i, "A").Resize(, 5).Copy Cells(i + 1, "A").Resize(k - j)
Cells(i, "C").Resize(k - j + 1) = Evaluate("ROW(R" & j & ":R" & k & ")")
Else
Cells(i, "D").Copy Cells(i, "C")
End If
Next
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT)
Что делает эта строка подробно из макроса в листе excel
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
s = Split(Cells(i, "D"), "-")
If UBound(s) > 0 Then
j = s(0): k = s(1)
Rows(i + 1).Resize(k - j).Insert
Cells(i, "A").Resize(, 5).Copy Cells(i + 1, "A").Resize(k - j)
Cells(i, "C").Resize(k - j + 1) = Evaluate("ROW(R" & j & ":R" & k & ")")
Else
Cells(i, "D").Copy Cells(i, "C")
End If
Next
Эта строка кода является частью макроса в листе Excel. Давайте рассмотрим, что происходит по шагам:
  • For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
    Здесь устанавливается цикл for, который перебирает строки в столбце A, начиная с последней заполненной ячейки и заканчивая первой строкой. Эта строка используется для итерации по всем строкам в обратном порядке.
  • s = Split(Cells(i, "D"), "-")
    Здесь содержимое ячейки D в текущей строке разбивается на две части, используя символ "-" в качестве разделителя, и результаты сохраняются в массиве.
  • If UBound(s) > 0 Then
    Здесь проверяется, был ли разделитель найден в ячейке D текущей строки. Если разделитель найден, условие выполняется.
  • j = s(0): k = s(1)
    Здесь первый и второй элементы массива, содержащего результаты разбиения, сохраняются в переменные j и k соответственно.
  • Rows(i + 1).Resize(k - j).Insert
    Здесь вставляются новые строки в таблицу, чтобы сделать место для строк, которые будут скопированы из текущей строки. Количество вставляемых строк равно разнице между k и j.
  • Cells(i, "A").Resize(, 5).Copy Cells(i + 1, "A").Resize(k - j)
    Здесь содержимое текущей строки, начиная с ячейки A и заканчивая ячейкой E, копируется в новые строки, которые были вставлены на шаге 5.
  • Cells(i, "C").Resize(k - j + 1) = Evaluate("ROW(R" & j & ":R" & k & ")")
    Здесь заполняется столбец C во вставленных строках значениями, которые являются последовательностью целых чисел от j до k.
  • Else
    Если разделитель не найден в ячейке D текущей строки, то выполняется этот блок кода.
  • Cells(i, "D").Copy Cells(i, "C")
    Здесь содержимое ячейки D текущей строки копируется в ячейку C в той же строке.
  • Next
    Это закрывающая строка цикла for, которая указывает на то, что мы закончили перебирать все строки в таблице.
 

zuvl

Особенный
Спасибо от Разулы
Регистрация
1 Окт 2019
Сообщения
726
Реакции
2.351
Ra
2.109
@Добрый робот (ChatGPT)
Как строку ячейки А1 в виде
26 43 6 25 15 5
excel разбить по цифрам через разделитель " " пустое место и вставить полученные цифры в ячейки B1, C1, D1, E1, F1, G1. через макрос
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT)
Как строку ячейки А1 в виде
26 43 6 25 15 5
excel разбить по цифрам через разделитель " " пустое место и вставить полученные цифры в ячейки B1, C1, D1, E1, F1, G1. через макрос
Вы можете использовать следующий макрос в Excel, чтобы разделить строку в ячейке A1 на цифры и вставить их в другие ячейки:vbnet
Код:
Sub SplitAndInsert()
    Dim str As String
    Dim arr() As String
    Dim i As Integer
    
    str = Range("A1").Value
    arr = Split(str, " ")
    
    For i = 0 To UBound(arr)
        Cells(1, i + 2).Value = arr(i)
    Next i
End Sub
Этот макрос сначала считывает строку из ячейки A1 в переменную str, затем разделяет ее на отдельные цифры, используя пробел в качестве разделителя, и сохраняет каждую цифру в массив arr. Затем он использует цикл For для перебора каждой цифры в массиве arr и вставки ее в соответствующую ячейку на строке 1, начиная со второй ячейки.
Вы можете выполнить этот макрос, выбрав Tools > Macro > Macros в меню Excel, выбрав SplitAndInsert в списке макросов и нажав кнопку Run. Вы также можете назначить этот макрос на кнопку или сочетание клавиш для быстрого запуска.
 

zuvl

Особенный
Спасибо от Разулы
Регистрация
1 Окт 2019
Сообщения
726
Реакции
2.351
Ra
2.109
@Добрый робот (ChatGPT)
Как через макрос значения столбика А
26 43 6 25 15 5
43 37 4 47 8 38
48 50 40 21 26 24
25 50 6 10 40 11
36 28 46 13 16 42
18 46 48 29 11 17
20 19 47 15 23 13
39 28 5 35 23 6
30 32 41 9 46 4
41 26 27 49 40 20
30 38 46 25 35 23
33 11 35 21 23 9
29 39 38 28 13 25
11 16 33 9 45 12
51 50 15 7 41 36
8 39 47 1 31 49
42 16 51 12 9 10
40 1 21 49 48 27
20 46 35 19 4 11
32 1 47 8 40 28
49 35 43 21 46 27
33 49 42 28 35 6
27 21 46 28 35 15
31 42 3 38 43 49
10 49 23 40 26 46
12 42 37 18 43 35
в листе Excel разбить по цифрам через разделитель " " пустое место и вставить полученные цифры в ячейки столбцов B, C, D, E, F, G.
 

Добрый робот (ChatGPT)

Всезнайка
Лелеять и любить
Особенный
Регистрация
27 Фев 2023
Сообщения
1.904
Реакции
312
Ra
255
@Добрый робот (ChatGPT)
Как через макрос значения столбика А
26 43 6 25 15 5
43 37 4 47 8 38
48 50 40 21 26 24
25 50 6 10 40 11
36 28 46 13 16 42
18 46 48 29 11 17
20 19 47 15 23 13
39 28 5 35 23 6
30 32 41 9 46 4
41 26 27 49 40 20
30 38 46 25 35 23
33 11 35 21 23 9
29 39 38 28 13 25
11 16 33 9 45 12
51 50 15 7 41 36
8 39 47 1 31 49
42 16 51 12 9 10
40 1 21 49 48 27
20 46 35 19 4 11
32 1 47 8 40 28
49 35 43 21 46 27
33 49 42 28 35 6
27 21 46 28 35 15
31 42 3 38 43 49
10 49 23 40 26 46
12 42 37 18 43 35
в листе Excel разбить по цифрам через разделитель " " пустое место и вставить полученные цифры в ячейки столбцов B, C, D, E, F, G.
Для того чтобы разбить значения столбца А на цифры и вставить их в соответствующие ячейки столбцов B-G в Excel, можно использовать макрос.
Вот пример макроса, который можно использовать:vbnet
Код:
Sub SplitNumbers()
    Dim i As Long, j As Long
    Dim values() As String
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        values = Split(Cells(i, "A").Value, " ")
        For j = 1 To UBound(values) + 1
            Cells(i, j + 1).Value = values(j - 1)
        Next j
    Next i
End Sub
Этот макрос выполняет следующие действия:
  • Проходит по всем строкам, начиная с первой и до последней заполненной строки в столбце А.
  • Разбивает значение в каждой строке на отдельные числа, используя пробел в качестве разделителя, и сохраняет эти числа в массив.
  • Затем макрос проходит по этому массиву чисел и вставляет каждое число в соответствующую ячейку столбцов B-G в текущей строке.
Чтобы запустить этот макрос, необходимо открыть Visual Basic Editor в Excel (например, нажав на клавишу Alt + F11), скопировать код макроса и вставить его в модуль. Затем нужно сохранить файл в формате .xlsm и запустить макрос, выбрав его из списка макросов в Excel.
 

Теги по которым нашли тему

  1. chatgpt
  2. шишонин
  3. робот
  4. Написать игру
  5. растяжка
  6. Крадник
  7. Хроники Акаши
  8. опционы
  9. Таро
  10. массаж
Сверху