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

Страницы: 1
Расположить 2 Листа книги на одном мониторе вертикально рядом
 
#
02.08.2025 20:12:12
Здравствуйте,

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

Заранее спасибо!
 
Перейти    
Определить начало и конец таблицы excel
 
#
12.07.2025 22:05:51
Здравствуйте!

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

Заранее спасибо за подсказки и помощь!
 
Перейти    
Сравнение строк в столбце
 
#
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 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 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 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)
 
#
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
 
#
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 19:25:38
Здравствуйте Уважаемые специалисты excel!
Подскажите пожалуйста как с помощью кода (vba excel 2003) не изменяя ширину столбцов, заставить числа в ячейках отображаться целиком в выделенном диапазоне (Range("E6", Cells(Rows.Count, "X").End(xlUp)).Select)?
Заранее спасибо!
 
Перейти    
Выводить 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 19:18:49
Здравствуйте Уважаемые специалисты Excel!
Помогите пожалуйста, на листе excel 2003 есть ComboBox. Если его раскрыть и начать крутить колесико мыши, то прокручивается сам лист.
Подскажите пожалуйста, можно ли (возможно кодом) запретить прокрутку листа при работе с ComboBox-ом?
Спасибо!
 
Перейти    
Динамический диапазон со второго столбца
 
#
09.12.2015 08:23:57
Здравствуйте Уважаемые специалисты Excel!
Подскажите пожалуйста, можно ли создать динамический диапазон с помощью функции СМЕЩ (excel2003, диапазон для сводной табл), если в диапазон нужно включать данные из строк (c 9 по 1000) в столбцах B:S, причем в столбце "B" объединенные ячейки?
Т.е. есть функция:
=СМЕЩ(Лист1!$B$9;0;0;СЧЁТЗ(Лист1!$B$9:$B$1000);СЧЁТЗ(Лист1!$9:$9))
но она не работает.
Спасибо!
 
Перейти    
Запрет удаления листа с определенным именем
 
#
12.06.2012 22:45:07
Здравствуйте Уважаемые программисты Excel!  
Подскажите пожалуйста, есть книга excel, как запретить пользователю удаление листа с именем "Данные" в данной книге, остальные листы можно удалять, создавать и т.д.?  
Спасибо за любой ответ.
 
Перейти    
Трансформировать данные
 
#
02.11.2011 20:01:24
Здравствуйте Уважаемые программисты!  
Подскажите пожалуйста как можно трансформировать (изменить) исходные данные?  
Более подробно в файле.  
Спасибо.
 
Перейти    
Страницы: 1
Наверх