Функция VBA для эксель

@Slavador · Регистрация: 26.09.2014

Студворк — интернет-сервис помощи студентам

Помогите понять вообще, что тут происходит. Функция должна считать количество посещений листа в эксель.
Мне непонятно какие функции выполняет этот кусок кода:

Visual Basic
1
2
Select Case S.Index
Case 2

может ли кто-то подробно объяснить для чего тут Select Case, почему именно Case 2. И что это такое S.Index

Visual Basic
1
2
Select Case S.Index
Case 2

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case S.Index
Case 2
With S
.Name = "Функция моя"
.Range("A1").Value = "Количество посещений="
.Range("B1").Value = S.Range("B1").Value + 1
End With
End Select
 
End Sub

Добавлено через 8 минут
И также оно нифига не работает, в чем проблема кто-то видит?)

Добавлено через 6 минут
Ошибка run time error: object reguired

@Апострофф · 19.11.2015, 06:43

Сообщение от Slavador

в чем проблема кто-то видит?

Сообщение от Slavador

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case S.Index

Теперь видите?

@Slavador · 19.11.2015, 10:33 **[ТС]**

Сообщение от Апострофф

Теперь видите?

Ну вроде это понял, код перенес в Лист. Но еще может кто-то сможет подска3ать, как оно вообще работает, именно эта часть

Visual Basic
1
2
Select Case S.Index
Case 2

@Апострофф · 19.11.2015, 10:40

Сообщение от Slavador

Ну вроде это понял, код перенес в Лист.

Зря.
Код д.б. в модуле ЭтаКнига, я же намекал на то, что Sh<>S.

@Slavador · 19.11.2015, 10:48 **[ТС]**

Сообщение от Апострофф

Зря.
Код д.б. в модуле ЭтаКнига, я же намекал на то, что Sh<>S.

Да просто и с кодом в Листе "S" работало нормально, но поводу Sh - это реально туплю. Спасибр

@Vlad999 · 19.11.2015, 10:59

Сообщение от Slavador

как оно вообще работает

примерно так (своими словами)
смотрим значение S.Index (индекс листа)
значение равно 2 то выполняем код после case 2 иначе ни чего не делаем уходим из просмотра.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Функция VBA для эксель

Решение