Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Punter
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как найти одинаковые значения в ячейках
 
#
21.01.2023 11:35:19
Добрый день, коллеги.
Как написать формулу, которая при нахождении в шести ячейках одинаковые значение (если хоть одна ячейка равно любой другой из пяти оставшихся ячеек) присвоит значение 1, в противном случае 0?
Изменено: Punter - 21.01.2023 11:36:09
 
Перейти    
Транспонирование массива данных по определённому условию
 
#
21.01.2023 08:48:17
Доброго времени суток, уважаемые участники конференции. Прошу помочь в решении следующей задачки:

Дано: массив данных, в котором информация записана на один столбец по каждой строке/ячейке.

Задача: распределить (транспонировать) вертикально записанную информацию горизонтально до маркера-разделителя, которым служит запись "<input type=checkbox name...", после чего последующие данные также транспонируются горизонтально до следующего маркера-разделителя "<input type=checkbox name" и так далее. Результатом должна быть таблица данных, готовая к работе. (пример приложен)

Особенность: кол-во ячеек необходимых для горизонтального транспонирования не является постоянным (в большинстве случаев это 26 ячеек, но может быть меньше, а может быть больше)
Изменено: Punter - 21.01.2023 08:49:42
 
Перейти    
Преобразование массива данных в один столбец
 
#
29.08.2022 09:08:41
Доброго дня!
Подскажите пж-та как можно перевести матрицу/массив данных в один сплошной столбец?

Пример:




Заранее благодарю!
 
Перейти    
Извлечение определенного кол-ва чисел, стоящих перед определенными символами в строке
 
#
21.08.2022 06:57:44
Всем доброго дня!

Есть перечень информации о файлах:
Цитата
1. Leforting | Size: 2.24 GB | Duration: 1h 55m The ZZBn Layover – September 28
2. Dispocathcing| Size: 696.66 MB | Duration: 0h 36m Elizabeth Thomson
3. Chrionicles Dutified – | 40 pages | PDF | 42.8 MB
4. Verifier of Water| 2020 0-> 719.33 KB | 256 Pages | CODN: 4462601863 | EPUB
5. Language: English | Size - 1012.23 MB | Duration: 1h 6m Cattle Training
6. Chrionicles Dutified; 12.2 TB | 4444 pages | PDF
Из этого перечня необходимо извлечь информацию о размере файлов, то есть числовые значения, которые стоят символами KB или MB или GB либо TB.

То есть результат, как пример, должен выйти в следующем виде:

Цитата
1. 2.24 GB
2. 696.66 MB
3. 42.8 MB
4. 719.33 KB
5. 1012.23 MB
6. 12.2 TB
Есть ли какие идеи как это реализовать? Премного благодарен!
Изменено: Punter - 21.08.2022 06:59:24
 
Перейти    
Применение VBA кода, прошу помочь применить
 
#
08.06.2022 18:55:38
Всем добрый день. Задача стоит в декодировании зашифрованного email в вебстранице, следующий код позволяет декодировать email с веб-страницы, когда на сервере используется Cloudflare Email Protection:

Помогите пж-та применить следующий код:
Код
Function CloudfareEmailDecode(ByVal txt$) As String ' функция декодирования
    On Error Resume Next
    If InStr(1, txt, "protection#", vbTextCompare) > 0 Then txt = Split(txt, "protection#")(1)
    If InStr(1, txt, """", vbTextCompare) > 0 Then txt = Split(txt, """")(0)
    If InStr(1, txt, "'", vbTextCompare) > 0 Then txt = Split(txt, "'")(0)
    Dim k As Integer, i As Long, l As Integer
    k = Val("&h" & Mid(txt, 1, 2))
    For i = 1 To Len(txt) / 2 - 1
        l = Val("&h" & Mid(txt, i * 2 + 1, 2))
        CloudfareEmailDecode = CloudfareEmailDecode & Chr(l Xor k)
    Next
End Function
 
Sub test_CloudfareEmailDecode() ' пример использования
    Debug.Print CloudfareEmailDecode("c9a6afafa0aaace7a4b9b389a4bdbce4a7acbde7bbbc")
    Debug.Print CloudfareEmailDecode("543931142127353935313e352e7a373b39")
    Debug.Print CloudfareEmailDecode("dfafadb6bdb0ad9fbcb6aba6b3b6b1baf1adaa")
End Sub
Изменено: Punter - 08.06.2022 19:07:40
 
Перейти    
[ Закрыто] Применение VBA кода, прошу помочь применить
 
#
08.06.2022 18:55:37
Всем добрый день. Помогите пж-та применить следующий код, данная функция позволяет декодировать email с веб-страницы, когда на сервере используется Cloudflare Email Protection:
Код
Function CloudfareEmailDecode(ByVal txt$) As String ' функция декодирования
    On Error Resume Next
    If InStr(1, txt, "protection#", vbTextCompare) > 0 Then txt = Split(txt, "protection#")(1)
    If InStr(1, txt, """", vbTextCompare) > 0 Then txt = Split(txt, """")(0)
    If InStr(1, txt, "'", vbTextCompare) > 0 Then txt = Split(txt, "'")(0)
    Dim k As Integer, i As Long, l As Integer
    k = Val("&h" & Mid(txt, 1, 2))
    For i = 1 To Len(txt) / 2 - 1
        l = Val("&h" & Mid(txt, i * 2 + 1, 2))
        CloudfareEmailDecode = CloudfareEmailDecode & Chr(l Xor k)
    Next
End Function
 
Sub test_CloudfareEmailDecode() ' пример использования
    Debug.Print CloudfareEmailDecode("c9a6afafa0aaace7a4b9b389a4bdbce4a7acbde7bbbc")
    Debug.Print CloudfareEmailDecode("543931142127353935313e352e7a373b39")
    Debug.Print CloudfareEmailDecode("dfafadb6bdb0ad9fbcb6aba6b3b6b1baf1adaa")
End Sub
 
Перейти    
По клику в excel вызвать шаблон письма в outlook с предусмотренными адресатами, По клику в excel вызвать шаблон письма в outlook с предусмотренными адресатами
 
#
07.04.2022 18:28:07
Доброго времени суток!

Подскажите пж-та как по клику мыши в excel (будь то посредством гиперссылки либо кнопки) вызвать следующий шаблон письма в outlook с предусмотренными адресатами?
 
Строка
  
Описание
 

1.      Строка

  

1.      Описание

 

2.      Строка

  

2.      Описание

 

3.      Строка

  

3.      Описание

 

4.      Строка

  

4.      Описание

 

5.      Строка

  

5.      Описание

 

 
Перейти    
Как вытащить первое слово в скобках
 
#
27.03.2022 17:58:09
Добрый день, собственно вопрос: как извлечь цифры до запятой в скобках (выделил жирным), количество цифр меняется

Денис Куропаткин (2539111870, 2835238234ООЛ)
 
Перейти    
Отображение желаемых значений на точечной диаграмме excel версии 2007
 
#
11.04.2014 10:12:37
Всем доброго дня! Итак суть проблемы: есть три колонки, 1)наименование инструмента, 2) Доходность инструмента, 3) Срок инструмента. При построении точечной диаграммы не могу присвоить имена (label) точкам, которые нужны мне (а именно наименование инструмента). Выбор имен здесь лишь между 2 или 3. Знаю способ присвоения имен вручную - но процесс долгий, и риск ошибиться большой. Знаю, что функция присвоения имен, которые нужны, есть в версии 2013, но на работе, к сожалению, только 2007 версия стоит.




Заранее спасибо!
 
Перейти    
Импорт данных из интернета, как импортировать каждый выход в инет в новый
 
#
11.03.2014 10:36:47
Всем доброго дня! Импортирую данные из интернета каждые 5 минут (excel автоматически делает это). Как сделать так, чтобы каждый запрос импортировался в новый лист в одной и той же книге? Спасибо!
 
Перейти    
Импорт данных и их объединение
 
#
26.02.2014 21:53:08
такой вопрос: есть множество файлов (могут приходить в csv, htm, txt), в которых содержатся 1) наименование, 2) значение. Наименование остается всегда, меняются значения. Есть ли способ одним кликом поставить в ряд все эти значения (то есть импортировать данные со множества файлов), которые бы еще соответствовали наименованию(как если бы использовали ВПР)? Спасибо заранее!

прикрепил файлы, в excel*е уже внес данные - именно так и должно все выглядеть после импорта данных

есть еще такой прикол, что в множестве файлов порядок наименований (соответственно и значения) идет по разному
Спасибо авансом!
Изменено: Punter - 26.02.2014 21:53:59
 
Перейти    
Страницы: 1
Наверх