Помогите с MS Excel

переписать макрос.

На планете эксель есть макрос, он позволяет делать пересечение по горизонтали и вертикали для выбранной ячейки, но есть пару недоработок, если в выбранной ячейке удалить значение, удаление происходить по всему выделенному диапазону, то же самое с заливкой, так же для работы макрос надо копировать в VB для каждого листа. Может кто нибудь встречал похожий макрос или может этот доработать
код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim addr As String
Dim x As Variant
Dim rng, c, r, cll As String

If NoEvents Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
addr = ActiveCell.Address()
x = Split(addr, "$"

c = x(1)
r = x(2)
rng = c & ":" & c & "," & r & ":" & r
Range(rng).Select
cll = c & r
Range(cll).Activate
End Sub

regisergio:

есть прайс табличка,
надо изменить значения в каждом окошке одинаково на фиксированную сумму.
цены увеличились, надо переделать.
как это воплотить?

Создать дополнительную (временную) таблицу.
В первую колонку копируем старые цены.
Во второй вычисляем новые цены по вашей формуле.
Новые цены копируем в буфер обмена.
Переходим в нужное место и в режиме специальной вставки выбираем вставку только значений.

Sintexxx:

На планете эксель есть макрос, он позволяет делать пересечение по горизонтали и вертикали для выбранной ячейки, но есть пару недоработок, если в выбранной ячейке удалить значение, удаление происходить по всему выделенному диапазону, то же самое с заливкой, так же для работы макрос надо копировать в VB для каждого листа. Может кто нибудь встречал похожий макрос или может этот доработать

код
....

все просто, надо поместить макрос не на лист, а в книгу,

код выделить все

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim addr As String
Dim x As Variant
Dim rng, c, r, cll As String

If NoEvents Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
addr = ActiveCell.Address()
x = Split(addr, "$&quot

c = x(1)
r = x(2)
rng = c & ":" & c & "," & r & ":" & r
Range(rng).Select
cll = c & r
Range(cll).Activate
End Sub


получилось!! спасибо
KSIva, на какой номер положить десятку

Уважаемые форумчане! необходима ваша помощь. Есть интересное задание на доработку созданной таблицы эксель. Я так думаю, что простой пользователь с этим не справится, т.к. необходимо создать что-то типа макроса, который будет вносить изменения, но с возможностью выбора строки (столбца), где именно изменять. Т.е. должно появляться окошко, куда простой смертный и укажет номер строки, столбца. Полагаю нужны навыки программирования. Если кто-то может помочь или поможет найти человека, который поможет сделать это задание за вознаграждение огромная просьба сообщить! можно на e-mail: murka-r(собака)mail.ru

Благодарю!

Не могу никак придумать формулу для вычисления даты первого вторника месяца на весь год

Zwalker, Спасибо, но Как-то сложновато...
Может есть идея попроще, чтобы ввести в одной графе первый день месяца, во второй какой это день недели, а в третьей вычислить при помощи "если" первый вторник месяца?

Спасибо

А можно ли в ЕСЛИ писать такой аргумент 3,5<=ячейка<4, то 1,1 иначе если 4<=ячейка<4,5 то 1,2 иначе и.т.д.? а то у меня ошибку выдает

Народ, как в 2007 офисе в excel-е сделать человеческую нумерацию ячеек (т.е. столбцы- буквы, а не цифры) ?
Свернул голову уже
upd. Усё, нашел сам

В Office 2007 надо нажать на кнопку “Office”, после чего выбрать “Параметры Excel” –> закладка “Формулы” –> “Стиль ссылок R1C1″

При снятой галочке будет то что надо