Как убрать значок рубля в excel
Sub POLIS()
Call Prepare
For Each sh In ActiveWorkbook.Sheets
Set rgn = sh.UsedRange
For Each r In rgn.Cells
r.MergeCells = False
r.Cells.Replace What:=ChrW(8381), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If (r.Cells.Interior.ColorIndex <> 38) And (r.Cells.Interior.ColorIndex <> -4142) Then
r.Cells.ClearContents
End If
Next
Next
Call Ended
End Sub
вопрос - можно ли переделать его,чтобы Excel считал не по ячейкам а как массивы?а то слишком медленно выполняется данный код при больших объемах обработки.
Sub POLIS()
Call Prepare
For Each sh In ActiveWorkbook.Sheets
Set rgn = sh.UsedRange
For Each r In rgn.Cells
r.MergeCells = False
r.Cells.Replace What:=ChrW(8381), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If (r.Cells.Interior.ColorIndex <> 38) And (r.Cells.Interior.ColorIndex <> -4142) Then
r.Cells.ClearContents
End If
Next
Next
Call Ended
End Sub
вопрос - можно ли переделать его,чтобы Excel считал не по ячейкам а как массивы?а то слишком медленно выполняется данный код при больших объемах обработки. lamak58
Sub POLIS()
Call Prepare
For Each sh In ActiveWorkbook.Sheets
Set rgn = sh.UsedRange
For Each r In rgn.Cells
r.MergeCells = False
r.Cells.Replace What:=ChrW(8381), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If (r.Cells.Interior.ColorIndex <> 38) And (r.Cells.Interior.ColorIndex <> -4142) Then
r.Cells.ClearContents
End If
Next
Next
Call Ended
End Sub
вопрос - можно ли переделать его,чтобы Excel считал не по ячейкам а как массивы?а то слишком медленно выполняется данный код при больших объемах обработки. Автор - lamak58
Дата добавления - 22.06.2016 в 16:56
Наверное, прежде всего
Application.ScreenUpdating = False
На каких объемах тормозит и как сильно?
Наверное, прежде всего
Application.ScreenUpdating = False
На каких объемах тормозит и как сильно? abtextime
На каких объемах тормозит и как сильно? Автор - abtextime
Дата добавления - 22.06.2016 в 17:09
Public Sub Prepare()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
Dim r As Range
Dim rgn As Range
End Sub
Public Sub Ended()
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub
Public Sub Prepare()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
Dim r As Range
Dim rgn As Range
End Sub
Public Sub Ended()
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub
Public Sub Prepare()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
Dim r As Range
Dim rgn As Range
End Sub
Public Sub Ended()
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub
Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel 2021 Excel 2021 for Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Еще. Меньше
Если необходимо отображать числа в виде денежных значений, следует отформатировать эти числа как денежные единицы. Для этого необходимо применить к соответствующим ячейкам денежный или финансовый числовой формат. Параметры форматирования чисел доступны на вкладке Главная в группе Число.
В этой статье
Форматирование чисел в виде денежных единиц
Чтобы отобразить число с символом валюты по умолчанию, выберем ячейку или диапазон ячеек и нажмите кнопку в группе Число на вкладке Главная. (Если вы хотите вместо этого применить формат "Валюта", вы выберите ячейки и нажмите CTRL+SHIFT+$.)
Если необходимо более точно задать формат или изменить другие параметры форматирования для выделенного фрагмента, выполните действия, описанные ниже.
Выделите ячейки, которые нужно отформатировать.
На вкладке Главная нажмите кнопку вызова диалогового окна рядом с именем группы Число.
Совет: Чтобы открыть диалоговое окно Формат ячеек, можно также нажать сочетание клавиш CTRL+1.
В диалоговом окне Формат ячеек в списке Числовые форматы выберите пункт Денежный или Финансовый.
В поле Обозначение выберите нужное обозначение денежной единицы.
Примечание: Если необходимо, чтобы денежные значения отображались без обозначения единицы, выберите пункт Нет.
В поле Число десятичных знаков введите нужное число знаков после запятой. Например, чтобы в ячейке вместо 138 690,63 ₽ отображалось 138 691 ₽, в поле Число десятичных знаков введите 0.
При внесении изменений обращайте внимание на число в поле Образец. В нем показано, как меняется отображение числа при изменении числа десятичных знаков.
В поле Отрицательные числа выберите требуемый стиль отображения отрицательных чисел. Если вас не устраивают имеющиеся варианты отображения отрицательных числе, вы можете создать собственный числовой формат. Подробнее о создании пользовательских форматов читайте в статье Создание и удаление пользовательских числовых форматов.
Примечание: Поле Отрицательные числа не доступно для числовых форматов Accounting. Это потому, что в обычной бухгалтерии отрицательные числа высвеются в скобки.
Чтобы закрыть диалоговое окно Формат ячеек, нажмите кнопку ОК.
Удаление форматирования в виде денежных единиц
Если необходимо удалить форматирование в виде денежных единиц, для сброса форматирования выполните действия, указанные ниже.
Выберите ячейки с форматированием в виде денежных единиц.
На вкладке Главная в группе Число выберите пункт Общий.
В ячейках с форматом Общий форматирование к числам не применяется.
Разница между денежным и финансовым форматами
Как денежный, так и финансовый формат используются для отображения денежных значений. Разница между данными форматами описана в таблице ниже.
При применении к числу денежного формата рядом с числом в ячейке отображается обозначение денежной единицы. Можно задать количество знаков после запятой, применение разделителя групп разрядов и способ отображения отрицательных чисел.
Совет: Чтобы быстро применить денежный формат, выберите необходимую ячейку или диапазон ячеек и нажмите сочетание клавиш CTRL+SHIFT+$.
Как и денежный формат, финансовый формат используется для отображения денежных значений. Но в данном формате выполняется выравнивание обозначений денежной единицы и десятичных запятых чисел в столбце. Кроме того нули в финансовом формате отображаются как тире, а отрицательные числа — в скобках. Как и в денежном формате, в финансовом формате можно задать количество знаков после запятой и применение разделителя групп разрядов. Чтобы изменить способ отображения отрицательных чисел по умолчанию, необходимо создать пользовательский числовой формат.
Совет: Чтобы быстро применить финансовый формат, выделите ячейку или диапазон ячеек, которые необходимо отформатировать. На вкладке Главная в группе Число нажмите кнопку Финансовый числовой формат . Если нужно использовать обозначение денежной единицы, отличное от применяемого по умолчанию, щелкните стрелку рядом с кнопкой Финансовый числовой формат и выберите другое обозначение.
Создание шаблона книги с конкретными параметрами форматирования в виде денежных единиц
Если форматирование в виде денежных единиц используется часто, можно сэкономить время, создав книгу с заданными параметрами форматирования в виде денежных единиц и сохранив ее в качестве шаблон. Этот шаблон далее можно использовать для создания других книг.
Выберите один или несколько листов, для которых необходимо изменить параметры форматирования чисел по умолчанию.
Выбор листов
Чтобы выделить
Выполните следующие действия
Щелкните ярлычок листа.
Если ярлычок нужного листа не виден, найдите его с помощью кнопок прокрутки листов, а затем щелкните.
Несколько смежных листов
Щелкните ярлычок первого листа. Затем, удерживая нажатой клавишу SHIFT, щелкните ярлычок последнего листа в диапазоне, который требуется выделить.
Несколько несмежных листов
Щелкните ярлычок первого листа. Затем, удерживая нажатой клавишу CTRL, щелкните ярлычки других листов, которые нужно выделить.
Все листы книги
Щелкните правой кнопкой мыши ярлычок листа и выберите в контекстном меню (контекстное меню) команду Выделить все листы.
Совет Если выделено несколько листов, в заголовке в верхней части листа отображается надпись [Группа]. Чтобы отменить выделение нескольких листов книги, щелкните любой невыделенный лист. Если невыделенных листов нет, щелкните правой кнопкой мыши ярлычок выделенного листа и в контекстном меню выберите команду Разгруппировать листы.
Выделите ячейки или столбцы, которые требуется отформатировать, а затем примените к ним форматирование в виде денежных единиц.
Выполните любые другие настройки в книге, а затем выполните перечисленные ниже действия, чтобы сохранить шаблон.
Сохранение книги в виде шаблона
Если вы впервые сохраняете книгу в виде шаблона, сначала укажите расположение личных шаблонов по умолчанию.
Откройте вкладку Файл и выберите команду Параметры.
Нажмите Сохранение, а затем в разделе Сохранение книг укажите путь к месту расположения личных шаблонов в поле Расположение личных шаблонов по умолчанию.
Обычно этот путь выглядит так: C:\Пользователи\Общие\Мои шаблоны.
Если этот параметр настроен, все настраиваемые шаблоны, сохраненные в папке "Мои шаблоны", автоматически отображаются в разделе Личные на странице Создать (Файл > Создать).
Для показа чисел в виде валюты можно применить либо формат "Валюта", либо бухгалтерский.
(Сравнение этих двух форматов см. в разделе Денежный и финансовый форматы ниже.)
Выделите ячейки, которые вы хотите отформатировать, а затем в группе Число на вкладке Главная щелкните стрелку вниз в поле Числовой формат.
Выберите Денежный или Финансовый.
Excel в Интернете к выбранным ячейкам применяется символ валюты по умолчанию и соответствующие десятичные знаки.
Денежный и финансовый форматы
Как денежный, так и финансовый формат правильно отображают денежные значения, но между ними существует ряд различий, как показано в таблице ниже.
десятичные знаки выровнены в столбце;
Рядом с первой цифрой в ячейке появится символ валюты. (Это не соответствует другим символам валюты в столбце.
как десятичные знаки, так и обозначения денежной единицы выровнены в столбце;
ячейки, содержащие только нули, помечаются дефисом;
отрицательные числа отображаются в круглых скобках.
Изменение символа валюты по умолчанию
Вы пока не можете изменить символ рубля по умолчанию в Excel в Интернете. но если у вас есть настольное приложение Excel, вы можете нажать кнопку "Открыть в Excel" и следуйте инструкциям, чтобы указать нужное значение валюты по умолчанию. После применения символа валюты сохраните и снова откроете его в Excel в Интернете.
Если вам необходима поддержка нового символа российского рубля, вам повезло. После установки этого обновления для Windows 8.1, Windows RT 8.1, Windows Server 2012 R2, Windows RT, Windows 8 и Windows Server 2012 вы сможете вводить, просматривать, печатать и использовать новый символ с данными, отформатированными как российские денежные единицы. Дополнительные сведения об обновлении.
Примечание: Поддержка Windows XP прекращена, поэтому обновления для этой операционной системы больше не доступны.
Некоторые изменения, реализованные в данном обновлении
Были обновлены следующие семейства шрифтов: Arial, Times New Roman, Microsoft Sans Serif, Tahoma, Cambria, Calibri и Segoe UI.
Шесть локализованных для России клавиатур теперь поддерживают ввод символа рубля с помощью клавиш ALTGR+8. Дополнительные сведения о добавлении или изменении языка ввода в операционной системе Windows 8.
Обновлены сведения о языковых стандартах, благодаря чему новый символ автоматически используется с элементами, отформатированными как денежные единицы в полях Access, ячейках Excel или денежных столбцах в списках SharePoint. Дополнительные сведения об изменении предпочитаемого языка в операционной системе Windows 8.
Ввод символа рубля с клавиатуры
Если ваша клавиатура не поддерживает ввод символа рубля, его можно вставить одним из описанных ниже способов.
Клавиши ALT-X Введите "20BD", а затем нажмите клавишу ALT и, удерживая ее нажатой, – клавишу X. (Данная возможность поддерживается в приложениях OneNote, Outlook с Word в качестве редактора, а также в приложении Word).
Важно: Некоторые приложения Office, такие как PowerPoint, не поддерживают преобразование кодов Юникода в символы. Если вам нужно вставить символы Юникода в приложении, которое их не поддерживает, используйте таблицу символов.
Вставка символов Выберите команды Вставка > Символ. (Данная возможность поддерживается в приложениях Excel, InfoPath, PowerPoint, Publisher, SharePoint Designer, OneNote, Outlook с Word в качестве редактора, а также в приложении Word).
Если символ, который необходимо вставить, отсутствует в списке, выберите пункт Другие символы. В поле Шрифт выберите нужный шрифт, щелкните символ, который необходимо вставить, и нажмите кнопку Вставить.
Если выбран расширенный шрифт, такой как Arial или Times New Roman, появится список "Набор". В нем можно выбрать нужный набор, в том числе греческий и русский (кириллица), если они доступны.
Печать символа рубля
Если встроенные шрифты принтера не содержат символа российского рубля, вместо него будет напечатана пустая рамка. Чтобы узнать, как добавить символ российского рубля во встроенные шрифты принтера, обратитесь к его поставщику. Кроме того, можно изменить настройки принтера таким образом, чтобы он не использовал встроенные шрифты. Для этого используйте параметр Печатать шрифты в виде графики в настройках принтера.
Я знаю про автозамену, но тут-то вместо руб. нам ничего подставлять не надо, что нам надо вставить в строчку заменить на?
Вам просто необходимо зайти в "Формат ячейки" (предварительно выделив нужную ячейку или целый блок ячеек) и сменить его на какой-то другой, более Вас устраивающий, чем установленный в настоящий момент "Денежный". Это из-за него добавляется символ валюты к значению ячейки.
Выберите нужную ячейку или группу ячеек, нажмите на ней правой кнопкой мыши и выберите в открывшемся меню пункт "Формат ячеек", затем выберите формат "Общий" или "Числовой" вместо формата "Валюта". Должно помочь.
Оставьте строчку "заменить на" пустой и нажмите кнопку заменить(или заменить все). Excel просто убет то что написано в поле "найти".
Кликаем на ячейке правой кнопкой мышки, выпадает контекстное меню. Выбираем формат ячейки. Выбираем формат поедставления чисел "общий". В данный момент у вас, видимо стоит "денежный". Если такое у Вас в нескольких ячейках, можно выделить их все и одним разом изменить формат.
Для того, чтобы не отображалось "р", необходимо нажать на ячейку правой кнопкой мышь. В открывшемся меню выбрать пункт "Формат ячеек". А затем сменить формат на подходящий - "Общий" с "Денежный". Или иной, если требуется особый формат.
Иной вариант решения этого вопроса - выбрать раздел Меню - Формат - Формат ячеек. И появится аналогичное диалоговое окно.
Еще один способ - с помощью команды на клавиатуре. Нажмем Ctrl + 1 и сразу появится окно выбора формата ячейки. Снова меняем на нужный и нажимаем ОК.
Главное - не пытаться стереть Р. - это не выйдет, если выбран денежный формат, буква будет возвращаться в любом случае.
Скорее всего в данном диапазоне ячеек формат стоит "Денежный". Поэтому по умолчанию Excel и выводит валюту страны, язык которой используется в системе по умолчанию, т.е. "руб".
Просто выделяем требуемый диапазон ячеек, далее нажимаем правой кнопкой "Формат ячеек" и меняем формат на другой, например, числовой.
Для решения данной проблемы, вы первым делом заходите в "Формат ячейки" . Конечно здесь нельзя не отметить то, что до этого вам нужно выделить ту ячейку, которая по факту, является нужной для вас. После этого вы меняете на тот, который вас по всем парам, будет в конечном итоге устраивать. Чем тот который является и называется "денежный" и который вы до этого установили. Заменить его вам нужно, ибо на "общий" или "числовой" блок.
Время, в Excel является числом, точнее, десятичной дробью меньше единицы. (Соответственно дата - число, больше единицы. А дата с временем - это сумма этих чисел.).
Что бы данное число смотрелось в клетке как Дата, или Время, или Дата с Временем - для этого необходимо задать определенный формат с свойствах ячейки (Втор. кл. мыши по ячейке - пункт "Формат Ячейки"). Следственно, над любой датой и над любым временем можно производить операции сложения и вычитания. Так же надо помнить, что в Excel есть функция (ВРЕМЯ()), которая преобразовывает три значения (часы,минуты,секунды) в специальную десятичную дробь, которая, по сути, является временем "чч:мм:сс", если изменить формат ячейки на "Время-13:30:55".
- Пусть в ячейке A1 у нас есть время "23:23:59", тогда
- Пусть, клетках B1,C1,D1 у нас будет количество часов,минут,секунд, (целые числа) которое мы хотим добавить к нашему времени.
- Для получения результата, запишем в клетке E1 формулу: =A1+ВРЕМЯ(B1;C1;D1)
Если слово пишется в графе единицы измерения, в этом случае формула будет выглядеть так:
=ЕСЛИ( ИЛИ( ЦЕЛОЕ( ОСТАТ(A1;100)/10)=1 ; ОСТАТ(A1 ; 10)>=5;ОСТАТ(A1 ; 10)=0) ; "штук" ; ЕСЛИ( ОСТАТ(A1;10)=1 ; "штука" ; "штуки"))
Если требуется написать в тексте число и количество штук через пробел, в этом случае формула примет вид:
=A1&" "&ЕСЛИ( ИЛИ( ЦЕЛОЕ( ОСТАТ(A1;100)/10)=1 ; ОСТАТ(A1;10)>=5 ; ОСТАТ(A1;10)=0) ; "штук" ; ЕСЛИ( ОСТАТ(A1;10)=1 ; "штука";"штуки"))
Обе формулы рабочие (можно копировать в свою таблицу, с заменой ячейки A1 на ячейку таблицы, в которой записано целое число определяющее количество штук)
Если слово надо писать в отдельную графу, то числа из ячейки A1 формула примет вид:
=ЕСЛИ( ИЛИ( ЦЕЛОЕ( ОСТАТ(A1;100)/10) = 1 ; ОСТАТ( A1 ; 10 )>=5 ; ОСТАТ(A1 ; 10)=0) ; "ящиков" ; ЕСЛИ( ОСТАТ( A1 ; 10)=1 ; "ящик" ; "ящика"))
Для использования в тексте потребуется писать число, а потом слово, формула будет выглядеть так:
=A1&" "&ЕСЛИ( ИЛИ( ЦЕЛОЕ( ОСТАТ(A1;100)/10) = 1 ; ОСТАТ( A1 ; 10 )>=5 ; ОСТАТ(A1 ; 10)=0) ; "ящиков" ; ЕСЛИ( ОСТАТ( A1 ; 10)=1 ; "ящик" ; "ящика"))
Эту формулу можно копировать отсюда в свою таблицу, но необходимо заменить A1 на нужную ячейку.
1) Во первых не надо платить деньги - он Бесплатный и очень простой в установке.
2) Сравнивает и находит различия в данных между двумя таблицами.
3) Обнаруживает различия в ценностях, опечатках, в неправильно проставленных датах.
4) Цвет индикаторов: более низкие значения и более высоких значений получают различные цветовые маркеры.
Читайте также: