Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Обход скрытых столбцов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обход скрытых столбцов (Макросы/Sub)
Обход скрытых столбцов
Паштет Дата: Вторник, 15.08.2017, 19:23 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Есть выше указанный кусочек кода:
[vba]
Код
Private Sub ComboBox2101_Change()
Dim Rng As Range, Nomer As String
    Me.TextBox2103 = ""
    Nomer = Me.ComboBox2101
    With Sheets("ИБ_Выдача")
        Set Rng = .Columns(21).Find(what:=Nomer, LookIn:=xlValues, lookAt:=xlWhole)
        If Not Rng Is Nothing Then Me.TextBox2103 = Rng.Offset(0, -1)
    End With
End Sub
[/vba]
Но у меня этот 21 столбец скрыт на листе. В результате этого, моя форма корректно не работает.
Пробовал делать ширину столбца равной нулю, но это не сработало.
Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца, чтобы ссылка напрямую на этот столбец вела? У меня как-то тоже не получилось
 
Ответить
СообщениеЕсть выше указанный кусочек кода:
[vba]
Код
Private Sub ComboBox2101_Change()
Dim Rng As Range, Nomer As String
    Me.TextBox2103 = ""
    Nomer = Me.ComboBox2101
    With Sheets("ИБ_Выдача")
        Set Rng = .Columns(21).Find(what:=Nomer, LookIn:=xlValues, lookAt:=xlWhole)
        If Not Rng Is Nothing Then Me.TextBox2103 = Rng.Offset(0, -1)
    End With
End Sub
[/vba]
Но у меня этот 21 столбец скрыт на листе. В результате этого, моя форма корректно не работает.
Пробовал делать ширину столбца равной нулю, но это не сработало.
Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца, чтобы ссылка напрямую на этот столбец вела? У меня как-то тоже не получилось

Автор - Паштет
Дата добавления - 15.08.2017 в 19:23
wild_pig Дата: Вторник, 15.08.2017, 20:34 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца

Не поверите, 21 это непосредственно номер столбца.
 
Ответить
Сообщение
Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца

Не поверите, 21 это непосредственно номер столбца.

Автор - wild_pig
Дата добавления - 15.08.2017 в 20:34
KuklP Дата: Вторник, 15.08.2017, 20:38 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Правила:
Цитата
3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.

Старайтесь прилагать файлы в версии Excel 2003-го офиса(xls), так как эти файлы могут открыть пользователи с любой версией Excel, в отличие от файлов версий Excel 2007/2010/2013 (xlsх).


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПравила:
Цитата
3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.

Старайтесь прилагать файлы в версии Excel 2003-го офиса(xls), так как эти файлы могут открыть пользователи с любой версией Excel, в отличие от файлов версий Excel 2007/2010/2013 (xlsх).

Автор - KuklP
Дата добавления - 15.08.2017 в 20:38
AndreTM Дата: Вторник, 15.08.2017, 21:08 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
моя форма корректно не работает
И как именно не работает?
Выдает ошибку в коде? Не производит поиск? Неверно производит поиск? Или что?


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение
моя форма корректно не работает
И как именно не работает?
Выдает ошибку в коде? Не производит поиск? Неверно производит поиск? Или что?

Автор - AndreTM
Дата добавления - 15.08.2017 в 21:08
Паштет Дата: Вторник, 15.08.2017, 22:12 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
И как именно не работает?

Не подцепляет значение в TextBox2103, в соответствии со значением в ComboBox2101. TextBox2103 остается пустым.

В прикрепленном файле при запуске формы, выберете по вкладкам: "Изолятор брака: выдача", в списке наименование необходимо выбрать УГСП, а в окне "В ожидании решения" должно появится "2".
Идея в том, что каждый раз при сдачи продукции на склад, ее остатки можно было бы просмотреть на выдаче, выбрав соответствующее наименование. Код получился огромный, боюсь запутаетесь.
Ссылка удалена. Нарушение Правил форума


Сообщение отредактировал Pelena - Вторник, 15.08.2017, 22:29
 
Ответить
Сообщение
И как именно не работает?

Не подцепляет значение в TextBox2103, в соответствии со значением в ComboBox2101. TextBox2103 остается пустым.

В прикрепленном файле при запуске формы, выберете по вкладкам: "Изолятор брака: выдача", в списке наименование необходимо выбрать УГСП, а в окне "В ожидании решения" должно появится "2".
Идея в том, что каждый раз при сдачи продукции на склад, ее остатки можно было бы просмотреть на выдаче, выбрав соответствующее наименование. Код получился огромный, боюсь запутаетесь.
Ссылка удалена. Нарушение Правил форума

Автор - Паштет
Дата добавления - 15.08.2017 в 22:12
KuklP Дата: Вторник, 15.08.2017, 22:15 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
В прикрепленном файле при запуске формы
вкаком-вкаком файле?
Просто допускаю, что если я часть столбцов скрою, то он может стать уже не 21.
Вы себе допускайте что хотите, но истина в том, что он так и останется 21-м. Независимо от видимости.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
В прикрепленном файле при запуске формы
вкаком-вкаком файле?
Просто допускаю, что если я часть столбцов скрою, то он может стать уже не 21.
Вы себе допускайте что хотите, но истина в том, что он так и останется 21-м. Независимо от видимости.

Автор - KuklP
Дата добавления - 15.08.2017 в 22:15
KuklP Дата: Вторник, 15.08.2017, 22:18 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Правила:
Цитата
- Максимальный размер файла ограничен размером в 100 Кб
- Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах
- Запрещается выкладывать файлы нераспознаваемых Excel форматов, вместо файлов Excel


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПравила:
Цитата
- Максимальный размер файла ограничен размером в 100 Кб
- Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах
- Запрещается выкладывать файлы нераспознаваемых Excel форматов, вместо файлов Excel

Автор - KuklP
Дата добавления - 15.08.2017 в 22:18
Паштет Дата: Вторник, 15.08.2017, 22:50 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Файл *.xlsm у меня весит 438 кб, сюда залить не могу.

Вы себе допускайте что хотите, но истина в том, что он так и останется 21-м. Независимо от видимости.
Тогда почему не цепляется значение? Как только на листе выбираю "Показать", так все работает штатно.
 
Ответить
СообщениеФайл *.xlsm у меня весит 438 кб, сюда залить не могу.

Вы себе допускайте что хотите, но истина в том, что он так и останется 21-м. Независимо от видимости.
Тогда почему не цепляется значение? Как только на листе выбираю "Показать", так все работает штатно.

Автор - Паштет
Дата добавления - 15.08.2017 в 22:50
Паштет Дата: Вторник, 15.08.2017, 22:52 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца

Здесь имел ввиду буквенное обозначение столбца. Прошу прощения, ошибся.
 
Ответить
Сообщение
Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца

Здесь имел ввиду буквенное обозначение столбца. Прошу прощения, ошибся.

Автор - Паштет
Дата добавления - 15.08.2017 в 22:52
KuklP Дата: Вторник, 15.08.2017, 23:37 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Файл *.xlsm у меня весит 438 кб
И как этот факт мешает Вам создать небольшой пример? Мне в общем все равно. Решение не мне надо.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Файл *.xlsm у меня весит 438 кб
И как этот факт мешает Вам создать небольшой пример? Мне в общем все равно. Решение не мне надо.

Автор - KuklP
Дата добавления - 15.08.2017 в 23:37
Паштет Дата: Среда, 16.08.2017, 09:24 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
По просьбам трудящихся урезал все что только можно.
К сообщению приложен файл: _-.xlsm (91.1 Kb)
 
Ответить
СообщениеПо просьбам трудящихся урезал все что только можно.

Автор - Паштет
Дата добавления - 16.08.2017 в 09:24
_Boroda_ Дата: Среда, 16.08.2017, 10:04 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Да, Финд не ищет в скрытых ячейках
Сделайте у столбца ширину 1 пункт и все заработает
К сообщению приложен файл: -1.xlsm (76.4 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДа, Финд не ищет в скрытых ячейках
Сделайте у столбца ширину 1 пункт и все заработает

Автор - _Boroda_
Дата добавления - 16.08.2017 в 10:04
AndreTM Дата: Среда, 16.08.2017, 19:33 | Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Поскольку у вас эта табличка (столбцы N:U листа ИБ_Выдача) никак не связана с основной таблицей на на этом листе - вы можете просто эту "табличку" поместить на отдельный лист, и скрыть этот лист. Тогда Find Будет работать.
Более того, вам необходимо так сделать - очень нежелательно размещать две несвязанных таблицы так, что они имеют общие строки или столбцы листа. Вот представьте себе, что вы стали фильтровать ИБ_Выдача, или удалять/вставлять в середину строки...


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеПоскольку у вас эта табличка (столбцы N:U листа ИБ_Выдача) никак не связана с основной таблицей на на этом листе - вы можете просто эту "табличку" поместить на отдельный лист, и скрыть этот лист. Тогда Find Будет работать.
Более того, вам необходимо так сделать - очень нежелательно размещать две несвязанных таблицы так, что они имеют общие строки или столбцы листа. Вот представьте себе, что вы стали фильтровать ИБ_Выдача, или удалять/вставлять в середину строки...

Автор - AndreTM
Дата добавления - 16.08.2017 в 19:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обход скрытых столбцов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!