Консультация № 158005
18.01.2009, 00:15
30.00 руб.
0 7 0
Уважаемые эксперты! подскажите пожалуйста - я работаю в экселе, пытаюсь изменить макрос (есть один старый записанный) - выскакивает табличка, оповещающая, что "изменить макрос в скрытой книге невозможно. Закройте все документы и выберите команду "Показать" в меню "Файл". Если закрыть эксель - где взять меню "файл"?. В свойствах эксельного документа все галочки сняты - он не скрытый, не архивный, не только для чтения.

Обсуждение

Неизвестный
18.01.2009, 00:19
общий
Не закрывайте саму программу, закройте только открытые документы.
Неизвестный
18.01.2009, 08:44
общий
Но в меню "файл" тогда все равно отсутствует команда "показать"
Неизвестный
18.01.2009, 15:14
общий
Макрос написан на VBA?
Неизвестный
18.01.2009, 15:17
общий
Видимо, да :)
Sub test()
Dim i As Integer
i = BindMasterDetail(Лист5, "D", "M", Лист3, "D", "I", "; ")
i = BindMasterDetail(Лист5, "D", "M", Лист3, "D", "I", "; ")

End Sub



Function BindMasterDetail(ByRef PSheet As Worksheet, PKCol As String, DstCol As String, ByRef FSheet As Worksheet, FKCol As String, SrcCol As String, Separator As String)
Dim prc As Integer
Dim frc As Integer
For Each p In PSheet.Range(PKCol + "2", PKCol + Trim(Str(PSheet.Rows.Count)))
If p.Value2 <> "" Then prc = p.Row
Next
For Each p In FSheet.Range(FKCol + "2", FKCol + Trim(Str(FSheet.Rows.Count)))
If p.Value2 <> "" Then frc = p.Row
Next
Dim s As String
For Each p In PSheet.Range(PKCol + "2", PKCol + Trim(Str(prc)))
If p.Value2 <> "" Then
s = ""
For Each f In FSheet.Range(FKCol + "2", FKCol + Trim(Str(frc)))
If p.Value2 = f.Value2 Then s = s + "&" + FSheet.Name + "!" + SrcCol + Trim(Str(f.Row)) + "&""" + Separator + """"
Next f
If s <> "" Then PSheet.Cells(p.Row, DstCol).Formula = "=""""" + s
End If
Next p
BindMasterDetail = 0
End Function
Неизвестный
18.01.2009, 15:22
общий
А если поискать искомый пугкт меню в меню Файл редактора VBA?
Неизвестный
18.01.2009, 17:09
общий
Может, здесь найдется решение.
Скачать Использование макросов в Excel. 2-е изд.
Издательство: Питер, 2004 г., 507 стр.
Формат: DJVU
Размер: 8.03 Мб
Несмотря на мощные функциональные возможности, обеспечиваемые пользовательским интерфейсом Excel, существует ряд задач, выполнение которых возможно только программным путем.
Книга "Использование макросов в Excel" представляет собой введение в программирование на Excel VBA, содержащее примеры решения различных практических задач, возникающих при работе в Excel.
Материал книги рассчитан на пользователей Excel, а также программистов, которые не знакомы с объектной моделью Excel. Наряду с разделами, посвященными разработке макросов для Excel 2002, здесь излагается вводный курс по написанию макросов и программ в среде Excel.
[b]Скачать файл. № 1987724[/b]
Успехов.
Неизвестный
18.01.2009, 17:25
общий
спасибо большое за ответынашла почему получалась табличкапойду изучать вводный курс, спасибо и за ссылку на скачивание
Форма ответа