В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

XL2000: как программная увеличить дату на Spinner

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:213464
Аннотация
Элемент управления «счетчик» в Microsoft Excel, можно использовать для изменения значений на листе или в Microsoft Visual Basic для приложений процедуры. Для использования счетчика для увеличения и уменьшения значения через широкий диапазон, необходимо установить и использовать счетчик совместно с другим значением или ячейки для расчета положительных и отрицательных значений.

В данной статье описывается макроса Visual Basic, который использует счетчик для увеличения или уменьшения дату в поле редактирования.
Дополнительная информация
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и или подразумеваемых, включая, но не ограничиваясь только ими, подразумеваемые гарантии товарности или пригодности для определенной цели. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования, а также необходимых средств разработки и отладки.. Специалисты служб технической поддержки Майкрософт могут пояснить назначение тех или иных конструкций кода в конкретном примере, но модификация примеров и их адаптация к задачам разработчика не поддерживается..
, Если имеют ограниченный опыт программирования, может потребоваться обратиться к партнеру корпорации Майкрософт или консультационной службе корпорации Майкрософт. Для получения дополнительных сведений посетите следующие веб-узел Майкрософт:

Корпорация Майкрософт Сертифицированные партнеры-https://Partner.Microsoft.com/Global/30000104

Рекомендации корпорации Майкрософт службы-http://support.Microsoft.com/gp/advisoryservice

Для получения дополнительных сведений о поддержке, которые доступны, а также о том, как связаться с корпорацией Майкрософт, посетите следующий веб-узел корпорации Майкрософт:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSДля создания и использования образец макроса Visual Basic, который использует элемент управления «счетчик» для увеличения и уменьшения значения даты в поле ввода, выполните следующие действия:
  1. Для запуска Excel.
  2. В новой книге щелкните правой кнопкой мыши любую вкладку лист.
  3. В контекстном меню выберите командуВставка.
  4. ВВставкадиалоговое окно, нажмите кнопкуДиалогов MS Excel 5.0, а затем нажмите кнопкуОК.
  5. Пункт"Изменение"средства наФормыпанель инструментов и затем установите текстовое поле в таблице диалогового окна.
  6. ПунктСчетчиксредства наФормыпанель инструментов и затем установите счетчика в таблице диалогового окна.
  7. Нажмите клавиши ALT + F11, чтобы запустить редактор Visual Basic.
  8. НаВставкаменю, нажмите кнопкуМодуль.
  9. В окне модуля введите или вставьте следующий код:
    ' Defines variable called "OldSpin" as an integer, and makes it' available to all subroutines.Public OldSpin As Integer' This routine is assigned to the spinner to run when you choose the' spinner. It will determine the difference between the current' spinner value and OldSpin, and use the difference to increment or' decrement the date in the edit box.Sub SpinDate()    ' Sets the edit box value based on the difference    ' between OldSpin and the spinner value.    DialogSheets(1).EditBoxes(1).Text = _        DateValue(DialogSheets(1).EditBoxes(1).Text) - OldSpin + _        DialogSheets(1).Spinners(1).Value    ' Resets OldSpin to the spinner value.    OldSpin = DialogSheets(1).Spinners(1).ValueEnd Sub' This routine initializes the spinner and OldSpin to a value of' 15000, populates the edit box with today's date, and displays the' dialog box.Sub ShowDialog()    ' Sets OldSpin to 15000.    OldSpin = 15000    ' Sets the current spinner value to 15000.    DialogSheets(1).Spinners(1).Value = OldSpin    ' Sets the edit box to today's date.    DialogSheets(1).EditBoxes(1).Text = Date    ' Displays the dialog box.    Dialogsheets(1).ShowEnd Sub					
  10. Нажмите клавиши ALT + F11, чтобы вернуться в Excel.
  11. Выберите лист диалогового окна.
  12. Щелкните правой кнопкой мыши элемент управления «счетчик» на вкладке диалогового окна, а затем нажмите кнопкуНазначить макросв контекстном меню.
  13. ПунктSpinDateмакрос, а затем нажмите кнопкуОК.
  14. НаСредствавыберите пункт менюМакрос, а затем нажмите кнопкуМакросы.
  15. ПунктShowDialogмакрос, а затем нажмите кнопкуЗапустить.Счетчик увеличивается или уменьшается на дату в поле редактирования. (По умолчанию эта дата является текущей даты). Можно вручную ввести другую дату.

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 213464 — последний просмотр: 09/19/2011 09:13:00 — редакция: 3.0

Microsoft Excel 2000 Standard Edition

  • kbdtacode kbhowto kbinfo kbprogramming kbmt KB213464 KbMtru
Отзывы и предложения