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

Вход

Регистрация

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

 

= Мир MS Excel/Найти область, являющуюся объединением исходных областей. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти область, являющуюся объединением исходных областей. (Макросы Sub)
Найти область, являющуюся объединением исходных областей.
rtland Дата: Воскресенье, 19.01.2014, 19:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем привет, есть такой вопрос?
У меня существуют две области C6:F10 и E11:H15 Нужно найти область,
являющуюся объединением исходных(этих) областей.

не как не могу понять как найти такую область.

создаю области таким путем:

[vba]
Код
Worksheets(1).Activate
Dip = InputBox("Введите диапазон первой области. Пример: H26:M33", "Ввод прямоугольной области")
Dip1 = InputBox("Введите диапазон второй области. Пример: H26:M33", "Ввод прямоугольной области")
If Dip <> "" Or Dip1 <> "" Then
Set bigRange = Application.Union(Range(Dip), Range(Dip1))
bigRange.Value = "Hello"
bigRange.Select
'ActiveCell.CurrentRegion
Else
  MsgBox "Ошибка!!!, " & Dip, vbInformation, _
                         "Введите диапазон!"
   End If
[/vba]

Буду благодарен за помощь.
 
Ответить
СообщениеВсем привет, есть такой вопрос?
У меня существуют две области C6:F10 и E11:H15 Нужно найти область,
являющуюся объединением исходных(этих) областей.

не как не могу понять как найти такую область.

создаю области таким путем:

[vba]
Код
Worksheets(1).Activate
Dip = InputBox("Введите диапазон первой области. Пример: H26:M33", "Ввод прямоугольной области")
Dip1 = InputBox("Введите диапазон второй области. Пример: H26:M33", "Ввод прямоугольной области")
If Dip <> "" Or Dip1 <> "" Then
Set bigRange = Application.Union(Range(Dip), Range(Dip1))
bigRange.Value = "Hello"
bigRange.Select
'ActiveCell.CurrentRegion
Else
  MsgBox "Ошибка!!!, " & Dip, vbInformation, _
                         "Введите диапазон!"
   End If
[/vba]

Буду благодарен за помощь.
Автор - rtland
Дата добавления - 19.01.2014 в 19:06
ShAM Дата: Воскресенье, 19.01.2014, 22:06 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Вроде бы, так работает:
[vba]
Код
Sub aa()
Dim Dip As String, Dip1 As String, bigRange As Range
'Worksheets(1).Activate
Dip = InputBox("Введите диапазон первой области. Пример: H26:M33", "Ввод прямоугольной области")
Dip1 = InputBox("Введите диапазон второй области. Пример: H26:M33", "Ввод прямоугольной области")
If Dip <> "" Or Dip1 <> "" Then
With Worksheets(1)
.Activate
Set bigRange = Application.Union(.Range(Dip), .Range(Dip1))
bigRange.Value = "Hello"
bigRange.Select
End With
'ActiveCell.CurrentRegion
Else
MsgBox "Ошибка!!!, " & Dip, vbInformation, _
                         "Введите диапазон!"
End If
End Sub
[/vba]
 
Ответить
СообщениеВроде бы, так работает:
[vba]
Код
Sub aa()
Dim Dip As String, Dip1 As String, bigRange As Range
'Worksheets(1).Activate
Dip = InputBox("Введите диапазон первой области. Пример: H26:M33", "Ввод прямоугольной области")
Dip1 = InputBox("Введите диапазон второй области. Пример: H26:M33", "Ввод прямоугольной области")
If Dip <> "" Or Dip1 <> "" Then
With Worksheets(1)
.Activate
Set bigRange = Application.Union(.Range(Dip), .Range(Dip1))
bigRange.Value = "Hello"
bigRange.Select
End With
'ActiveCell.CurrentRegion
Else
MsgBox "Ошибка!!!, " & Dip, vbInformation, _
                         "Введите диапазон!"
End If
End Sub
[/vba]
Автор - ShAM
Дата добавления - 19.01.2014 в 22:06
rtland Дата: Воскресенье, 19.01.2014, 22:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата ShAM
Вроде бы, так работает:


bigRange.Select = выделяет только два созданных диапазона, а нужно выделить диапазон являющимся объединением исходных(этих) диапазонов,
я не сильно понимаю что от меня хотят? ну я думаю или диапазон C6:H15 или E6:F15 ну я не знаю как программно их выделить и записать их координаты в Range.
Или я чета вообще не понимаю((

Может кто знает подскажите.
 
Ответить
Сообщение
Цитата ShAM
Вроде бы, так работает:


bigRange.Select = выделяет только два созданных диапазона, а нужно выделить диапазон являющимся объединением исходных(этих) диапазонов,
я не сильно понимаю что от меня хотят? ну я думаю или диапазон C6:H15 или E6:F15 ну я не знаю как программно их выделить и записать их координаты в Range.
Или я чета вообще не понимаю((

Может кто знает подскажите.
Автор - rtland
Дата добавления - 19.01.2014 в 22:59
KuklP Дата: Понедельник, 20.01.2014, 04:33 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата rtland, 19.01.2014 в 19:06, в сообщении № 1
являющуюся объединением исходных(этих) областей

Неверно задан вопрос. Не объединением, а пересечением :) Вам и показали объединение.
В коде Алишера(ShAM) замените:
[vba]
Код
Set bigRange = Application.Union(.Range(Dip), .Range(Dip1))
[/vba]
на
[vba]
Код
Set bigRange = Intersect(.Range(Dip), .Range(Dip1))
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Понедельник, 20.01.2014, 04:37
 
Ответить
Сообщение
Цитата rtland, 19.01.2014 в 19:06, в сообщении № 1
являющуюся объединением исходных(этих) областей

Неверно задан вопрос. Не объединением, а пересечением :) Вам и показали объединение.
В коде Алишера(ShAM) замените:
[vba]
Код
Set bigRange = Application.Union(.Range(Dip), .Range(Dip1))
[/vba]
на
[vba]
Код
Set bigRange = Intersect(.Range(Dip), .Range(Dip1))
[/vba]
Автор - KuklP
Дата добавления - 20.01.2014 в 04:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти область, являющуюся объединением исходных областей. (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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