Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях / 25 сообщений из 30, страница 1 из 2
  1  все
06.10.2013, 18:59
    #38418187
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
как сделать так что бы данные ячеек от "С" до "I" слились в одну ячейку во вкладке "заказы" при УСЛОВИЯХ :
1. статус звонка должен быть "да"
2. При чем заполнение происходит как только запишем № звонка во вкладке "Заказы"

образец прилагаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2013, 23:00
    #38418315
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
BELARUSs,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2013, 23:07
    #38418319
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Как вариант - с доп.столбцом. Дабы не напрягать ВПР() восемь раз поиском...

P.S. С другой стороны - почему бы не разрешить UDF и не использовать Join() для сцепки текста?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 02:04
    #38418386
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Можно макросом, код в модуле листа Заказы:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim a(), Rng As Range, x As Range, xn As Range
  Set Rng = Intersect(Target, Columns(1))
  If Rng Is Nothing Then Exit Sub
  Application.EnableEvents = False
  With Лист1.UsedRange.Columns(1)
    For Each x In Rng
      Set xn = .Find(x.Value, LookIn:=xlValues, LookAt:=xlWhole)
      If xn Is Nothing Then
        x.Offset(, 1).ClearContents
      Else
        If StrComp(xn.Offset(, 1).Value, "да", vbTextCompare) = 0 Then
          a = xn.EntireRow.Columns("C:I").Value
          x.Offset(, 1).Value = Join(Array(a(1, 1), a(1, 2), a(1, 3), a(1, 4), a(1, 5), a(1, 6), a(1, 7)))
        Else
          x.Offset(, 1).ClearContents
        End If
      End If
    Next
  End With
  Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 03:09
    #38418404
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
ZVI, извращенец

Но я - извращенец ещё круче:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    Dim z As Worksheet, nRow&
    Set z = ThisWorkbook.Sheets("Çâîíêè")
    nRow = Application.Match(Target.Value, z.Columns(1), 0)
    Target.Offset(, 1) = IIf(nRow = 0 Or z.Cells(nRow, 2) = "äà", Join(Application.Index(z.Cells(nRow, 3).Resize(, 8).Value, 1, 0), " "), "")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 03:11
    #38418405
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Извиняюсь за кодировку
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    Dim z As Worksheet, nRow&
    Set z = ThisWorkbook.Sheets("Звонки")
    nRow = Application.Match(Target.Value, z.Columns(1), 0)
    Target.Offset(, 1) = IIf(nRow = 0 Or z.Cells(nRow, 2) = "да", Join(Application.Index(z.Cells(nRow, 3).Resize(, 8).Value, 1, 0), " "), "")
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 03:42
    #38418410
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Ага, ладно... Вспомним ещё про тупой неверный ввод...
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    Dim z As Worksheet, nRow
    Set z = ThisWorkbook.Sheets("Звонки")
    nRow = Application.Match(Target.Value, z.Columns(1), 0)
    If VarType(nRow) = vbError Then
        Target.Offset(, 1) = ""
    Else
        Target.Offset(, 1) = IIf(z.Cells(nRow, 2) <> "да", "", Join(Application.Index(z.Cells(nRow, 3).Resize(, 8).Value, 1, 0), " "))
    End If
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 13:17
    #38418805
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
AndreTMКак вариант - с доп.столбцом. Дабы не напрягать ВПР() восемь раз поиском...

P.S. С другой стороны - почему бы не разрешить UDF и не использовать Join() для сцепки текста?

а зачем доп столбец, если сравнивать можно с цифрами первого столбца.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 13:51
    #38418868
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
AndreTMАга, ладно... Вспомним ещё про тупой неверный ввод...
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    Dim z As Worksheet, nRow
    Set z = ThisWorkbook.Sheets("Звонки")
    nRow = Application.Match(Target.Value, z.Columns(1), 0)
    If VarType(nRow) = vbError Then
        Target.Offset(, 1) = ""
    Else
        Target.Offset(, 1) = IIf(z.Cells(nRow, 2) <> "да", "", Join(Application.Index(z.Cells(nRow, 3).Resize(, 8).Value, 1, 0), " "))
    End If
End Sub



заработало!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 14:30
    #38418924
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
ЕСТЬ ПРОБЛЕМА. НЕ МОГУ КОД ПЕРЕНЕСТИ В СВОЙ ФАЙЛ. ВЕРНЕЕ ПРАВИЛЬНО ПЕРЕНЕСТИ С КОРРЕКТИРОВКОЙ.

ПРИЛАГАЮ ФАЙЛ В КОТОРЫЙ НАДО. ПОМОЖЕТЕ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 16:21
    #38419123
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
AndreTM, есть такое :)
У меня учтено, что в Target могут быть несколько ячеек из столбца A, например, при групповом копировании/удалении.
Ну и Application.EnableEvents = False/True исключает повторный запуск кода при выполнении Worksheet_Change.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2013, 19:45
    #38419408
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
BELARUSs,

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    If Not (Target.Rows.Count = 1 And Target.Columns.Count = 1) Then Exit Sub
    
    Dim z As Worksheet, nRow
    ' Имя листа со звонками берется из ячейки E1
    Set z = ThisWorkbook.Sheets(CStr(Target.Worksheet.[e1]))
    Application.EnableEvents = False
    nRow = Application.Match(Target.Value, z.Columns(1), 0)
    If VarType(nRow) = vbError Then
        Target.Offset(, 4) = ""
    Else
        Target.Offset(, 4) = IIf(z.Cells(nRow, 3) <> "да", "", z.Cells(nRow, 5) & " : " & _
            z.Cells(nRow, 6) & " " & z.Cells(nRow, 7) & " " & z.Cells(nRow, 8) & " : " & z.Cells(nRow, 13))
    End If
    Application.EnableEvents = True
End Sub


Не забудьте указать в ячейке E1 имя листа со звонками.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 18:34
    #38423446
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
AndreTMBELARUSs,

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    If Not (Target.Rows.Count = 1 And Target.Columns.Count = 1) Then Exit Sub
    
    Dim z As Worksheet, nRow
    ' Имя листа со звонками берется из ячейки E1
    Set z = ThisWorkbook.Sheets(CStr(Target.Worksheet.[e1]))
    Application.EnableEvents = False
    nRow = Application.Match(Target.Value, z.Columns(1), 0)
    If VarType(nRow) = vbError Then
        Target.Offset(, 4) = ""
    Else
        Target.Offset(, 4) = IIf(z.Cells(nRow, 3) <> "да", "", z.Cells(nRow, 5) & " : " & _
            z.Cells(nRow, 6) & " " & z.Cells(nRow, 7) & " " & z.Cells(nRow, 8) & " : " & z.Cells(nRow, 13))
    End If
    Application.EnableEvents = True
End Sub


Не забудьте указать в ячейке E1 имя листа со звонками.


переименовал. но ошибка . принтскрин прикрепил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 18:37
    #38423450
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
BELARUSs,

По-моему из сообщения об ошибке все понятно, у вас в модуле две процедуры с одинаковым названием.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 18:50
    #38423456
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
BELARUSs,

И, кстати, я отсюда вижу, что вы вставляете код в модуль не того листа, что нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 18:55
    #38423463
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
* а, нет, вроде того листа....
Тогда что у вас в этом модуле делает _Change() со вставкой таймкода во второй столбец и автоподбором ширины? Данные заказа - однозначны, и определяются номером звонка... или всё же и здесь надо при каждом изменении - проставлять дату/время? - у вас в примере-образце этого не было.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 19:06
    #38423476
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
AndreTM* а, нет, вроде того листа....
Тогда что у вас в этом модуле делает _Change() со вставкой таймкода во второй столбец и автоподбором ширины? Данные заказа - однозначны, и определяются номером звонка... или всё же и здесь надо при каждом изменении - проставлять дату/время? - у вас в примере-образце этого не было.

этот код подключает автоматом календарь во втором столбце, при изменении данных (№ звонка) в первом столбце.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 19:15
    #38423486
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
BELARUSsAndreTM* а, нет, вроде того листа....
Тогда что у вас в этом модуле делает _Change() со вставкой таймкода во второй столбец и автоподбором ширины? Данные заказа - однозначны, и определяются номером звонка... или всё же и здесь надо при каждом изменении - проставлять дату/время? - у вас в примере-образце этого не было.

этот код подключает автоматом календарь во втором столбце, при изменении данных (№ звонка) в первом столбце.
прилагаю пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 19:25
    #38423494
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
[quot BELARUSs]AndreTM* а, нет, вроде того листа....
или всё же и здесь надо при каждом изменении - проставлять дату/время? - у вас в примере-образце этого не было.
дата проставляется автоматически при изменении данных в первом столбце
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 21:13
    #38423618
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Что даст ВАШ пример? Тем более, что вы выкладываете то же, что было до этого...

Вам же код дан? - дан. Добавьте код в нужное место процедуры .
И предварительно разберите этот код на вашем выложенном примере - что именно он делает.
И только тогда - добро пожаловать с вопросами.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 22:39
    #38423697
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Подстроил код под реальные данные
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 23:26
    #38423742
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Учтите только, что я дал кодовое имя листу с заказами Sh1_Calls
Это сделано для того, чтобы не зависеть от пользовательского названия листа, т.к. оно, похоже, будет меняться от месяца к месяцу - сейчас там ЗвонкиОКТ2013

Кодовое имя листа меняется так:
1. В VBE нажать Ctrl-R, чтобы перейти в окно Project Explorer-a.
2. Ткнуть в объект листа звонков и нажать F4
3. В самом верхнем свойстве (Name) записать Sh1_Calls и нажать Enter
Обратите внимание на то, что ниже есть свойство Name без круглых скобок, это пользовательское имя листа, которое меняется в интерфейсе Excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2013, 23:29
    #38423745
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
Опечатка, должно быть Учтите только, что я дал кодовое имя листу с заказами звонков Sh1_Calls
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2013, 21:07
    #38425312
BELARUSs
BELARUSs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
ZVIУчтите только, что я дал кодовое имя листу с заказами Sh1_Calls
Это сделано для того, чтобы не зависеть от пользовательского названия листа, т.к. оно, похоже, будет меняться от месяца к месяцу - сейчас там ЗвонкиОКТ2013

Кодовое имя листа меняется так:
1. В VBE нажать Ctrl-R, чтобы перейти в окно Project Explorer-a.
2. Ткнуть в объект листа звонков и нажать F4
3. В самом верхнем свойстве (Name) записать Sh1_Calls и нажать Enter
Обратите внимание на то, что ниже есть свойство Name без круглых скобок, это пользовательское имя листа, которое меняется в интерфейсе Excel

спасибо большое!! Все работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2013, 23:04
    #38425912
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях
BELARUSsспасибо большое!! Все работает!
Рад, что помогло и спасибо, что подтвердили это.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать так что бы данные ячеек слились в одну ячейку при 2 условиях / 25 сообщений из 30, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 229ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2174469]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 108ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 14ms
total:  229ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]