Определить адрес объединенных ячеек
Stormy
Дата: Суббота, 22.07.2017, 15:18 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
Здравствуйте. Пытаюсь настроить под свои нужды пример решенияhttp://www.excelworld.ru/board/vba/tricks/find_in_database/9-1-0-27 Возникли 2 проблемы 1) У меня объединены ячейки с B:L . Снимать объединение не хотелось бы Как мне указать путь к ним?
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Row = 1 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub If Target.Column = 2 Then 'Тут bu = True With Me.TextBox1 .Top = Target.Top: .Text = Target.Value ': .Activate End With With Me.ListBox1 .Top = Target.Top + 5 If (.Top + .Height + ActiveWindow.PointsToScreenPixelsY(0) * Application.InchesToPoints(1) * 15 / 1440) > _ (ActiveWindow.Application.Height + ActiveWindow.Application.Top) Then _ .Top = .Top - .Height + Target.Height '* ActiveWindow.Zoom / 100 .Clear End With bu = False Me.TextBox1.Visible = True: Me.ListBox1.Visible = True Else Me.TextBox1.Visible = False: Me.ListBox1.Visible = False End If End Sub
[/vba]
2) Как указать путь к именованному диапазону на другом листе?
[vba]
Код
Private Sub TextBox1_Change() If Len(TextBox1.Text) = 0 Or bu Then Exit Sub 'ïğè îòñóòñòâèè ñèìâîëîâ äëÿ ïîèñêà - âûõîä Dim x, i As Long, txt As String, lt As Long, s As String txt = TextBox1.Text: lt = Len(TextBox1.Text) x = Columns(110).SpecialCells(2).Offset(1).Value 'Тут For i = 1 To UBound(x, 1) ' ïîèñê ïî ïåğâûì áóêâàì If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~" Next i ListBox1.List = Split(s, "~") End Sub
[/vba]
Здравствуйте. Пытаюсь настроить под свои нужды пример решенияhttp://www.excelworld.ru/board/vba/tricks/find_in_database/9-1-0-27 Возникли 2 проблемы 1) У меня объединены ячейки с B:L . Снимать объединение не хотелось бы Как мне указать путь к ним?
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Row = 1 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub If Target.Column = 2 Then 'Тут bu = True With Me.TextBox1 .Top = Target.Top: .Text = Target.Value ': .Activate End With With Me.ListBox1 .Top = Target.Top + 5 If (.Top + .Height + ActiveWindow.PointsToScreenPixelsY(0) * Application.InchesToPoints(1) * 15 / 1440) > _ (ActiveWindow.Application.Height + ActiveWindow.Application.Top) Then _ .Top = .Top - .Height + Target.Height '* ActiveWindow.Zoom / 100 .Clear End With bu = False Me.TextBox1.Visible = True: Me.ListBox1.Visible = True Else Me.TextBox1.Visible = False: Me.ListBox1.Visible = False End If End Sub
[/vba]
2) Как указать путь к именованному диапазону на другом листе?
[vba]
Код
Private Sub TextBox1_Change() If Len(TextBox1.Text) = 0 Or bu Then Exit Sub 'ïğè îòñóòñòâèè ñèìâîëîâ äëÿ ïîèñêà - âûõîä Dim x, i As Long, txt As String, lt As Long, s As String txt = TextBox1.Text: lt = Len(TextBox1.Text) x = Columns(110).SpecialCells(2).Offset(1).Value 'Тут For i = 1 To UBound(x, 1) ' ïîèñê ïî ïåğâûì áóêâàì If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~" Next i ListBox1.List = Split(s, "~") End Sub
[/vba]
Stormy
Место для рекламы.
Сообщение отредактировал Stormy - Суббота, 22.07.2017, 15:43
Ответить
Сообщение Здравствуйте. Пытаюсь настроить под свои нужды пример решенияhttp://www.excelworld.ru/board/vba/tricks/find_in_database/9-1-0-27 Возникли 2 проблемы 1) У меня объединены ячейки с B:L . Снимать объединение не хотелось бы Как мне указать путь к ним?
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Row = 1 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub If Target.Column = 2 Then 'Тут bu = True With Me.TextBox1 .Top = Target.Top: .Text = Target.Value ': .Activate End With With Me.ListBox1 .Top = Target.Top + 5 If (.Top + .Height + ActiveWindow.PointsToScreenPixelsY(0) * Application.InchesToPoints(1) * 15 / 1440) > _ (ActiveWindow.Application.Height + ActiveWindow.Application.Top) Then _ .Top = .Top - .Height + Target.Height '* ActiveWindow.Zoom / 100 .Clear End With bu = False Me.TextBox1.Visible = True: Me.ListBox1.Visible = True Else Me.TextBox1.Visible = False: Me.ListBox1.Visible = False End If End Sub
[/vba]
2) Как указать путь к именованному диапазону на другом листе?
[vba]
Код
Private Sub TextBox1_Change() If Len(TextBox1.Text) = 0 Or bu Then Exit Sub 'ïğè îòñóòñòâèè ñèìâîëîâ äëÿ ïîèñêà - âûõîä Dim x, i As Long, txt As String, lt As Long, s As String txt = TextBox1.Text: lt = Len(TextBox1.Text) x = Columns(110).SpecialCells(2).Offset(1).Value 'Тут For i = 1 To UBound(x, 1) ' ïîèñê ïî ïåğâûì áóêâàì If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~" Next i ListBox1.List = Split(s, "~") End Sub
[/vba]
Автор - Stormy Дата добавления - 22.07.2017 в 15:18
KuklP
Дата: Суббота, 22.07.2017, 15:38 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Цитата
3. ... ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.
Цитата
3. ... ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.
KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Цитата
3. ... ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.
Автор - KuklP Дата добавления - 22.07.2017 в 15:38
Stormy
Дата: Суббота, 22.07.2017, 15:44 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
KuklP , Прикрепил. Чет туплю малость, пример сделал, а прикрепить забыл
KuklP , Прикрепил. Чет туплю малость, пример сделал, а прикрепить забыл Stormy
Место для рекламы.
Ответить
Сообщение KuklP , Прикрепил. Чет туплю малость, пример сделал, а прикрепить забыл Автор - Stormy Дата добавления - 22.07.2017 в 15:44
Udik
Дата: Суббота, 22.07.2017, 15:54 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Чет я ничего не понял. Что значит путь к ячейкам? Вообще что Вы пытаетесь получить? [p.s.] дебагер ругается на [vba]Код
If Column = Range("B:L") Then
[/vba]
Чет я ничего не понял. Что значит путь к ячейкам? Вообще что Вы пытаетесь получить? [p.s.] дебагер ругается на [vba]Код
If Column = Range("B:L") Then
[/vba] Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Сообщение отредактировал Udik - Суббота, 22.07.2017, 15:56
Ответить
Сообщение Чет я ничего не понял. Что значит путь к ячейкам? Вообще что Вы пытаетесь получить? [p.s.] дебагер ругается на [vba]Код
If Column = Range("B:L") Then
[/vba] Автор - Udik Дата добавления - 22.07.2017 в 15:54
KuklP
Дата: Суббота, 22.07.2017, 15:58 |
Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
[vba]Код
If Target.Column = 2 Then bu = True With Me.TextBox1 .Top = Target.Top: .Text = Target.Formula(1, 1) ': .Activate End With
[/vba]
[vba]Код
If Target.Column = 2 Then bu = True With Me.TextBox1 .Top = Target.Top: .Text = Target.Formula(1, 1) ': .Activate End With
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение [vba]Код
If Target.Column = 2 Then bu = True With Me.TextBox1 .Top = Target.Top: .Text = Target.Formula(1, 1) ': .Activate End With
[/vba] Автор - KuklP Дата добавления - 22.07.2017 в 15:58
Stormy
Дата: Суббота, 22.07.2017, 16:00 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
Udik , Пытаюсь заставить срабатывать клик на объединенных ячейках с B по L То есть сейчас у меня так [vba]Код
If Target.Column = 2 Then
[/vba] При клике на любую раздельную ячейку в столбце В открывается текстбокс и листбокс А мне нужно, чтобы тоже самое происходило при клике на объединенные ячейки с B по L
Udik , Пытаюсь заставить срабатывать клик на объединенных ячейках с B по L То есть сейчас у меня так [vba]Код
If Target.Column = 2 Then
[/vba] При клике на любую раздельную ячейку в столбце В открывается текстбокс и листбокс А мне нужно, чтобы тоже самое происходило при клике на объединенные ячейки с B по LStormy
Место для рекламы.
Ответить
Сообщение Udik , Пытаюсь заставить срабатывать клик на объединенных ячейках с B по L То есть сейчас у меня так [vba]Код
If Target.Column = 2 Then
[/vba] При клике на любую раздельную ячейку в столбце В открывается текстбокс и листбокс А мне нужно, чтобы тоже самое происходило при клике на объединенные ячейки с B по LАвтор - Stormy Дата добавления - 22.07.2017 в 16:00
KuklP
Дата: Суббота, 22.07.2017, 16:02 |
Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
2) Как указать путь к именованному диапазону на другом листе?
2) Как указать путь к именованному диапазону на другом листе?
KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение 2) Как указать путь к именованному диапазону на другом листе?
Автор - KuklP Дата добавления - 22.07.2017 в 16:02
Stormy
Дата: Суббота, 22.07.2017, 16:02 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
Извините, Я с примерами тут тоже накосячил. Вот правильный пример того что есть
Извините, Я с примерами тут тоже накосячил. Вот правильный пример того что есть Stormy
Место для рекламы.
Ответить
Сообщение Извините, Я с примерами тут тоже накосячил. Вот правильный пример того что есть Автор - Stormy Дата добавления - 22.07.2017 в 16:02
KuklP
Дата: Суббота, 22.07.2017, 16:08 |
Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
См. файло.
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение См. файло. Автор - KuklP Дата добавления - 22.07.2017 в 16:08
Stormy
Дата: Суббота, 22.07.2017, 16:13 |
Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
KuklP , Благодарю. Отображает текстбокс и листбокс. Но перестал отображать информацию ( базу) из столбца DF в листбокс
KuklP , Благодарю. Отображает текстбокс и листбокс. Но перестал отображать информацию ( базу) из столбца DF в листбоксStormy
Место для рекламы.
Ответить
Сообщение KuklP , Благодарю. Отображает текстбокс и листбокс. Но перестал отображать информацию ( базу) из столбца DF в листбоксАвтор - Stormy Дата добавления - 22.07.2017 в 16:13
KuklP
Дата: Суббота, 22.07.2017, 16:20 |
Сообщение № 11
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Что значит "перестал"? До этого оно ваще ничего неотображало..
Что значит "перестал"? До этого оно ваще ничего неотображало.. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Что значит "перестал"? До этого оно ваще ничего неотображало.. Автор - KuklP Дата добавления - 22.07.2017 в 16:20
Stormy
Дата: Суббота, 22.07.2017, 16:31 |
Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
KuklP , Если в примере кликнуть на ячейку В49 , то отобразится текстбокс с листбоксом. Далее пишем в текстбокс test все подходящие под это определение слова из столбца DF отобразятся в листбоксе. Выбираем нужный и он попадает в ячейку на которую был произведен клик.
KuklP , Если в примере кликнуть на ячейку В49 , то отобразится текстбокс с листбоксом. Далее пишем в текстбокс test все подходящие под это определение слова из столбца DF отобразятся в листбоксе. Выбираем нужный и он попадает в ячейку на которую был произведен клик.Stormy
Место для рекламы.
Ответить
Сообщение KuklP , Если в примере кликнуть на ячейку В49 , то отобразится текстбокс с листбоксом. Далее пишем в текстбокс test все подходящие под это определение слова из столбца DF отобразятся в листбоксе. Выбираем нужный и он попадает в ячейку на которую был произведен клик.Автор - Stormy Дата добавления - 22.07.2017 в 16:31
Udik
Дата: Суббота, 22.07.2017, 16:32 |
Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Пытаюсь заставить срабатывать клик на объединенных ячейках с B по L
Для этого достаточно [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$J$13:$AF$14" Or Target.Address = "$J$11:$AF$12" Then Debug.Print " In If" End If End Sub
[/vba]
Пытаюсь заставить срабатывать клик на объединенных ячейках с B по L
Для этого достаточно [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$J$13:$AF$14" Or Target.Address = "$J$11:$AF$12" Then Debug.Print " In If" End If End Sub
[/vba]Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Пытаюсь заставить срабатывать клик на объединенных ячейках с B по L
Для этого достаточно [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$J$13:$AF$14" Or Target.Address = "$J$11:$AF$12" Then Debug.Print " In If" End If End Sub
[/vba]Автор - Udik Дата добавления - 22.07.2017 в 16:32
KuklP
Дата: Суббота, 22.07.2017, 23:35 |
Сообщение № 14
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Собсно "Определить адрес объединенных ячеек": [vba]Код
if activecell.mergecell then a=activecell.mergearea.address
[/vba]
Собсно "Определить адрес объединенных ячеек": [vba]Код
if activecell.mergecell then a=activecell.mergearea.address
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Собсно "Определить адрес объединенных ячеек": [vba]Код
if activecell.mergecell then a=activecell.mergearea.address
[/vba] Автор - KuklP Дата добавления - 22.07.2017 в 23:35
_Boroda_
Дата: Воскресенье, 23.07.2017, 23:17 |
Сообщение № 15
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Stormy , не совсем понял, что Вы хотите, может, вот так?
Stormy , не совсем понял, что Вы хотите, может, вот так?_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Stormy , не совсем понял, что Вы хотите, может, вот так?Автор - _Boroda_ Дата добавления - 23.07.2017 в 23:17
Stormy
Дата: Понедельник, 24.07.2017, 09:28 |
Сообщение № 16
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация:
12
±
Замечаний:
0% ±
Excel 2010
_Boroda_ , Оно самое. Благодарю. Пойду разбираться и пилить дальше
_Boroda_ , Оно самое. Благодарю. Пойду разбираться и пилить дальшеStormy
Место для рекламы.
Ответить
Сообщение _Boroda_ , Оно самое. Благодарю. Пойду разбираться и пилить дальшеАвтор - Stormy Дата добавления - 24.07.2017 в 09:28