Модераторы: mihanik

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задача по программированию в Excel (VBA) 
V
    Опции темы
Ватрушка
  Дата 26.11.2008, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

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

    Задача
Определить, делится ли натуральное трехзначное число на три без остатка по признаку делимости
PM MAIL   Вверх
Akina
Дата 26.11.2008, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
и чо?

Код

Function F(X As Long) as Boolean
Dim T As Integer
Do Until X=0
  T=T + (X MOD 10)
  X=X\10
Loop
F=((T mod 3)=0)
End Function



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Ватрушка
  Дата 26.11.2008, 22:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
а как ее проверить в Excel?  smile 
PM MAIL   Вверх
Akina
Дата 27.11.2008, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Я проверил - работает.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kapbepucm
Дата 28.11.2008, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Цитата(Ватрушка @  26.11.2008,  22:06 Найти цитируемый пост)
а как ее проверить в Excel?
Пишешь в ячейку A1 натуральное трехзначное число, а в A2 формулу =F(A1). Смотришь на результат: TRUE- делится, FALSE- нет smile


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
mihanik
Дата 28.11.2008, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Ватрушка, ты сама что-нибудь сделала?




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Ватрушка
Дата 2.12.2008, 23:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
Создать процедуру, перемещающую последнюю введенную запись на место первой записи.

Задачи для самостоятельной работы приведены в табл. 7.
Таблица 7
Создание процедур
1 Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом

Добавлено через 32 секунды
я ничего не делала,я ничего в этом не понимаю,вот и прошу БОЛЬШОЙ ПРИБОЛЬШОЙ ПОМОЩИ!!!!!!!!!!!!!!!!!!!!!
PM MAIL   Вверх
Akina
Дата 2.12.2008, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Выкиньте уже её в ЦП...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kapbepucm
Дата 3.12.2008, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Ватрушка, у тебя два задания?
Цитата(Ватрушка @  2.12.2008,  23:15 Найти цитируемый пост)
Создать процедуру, перемещающую последнюю введенную запись на место первой записи
Цитата(Ватрушка @  2.12.2008,  23:15 Найти цитируемый пост)
Определить, является ли сумма минимальной и максимальной цифры четным числом
Что касается второго задания- создай в VBA окне новый модуль. Напиши там
Цитата(Akina @  26.11.2008,  21:50 Найти цитируемый пост)
Public Function F(X As Long) as Boolean
Dim T As Integer
Do Until X=0
  T=T + (X MOD 10)
  X=X\10
Loop
F=((T mod 3)=0)
End Function
потом
Цитата(kapbepucm @  28.11.2008,  11:37 Найти цитируемый пост)
Пишешь в ячейку A1 натуральное трехзначное число, а в A2 формулу =F(A1). Смотришь на результат: TRUE- делится, FALSE- нет


Добавлено через 3 минуты и 22 секунды
Вообще, чтобы тебе помочь, надо более подробно узнать о твоём задании(ях). Напиши ещё раз и больше деталей предоставь smile


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Ватрушка
Дата 3.12.2008, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
спасибо всем!!!! =) с первым заданием разобралась =)) smile

Добавлено через 3 минуты
Создать процедуру, перемещающую последнюю введенную запись на место первой записи.

 Задача
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом

Добавлено через 3 минуты и 29 секунд
ПОМОГИТЕ ПОЖАЛУйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PM MAIL   Вверх
Ватрушка
Дата 3.12.2008, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет

задача 2
Дан одномерный массив. Определить, есть в нем хотя бы пара одина-ковых соседних чисел
PM MAIL   Вверх
kapbepucm
Дата 4.12.2008, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Цитата(Ватрушка @  3.12.2008,  22:47 Найти цитируемый пост)
задача 2
Дан одномерный массив. Определить, есть в нем хотя бы пара одина-ковых соседних чисел 
Код
Public Sub Test()
  Dim MyArr(1 To 5) As Long
  MyArr(1) = 1
  MyArr(2) = 2
  MyArr(3) = 2
  MyArr(4) = 2
  MyArr(5) = 3
  MsgBox IsPara(MyArr)
End Sub
Public Function IsPara(ByRef Arr) As Boolean
  IsPara = False
  Dim I As Long
  Dim MyValue
  MyValue = Arr(LBound(Arr, 1))
  For I = LBound(Arr, 1) + 1 To UBound(Arr, 1)
    If MyValue = Arr(I) Then
      IsPara = True
      Exit For
    Else
      MyValue = Arr(I)
    End If
  Next I
End Function


Добавлено через 2 минуты и 21 секунду
Цитата(Ватрушка @  3.12.2008,  20:12 Найти цитируемый пост)
ПОМОГИТЕ ПОЖАЛУйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Хочешь, чтобы помогли- соблюдай правила. Задавай новый вопрос в новой теме.


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Ватрушка
Дата 4.12.2008, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
задаю,а пишют мне что не правильно =((((( что вы все набросиллись на бедную маленькую девочку =(((?????

Добавлено через 1 минуту и 35 секунд
а про первую задачку забыли =((

Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом


и не обижайте меня больше =(((
PM MAIL   Вверх
Dobermann
Дата 4.12.2008, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Цитата(Ватрушка @  4.12.2008,  16:30 Найти цитируемый пост)
и не обижайте меня больше =(((

Ставил бы макрос на запись и сам порыл бы! 
PM   Вверх
Ватрушка
Дата 4.12.2008, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
во-первых, чего куда ставил??? 

и во-вторых, Я ДЕВУШКА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PM MAIL   Вверх
Dobermann
Дата 4.12.2008, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Цитата(Ватрушка @  4.12.2008,  17:02 Найти цитируемый пост)
во-первых, чего куда ставил???

Макрорекордер
Цитата(Ватрушка @  4.12.2008,  17:02 Найти цитируемый пост)
и во-вторых, Я ДЕВУШКА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

No comments  smile 
PM   Вверх
kapbepucm
Дата 4.12.2008, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Цитата(Ватрушка @  4.12.2008,  16:30 Найти цитируемый пост)
задаю,а пишют мне что не правильно
Они так пишут, потому что у вас загаловок темы не отображает того, чего вы от нас хотите. Вместо "ПОМОГИТЕ!!!!!! ПРОГРАММИРОВАНИЕ В VBA (EXCEL)!!!" следовало написать "работа с записями" или "проверка суммы минимальной и максимальной цифры". При том вы задаёте несколько вопросов.

Добавлено через 3 минуты и 15 секунд
Цитата(Ватрушка @  4.12.2008,  16:30 Найти цитируемый пост)
и не обижайте меня больше =((( 
Ну не все любят у нас нарушителей нарушительниц smile

Добавлено через 5 минут и 35 секунд
Цитата(Ватрушка @  4.12.2008,  16:30 Найти цитируемый пост)
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом
боюсь отвечать, миханик может стереть последние посты smile 


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
timich
Дата 4.12.2008, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 4.12.2008

Репутация: -1
Всего: нет
всем привет. может не в тему... нужна программа которая будет вносить цифры в таблицу НО цифры нужно диктовать в микрофон. возможно ли такое?? чисел будет определенное количество от 1 до 60. 
с уважением, timich!
PM MAIL   Вверх
kapbepucm
Дата 5.12.2008, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
timich, поищите что нибудь на тему "распознование речи"

Добавлено через 1 минуту и 57 секунд
"Чистый" VBA как-то для такого дела не особо подходит...

Добавлено через 5 минут и 7 секунд
И соблюдайте правила форума- а то, смотрите, вам уже за первый пост кто-то минус влепил smile  smile 


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Dobermann
Дата 5.12.2008, 10:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Не, не получится...
PM   Вверх
kapbepucm
Дата 5.12.2008, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Цитата(Dobermann @  5.12.2008,  10:12 Найти цитируемый пост)
Не, не получится...
При особом желании возможно
Цитата(Ватрушка @  4.12.2008,  16:30 Найти цитируемый пост)
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом
Код
Sub Test()
  Dim MyValue As Long
  Dim MinValue As Byte, MaxValue As Byte
  On Error GoTo ErrorLabel
  Do
    MyValue = CLng(InputBox("Введите натуральное число"))
  Loop Until MyValue > 0
  On Error GoTo 0
  If Len(CStr(MyValue)) = 1 Then
    MsgBox "Невозможно выполнить указанные действия"
  Else
    MinValue = Left(CStr(MyValue), 1)
    MaxValue = MinValue
    Dim I As Long
    For I = 2 To Len(CStr(MyValue))
      If CByte(Mid(CStr(MyValue), I, 1)) > MaxValue Then MaxValue = CByte(Mid(CStr(MyValue), I, 1))
      If CByte(Mid(CStr(MyValue), I, 1)) < MinValue Then MinValue = CByte(Mid(CStr(MyValue), I, 1))
    Next I
    If ((MinValue + MaxValue) Mod 2) = 1 Then
      MsgBox "нет, не является"
    Else
      MsgBox "да, является"
    End If
  End If
ExitLabel:
Exit Sub
ErrorLabel:
  If Err.Number = 13 Then Resume Else Resume ExitLabel
End Sub



--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
aleksandrfnsv1
  Дата 16.12.2008, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

Репутация: нет
Всего: нет
Akina, 
Akina, 
Akina, 
Akina, 
Akina, 
Akina, 
Ватрушка, 
Akina, 
kapbepucm, 
mihanik, 
mihanik, 
mihanik,  smile  smile 
PM MAIL   Вверх
mihanik
Дата 17.12.2008, 00:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Модератор: 

aleksandrfnsv1, очень информативно...

Ещё раз такое повториться и получите лично от меня мунус в репутацию.

 smile 



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
kapbepucm
Дата 17.12.2008, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Цитата(aleksandrfnsv1 @  16.12.2008,  22:01 Найти цитируемый пост)
Akina, 
Akina, 
Akina, 
Akina, 
Akina, 
Akina, 
Ватрушка, 
Akina, 
kapbepucm, 
mihanik, 
mihanik, 
mihanik
А что этот список значит?
mihanik, основные вопросы темы, видимо, решены- может закроешь тему?


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1249 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.