Автоматическое (через VBA) преобразование больших и малых чисел в математический формат

@Freqq · Регистрация: 05.01.2013

Студворк — интернет-сервис помощи студентам

Подскажите как (я так понимаю что скорее с помощью VBA) преобразовать числа вида
1,25Е-10 в формат 1,25×10^-10
2,365Е+05 в формат 2,36×10⁵
СПАСИБО!
ЗЫ по возможности объясните где в VBA прописывать соответствующие командные строки
ЗЫЗЫ Офис 2003

@Все имена заняты · 11.01.2013, 06:51

Такой вариант.

@Freqq · 11.01.2013, 22:08 **[ТС]**

Спасибо!!!!
А как преобразование привязать к ячейке (а не нажатию кнопки) при изменении (получении фокуса) исходной ячейки?

@Казанский · 11.01.2013, 23:25

В модуль листа (правый клик по ярлычку листа - Исходный текст)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Me.UsedRange)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In r
    ExpText r
Next
Application.EnableEvents = True
End Sub
 
Private Sub ExpText(cll As Range)
    'ïðîöåäóðà îò 'Âñå èìåíà çàíÿòû' ñ íåáîëüøèì èçìåíåíèåì
Dim outString As String
If IsNumeric(cll.Value) And InStr(cll.Text, "E") > 0 Then
    outString = Replace$(cll.Text, "E", ChrW(215) & "10")
    cll.Value = outString
    cll.Characters(InStr(outString, ChrW(215)) + 3).Font.Superscript = True
End If
End Sub

Можно выделять сразу несколько ячеек, целые столбцы и т.п.
Только учтите, что значения в ячейках перестают быть числами, они становятся текстом, их нельзя будет использовать в числовых формулах, сортировать как числа и т.д.

@Freqq · 12.01.2013, 00:23 **[ТС]**

БЛАГОДАРЮ!!!!
ТО ЧТО НАДО!!!!

Добавлено через 6 минут
А как убрать знак + в положительных степенях?

@Казанский · 12.01.2013, 00:40

строка 16

Visual Basic
1
    outString = Replace$(Replace$(cll.Text, "E+", "E"), "E", ChrW(215) & "10")

@Freqq · 12.01.2013, 10:38 **[ТС]**

Лучше всего получилось при симбиозе Ув. Все имена заняты и Казанского.
Заменяем в скрипте Казанского 16 строку на строку от Все имена заняты:

Visual Basic
1
outString = Mid(cll.Text, 1, InStr(cll.Text, "E") - 1) & ChrW(215) & "10" & CLng(Mid(cll.Text, InStr(cll.Text, "E") + 1))

Теперь скрипт: убирает в степенях "+" и лишний ноль
Выкладываю, может кому-то пригодиться.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Freqq 2 / 2 / 0 Регистрация: 05.01.2013 Сообщений: 22
	11.01.2013, 22:08 [ТС]
	Спасибо!!!! А как преобразование привязать к ячейке (а не нажатию кнопки) при изменении (получении фокуса) исходной ячейки? 0