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

Страницы: 1 2 След.
Сравнение строк в столбце
 
#
24.06.2025 09:04:31
Спасибо,

подскажите пожалуйста, а как быть с пробелами, затирать их, или можно как-то их не учитывать ?
Изменено: ольгаг - 24.06.2025 09:05:15
 
Перейти    
Сравнение строк в столбце
 
#
23.06.2025 22:55:30
Здравствуйте,

есть столбец с текстом вида:

H1-2500
H1-2501
H1-2501
H1-2502
...

Подскажите пожалуйста, как кодом vba-excel выявить совпадающие по значению строки? Причем:
1) текст с пробелом в начале/конце = текст (т.е. не учитывать пробелы),
2) схожие буквы англ и рус алфавита равны (т.е. учитывать как не разные)

arrEn = Array("E", "T", "O", "P", "A", "H", "K", "X", "C", "B", "M")
arrRus = Array("Е", "Т", "О", "Р", "А", "Н", "К", "Х", "С", "В", "М")

Заранее спасибо!
 
Перейти    
Найти количество заполненных ячеек
 
#
02.01.2025 21:20:42
Цитата
Спасибо!
Изменено: ольгаг - 02.01.2025 21:20:59
 
Перейти    
Найти количество заполненных ячеек
 
#
02.01.2025 20:43:43
Здравствуйте Уважаемые специалисты Excel!

В 6-ой строке начиная с колонки H (с 8-ой колонки) заполняются ячейки без пустот. До 8-ой колонки в этой строке ячейки могут быть пустые.
Нужно определить количество заполненных ячеек начиная с 8-ой колонки. Причем могут быть и не заполнены, тогда результатом должно быть 0.
Сейчас определяю циклом (код vba):
Код
        count = 0
        Do While Cells(6, 8 + count).Text <> ""
            count = count + 1
        Loop
        MsgBox count

Подскажите пожалуйста, как это сделать без цикла, быстрее?

Заранее спасибо!
Изменено: ольгаг - 02.01.2025 20:49:07
 
Перейти    
Определить ключ словаря с данными
 
#
29.12.2024 21:29:23
Спасибо за ответ.
С наступающим новым годом!!
Изменено: ольгаг - 29.12.2024 21:29:32
 
Перейти    
Определить ключ словаря с данными
 
#
29.12.2024 19:40:12
Здравствуйте Уважаемые специалисты Excel!

В листе есть список (просто строки с данными). Есть необходимость создать словарь *коллекцию с данными. Поскольку для добавления данных в словарь нужен уникальный ключ - то он для моей задачи равен "содержимому 1-ой и 2-ой ячеек в строке *вместе". Значением ключа является номер этой строки.

! Задача далее в том, чтобы для каждой строки выполнить поиск значения "1 и 2" ячеек в строке, и если оно равно искомому - то узнать номер этой строки.

Подскажите пожалуйста, почему код ниже выдает ошибку?
Код
    lLastRow As Long
    Dim ListDict As Object
    lLastRow = Cells(Rows.count, 2).End(xlUp).Row

    Set ListDict = CreateObject("Scripting.Dictionary")
    For i = 7 To lLastRow
        ListDict.Add Cells(i, 1).Text & "_" & Cells(i, 2).Value, Cells(i, 1).Row
    Next

Заранее спасибо!
Изменено: ольгаг - 29.12.2024 19:48:27
 
Перейти    
Проверка совпадения по тексту с выводом результата
 
#
17.03.2022 18:43:38
Здравствуйте Уважаемые программисты!

Подскажите пожалуйста, как решить следующую задачу:

В файле excel нужно найти совпадения по содержимому для каждого текста в столбце "G" с текстами в столбце "C", если совпадения найдены, то напротив искомого текста в столбец "H" вывести значения равные адресам совпадающих ячеек.

Заранее спасибо за помощь!
Изменено: ольгаг - 18.03.2022 16:02:13
 
Перейти    
Оптимизировать код excel 2003 с помощью With - End With
 
#
08.12.2016 21:30:01
Здравствуйте Уважаемые специалисты Excel!
Помогите пожалуйста оптимизировать следующий код:
Код
Range(Selection.Offset(0, 5), Selection.Offset(iRows, 5)).Interior.ColorIndex = 39
Range(Selection.Offset(0, 5), Selection.Offset(iRows, 5)) = i3
Range(Selection.Offset(0, 5), Selection.Offset(iRows, 5)).Validation.Delete
Range(Selection.Offset(0, 5), Selection.Offset(iRows, 5)).Locked = True
Заранее спасибо!
 
Перейти    
Проверка данных со ссылкой на другую ячейку
 
#
03.12.2016 22:12:55
приложен файл примера (в #1).
Изменено: ольгаг - 03.12.2016 22:14:10
 
Перейти    
Проверка данных со ссылкой на другую ячейку
 
#
03.12.2016 21:38:33
Здравствуйте Уважаемые специалисты по excel!
В ячейке F6 на "Листе1" (excel 2003) назначена проверка ввода с помощью меню "Данные - Проверка - Список - формула: "=ИНДЕКС(ДВССЫЛ(D6&"!"&ДВССЫЛ(D6&"!d4")&":"&ДВССЫЛ(D6&"!d5"));;1)". Но проверка в ячейке F6 работает только если ячейка D6 не пустая.
Подскажите пожалуйста, как заставить работать проверку в ячейке F6 даже если ячейка D6 пустая.
Спасибо!
Изменено: ольгаг - 03.12.2016 22:09:45
 
Перейти    
Про ошибке показывать 0 (Excel-2003)
 
#
27.11.2016 21:31:23
Спасибо большое!
 
Перейти    
Про ошибке показывать 0 (Excel-2003)
 
#
25.11.2016 23:03:04
Здравствуйте Уважаемые специалисты по excel!
Формула ниже (excel 2003) производит расчет с ячейками I6, J6, K6. Ячейка K6 всегда заполнена числом, но ячейки I6 и J6 могут быть пустыми или с ошибкой (например, ошибочно введен текст вместо числа).
Подскажите пожалуйста, как исправить формулу, чтобы при ошибке, результат вычисления был 0.
Пробовала через =ЕСЛИ(ЕОШИБКА(... не получилось, запуталась со скобками.
Заранее спасибо!
Код
=ЕСЛИ(F6<>"";ОКРУГЛ(ЕСЛИ(H6="м.п.";I6*J6*K6/1000;ЕСЛИ(H6="мм.п.";I6*J6*K6/1000000;ЕСЛИ(H6="м2";I6*J6*K6/1000;ЕСЛИ(H6="т";I6*J6;ЕСЛИ(H6="кг";I6*J6/1000;ЕСЛИ(H6="шт";I6*J6*K6/1000))))));3);"")
Изменено: ольгаг - 25.11.2016 23:12:38
 
Перейти    
Формат отображения числа в ListBox
 
#
09.09.2016 15:08:41
Михаил С., спасибо большое, работает как надо!
 
Перейти    
Формат отображения числа в ListBox
 
#
08.09.2016 22:41:41
Мне нужно округление, до 2-х знаков. Число может быть 1500,24587 и должно отображаться в ListBox как 1500,25.
 
Перейти    
Формат отображения числа в ListBox
 
#
08.09.2016 21:43:42
Если число целое, то оно отображается как: 1500, (а надо отображать: 1500).
Изменено: ольгаг - 08.09.2016 21:45:28
 
Перейти    
Формат отображения числа в ListBox
 
#
08.09.2016 21:35:20
Здравствуйте Уважаемые специалисты по Excel!
Код ниже (vba excel 2003) изменяет формат отображения числа в ListBox-е: число "1500,20" отображается как "1500,2". Но если вводится целое число, например, "1500", то оно отображается как "1500,". Подскажите пожалуйста как можно скрыть отображение запятой, если число целое?

Код
With Me.ListBox
      For i = .ListCount - 1 To 0 Step -1
         .List(i, 0) = (Format(.List(i, 0), "0.##"))
      Next i
End With

Спасибо!
 
Перейти    
Отобразить в ячейке число целиком, сохранив ширину столбца
 
#
28.05.2016 22:00:25
Kuzmich,
Да, хотелось бы программно осуществить.
 
Перейти    
Отобразить в ячейке число целиком, сохранив ширину столбца
 
#
28.05.2016 19:54:01
Длина числа может быть разной. Не знаю как подобрать размер шрифта. Как кодом проверять, поместилось число в ячейку или нет, то уменьшить шрифт на 1 пт и т.д.?
 
Перейти    
Отобразить в ячейке число целиком, сохранив ширину столбца
 
#
28.05.2016 19:25:38
Здравствуйте Уважаемые специалисты excel!
Подскажите пожалуйста как с помощью кода (vba excel 2003) не изменяя ширину столбцов, заставить числа в ячейках отображаться целиком в выделенном диапазоне (Range("E6", Cells(Rows.Count, "X").End(xlUp)).Select)?
Заранее спасибо!
 
Перейти    
Выводить 2 текста combobox
 
#
20.12.2015 12:21:57
Спасибо всем большое за подсказки!
 
Перейти    
Выводить 2 текста combobox
 
#
20.12.2015 00:55:45
Если у combobox задано:
ComboBox1.Style = fmStyleDropDownList
то не работает.
 
Перейти    
Выводить 2 текста combobox
 
#
20.12.2015 00:23:40
Спасибо, да появляется ошибка (посмотрите пожалуйста в приложенном файле). Может быть ее пропускать?
Изменено: ольгаг - 20.12.2015 00:25:27
 
Перейти    
Выводить 2 текста combobox
 
#
20.12.2015 00:11:46
Можете показать?
 
Перейти    
Выводить 2 текста combobox
 
#
20.12.2015 00:03:55
Хотелось бы чтобы после выбора, оставалось отображаться 2 столбца.
 
Перейти    
Выводить 2 текста combobox
 
#
19.12.2015 23:55:15
Здравствуйте Уважаемые специалисты Excel!
Подскажите пожалуйста, в combobox (activeX) на листе excel 2003 в свойствах задано columncount=2, т.е. при раскрытии списка отображается 2 колонки заданного диапазона. Но после выбора значения из списка остается отображаться только одно значение (из колонки1), т.к. в свойствах этого combobox задано textcolumn=1.
Подскажите пожалуйста, можно ли сделать так, чтобы в combobox отображалось 2 значения, т.е. textcolumn=1 и textcolumn=2 (пояснение в приложенном файле)?
Спасибо!
 
Перейти    
Прокрутка при работе с Combobox
 
#
19.12.2015 20:56:27
Спасибо! Попробую адаптировать код с Me.ScrollArea, поэкспериментировав с выбором ячейки.
 
Перейти    
Прокрутка при работе с Combobox
 
#
19.12.2015 20:18:19
Работает, но если до обращения к Combobox была активна ячейка A1, то происходит смещение листа на ячейку A20.
 
Перейти    
Прокрутка при работе с Combobox
 
#
19.12.2015 19:58:44
Выложила пример
 
Перейти    
Прокрутка при работе с Combobox
 
#
19.12.2015 19:50:01
Да, Элемент формы ActiveX.
Изменено: ольгаг - 19.12.2015 19:57:18
 
Перейти    
Прокрутка при работе с Combobox
 
#
19.12.2015 19:18:49
Здравствуйте Уважаемые специалисты Excel!
Помогите пожалуйста, на листе excel 2003 есть ComboBox. Если его раскрыть и начать крутить колесико мыши, то прокручивается сам лист.
Подскажите пожалуйста, можно ли (возможно кодом) запретить прокрутку листа при работе с ComboBox-ом?
Спасибо!
 
Перейти    
Страницы: 1 2 След.
Наверх