Добрый вечер!  
Это снова я со своими глупыми вопросами про макросы "Эксель -> Ворд"  
Есть необходимость стирать последний символ в водимой в ворд строке програмным кодом из эксель.    
Использую:  
Chr(8) - по таблице ASCII это BS (Backspace (Возврат на один символ). Указывает на движение механизма печати или курсора дисплея назад на одну позицию.)  
Chr(127) - это DEL (Delete (Удаление). Используется для удаления (стирания) предыдущего знака в сообщении)  
 
Но в ворде удаление/возврата не происходит. Вместо этого печатается непонятный символ вопроса(см. пример)  
 
Вопрос: Что я деляю не так? или как заставить программу стирать последний символ?

Где-то читал о том, что переменные определенного типа (не помню точно, но по-поему Double) при расчетах дают погрешность!...

Переписал Р = Р.Value в виде P = Val(P), но VarType(Р) всеравно дает 8...  
 
Дело в записи Р = Р.Value - переименовал текстбокс(Р = РР.Value) заработало.  
Видимо VarType(Р) ссылается на текстбокс, а не на переменную...  
 
Всем спасибо, проблема решена, тему можно закрывать...

Вот вам тогда вопрос: в примере ( post_281384.xls) в текстбокс КИС и КИГ ввожу 0.6 и 0.9 соответственно, почему VarType от этих значений дает 4? (Если я правильно вас понял,то VarType от ЛЮБЫХ значений в текстбоксе должно давать 8...)

Теперь почему-то программа видит все целые числа как текст и обрабатывает после EndIf

файл

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

Переписал  выражение для "строка" в соответствии с вариантом Казанского (Теперь "Строка = текст & " " & Chr(Символ) & " = " & CStr(знач) & " " & текст1") Работает, ошибку не выдает...  
 
Но есть пара но.  
Моя конструкция If-Then-Else выглядит следующим образом:  
 
Debug.Print VarType(знач)  
If VarType(знач) = 2 Or VarType(знач) = 17 Or VarType(знач) = 6 Or VarType(знач) = 5 Or VarType(знач) = 4 Then  
  Строка = текст & "  " & Chr(Символ) & " = " & CStr(знач) & " " & текст1  
ElseIf VarType(знач) = 8 Then  
  Строка = текст & "  " & Chr(Символ) & " - " & CStr(знач) & " " & текст1  
End If  
 
Для "знач" = "11","110","0,9","0,6" функция VarType выводит значение 8 (а должно быть 4! или я ошибаюсь?) Поэтому программа видит числа как строку  и использует во втором выражении (после ElseIf).    
 
С чем это связано?  
 
Ps. Сделал пример, но он работает корректно.(по сему, выкладывать не буду) Видимо проблема только в моей программе...  
Девять чисел для оператора "знач" вытягиваются из ComboBox с помощью свойства Value (т.е. переменная = сомбобокс.Value) и для четырех из них VarType выводит значение 8...

nerv: еще раз спасибо. С вашей помощью написал инструкцию If-Then-Else. Правда обнаружились 2 проблемы:  
1)  Почему-то VarType(знач) выдает 8 при знач = 11 и знач = 110. Может, знаете в чем дело?  
2)  При знач = 0.1 (и при других десятичных значениях) теряется нулик т.е. пишет " .1"  
Казанский: и вам спасибо. Cstr(знач)решает проблему без If-Then-Else. Но, к сожалению, необходимость в работоспособной инструкции остается. Ваш вариант (для меня) годится только в качестве "запасного"

Юрий М:  
хорошо, понял, исправлюсь!  
 
nerv:  
Спасибо за помощь, правда я не понял ничего из вашего кода...  
Пойду разбираться...

Чего-то логин вышибло...  
 
Да, сообщение выше - моё

Я блондинко... поэтому прошу извинить за глупый вопрос.  
В чем разница этих строк:  
x(1) = Asc("A") ' Lat  
x(2) = Asc("А") ' Rus  
Почему первая для латинского языка, другая для русского

Большое спасибо!Возьму на вооружение...  
 
PS. У меня почему-то не выходило: Range.Text = "Text" - здесь выдавало ошибку: "Невозможно установить свойство Text объекта Range" ... ну или чего-то вроде того...

Да, кстати пробовал разобраться с помощью макрорекодера - не получилось.  
Запись макроса не распознавал переход в ворд, т.е. выделение ячейки, копирование, переход в другую ячейку макрос отразил, а вот вход в ворд, вставка текста ячейки как будто не было...

Обязательно учту, спасибо.  
Мне кажется программа nerv'а - то, что надо

Большое спасибо!  
С видимостью я тоже вроде разобрался... Если не трудно, поясните:    
"WordApp.Tasks("Microsoft Word").Activate" - что есть Tasks, и зачем прописывать строчку после "WordApp.Visible = True" (я прописал только "WordApp.Visible = True" и вроде все работает...)  
 
По поводу ссылок.  
Копировать из ячейки я тоже вроде понял как, сложность заключается в том что расчитываемые значения никуда не записываются, а вставлять их в ячейки, потом копировать... в общем мне не рентабельно)))    
Пробовал переписать под метод Text - не удалось (ошибка 1004)  
За остальное спасибо!, поиск по сайту этих ссылок не дал (видимо руки не из того места...)

nerv: благодарю, пойду пробовать...  
 
Казанский: Возможно, но, для начала, мне нужно построить пошаговый расчет, а уж потом думать над оптимизацией...

Добрый день.  
 
Очень нужна помощь!!!  
Пишу программу, подсчитывающую значения многих разных переменных.  
На определенном этапе столкнулся с такой проблемой: после каждого подсчета нужно присваивать определенной переменной(например d) значение кода по таблице ASCII.    
Можно, конечно, обойтись методом d = Chr(значение кода), но хотелось бы, чтобы подпрограмма (или функция) сама определяла код по таблице ASCII  
 
Вопрос: есть ли в библиотеках VBA стандартная функция? или как организовать подпрограмму?

+1 к вопросу...  
Меня тоже очень интересует этот вопрос.

Доброго времени суток, Господа.  
Прошу помощи!!!!!  
Есть программа, которая считает значения различных переменных.  
Нужно: после каждого расчета вставить процедуру импорта в ворд  
Порядок действий:  
1) Открыть ворд  
2) Расчет и присвоение переменной значения (Например а = мандарин)  
3) Запись в ворд (записывать должно 3 параметра: текст пояснения, буква переменной, значение переменной. Пр.: "Был выбран","а =","мандарин")  
4) повтор п.3 и 4  
5) закрыть и сохранить ворд  
Сижу уже второй день и не могу сообразить...  
Меня интересует 3 пункт: каким методом или свойством можно выполнить задачу?  
(Поиск по форуму и интернету мало что дал: смог разобраться только том, что такое ранняя и поздняя привязка, как создать объект ворд, открыть\закрыть документ...)

Благодарю!

Про файл забыл

Прошу помощи...  
 
Есть форма, на ней листбокс.При выборе в листбоксе строки, переменной а присваивается значение соответствующей ячейки. Далее идет блок операторов действия с переменной а.    
 
Хочу чтобы при первом клике по листбоксу переменной а задавалось одно значение, а при втором другое.  
Т.е. делаем так:  
1) клик по листбоксу  
2) а="апельсин"  
3) обработка операторами*    
4) в="лимон"  
5) обработка операторами*    
6) конец  
 
* блок операторов одинаков для всех переменных

Да, конечно, второе правильнее...

А я вот не додумался)  
Спасибо.

Нужна помощь в решении проблемы!...  
 
Операцией Sqr можно выразить корни степени кратной 2.  
Вопрос: как выразить через Sqr кубический корень? Возможно ли это?  
Файл не прикрепляю - не зачем...

В моем примере U = 3.625    
Программа должна приравнять к Uст = 3.55

Значение U считается при нажатии кнопки CommandButton1 на форме    
 
Приравнивать можно к любому значению и из первого ряда, и из второго.  
В случае спорнойситуации (Пр. U=2.5) предпочтителен первый ряд.

Исправляюсь....

Прошу помощи...  
 
Есть программа, считающая передаточное отношение U  
Есть таблица стандартных чисел Uст  
Требуется: посчитанное значение U должно приравниваться к ближайшему значению из таблицы Uст