Как определить код программы в excel

Есть excell файл (.xlsm) в котором срабатывает программа: генерация случайных чисел в определенных ячейках при сохранении документа. Возникла необходимость внести изменения в программу. Но не могу никак вывести код. Вкладка Разработчик есть, параметр «Включить все макросы (не рекомендуется, возможен запуск опасной программы)» выбран. Но в окне макросов пусто. И при Alt F11 тоже пустое окно открывается. Подскажите, пожалуйста, как открыть код?
Знания экселя на самом примитивном уровне.


  • Вопрос задан

    более трёх лет назад

  • 5509 просмотров

 

john22255

Пользователь

Сообщений: 225
Регистрация: 31.10.2013

#1

02.08.2017 13:09:56

Доброго дня!
Вот есть на форуме старая тема:

http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=2578

И в этой теме приложен файл уважаемым

Юрий М

.
Вот ссылка на этот файл:

http://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=9188&action=download

Подскажите пожалуйста, как посмотреть код этих штуковин.
Потому что я включаю «режим конструктора», выделяю кнопку на экране, жму «просмотр кода» и вижу только:

Код
Sub Form()
   UserForm1.Show
End Sub

Как то не густо…. Я наверно что то не так делаю. Подскажите как увидеть весь код целиком.
Спасибо.

 

Logistic

Пользователь

Сообщений: 741
Регистрация: 03.01.2013

Смотрите свойство комбобокса

 

kuklp

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Для кнопки это и есть весь код. Код самой формы находится в модуле формы, там его и смотрите.

Что такое модуль? Какие бывают модули?

Я сам — дурнее всякого примера! …

 

john22255

Пользователь

Сообщений: 225
Регистрация: 31.10.2013

#4

02.08.2017 13:21:24

Цитата
Logistic написал:
Смотрите свойство комбобокса

А как его посмотреть, если после нажатия на кнопку появляется UserForm1 (наверно это и есть комбобокс), и больше ничего нельзя сделать? Т.е. свойства не посмотреть уже. Нельзя ничего нажать или включить контекстное меню, т.к. форма ждет ввода данных.

Вот все что можно увидеть через редактор vba:

Код
Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
   Range("D1") = ComboBox1.Value
   Unload UserForm1
End Sub

Private Sub UserForm_Click()

End Sub

Изменено: john2225502.08.2017 13:23:41

 

Logistic

Пользователь

Сообщений: 741
Регистрация: 03.01.2013

 

john22255

Пользователь

Сообщений: 225
Регистрация: 31.10.2013

#6

02.08.2017 13:42:52

Цитата
Logistic написал:
Протестируйте так

У вас так же малоинформативный код:

Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
 

Logistic

Пользователь

Сообщений: 741
Регистрация: 03.01.2013

А какую Вам надо информацию? :(  

 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

#8

02.08.2017 13:45:26

Смотрите

Код
Private Sub CommandButton1_Click()
   Range("D1") = ComboBox1.Value
   Unload UserForm1
End Sub

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

 

john22255

Пользователь

Сообщений: 225
Регистрация: 31.10.2013

#9

02.08.2017 13:48:50

Цитата
Logistic написал:
А какую Вам надо информацию?

Я бы хотел приспособить этот способ (диалоговое окно с выпадающим списком) для собственных нужд. И хотел бы понять как мне это сделать. Но понять не могу. Например непонятно где поменять диапазон списка. Ведь в искомом файле он B2:B11, а мне нужен другой диапазон.

Изменено: john2225502.08.2017 13:51:19

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#10

02.08.2017 13:50:35

Цитата
все что можно увидеть через редактор vba

Alt + F11
Forms —> UserForm1 кликните мышкой и выбирайте нужные вам элементы

 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#11

02.08.2017 13:54:31

Цитата
john22255 написал:
Нельзя ничего нажать или включить контекстное меню

а Вы отожмите кнопку режима конструктора, ознакомьтесь с азами работы в VBA(где модули, как попасть) и все у Вас получится. Вам надо всего-то нажать Alt+F11, Ctrl+R(для отображения окна проектов) — найти там свой файл, раскрыть и поискать там везде эту самую UserForm. Вот в ней весь код и найдете.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

john22255

Пользователь

Сообщений: 225
Регистрация: 31.10.2013

Спасибо,всем откликнувшимся! Я кажется нашел в частности где поменять диапазон списка:

 

Logistic

Пользователь

Сообщений: 741
Регистрация: 03.01.2013

Я ведь Вам писал ,смотрите свойства комбобокса :)  

 

john22255

Пользователь

Сообщений: 225
Регистрация: 31.10.2013

#14

02.08.2017 14:13:18

Цитата
Logistic написал:
Я ведь Вам писал

Извините, но до меня сразу не дошло, что вы имеете ввиду

 

kuklp

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

#15

02.08.2017 14:19:40

Цитата
john22255 написал:
где поменять диапазон списка

Вот это и надо было спросить в топике, а не ходить вокруг, да около. Конспиратор.. 15 пост в теме!

Цитата
The_Prist написал:
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Я сам — дурнее всякого примера! …

Поздравляю! Вы добрались до конца первой недели марафона 30 функций Excel за 30 дней, изучив вчера функцию FIXED (ФИКСИРОВАННЫЙ). Сегодня мы немного расслабимся и займёмся функцией, у которой не так много примеров использования – это функция CODE (КОДСИМВ). Она может работать вместе с другими функциями в длинных и сложных формулах, но сегодня мы сосредоточимся на том, что она может делать самостоятельно в простейших случаях.

Итак, давайте разберёмся со справочной информацией по функции CODE (КОДСИМВ) и рассмотрим варианты её применения в Excel. Если у Вас есть подсказки или примеры использования – делитесь ими в комментариях.

Содержание

  1. Функция 07: CODE (КОДСИМВ)
  2. Как можно использовать функцию CODE (КОДСИМВ)?
  3. Синтаксис CODE (КОДСИМВ)
  4. Ловушки CODE (КОДСИМВ)
  5. Пример 1: Получаем код скрытого символа
  6. Пример 2: Находим код символа
  7. Ввод на цифровой клавиатуре
  8. Ввод на клавиатуре без цифрового блока

Функция 07: CODE (КОДСИМВ)

Функция CODE (КОДСИМВ) возвращает численный код первого символа текстовой строки. Для Windows это будет код из таблицы ANSI, а для Macintosh — код из таблицы символов Macintosh.

Функция КОДСИМВ в Excel

Как можно использовать функцию CODE (КОДСИМВ)?

Функция CODE (КОДСИМВ) позволяет найти ответ на следующие вопросы:

  • Какой скрытый символ таится в конце импортированного текста?
  • Как я могу ввести специальный символ в ячейку?

Синтаксис CODE (КОДСИМВ)

Функция CODE (КОДСИМВ) имеет такой синтаксис:

CODE(text)
КОДСИМВ(текст)

  • text (текст) – это текстовая строка, код первого символа которой Вы хотите получить.

Ловушки CODE (КОДСИМВ)

Результаты, возвращаемые функцией в разных операционных системах, могут отличаться. Коды символов ASCII (с 32 по 126) в большинстве своём соответствуют символам на Вашей клавиатуре. Однако, символы для более высоких номеров (от 129 до 254) могут различаться.

Пример 1: Получаем код скрытого символа

Текст, копируемый с веб-сайта, иногда содержит скрытые символы. Функция CODE (КОДСИМВ) может быть использована для того, чтобы определить, что это за символы. Например, в ячейке B3 находится текстовая строка, в которой видно слово «test» – всего 4 символа. В ячейке С3 функция LEN (ДЛСТР) подсчитала, что в ячейке B3 находится 5 символов.

Чтобы определить код последнего символа, Вы можете использовать функцию RIGHT (ПРАВСИМВ), чтобы извлечь последний символ строки. Далее применить функцию CODE (КОДСИМВ), чтобы получить код этого символа.

=CODE(RIGHT(B3,1))
=КОДСИМВ(ПРАВСИМВ(B3;1))

Функция КОДСИМВ в Excel

В ячейке D3 видно, что последний символ строки имеет код 160, что соответствует неразрывному пробелу, который используется на веб-сайтах.

Пример 2: Находим код символа

Чтобы вставить специальные символы в таблицу Excel, Вы можете использовать команду Symbol (Символы) на вкладке Insert (Вставка). Например, Вы можете вставить символ градуса ° или символ авторского права ©.

После того, как вставлен символ, можно определить его код, используя функцию CODE (КОДСИМВ):

=IF(C3="","",CODE(RIGHT(C3,1)))
=ЕСЛИ(C3="";"";КОДСИМВ(ПРАВСИМВ(C3;1)))

Функция КОДСИМВ в Excel

Теперь, когда Вам известен код, Вы можете вставить символ, используя цифровую клавиатуру (только не те цифры, которые над буквенной клавиатурой). Код символа авторского права — 169. Проделайте следующие шаги, чтобы ввести этот символ в ячейку.

Ввод на цифровой клавиатуре

  1. Нажмите клавишу Alt.
  2. На цифровой клавиатуре наберите 4-значный код (если необходимо, добавьте недостающие нули): 0169.
  3. Отпустите клавишу Alt, чтобы символ появился в ячейке. При необходимости нажмите Enter.

Ввод на клавиатуре без цифрового блока

В ноутбуках бывает так, что для использования функционала цифровой клавиатуры нужно дополнительно нажимать специальные клавиши. Рекомендую свериться на этот счёт с руководством пользователя для Вашего ноутбука. Вот как это работает на моём ноутбуке фирмы Dell:

  1. Нажать клавишу Fn и клавишу F4, чтобы включить NumLock.
  2. Найти цифровую клавиатуру, расположенную на клавишах буквенной клавиатуры. На моей клавиатуре: J=1, K=2 и так далее.
  3. Нажать Alt+Fn и, используя цифровую клавиатуру, ввести 4-значный код символа (добавляя нули, если это необходимо): 0169.
  4. Отпустить Alt+Fn, чтобы символ авторского права появился в ячейке. При необходимости нажать Enter.
  5. Когда все сделано, снова нажать Fn+F4, чтобы отключить NumLock.

Оцените качество статьи. Нам важно ваше мнение:

В Excel нет встроенной команды для отображения всех настроек содержимого / формулы / форматирования ячейки.

Это сложная тема, и есть несколько способов предоставить информацию о ячейке или листе или рабочей книге.

Формулы. В Excel 2013 и более поздних версиях существует функция FormulaText(), которую можно использовать для отображения формулы, используемой конкретной ячейкой.

Ctrl-`(это клавиша слева от клавиши 1 на клавиатуре США) — это переключит отображение листа в режим просмотра формул, поэтому вместо РЕЗУЛЬТАТА формул вы увидите фактические формулы внутри ячеек.

Доступен ряд инструментов аудита электронных таблиц. Некоторые из них являются коммерческими, некоторые бесплатными.

Excel MVP Дэйв Бретт является автором Mappit, который является бесплатным

Excel 2013 и выше имеет встроенную надстройку «Запрос», которую необходимо активировать с помощью надстроек Com Options Excel, прежде чем она сможет работать, и она предоставит больше информации о вашей электронной таблице, чем вы когда-либо захотите узнать. Если вы хотите знать «все возможные варианты для Microsoft Excel», то это ваша отправная точка.

693 / 99 / 10

Регистрация: 25.06.2011

Сообщений: 718

1

Как увидеть код стандартних фунций

09.02.2012, 16:21. Показов 5874. Ответов 6


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

как увидеть код стандартних фунций…..там походу пароль? есть необходимость увидеть решение майрософта на нескольких функциях…….. ну и чуство недоступности или прихованости чего не могу увидеть уже достало ………офис у меня 2003



1



Эксперт WindowsАвтор FAQ

17993 / 7619 / 890

Регистрация: 25.12.2011

Сообщений: 11,352

Записей в блоге: 17

09.02.2012, 17:53

2

Не уверен, что ТС имел в виду это:

Где можно найти описание, значения параметров всех стандратных функций, процедур (написанных в виде кода VBA). Может что-то вроде справочника. Понятно что все это по отдельности можно найти в поисковике, но все же. Некоторые внутренние функции VBA — дает подсказку и они есть в его help-е (Shift+F2), но описания на эти команды отсутствуют:

… = Find (… — поиск на листе, здесь много параметров

и т.п.



2



693 / 99 / 10

Регистрация: 25.06.2011

Сообщений: 718

09.02.2012, 18:02

 [ТС]

3

проблема вот чем ……….. что нужно увидеть код екселивських функций



0



Эксперт WindowsАвтор FAQ

17993 / 7619 / 890

Регистрация: 25.12.2011

Сообщений: 11,352

Записей в блоге: 17

09.02.2012, 18:03

4

Погарячился
оказывается во встроенном хелпе есть. Выделяем любую простенькую команду, Shift+F2, вводим в поле поиска команду «find», выделяем нужное свойство, например «Excel WorkSheetFunction Find» и нажимаем значек вопроса.

Я понял, т.е. например, Вам нужно узнать как устроена команда Replace в более простом виде … и прочие ?



0



693 / 99 / 10

Регистрация: 25.06.2011

Сообщений: 718

09.02.2012, 18:05

 [ТС]

5

может ето поможет



0



1702 / 189 / 19

Регистрация: 20.11.2011

Сообщений: 281

11.02.2012, 06:50

6

Лучший ответ Сообщение было отмечено как решение

Решение

Цитата
Сообщение от IvanOK
Посмотреть сообщение

проблема вот чем ……….. что нужно увидеть код екселивських функций

Да проще простого. Дизассемблируйте ВСЕ(!) екселевкие(а лучше все офисные) библиотеки и ищите нужную функцию. Не беда, что там наверняка применено еще и шифрование кода — по сути это все тот же ассемблер, так что трудностей возникнуть не должно:-)



6



Эксперт WindowsАвтор FAQ

17993 / 7619 / 890

Регистрация: 25.12.2011

Сообщений: 11,352

Записей в блоге: 17

11.02.2012, 20:09

7

То, что Вы показывали на скриншоте, является надстройками XLA, защищенными от просмотра исходного кода правообладателем.
Раскрытие кода с Вашей стороны будет называться пиратством.



0



Понравилась статья? Поделить с друзьями:
  • Как определить кнопки в excel
  • Как определить ключевые слова в word
  • Как определить кириллица или латиница в excel
  • Как определить какой шрифт в word
  • Как определить какой у меня word