Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Надстрочный шрифт в в верхние символы, Необходимо сноски выполненные в виде текста отформатированного в качестве надстрочного шрифта заменить соответствующими символами
 
Такая беда: есть таблица с такими данными:
34¹,²,¹⁴/   62³,¹³/ 64⁴,⁸,⁹,¹²/ 65⁵,⁶,⁸,¹⁰,¹²/ 63⁷,¹¹/ 38¹⁴,²

Концевые сноски это текст отформатированный в виде надстрочного текста. Для дальнейшей работы нужно представить сноски соответствующими верхними символами. Я вроде понимаю как сделать:
---------------------------------------------------------
Sub UpSymbol()
Dim p As Long
Dim bSub As Boolean
Dim sI As String
Dim leftCmopoHa As String
Dim rightCmopoHa As String
Dim j As Byte, sTemp As String, sCh As String * 1, byt As Byte

For p = 1 To Len(ActiveCell.Value)
   If ActiveCell.Characters(Start:=p, Length:=1).Font.Superscript = True Then
       sCh = Mid(ActiveCell.Value, p, 1)

       sTemp = ""
       byt = CByte(sCh)
       sTemp = sTemp & IIf(bSub, getSubSymbol(byt), getSuperSymbol(byt))
       
       leftCmopoHa = Left(ActiveCell.Value, p - Len(sCh))
       rightCmopoHa = Right(ActiveCell.Value, Len(ActiveCell.Value) - Len(leftCmopoHa) - Len(sCh))
       ActiveCell.Value = leftCmopoHa & sTemp & rightCmopoHa
   End If
Next p
End Sub

Private Function getSubSymbol(i As Byte) As String
   getSubSymbol = ChrW(i + 8320)
End Function

Private Function getSuperSymbol(i As Byte) As String
   Dim iW As Integer
   Select Case i
       Case 1: iW = 185
       Case 2, 3: iW = i + 176
       Case 0, Is > 3: iW = i + 8304
   End Select
   getSuperSymbol = ChrW(iW)
End Function
------------------------------------------------------
, но как только я меняю первый надстрочный текст на символ и обновляю значение ячейки всё имеющееся форматирование слетает и в ячейке больше надстрочного текста не остаётся.
Нужен Help.
Не всегда отрабатывает макрос
 
Здравствуйте. Столкнулся с проблемкой: может кто подскажет в чем секрет.
Есть книга Excel. Первый лист: огромная таблица в 1000 строк. Еще десяток листов: в них производные из первой таблицы поменьше. Вношу изменения в первую таблицу. Запускаю макрос. Макрос ищет соответствия измененной строке на оставшихся листах и вносит изменения. Ну там еще попутно оставляет только определенный текст, производит некоторые замены и так по мелочи разные манипуляции. Ничего сверхъестественного: простецкий код, но длинный. Но столкнулся с проблемой: запускаю макрос и бац: внес изменения, но не на всех листах или внес изменения, но изменил не нужную строку, а на строку ниже, а запустишь еще разок - и все ОК. Не пойму где собака зарыта?  Пример, думаю, смысла нет прикреплять. Ничего интересного: a=selection.value - переход на следующий лист, поиск соответсвия через for и все.  
Найти и удалить в ячейке зачеркнутый текст
 
Здравствуйте.
Прошу о подсказке. Перебираю в таблице ячейки, в которых может быть, а может и не быть зачеркнутый текст (причем в конкретной ячейке не обязательно будет зачеркнутно все содержимое). Задача в каждой конкретной ячейке найти зачеркнутый текст и удалить его, а остальной текст должен остаться.
Фильтр по условию заданный кодом, макрос некорректно отрабатывает то, что записал макрорекодер
 
Включаю макрорекодер, фильтрую дату в колонке 10 по условию "После 31.12.2016". Выключаю макрорекодер.
Макрорекодер выдает такой код:
Код
ActiveSheet.Range("$A$4:$O$30").AutoFilter Field:=10, Criteria1:= ">31.12.2016", Operator:=xlAnd 

После этого запускаю сформированный макрос и скрываются все строки даже те, которые должны остаться видимыми.
Подскажите что не так?
Считаем количество однотипного оборудования, Последовательная фильтрации по трем столбцам при помощи VBA
 
Имеем список (базу данных) эксплуатируемого оборудования (средства измерений). Оборудование имеет различные характеристики. Необходимо посчитать количество единиц оборудования, обладающего одинаковыми характеристиками. В приложении пробная версия макроса. Все работатет так как мне нужно, но в таблице примера всего 17 строк, а в реальности этот список состоит из 2500...3500 строк. На это количество строк макрос затрачивает более 2 часов. Алгоритм моей реализации очень прост: я последовательно перебираю все ячейки фильтруемых столбцов и, к сожалению, даже те, которые уже отфильтровались на предыдущих этапах фильтрации. Т.е. я фильтрую по столбцу 2 (выбираю в качестве критерия фильтрации значение первой ячейки столбца), потом по 3 столбцу (опять выбираю в качестве критерия фильтрация значение первой ячейки столбца) и аналогично фильтрую по 6 столбцу. Потом считаю сумму (опять таки перебираю все ячейки в столбце и суммирую только видимые). Затем выбираю в 6 столбце значение второй ячейки (даже если ее значение совпадает с первой). Опять суммирую и т.д. Образовывается большое количество одинаковых строк, которые я потом просто удаляю. Все очень просто, но безумно долго. Нужна идея как реализовать это иначе.
Подбор высоты и востановление прежней
 
Есть книга Excel используемая в целях обобщения информации с примечаниями. Т.е. много текста. Ячейки распухают из-за обилия текста и становится очень неудобно перемещаться по странице: один щелчок колеса прокрутки мыши и ты уже в конце книги. Помогите воплотить идею в жизнь. Идея такова: все строи имеют одинаковую высоту (минимум, чтобы было видно основное - фамилия ответственного, сроки или что-то в этом духе), кликаем на нужную ячейку - строка расширяется так чтобы было видно все, но как только мы переходим на другую ячейку эта строка вновь становится минимальной высоты.  
С первой частью задачи проблем нет. А как вернуть просмотренной строке исходный вид, ри этом увеличить высоту другой не знаю.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Запуск макроса при выделении ячейки
 
Подскажите, можно ли запустить макрос от простого выделения ячейки, не используя ни изменения в ячейке, ни изменения в листе, ни нажатие "Enter" (т.е. кликаешь курсором на любой (не на конкретной) интересующей тебя ячейке и макрос запускается)?
Кто внес данные в таблицу?
 
Подскажите. На компе есть файл Excel (своего рода база данных). Данные вносят четыре человека, каждый является отдельным пользователем со своим Логином и Паролем. Как идентифицировать кто внес те или иные данные? Допустим в таблице есть столбец "Внес данные", ниже, в ячейках, при помощи "Данные"/"Проверка данных" организован выпадающий список. Можно ли сделать так, чтобы конкретный работник в этом списке мог выбрать только себя?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Макросы в Outlook ссылающийся на Excell
 
Вопрос не конкретно по Excell, а скорее про VBA.  
Как сделать так чтобы макрос в Outlook "брал" дату из определенной ячейки в таблице Excell и на основании ее (как эта дата наступит) сосдавал сообщение с определенным (шаблоном) текстом и отсылал письмо адресату указанному в другой ячейке этой же таблице?  
Реально ли это сделать? И еще, чтобы макрос запускался автоматически при запуске Outlook или, например, в 12:00?
Группировка строк (столбцов)
 
Как изменить направления раскывания сгруппированных строк, т.е. сделать так, чтобы при нажатии на "+" на экране оставалась первая из сгруппированных строк, а остальные раскрывались вниз. Сейчас при нажатии на "+" на экране оказывается последняя из сгруппированных строк, а остальные оказываются сверху (вроде как раскрываются вверх).
Страницы: 1
Наверх