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

Страницы: 1 2 След.
Расположить 2 Листа книги на одном мониторе вертикально рядом
 
#
06.08.2025 19:48:53
Спасибо Вам за помощь!
 
Перейти    
Расположить 2 Листа книги на одном мониторе вертикально рядом
 
#
05.08.2025 20:35:30
Спасибо!
Работает.
Подскажите пожалуйста обратное действие кодом (вернуть прежний вид excel)?
 
Перейти    
Расположить 2 Листа книги на одном мониторе вертикально рядом
 
#
02.08.2025 20:12:12
Здравствуйте,

подскажите пожалуйста, как кодом excel-vba расположить в открытой книге 2 Листа этой книги вертикально рядом, т.е. каждый Лист занимает ровно половину экрана (монитора)?

Заранее спасибо!
 
Перейти    
Определить начало и конец таблицы excel
 
#
13.07.2025 14:00:56
Спасибо!
 
Перейти    
Определить начало и конец таблицы excel
 
#
13.07.2025 01:11:58
Спасибо посмотрю!
 
Перейти    
Определить начало и конец таблицы excel
 
#
12.07.2025 22:05:51
Здравствуйте!

Подскажите пожалуйста, как можно кодом vba-excel автоматизировать следующую задачу: Есть таблица Excel, нужно задать границы этой таблицы - кликнуть в ее начале и в конце (либо в конце, затем в начале), тем самым определить как-бы границы таблицы, также с возможностью переопределения ее границ - кликнуть в начале, кликнуть в конце.

Заранее спасибо за подсказки и помощь!
 
Перейти    
Сравнение строк в столбце
 
#
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 столбца.
 
Перейти    
Страницы: 1 2 След.
Наверх