|
21.06.2013 05:50:26
Нашел такой код.
Sub Удалить_формулы() f = MsgBox("Вы уверены что хотите удалить формулы?", vbYesNo + vbExclamation) If f = vbNo Then GoTo 1 Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 1 End Sub Он удаляет формулы оставляя значения в заранее выделенной ячейке, а как его изменить что бы формула удалялась в указанном диапазоне. Например А1:А9 |
|
|
|
|
|
20.05.2013 09:46:06
Подскажите как открыть несколько файлов Excel находящихся в одном каталоге, скопировать из каждого файла ячейку D5 и вставить значения в рабочую книгу на лист "Акт" в ячейки D51,D52,D53 и так далее в зависимости от количества открытых файлов и после этого открытые файлы закрыть. Заранее спасибо.
|
|
|
|
|
|
17.05.2013 06:20:42
Подскажите как открыть файл Excel из другой книги и сделать активным первый файл.
Есть такой пример: Public Sub Openfile() Set A01 = Workbooks.Open(ThisWorkbook.Path & "\" & "Данные.xls") 'открытие файла .xls по данному адресу End Sub В этом примере открывается файл Данные.xls и эта книга становится активной, а мне нужно чтобы активной осталась книга в которой я работаю. Название файла "Данные.xls" не изменяется, а вот название рабочей книги всегда разное. Спасибо. |
|
|
|
|
|
12.01.2009 06:55:03
Помогите объеденить два кода в один.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("C15,I15,C23"), Target) Is Nothing Then UserForm1.Show End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'собственно процедура, которая открывает лист с именем в ячейке первого листа If Intersect(Target.Cells(1, 1), UsedRange.Columns(1)) Is Nothing Then Exit Sub Else On Error GoTo err With Sheets(Target.Cells(1, 1).Value) .Visible = True .Activate End With End If err: End Sub |
|
|
|
|
|
05.04.2008 14:43:02
Есть код
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True End If End If End With End Sub Что в нем нужно изменить что указывалось не две ячейки,а сразу диапазон (например А1:A100 и B1:B100) Спасибо! |
|
|
|
|
|
04.02.2008 15:01:52
Есть код выпадающего календарика и код координатного выделения как их разместить на листе чтобы они не мешали друг другу?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then UserForm1.Show End If End Sub Public NoEvents As Boolean Public Sub SelOn() NoEvents = False End Sub Public Sub SelOff() NoEvents = True End Sub 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 |
|
|
|
|
