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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задача по программированию в Excel (VBA) 
V
    Опции темы
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   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

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

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

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


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

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

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

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


 




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


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

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