Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка MsgBox, ошибкаMSGBox
 
#1
23.10.2014 00:56:22
Добрый вечер! Ужасно запарила ошибка!!! Помогите начинающиму, пожалуйста.
Код
Option Explicit

Sub macro()
Dim Total As Long, i As Long
Total = 0
For i = 1 To 100
Total = Total + i
Next i
Msgbox Total
End Sub
При компаляции Expected variable or procedure,not module, вот что говорит.
Есть еше один момент незнаю на сколько это критично для программы, но меня просто заколебал  :)
Пишу MsgBox , слово сразу коректируеться получаеться Msgbox, как избавиться от этой корректировки.

Подскажите пожалуйста с этой ситуацей, заступарился.
В Debug.Print результат выводиться,, MsgBox расписовал как только мог и подробно и кратко серавно не как!
За любой полезный совет спасибо.
:)
 
 
 
#2
23.10.2014 01:14:46
Забейте в поиск Msgbox по всему vba проекту и
100% найдете либо глобальную переменную с таким именем,либо процедуру.
Это ваш баг.
 
 
 
#3
23.10.2014 01:39:02
Цитата
new_men пишет:
Пишу MsgBox , слово сразу коректируеться получаеться Msgbox, как избавиться от этой корректировки
Должно быть наоборот: пишем msgbox, а получаем MsgBox )) Согласен с Сергеем: где-то у Вас это слово используется.
P.S. Код следует оформлять тегом.
 
 
 
#4
23.10.2014 09:56:52
Спасибо большое за направление :) Приду домой поищу. Пример взял из Вокенбаха. На работе попробовал сейчас  , ошибку не выдает, сообщение выводит, только вот результат 5050 ))))) Это какое-то проклятие (или испытание)   :)

P/s На работе MsgBox не исправляет на Msgbox.
:)
 
 
 
#5
23.10.2014 11:15:01
Цитата
new_men пишет: только вот результат 5050
Это правильный результат.
 
 
 
#6
23.10.2014 11:39:18
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
23.10.2014 12:17:34
Цитата
Это правильный результат.
Юрий, разобрался с результатом, спасибо)
The_Prist, спасибо за ссылку на статью )
:)
 
 
 
#8
23.10.2014 12:53:46
Цитата
new_men пишет: Msgbox Total
навела красоту в вашем Msgbox
Код
Sub macro()
Dim Total As Long, i As Long
    Total = 0
    For i = 1 To 10
     Total = Total + i
    Next i
    
    MsgBox Total, 64, "ВСЁ" 
End Sub
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
Страницы: 1
Читают тему
Наверх