Добавление ячеек. - Microsoft Office Excel

Vladimir17M · 14.01.2011, 15:20

Добрый день всем! Такая проблема 2 листа нужно чтобы при добавление в первом листе в ячейку A1 значения (текстового) на втором листе между ячейками B2 и C2 добавился 1 столбец.
Заранее спасибо!

motorway · 14.01.2011, 18:32

Вот пример:
вставьте в код первого листа:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$A$1") Then
Worksheets(2).Select
Worksheets(2).Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
End Sub

Vladimir17M · 17.01.2011, 13:42

motorway большое тебе человеческое спасибо, все работает так как нужно!

14.01.2011, 15:20	#1
Vladimir17M Регистрация: 05.02.2010 Сообщений: 9	Добавление ячеек. Добрый день всем! Такая проблема 2 листа нужно чтобы при добавление в первом листе в ячейку A1 значения (текстового) на втором листе между ячейками B2 и C2 добавился 1 столбец. Заранее спасибо!

14.01.2011, 18:32	#2
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Вот пример: вставьте в код первого листа: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$A$1") Then Worksheets(2).Select Worksheets(2).Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove End If End Sub` Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Добавление в конец списка определённых ячеек после нажатия на кнопку	Diamondik	Microsoft Office Excel	12	19.04.2011 16:44
сравнение ячеек и добавление нового столбца к таблице	robbe	Microsoft Office Excel	7	22.01.2010 10:30
как разделить значения ячеек по формату ячеек?	ARIRAN	Microsoft Office Excel	6	11.12.2009 15:30
Добавление данных в диапазон ячеек	denneo	Microsoft Office Excel	1	08.02.2009 09:05

17.01.2011, 13:42	#3
Vladimir17M Регистрация: 05.02.2010 Сообщений: 9	motorway большое тебе человеческое спасибо, все работает так как нужно!