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

Вход

Регистрация

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

 

= Мир MS Excel/Отменить объединение ячейки след. столбца текущей строки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Отменить объединение ячейки след. столбца текущей строки
yuka Дата: Вторник, 18.12.2012, 14:53 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Имеется 2 столбца. В зависимости от полученных данных в ячейке, необходимо отменить объединение в следующем столбце текущей строки. Помогите подправить код пожалуйста:
[vba]
Code

With Target.Next      
      .Value = ""
      With .Validation
       .Delete
          If s <> vbNullString Then
          .Add Type:=xlValidateList, Formula1:=s
          Else:
          Target.Cells.UnMerge ' - эта команда не работает
          End If
    End With
End With
[/vba]


Сообщение отредактировал yuka - Вторник, 18.12.2012, 15:24
 
Ответить
СообщениеИмеется 2 столбца. В зависимости от полученных данных в ячейке, необходимо отменить объединение в следующем столбце текущей строки. Помогите подправить код пожалуйста:
[vba]
Code

With Target.Next      
      .Value = ""
      With .Validation
       .Delete
          If s <> vbNullString Then
          .Add Type:=xlValidateList, Formula1:=s
          Else:
          Target.Cells.UnMerge ' - эта команда не работает
          End If
    End With
End With
[/vba]

Автор - yuka
Дата добавления - 18.12.2012 в 14:53
RAN Дата: Вторник, 18.12.2012, 15:46 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Только с файлом


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеТолько с файлом

Автор - RAN
Дата добавления - 18.12.2012 в 15:46
yuka Дата: Вторник, 18.12.2012, 16:11 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Я не могу файл прикрепить к сообщению. На почту могу выслать.
 
Ответить
СообщениеЯ не могу файл прикрепить к сообщению. На почту могу выслать.

Автор - yuka
Дата добавления - 18.12.2012 в 16:11
yuka Дата: Вторник, 18.12.2012, 16:38 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Файл скидываю
К сообщению приложен файл: 0388607.xls (48.5 Kb)
 
Ответить
СообщениеФайл скидываю

Автор - yuka
Дата добавления - 18.12.2012 в 16:38
yuka Дата: Среда, 19.12.2012, 08:50 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Вопрос закрыт на другом форуме таким кодом:
[vba]
Code
Target.Next.UnMerge
[/vba]
или
[vba]
Code
ActiveCell.Next.MergeArea.UnMerge
[/vba]
Всем спасибо.


Сообщение отредактировал yuka - Среда, 19.12.2012, 08:56
 
Ответить
СообщениеВопрос закрыт на другом форуме таким кодом:
[vba]
Code
Target.Next.UnMerge
[/vba]
или
[vba]
Code
ActiveCell.Next.MergeArea.UnMerge
[/vba]
Всем спасибо.

Автор - yuka
Дата добавления - 19.12.2012 в 08:50
  • Страница 1 из 1
  • 1
Поиск:

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