ошибка нельзя установить свойство visible класса worksheet

Newbie

Private Sub CommandButton1_Click()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=»», SubAddress:=»Лист4!R1C1″, TextToDisplay:=»Лист4″
End Sub

При нажатии на кнопку, на листе появляется ссылка на лист 4 и только при нажатии на эту ссылку происходит переход на лист 4.

Я бы хотел, чтобы:
1. переход на другой лист происходил непосредственно при нажатии на кнопку;
2. и адрес листа задавался бы не его порядковым номером в книге (SubAddress:=»Лист4!R1C1″), а именем листа.

Буду признателен за помощь

| A | B | C | D
1 |Планы расходов. |Бюджет:|7385 |руб
2 |Приорите|Необходимо |Цена |Остаток
3 | 1 |Набор резцов|2000 |=D1-C3=5385
4 | 2 |Фоторамки |600 |=D3-C4=4785
5 | 3 |Привод DVD |900 |=D4-C5=3885
6 | 4 |HDD 300Гб |2500 |=D5-C6=1385

Sub SelectedUP()
‘
‘ SelectedUP Макрос
‘ Макрос записан 18.10.2008 (Radmir)
‘
‘ Сочетание клавиш: Ctrl+u
‘
Dim UpRow As Integer

Ошибка:
Run-time error ‘424’
object required

Когда у меня был код по проще, у меня смена местами получалась, но результаты формул Остатков не менялись, так как менялись сами формулы, как бы привязываясь к строкам.

Sub SelectedUP()
‘
‘ SelectedUP Макрос
‘ Макрос записан 18.10.2008 (Radmir)
‘
‘ Сочетание клавиш: Ctrl+u
‘
Dim UpRow As Integer

End Sub

Junior Member

Newbie

Sub Перечень()
Sheets(«Перечень»).Select
End Sub

Junior Member

Range(«B2:K2»).Select ‘**********
Selection.Find(What:=mat(2, i), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
n1 = ActiveCell.Column

Range(«A3:A33»).Select ‘************
Selection.Find(What:=mat(0, i), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
r1 = ActiveCell.Row
Range(Cells(r1, n1), Cells(r1 + k, n1)) = «*»

Next
Range(«A1»).Select
End Sub

Junior Member

Код:

Junior Member

а так разве не РАБОТАЕТ?

a1 = Range(ActiveCell, ActiveCell).Value
a2 = Range(ActiveCell, ActiveCell).Offset(0, 1).Value

b1 = Range(ActiveCell, ActiveCell).Offset(-1, 0).Value
b2 = Range(ActiveCell, ActiveCell).Offset(-1, 1).Value

Range(ActiveCell, ActiveCell).Value = b1
Range(ActiveCell, ActiveCell).Offset(0, 1).Value = b2

Range(ActiveCell, ActiveCell).Offset(-1, 0).Value = a1
Range(ActiveCell, ActiveCell).Offset(-1, 1).Value = a2

Junior Member

Dim FoundCell As Range
For Each FoundCell In Range(«A1:A63»)
If FoundCell.Value = «09.12.2008» Then
m = FoundCell.Column ‘Номер столбца
n = FoundCell.Row’ Номер строки
End If
Next

Newbie

Sub SelectedUP()
‘
‘ SelectedUP Макрос
‘ Макрос записан 18.10.2008 (Radmir)
‘
‘ Сочетание клавиш: Ctrl+Shift+J
‘

Dim UpRow As Integer

Sub SelectedDown()
‘
‘ SelectedDown Макрос
‘ Макрос записан 10.12.2008 (Radmir)
‘
‘ Сочетание клавиш: Ctrl+Shift+M
‘

Источник

VBA Excel. Рабочий лист (обращение, переименование, скрытие)

Обращение к рабочим листам Excel из кода VBA. Переименование листов, скрытие и отображение с помощью кода VBA Excel. Свойства Worksheets.Name и Worksheets.Visible.

Обращение к рабочим листам

Рабочий лист (Worksheet) принадлежит коллекции всех рабочих листов (Worksheets) книги Excel. Обратиться к листу можно как к элементу коллекции и, напрямую, по его уникальному имени.

Откройте редактор VBA и обратите внимание на вашу книгу в проводнике, где уникальные имена листов указаны без скобок, а в скобках — имена листов, отображаемые на ярлычках в открытой книге Excel. Уникальные имена листов отсортированы по алфавиту и их расположение по порядку не будет соответствовать их индексам (номерам), если листы перемещались по отношению друг к другу. Индексы листов смотрите по порядку расположения ярлычков в открытой книге. Переместили листы — изменились их индексы.

Обращение к рабочему листу в коде VBA Excel:

Количество листов в рабочей книге Excel определяется так:

Переименование листов

В VBA Excel есть некоторые особенности в наименовании листов, так как у рабочего листа есть два свойства, связанных с именем: (Name) и Name. Откройте окно «Properties» в редакторе VBA, нажав клавишу «F4», и выделите любой лист в проводнике. Вы увидите, что в окне «Properties» свойству (Name) в скобках соответствует в проводнике уникальное имя листа без скобок, а свойству Name без скобок соответствует изменяемое имя листа в скобках. Оба имени в окне «Properties» можно редактировать.

С помощью кода VBA Excel можно редактировать только имя листа Name, отображаемое на ярлычке листа и в проводнике без скобок. Для этого используется свойство рабочего листа Worksheets.Name со следующим синтаксисом:

expression.Name

где expression — переменная, представляющая собой объект Worksheet. Смена имени осуществляется путем присвоения нового значения свойству Worksheets.Name.

Допустим, у нас есть лист с уникальным именем (Name) — Лист1, индексом — 1 и именем Name — МойЛист, которое необходимо заменить на имя — Реестр.

Скрытие и отображение листов

Для скрытия и отображения рабочих листов в VBA Excel используется свойство Worksheet.Visible со следующим синтаксисом:

expression.Visible

где expression — переменная, представляющая собой объект Worksheet. Свойству Worksheet.Visible могут присваиваться следующие значения:

Аналоги присваиваемых значений:

Источник

Ошибка нельзя установить свойство visible класса worksheet

Приложил файл Excel и скрин результата и меню в Word.

Заранее спасибо за совет.

Прошу совета. При выполнении кода есть необходимость получить данные из сводной таблицы. Источник сводной таблицы содержит порядка 300 столбцов. При выполнении команды на ячейке с данными в сводной:
Selection.ShowDetail = True
Выдаёт ошибку «Нельзя установить свойство ShowDetail класса Range»

Если источник сводной содержит 256 столцов и менее, то всё проходит без ошибок.

Пробовал вручную, даблкликом. Выводит данные только первых 256 столцов и собщение «Скопированы не все исходные записи».

Как сделать так что бы выводил данные более чем 256 столцов.

P.S. Excel у меня 2010. И оперативки 8 гигов.

Вставил Ваш код. Действительно удаляет, но выдает ошибку: Невозможно получить свойство PivotTables класса Worksheet.
Приложил пример файла.
Помогите разобраться. Заранее благодарен.

P.S. Таблицу №3 с итоговой суммой 0, он так же не удаляет, что хорошо. Но если удалить данные из столбца «срок» и обновить сводные, то удалит и её.

Скажите команду, которую можно повешать на кнопку в форме, что бы перезапустить её.
Что бы из формы последовательно выполнились команды
Unload me
и UserForm.Show

Прошу удалить тему. Ответ в вопросе был.

Спасибо огромное.
Записал в персональную книгу.
Поменял
05. For Each ws In ThisWorkbook.Worksheets
На
05. For Each ws In ActiveWorkbook.Worksheets

To The_Prist моё уважение!

Но при его выполнении, из за того что много таблиц ссылаются на один источник, каждый раз при обновлении одной из таких таблиц происходит обновление остальных с таким же источником. и при переходе на новую с таким же источником снова все обновляются повторно. Получается что из 10ти сводных таблиц с одним источником, каждая обновляется при выполнении кода 10 раз. Если источников 5, на каждый из которых приходиться по 10 сводных, то имеем 500 обновлений таблиц, вместо необходимых 50ти. Время выполнения огромное.
При нажатии на кнопку «обновить всё» Excel обновляет сводные с одним источником только один раз.

Вопрос: Как выполнить команду «Обновить всё», но пропустить лист с именем «Вывод»?

Источник

Microsoft Office Excel: Нельзя установить свойство HorizontalAlignment клас

(1)
🙂
буквы это конкретика
а я про теорию.
вот
_ОкноЕхс.Windows(_ВыбФ).Activate();
.
_ОкноЕхс.Range(Диапп).Select();
_ОкноЕхс.Selection.Columns.AutoFit();
_ОкноЕхс.Selection.HorizontalAlignment=1;

а аутофит отрабатывает..

эксель же принципиально не связывает range и horizontal alignment
..
хотя я брал код из работающего куска
но там диапазон = строка.
вот и думаю

Процедура ДеИнициализацияЭксель()
Если ПустоеЗначение(лЭксель) = 0 Тогда
лЭксель.ActiveWorkbook.Save();
лЭксель.WorkBooks.Close();
лЭксель.Quit();
лЭксель = 0;
КонецЕсли;
КонецПроцедуры

Функция ИнициализацияЭксель()
Рез = 0;
Если ПустоеЗначение(лЭксель) = 1 Тогда
Если СокрЛП(ПутьКФайлу) <> «» Тогда
Попытка
лЭксель = СоздатьОбъект(«Excel.Application»);
Исключение
Сообщить(ОписаниеОшибки(),»!»);
Сообщить(«Возможно, MS Excel не установлен на этом компьютере.»);
Возврат 0 ;
КонецПопытки;
Попытка
лЭксель.WorkBooks.Open(ПутьКФайлу);
Исключение
Предупреждение(«По указанному пути: «»» + ПутьКФайлу + «»» ничего нет. «);
лЭксель.Quit();
лЭксель = 0;
КонецПопытки;
Рез = 1;
КонецЕсли;
Иначе
Рез = 1;
КонецЕсли;
Возврат Рез;
КонецФункции

Процедура ВыбратьФайл()
Перем Имя, Каталог;
Если ФС.ВыбратьФайл(0, Имя, Каталог, «Путь к файлу Excel»,
«Файлы XLS (*.xls)|*.xls»,»*.xls») <> 1
Тогда
Возврат;
КонецЕсли;
ПутьКФайлу = СокрЛП(Каталог) + СокрЛП(Имя);
КонецПроцедуры// ВыбратьФайл()

Процедура Сформировать()
ИнициализацияЭксель();
Попытка
лТекЛист = лЭксель.WorkSheets(«Лист1»);
лТекЛист.Activate();
лТекЛист.Range(лТекЛист.Cells(1, 1), лТекЛист.Cells(10, 1)).Select();
ЗапускМакроса();
Исключение
ДеинициализацияЭксель();
Возврат;
КонецПопытки;
ДеинициализацияЭксель();
КонецПроцедуры

Вот так работает. Свойство Selection желательно не использовать, можешь захватить другие объекты кроме ячеек.

(10) вообщето код не очень, и кстати если использовать мсскриптконтрол, то совсем не обязательно делать саб или функ.
За активе вообще по рукам всем тут нада ))
(0)

Да 🙂 так и есть. Только во всех источниках которые перерыл в инете везде «функ», как было выше сказано. Перепроверять не приходилось.

🙂
(21+)
..передается большая таблица значений Т,
ее по кусочкам пишут из mxl в xls-ы,
их сшивают в 1 файл (_ВыбФ), а потом надо просто форматировать.

Строк=Т.КоличествоСтрок()+1;
Колон=Т.КоличествоКолонок();
_ОкноЕхс.Windows(_ВыбФ).Activate();
Лист=_ОкноЕхс.Windows(_ВыбФ).ActiveSheet;
Для й=1 По Колон Цикл
Диапп0=_ОкноЕхс.Range(Лист.Cells(1,й),Лист.Cells(Строк,й));
Диапп0.Columns.AutoFit();
КонецЦикла

вот этот кусок работает.
а ни HorizontalAlignment
ни NumberFormatLocal
ни NumberFormat
не работает.
или жалуется как в названии темы
или просто пишет «:» в поле описания ошибки..

_ОкноЕхс=СоздатьОбъект(«Excel.Application»);
_ИмяФФ =_ВыбКат+_ВыбФ;
_ОкноЕхс.Visible=0;
_ОкноЕхс.DisplayAlerts=0;
_ОкноЕхс.DisplayAlerts=1;
_ОкноЕхс.Workbooks.Open(_маска+»1.xls»);
_ОкноЕхс.DisplayAlerts=0;
_ОкноЕхс.ActiveWorkbook.SaveAs(_ИмяФФ,-4143);
_ОкноЕхс.DisplayAlerts=1;
Попытка
_ОкноЕхс.Windows(_ВыбФ).Visible=0;
_ОкноЕхс.Windows(_ВыбФ).DisplayWorkbookTabs = 1;
_ОкноЕхс.Windows(_ВыбФ).TabRatio = 0.2;
Исключение
КонецПопытки;
для _й=2 по _сч цикл
состояние(«Приклеиваю временный файл № «+_й);
_ОкноЕхс.Workbooks.Open(_маска+_й+».xls»);
_ОкноЕхс.Windows(_маскаФайл+_й+».xls»).ActiveSheet.Range(«A1″,»IV»+_ОкноЕхс.Windows(_маскаФайл+_й+».xls»).ActiveSheet.UsedRange.Rows.count).Copy(_ОкноЕхс.Windows(_ВыбФ).ActiveSheet.Range(«A»+сокрлп(_ОкноЕхс.Windows(_ВыбФ).ActiveSheet.UsedRange.Rows.Count+1)));
_ОкноЕхс.Windows(_маскаФайл+_й+».xls»).close(-1);
конеццикла;

Делай через лист всеже

Источник

• ← Как оборудовать место для ночлега собаки своими руками: практическое руководство
• посадить пихту на участке примета →