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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск по двум значениям, и вставка столбца рядом с 2м - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск по двум значениям, и вставка столбца рядом с 2м (Макросы/Sub)
Поиск по двум значениям, и вставка столбца рядом с 2м
Amon Дата: Понедельник, 21.05.2018, 10:18 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброе утро.

Я задавал здесь вопрос и мне Mikael очень помог написав код для поиска даты с 1 листа на 2 листе и при ненахождении создается столбец.
Как примерно нужно изменить код чтобы он искал сначала по дате и если дата такая есть то потом искал по другому значению и вставлял столбец рядом с ним а не от столбца D
Выглядит это так

[vba]
Код

With Results  
            ' If .Cells.Find(test.[c2]) Is Nothing and .Cells.Find(test.[c9] is nothing then  Пробовал так но почему-то не работает(                    
            If .Cells.Find(test.[c2]) Is Nothing Then                    ' поиск ячейки с датой и временем.
                      .Columns("D").Insert xlRight, xlFormatFromRightOrBelow         
                  ' .Cells.Find(test.[c9]).Offset(, 1).EntireColumn.Insert xlToLeft
              ' .Cells.Find(test.[c9]).Offset(, 1).Value = Worksheets("test").[c2]
                    .[d7].Value = test.[c2]                    'ячейка с датой и времем
                    .[d3:d7].HorizontalAlignment = xlCenterAcrossSelection
                    .[d1].Resize(24).Borders.Weight = xlMedium
                    .Range("D8:D24").Interior.Color = RGB(120, 7, 7)
                    .[d4].Value = test.[a6]                    
                    .[d5].Value = test.[a4]
                    .[d6].Value = "значение"
                    .[d1].Value = test.[c9]                    ' тут находится как раз номер маршрута по которому нужно тоже искать
                    .[d2].Value = test.[a10]
                    .[d5].ColumnWidth = 32
                            Set rCell = Intersect(.Rows(8), .Cells.Find(test.[c2]).EntireColumn)
        End If
        End With
With Results
Set rCell = Intersect(.Rows(8), .Cells.Find(test.[c2]).EntireColumn)
End With

[/vba]

Работают в паре
К сообщению приложен файл: MFO_Scenariy.xlsm (98.9 Kb) · Resultati_testo.xlsm (18.2 Kb)


Сообщение отредактировал Amon - Понедельник, 21.05.2018, 18:49
 
Ответить
СообщениеДоброе утро.

Я задавал здесь вопрос и мне Mikael очень помог написав код для поиска даты с 1 листа на 2 листе и при ненахождении создается столбец.
Как примерно нужно изменить код чтобы он искал сначала по дате и если дата такая есть то потом искал по другому значению и вставлял столбец рядом с ним а не от столбца D
Выглядит это так

[vba]
Код

With Results  
            ' If .Cells.Find(test.[c2]) Is Nothing and .Cells.Find(test.[c9] is nothing then  Пробовал так но почему-то не работает(                    
            If .Cells.Find(test.[c2]) Is Nothing Then                    ' поиск ячейки с датой и временем.
                      .Columns("D").Insert xlRight, xlFormatFromRightOrBelow         
                  ' .Cells.Find(test.[c9]).Offset(, 1).EntireColumn.Insert xlToLeft
              ' .Cells.Find(test.[c9]).Offset(, 1).Value = Worksheets("test").[c2]
                    .[d7].Value = test.[c2]                    'ячейка с датой и времем
                    .[d3:d7].HorizontalAlignment = xlCenterAcrossSelection
                    .[d1].Resize(24).Borders.Weight = xlMedium
                    .Range("D8:D24").Interior.Color = RGB(120, 7, 7)
                    .[d4].Value = test.[a6]                    
                    .[d5].Value = test.[a4]
                    .[d6].Value = "значение"
                    .[d1].Value = test.[c9]                    ' тут находится как раз номер маршрута по которому нужно тоже искать
                    .[d2].Value = test.[a10]
                    .[d5].ColumnWidth = 32
                            Set rCell = Intersect(.Rows(8), .Cells.Find(test.[c2]).EntireColumn)
        End If
        End With
With Results
Set rCell = Intersect(.Rows(8), .Cells.Find(test.[c2]).EntireColumn)
End With

[/vba]

Работают в паре
Автор - Amon
Дата добавления - 21.05.2018 в 10:18
StoTisteg Дата: Понедельник, 21.05.2018, 10:20 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Файлик бы с примером и желательно кодом...

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеФайлик бы с примером и желательно кодом...
Автор - StoTisteg
Дата добавления - 21.05.2018 в 10:20
Amon Дата: Понедельник, 21.05.2018, 10:40 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата StoTisteg, 21.05.2018 в 10:20, в сообщении № 2 ()
Файлик бы

Файл не могу прикрепить уменьшил до максимума ( 138 кб получается)
 
Ответить
Сообщение
Цитата StoTisteg, 21.05.2018 в 10:20, в сообщении № 2 ()
Файлик бы

Файл не могу прикрепить уменьшил до максимума ( 138 кб получается)
Автор - Amon
Дата добавления - 21.05.2018 в 10:40
sboy Дата: Понедельник, 21.05.2018, 10:45 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
[offtop]
Цитата Amon, 21.05.2018 в 10:40, в сообщении № 3 ()
уменьшил до максимума

%)

Яндекс: 410016850021169
 
Ответить
Сообщение[offtop]
Цитата Amon, 21.05.2018 в 10:40, в сообщении № 3 ()
уменьшил до максимума

%)
Автор - sboy
Дата добавления - 21.05.2018 в 10:45
Amon Дата: Понедельник, 21.05.2018, 10:47 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Уменьшил как мог, так лучше звучит?) я сам сейчас прочитал свое "уменьшил до максимума" Согласен.)
 
Ответить
СообщениеУменьшил как мог, так лучше звучит?) я сам сейчас прочитал свое "уменьшил до максимума" Согласен.)
Автор - Amon
Дата добавления - 21.05.2018 в 10:47
StoTisteg Дата: Понедельник, 21.05.2018, 13:32 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Amon, тут Вам трудно помочь. Кусок кода нерабочий, что такое "по другому значению" и откуда оно возьмётся — неизвестно, что такое "рядом" (выше? ниже? левее? правее? в ближайшей (в какую сторону?) свободной ячейке?) — тоже непонятно. Могу только дать самые общие наметки. Проверка отсутствия даты у Вас уже есть:
[vba]
Код
If .Cells.Find(test.[c2]) Is Nothing Then
[/vba]
Теперь к этому Then'у нужно приписать некий Else (его в коде нет). Для этого целесообразней сделать так. If меняем на
[vba]
Код

Dim rng As Range
Set rng=.Cells.Find(test.[c2])
If rng Is Nothing Then
[/vba]
И тогда в Вашем Else код
[vba]
Код
rng.Offset(,1)
[/vba]
даст Вам ячейку справа (.Value не нужно)
[vba]
Код
rng.Offset(1,0)
[/vba]
даст Вам ячейку снизу
[vba]
Код
rng.Row
[/vba]
вернёт ряд с датой,
[vba]
Код
rng.Column
[/vba]
колонку, если эти данные Вам нужны.
[vba]
Код
Set rng=.Cells.Find("другое значение")
[/vba]
поиск по другому значению. Нахождение "рядом" описано выше.
Ближайшая свободная ячейка ниже —
[vba]
Код
rng.End(xlDown).Offset(,1)
[/vba]
Правее —
[vba]
Код
rng.End(xlToRight).Offset(1,0)
[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеAmon, тут Вам трудно помочь. Кусок кода нерабочий, что такое "по другому значению" и откуда оно возьмётся — неизвестно, что такое "рядом" (выше? ниже? левее? правее? в ближайшей (в какую сторону?) свободной ячейке?) — тоже непонятно. Могу только дать самые общие наметки. Проверка отсутствия даты у Вас уже есть:
[vba]
Код
If .Cells.Find(test.[c2]) Is Nothing Then
[/vba]
Теперь к этому Then'у нужно приписать некий Else (его в коде нет). Для этого целесообразней сделать так. If меняем на
[vba]
Код

Dim rng As Range
Set rng=.Cells.Find(test.[c2])
If rng Is Nothing Then
[/vba]
И тогда в Вашем Else код
[vba]
Код
rng.Offset(,1)
[/vba]
даст Вам ячейку справа (.Value не нужно)
[vba]
Код
rng.Offset(1,0)
[/vba]
даст Вам ячейку снизу
[vba]
Код
rng.Row
[/vba]
вернёт ряд с датой,
[vba]
Код
rng.Column
[/vba]
колонку, если эти данные Вам нужны.
[vba]
Код
Set rng=.Cells.Find("другое значение")
[/vba]
поиск по другому значению. Нахождение "рядом" описано выше.
Ближайшая свободная ячейка ниже —
[vba]
Код
rng.End(xlDown).Offset(,1)
[/vba]
Правее —
[vba]
Код
rng.End(xlToRight).Offset(1,0)
[/vba]
Автор - StoTisteg
Дата добавления - 21.05.2018 в 13:32
Amon Дата: Понедельник, 21.05.2018, 14:14 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
StoTisteg, Спасибо за ответ.
По другому значению это ячейка [vba]
Код
(test.[c9])
[/vba] которуя нужно найти в том же столбце где и дата, и мне нужно чтобы он не просто если найдет дату искал еще другое значение
а создавал столбец левее от нее, а не просто справа от столбца D как у меня написано [vba]
Код
.Columns("D").Insert xlRight, xlFormatFromRightOrBelow  
[/vba]
Дата которая ищется в документе находится в ячейке всегда D7, а второе значение находится в ячейке D1 .
 
Ответить
СообщениеStoTisteg, Спасибо за ответ.
По другому значению это ячейка [vba]
Код
(test.[c9])
[/vba] которуя нужно найти в том же столбце где и дата, и мне нужно чтобы он не просто если найдет дату искал еще другое значение
а создавал столбец левее от нее, а не просто справа от столбца D как у меня написано [vba]
Код
.Columns("D").Insert xlRight, xlFormatFromRightOrBelow  
[/vba]
Дата которая ищется в документе находится в ячейке всегда D7, а второе значение находится в ячейке D1 .
Автор - Amon
Дата добавления - 21.05.2018 в 14:14
StoTisteg Дата: Понедельник, 21.05.2018, 14:31 | Сообщение № 8
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Amon, тогда... Поиск по тому же столбцу, где и дата (если If заменили)
[vba]
Код
Set rng=.Columns(rng.Column).Find("другое значение")
[/vba]
вставка после этого левее
[vba]
Код
.Columns(rng.Column).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеAmon, тогда... Поиск по тому же столбцу, где и дата (если If заменили)
[vba]
Код
Set rng=.Columns(rng.Column).Find("другое значение")
[/vba]
вставка после этого левее
[vba]
Код
.Columns(rng.Column).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
[/vba]
Автор - StoTisteg
Дата добавления - 21.05.2018 в 14:31
Amon Дата: Понедельник, 21.05.2018, 15:54 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
StoTisteg,
Я не понимаю что я делаю не так один раз только получилось чтобы он создал столбец но он все перетащил и цвета и тд
[vba]
Код

With Results
           Dim rma As Range
           Dim rng As Range
           Set rng = .Cells.Find(test.[c2])
           Set rma = .Cells.Find(test.[c9])
           If rng Is Nothing Then
                    .Columns("D").Insert xlRight, xlFormatFromRightOrBelow
                    .[d7].Value = test.[c2]
                    .[d3:d7].HorizontalAlignment = xlCenterAcrossSelection
                    .[d1].Resize(24).Borders.Weight = xlMedium
                    .Range("D8:D24").Interior.Color = RGB(120, 7, 7)
                    .[d4].Value = test.[a6]
                    .[d5].Value = test.[a4]
                    .[d6].Value = "Фактический результат"
                    .[d1].Value = test.[c9]
                    .[d2].Value = test.[a10]
                    .[d5].ColumnWidth = 32
           ElseIf rma Is Noting Then
                    .Columns("D").Insert xlRight, xlFormatFromRightOrBelow
                    .[d7].Value = test.[c2]
                    .[d3:d7].HorizontalAlignment = xlCenterAcrossSelection
                    .[d1].Resize(24).Borders.Weight = xlMedium
                    .Range("D8:D24").Interior.Color = RGB(120, 7, 7)
                    .[d4].Value = test.[a6]
                    .[d5].Value = test.[a4]
                    .[d6].Value = "Фактический результат"
                    .[d1].Value = test.[c9]
                    .[d2].Value = test.[a10]
                    .[d5].ColumnWidth = 32
           Else
           Set rng = .Columns(rng.Column).Find(test.[c9])
           .Columns(rng.Column).Insert Shift:=xlToRight
           End If
                    Set rCell = Intersect(.Rows(8), .Cells.Find(test.[c9]).EntireColumn)
        End With
[/vba]
 
Ответить
СообщениеStoTisteg,
Я не понимаю что я делаю не так один раз только получилось чтобы он создал столбец но он все перетащил и цвета и тд
[vba]
Код

With Results
           Dim rma As Range
           Dim rng As Range
           Set rng = .Cells.Find(test.[c2])
           Set rma = .Cells.Find(test.[c9])
           If rng Is Nothing Then
                    .Columns("D").Insert xlRight, xlFormatFromRightOrBelow
                    .[d7].Value = test.[c2]
                    .[d3:d7].HorizontalAlignment = xlCenterAcrossSelection
                    .[d1].Resize(24).Borders.Weight = xlMedium
                    .Range("D8:D24").Interior.Color = RGB(120, 7, 7)
                    .[d4].Value = test.[a6]
                    .[d5].Value = test.[a4]
                    .[d6].Value = "Фактический результат"
                    .[d1].Value = test.[c9]
                    .[d2].Value = test.[a10]
                    .[d5].ColumnWidth = 32
           ElseIf rma Is Noting Then
                    .Columns("D").Insert xlRight, xlFormatFromRightOrBelow
                    .[d7].Value = test.[c2]
                    .[d3:d7].HorizontalAlignment = xlCenterAcrossSelection
                    .[d1].Resize(24).Borders.Weight = xlMedium
                    .Range("D8:D24").Interior.Color = RGB(120, 7, 7)
                    .[d4].Value = test.[a6]
                    .[d5].Value = test.[a4]
                    .[d6].Value = "Фактический результат"
                    .[d1].Value = test.[c9]
                    .[d2].Value = test.[a10]
                    .[d5].ColumnWidth = 32
           Else
           Set rng = .Columns(rng.Column).Find(test.[c9])
           .Columns(rng.Column).Insert Shift:=xlToRight
           End If
                    Set rCell = Intersect(.Rows(8), .Cells.Find(test.[c9]).EntireColumn)
        End With
[/vba]
Автор - Amon
Дата добавления - 21.05.2018 в 15:54
StoTisteg Дата: Понедельник, 21.05.2018, 16:16 | Сообщение № 10
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Потому что Вы делаете не то, что описали.
[vba]
Код
Set rma = .Cells.Find(test.[c9])
[/vba]
ищет на всём листе, а Вам, насколько я понял, нужно искать в той колонке, где находится rng. Я же Вам написал:
[vba]
Код
Set rng=.Columns(rng.Column).Find("другое значение")
[/vba]
а переменная rna не нужна совсем. А чтобы не тащил за собой форматы, после вставки
[vba]
Код
.Columns(rng.Column).ClearFormats
[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеПотому что Вы делаете не то, что описали.
[vba]
Код
Set rma = .Cells.Find(test.[c9])
[/vba]
ищет на всём листе, а Вам, насколько я понял, нужно искать в той колонке, где находится rng. Я же Вам написал:
[vba]
Код
Set rng=.Columns(rng.Column).Find("другое значение")
[/vba]
а переменная rna не нужна совсем. А чтобы не тащил за собой форматы, после вставки
[vba]
Код
.Columns(rng.Column).ClearFormats
[/vba]
Автор - StoTisteg
Дата добавления - 21.05.2018 в 16:16
StoTisteg Дата: Понедельник, 21.05.2018, 16:19 | Сообщение № 11
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Или я неправильно понял фразу
Цитата Amon, 21.05.2018 в 14:14, в сообщении № 7 ()
если найдет дату искал еще другое значение
а создавал столбец левее от нее

Что такое "неё"? Если "даты", то зачем искать другое значение? Сформулируйте задачу яснее. Вот мы нашли дату. Где именно нужно искать другое значение и левее чего вставлять колонку?

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Понедельник, 21.05.2018, 16:21
 
Ответить
СообщениеИли я неправильно понял фразу
Цитата Amon, 21.05.2018 в 14:14, в сообщении № 7 ()
если найдет дату искал еще другое значение
а создавал столбец левее от нее

Что такое "неё"? Если "даты", то зачем искать другое значение? Сформулируйте задачу яснее. Вот мы нашли дату. Где именно нужно искать другое значение и левее чего вставлять колонку?
Автор - StoTisteg
Дата добавления - 21.05.2018 в 16:19
Amon Дата: Понедельник, 21.05.2018, 16:33 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
StoTisteg, Дата [vba]
Код
test.[c2]
[/vba] в том же столбце что и другое значение [vba]
Код
test.[c9]
[/vba] , Сначала искать дату, если не нашел создается столбец с датой в столбце D ,
Если нашел дату то ищет второе значение, Если не нашел то так же как и первый раз создается столбец от D , а если нашел дату и второе значение тогда создается столбец слева от второго значения.
 
Ответить
СообщениеStoTisteg, Дата [vba]
Код
test.[c2]
[/vba] в том же столбце что и другое значение [vba]
Код
test.[c9]
[/vba] , Сначала искать дату, если не нашел создается столбец с датой в столбце D ,
Если нашел дату то ищет второе значение, Если не нашел то так же как и первый раз создается столбец от D , а если нашел дату и второе значение тогда создается столбец слева от второго значения.
Автор - Amon
Дата добавления - 21.05.2018 в 16:33
Amon Дата: Понедельник, 21.05.2018, 16:40 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата StoTisteg, 21.05.2018 в 16:16, в сообщении № 10 ()
ищет на всём листе, а Вам, насколько я понял, нужно искать в той колонке, где находится rng. Я же Вам написал:
Set rng=.Columns(rng.Column).Find("другое значение")

У меня VBA постоянно ругается на эту строку Object variable or With block variable not set
Написано у меня так сейчас [vba]
Код
Set rng = .Columns(rng.Column).Find(test.[c9])
[/vba]
 
Ответить
Сообщение
Цитата StoTisteg, 21.05.2018 в 16:16, в сообщении № 10 ()
ищет на всём листе, а Вам, насколько я понял, нужно искать в той колонке, где находится rng. Я же Вам написал:
Set rng=.Columns(rng.Column).Find("другое значение")

У меня VBA постоянно ругается на эту строку Object variable or With block variable not set
Написано у меня так сейчас [vba]
Код
Set rng = .Columns(rng.Column).Find(test.[c9])
[/vba]
Автор - Amon
Дата добавления - 21.05.2018 в 16:40
StoTisteg Дата: Понедельник, 21.05.2018, 16:46 | Сообщение № 14
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Цитата Amon, 21.05.2018 в 16:40, в сообщении № 13 ()
VBA постоянно ругается на эту строку

Не нашёл, значит. Пропишите перед ней[vba]
Код
On Error Resume Next
[/vba]Б Вы всё равно потом проверяете существование.

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
Цитата Amon, 21.05.2018 в 16:40, в сообщении № 13 ()
VBA постоянно ругается на эту строку

Не нашёл, значит. Пропишите перед ней[vba]
Код
On Error Resume Next
[/vba]Б Вы всё равно потом проверяете существование.
Автор - StoTisteg
Дата добавления - 21.05.2018 в 16:46
StoTisteg Дата: Понедельник, 21.05.2018, 16:47 | Сообщение № 15
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Цитата Amon, 21.05.2018 в 16:33, в сообщении № 12 ()
ищет второе значение

Где? На листе или в строке (колонке) с датой?

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
Цитата Amon, 21.05.2018 в 16:33, в сообщении № 12 ()
ищет второе значение

Где? На листе или в строке (колонке) с датой?
Автор - StoTisteg
Дата добавления - 21.05.2018 в 16:47
StoTisteg Дата: Понедельник, 21.05.2018, 16:55 | Сообщение № 16
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Если на листе, то просто пропишите
[vba]
Код
If Not (rng Is Nothing Or rna Is Nothing) Then
    'Здесь вставка колонки левее rna
    Else
        'Здесь вставка колонки D
End if
[/vba]
Ибо у Вас фактически условие "если найдено и то, и то, вставить левее второго значения, иначе вставить колонку D"

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеЕсли на листе, то просто пропишите
[vba]
Код
If Not (rng Is Nothing Or rna Is Nothing) Then
    'Здесь вставка колонки левее rna
    Else
        'Здесь вставка колонки D
End if
[/vba]
Ибо у Вас фактически условие "если найдено и то, и то, вставить левее второго значения, иначе вставить колонку D"
Автор - StoTisteg
Дата добавления - 21.05.2018 в 16:55
Amon Дата: Понедельник, 21.05.2018, 16:58 | Сообщение № 17
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата StoTisteg, 21.05.2018 в 16:47, в сообщении № 15 ()
Где?

На листе по другим столбцам.
Столбцы выглядят так
Дата допустим (18.05.2018) и второе значение "1 из 6"
Дата допустим (18.05.2018) и второе значение "2 из 6"
Дата допустим (18.05.2018) и второе значение "3 из 6"
Дата допустим (18.05.2018) и второе значение "4 из 6"
Дата допустим (18.05.2018) и второе значение "5 из 6"
Дата допустим (18.05.2018) и второе значение "6 из 6"
И Если я снова буду запускать макрос 18.05.2018 го и у меня второе значение будет допусти " 3 из 6" То чтобы столбец создавался слева от столбца в котором уже есть дата 18.05.2018 и второе значение "3 из 6"
 
Ответить
Сообщение
Цитата StoTisteg, 21.05.2018 в 16:47, в сообщении № 15 ()
Где?

На листе по другим столбцам.
Столбцы выглядят так
Дата допустим (18.05.2018) и второе значение "1 из 6"
Дата допустим (18.05.2018) и второе значение "2 из 6"
Дата допустим (18.05.2018) и второе значение "3 из 6"
Дата допустим (18.05.2018) и второе значение "4 из 6"
Дата допустим (18.05.2018) и второе значение "5 из 6"
Дата допустим (18.05.2018) и второе значение "6 из 6"
И Если я снова буду запускать макрос 18.05.2018 го и у меня второе значение будет допусти " 3 из 6" То чтобы столбец создавался слева от столбца в котором уже есть дата 18.05.2018 и второе значение "3 из 6"
Автор - Amon
Дата добавления - 21.05.2018 в 16:58
sboy Дата: Понедельник, 21.05.2018, 17:01 | Сообщение № 18
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
[offtop]
Цитата StoTisteg, 21.05.2018 в 16:47, в сообщении № 15 ()
Где?

в файле, который никто не видит :)

Яндекс: 410016850021169
 
Ответить
Сообщение[offtop]
Цитата StoTisteg, 21.05.2018 в 16:47, в сообщении № 15 ()
Где?

в файле, который никто не видит :)
Автор - sboy
Дата добавления - 21.05.2018 в 17:01
Amon Дата: Понедельник, 21.05.2018, 17:23 | Сообщение № 19
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата StoTisteg, 21.05.2018 в 16:55, в сообщении № 16 ()
иначе вставить колонку D"

Очень жаль то что я не могу прикрепить файл.. в общем он создает и колонку Д и справа. я не понимаю почему так происходит. Как можно уменьшить документ? Я вроде все убрал оттуда... остались только фигуры
 
Ответить
Сообщение
Цитата StoTisteg, 21.05.2018 в 16:55, в сообщении № 16 ()
иначе вставить колонку D"

Очень жаль то что я не могу прикрепить файл.. в общем он создает и колонку Д и справа. я не понимаю почему так происходит. Как можно уменьшить документ? Я вроде все убрал оттуда... остались только фигуры
Автор - Amon
Дата добавления - 21.05.2018 в 17:23
StoTisteg Дата: Понедельник, 21.05.2018, 17:26 | Сообщение № 20
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Цитата Amon, 21.05.2018 в 16:58, в сообщении № 17 ()
Если я снова буду запускать макрос 18.05.2018

Не будете :)

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
Цитата Amon, 21.05.2018 в 16:58, в сообщении № 17 ()
Если я снова буду запускать макрос 18.05.2018

Не будете :)
Автор - StoTisteg
Дата добавления - 21.05.2018 в 17:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск по двум значениям, и вставка столбца рядом с 2м (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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