Работа с функциями VBA без привязки к ячейкам

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Работа с функциями VBA без привязки к ячейкам (Макросы/Sub)

flash708

Дата: Пятница, 13.02.2015, 10:46 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

a = 1101
b = Bin2Hex(a)
MsgBox (b)

но у меня не получилось. может надо как-то преобразовать синтаксис?

К сообщению приложен файл: 5843319.xlsm (14.6 Kb)

Ответить

Hugo

Дата: Пятница, 13.02.2015, 11:29 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

У меня тоже не работает... ни в каком виде в VBA, а на листе всё ОК.
Пока не победил.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Skif-F

Дата: Пятница, 13.02.2015, 16:23 | Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 73

Репутация: 14 ±

Замечаний: 0% ±

Excel 2007, 2010, 2013, 2016

как-то так:
[vba]

Код

Sub Test()
     Dim a As String, b As String
     a = "1101"
     b = WorksheetFunction.Bin2Hex(a)
     MsgBox (b) 'В b окажется "D"
End Sub

[/vba]

Ответить

Hugo

Дата: Пятница, 13.02.2015, 17:03 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

flash708, работает именно так как написано у Вас - но только если установить в References галочку на файлик atpvbaen.xls.
И кстати без всяких WorksheetFunction/Application - именно вот с ними у меня не работает!

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Пятница, 13.02.2015, 17:06

Ответить

Работа с функциями VBA без привязки к ячейкам (Макросы/Sub)

Страница 1 из 1
1