Как да разреша само отрицателни числа в Excel?
В Excel, как да разрешите въвеждане само на отрицателни числа? Тази статия ще ви представи някои полезни и бързи трикове за решаване на тази задача.
Разрешавайте само отрицателни числа в Excel с валидиране на данни
Разрешавайте само отрицателни числа в Excel с VBA код
Разрешавайте само отрицателни числа в Excel с валидиране на данни
Обикновено, Потвърждаване на данните функция може да ви помогне, моля, направете следното:
1. Изберете клетките или колоната, в които искате да разрешите въвеждането само на отрицателни числа, и след това щракнете Дата > Потвърждаване на данните > Потвърждаване на данните, вижте екранна снимка:
2. В Потвърждаване на данните диалогов прозорец, под Настройки раздел, направете следните опции:
(1.) В Позволете раздел, изберете десетичен от падащия списък;
(2.) В Дата раздел, моля изберете по-малко или равно на опция;
(3.) Накрая въведете номера 0 в Максимален текстово поле.
3, След това кликнете OK, и сега е разрешено да се въвеждат само отрицателни числа и 0, ако е въведено положително число, ще се покаже предупредително съобщение, вижте екранната снимка:
Разрешавайте само отрицателни числа в Excel с VBA код
Ето код на VBA, който също може да ви помогне, със следния код, когато въведете положително число, то автоматично ще се преобразува в отрицателно, моля, направете следното:
1. Щракнете с десния бутон върху раздела на листа, който искате да разрешите само отрицателни числа, и изберете Преглед на кода от контекстното меню, в изскачащия Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете следния код в празното поле Модули:
VBA код: Позволете само отрицателни числа в работния лист:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A1000"
Dim xRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
If Not Intersect(Target, Range(sRg)) Is Nothing Then
For Each xRg In Target
If Left(xRg.Value, 1) <> "-" Then
xRg.Value = xRg.Value * -1
End If
Next xRg
End If
err_exit:
Application.EnableEvents = True
End Sub
Забележка: В горния код, A1: A1000 са клетките, в които искате да въвеждате само отрицателни числа.
2. След това запазете и затворете този код, върнете се обратно в работния лист и сега, когато въведете някои положителни числа в клетките, които сте посочили в кода, положителните числа ще бъдат автоматично преобразувани в отрицателни.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!