|
|
Другие темы раздела | |
VBA Подсчитать количество отрицательных элементов, расположенных к первому положительному Задание Для столбца Z из диапазона подсчитать количество отрицательных элементов , расположенных к первому положительному Диапазон x y z 0 -2 -2,901070356 -0,33028093 -1,899999976 -2,943416357 0 https://www.cyberforum.ru/ vba/ thread1602592.html |
Траектория ходов для шахматных фигур VBA Помогите пожалуйста прописать траекторию ходов для слона, ферзя и ладьи. Проблема в том, что фигура не может перескакивать через фигуры, стоящие на их траектории. Вот пример кода для коня. ' черный конь If (Cells(.Row, .Column) = ChrW(9822)) And (flag Mod 2 = 0) Then X = .Row Y = .Column F = Cells(.Row, .Column) ElseIf (flag Mod 2 = 0) And (F = ChrW(9822)) And (Abs(X -... |
VBA Строковые данные. Подпрограммы-функции Уже создавал подобную тему, но так и не разобрался до конца: Задание: нужно составить программу, которая будет менять местами первую и последнюю буквы в слове. Методические указания: a) Вставив модуль VBA, ввести текст подпрограммы с обязательным описанием типов данных; b) Для решения задачи использовать функции VBA, аналогичные функциям мастера функций из категории «Текстовые»; c) Для... https://www.cyberforum.ru/ vba/ thread1602312.html | VBA Для каждого столбца из диапазона вычислить наименьшее положительное значение Для каждого столбца из диапазона, полученного в предыдущей задаче, вычислить меньше положительное значение. Запишите их на Письмо Excel под каждым столбиком https://www.cyberforum.ru/ vba/ thread1602148.html |
Проверьте программу,пожалуйста VBA Какие-то чудеса происходят . Час назад программа показывала правильный результат, теперь нет. Помогите! Sub lab3() Dim x As Single, y As Single, z As Single Dim i As Integer Range("A1").Value = "x" Range("B1").Value = "y" Range("C1").Value = "z" i = 2 For x = -2 To 1 Step 0.1 Cells(i, 1).Value = x |
VBA Функция побитового сдвига - VBA
https://www.cyberforum.ru/ vba/ thread1602049.html Уважаемые форумчане, Хочу предложить вам универсальную функцию для побитового сдвига целых чисел. Если кто-то из вас занимался задачей кодирования текстовых данных (например, для отправки их через интернет), то, наверное, вы обратили внимание, что в VBA нет встроенной функции побитового сдвига, которая так востребована при решении данного типа задач... Чтобы восполнить этот пробел, была... |
VBA Автозаполнение Combo box
https://www.cyberforum.ru/ vba/ thread1602035.html Здравствуйте, у меня есть комбо бокс, к которому прикреплен массив(frmВводРедактирование.cboАдрес.List = Адреса) При запуске формы в первый раз, когда вводишь символ в поле комбо бокса, в выпадающем списке появляются значения из массива на эту букву, но при вводе второй буквы в поле, VBA пытается автозаполнить поле первым элементом из массива Адреса() начинающимся на эти две буквы. Проблема... |
Сделать блок-схему алгоритма решения и написать макрос с использованием VBA VBA Дана последовательность из n целых чисел. Найти количество четных элементов этой последовательности. |
VBA Объединение ячеек в строках
https://www.cyberforum.ru/ vba/ thread1602005.html Помогите пожалуйста, я только начал заниматься VBA. Мне нужно написать макрос в exelкоторый бы в определенной строке объединял ячейки идущие подряд с одинаковым текстовым значением. Это должно быть не сложэно, но у меня что-то не получается. |
VBA Range повторное переопределение выдает ошибку
https://www.cyberforum.ru/ vba/ thread1601999.html Добрый день подскажите пожалуйста определяю месть вставки при помощи Range а именно adr_nath = "A" + CStr(kto_he(3) + 1) в стринговую переменную первое определение проходит, повторное выдает ошибку. Оба выделения на одном листе одно за другим для слива массива. |
Подключение к БД в Excel 64bit VBA Приветствую, подскажите, пожалуйста, решал ли кто проблему подключения в БД Oracle в 64bit EXCEL? Использую стандартную конструкцию Set US = CreateObject("OracleInProcServer.XOraSession") В 2010/32 - все работает без проблем. Данные "селектятся", в таблицы "инсертится". В 2013/64, 2010/64 - Ошибка Runtime Error '429': ActiveX component can't create object |
VBA Передача данных в сводную таблицу Excel
https://www.cyberforum.ru/ vba/ thread1601965.html Добрый день ! Передаю данные в сводную таблицу с использованием макроса, который обрабатывает dbf-файл и заметил, что возникают ограничения по количеству уникальных элементов в одном поле. Из интернета нашел: 8 000 - Excel 2000, 32 500 - Excel 2003, 1 048 576 (может ограничиваться объемом доступной оперативной памяти) - Excel 2010 Но при установленном Excel 2010 на разных компьютерах... |
0 / 0 / 0
Регистрация: 01.12.2015
Сообщений: 22
|
|
05.12.2015, 12:57 [ТС] | 0 |
Программа определения последней цифры числа - VBA - Ответ 844118305.12.2015, 12:57. Показов 11663. Ответов 22
Метки (Все метки)
Ответ
0
|
05.12.2015, 12:57 | |
Готовые ответы и решения:
22
Вывод последней цифры числа и числа без последней цифры Замена последней цифры на значение наименьшей цифры в записи числа N Циклы: найти произведение последней цифры и минимальной цифры числа с произведением всех остальных Получить число М, которое образуется из числа N путем замены последней цифры на значение наибольшей цифры |
05.12.2015, 12:57 | |
05.12.2015, 12:57 | |
Помогаю со студенческими работами здесь
0
Образовать новое число, путём замены последней цифры на значение наименьшей цифры в записи исходного числа Получить новое число М, которое образуется из числа N путем замены последней цифры на значение наименьшей цифры Исключить из числа цифры, стоящие между первой и последней цифрой числа. Использовать классы Удаление последней цифры из числа Вывод последней цифры числа Вывод последней цифры числа |