메인 컨텐츠로 가기

Excel에서 음수 만 허용하는 방법은 무엇입니까?

Excel에서 음수 입력 만 허용하는 방법은 무엇입니까? 이 기사에서는이 작업을 해결하는 데 유용하고 빠른 트릭을 소개합니다.

데이터 유효성 검사를 통해 Excel에서 음수 만 허용

VBA 코드로 Excel에서 음수 만 허용


화살표 블루 오른쪽 거품 데이터 유효성 검사를 통해 Excel에서 음수 만 허용

일반적으로 데이터 유효성 검사 기능은 당신을 도울 수 있습니다, 다음과 같이하십시오 :

1. 음수 만 입력 할 수있는 셀이나 열을 선택한 다음 Data > 데이터 유효성 검사 > 데이터 유효성 검사, 스크린 샷 참조 :

문서는 음수 1 만 허용

2. 에서 데이터 유효성 검사 대화 상자에서 설정 탭에서 다음 옵션을 수행하십시오.

(1.) 허용 섹션 선택 소수 드롭 다운 목록에서;

(2.) Data 섹션을 선택하십시오 보다 작거나 같음 선택권;

(3.) 마지막으로 숫자를 입력하십시오 0최고 텍스트 상자.

문서는 음수 2 만 허용

3. 그런 다음 OK, 이제 음수와 0 만 입력 할 수 있습니다. 양수를 입력하면 경고 메시지가 표시됩니다. 스크린 샷 참조 :

문서는 음수 3 만 허용


화살표 블루 오른쪽 거품 VBA 코드로 Excel에서 음수 만 허용

다음은 양수를 입력하면 자동으로 음수로 변환됩니다. 다음과 같이 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

문서는 음수 4 만 허용

주의 사항: 위 코드에서 A1 : A1000 음수 입력 만 입력하려는 셀입니다.

2. 그런 다음이 코드를 저장하고 닫고 워크 시트로 돌아 가면 코드에서 지정한 셀에 양수를 입력하면 양수가 자동으로 음수로 변환됩니다.

최고의 사무 생산성 도구

🤖 Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행   |  코드 생성  |  사용자 정의 수식 만들기  |  데이터 분석 및 차트 생성  |  Kutools 기능 호출...
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

상품 설명


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I change the automatic formatting with this code from Currency to Accounting ?
This comment was minimized by the moderator on the site
Hi! Great article. One question: if, instead of a coherent group of cells, I want to apply this in different parts of the sheet (e.g. A1:A2 AND A6:A8), is there a way to do that with the VBA solution? I.e.: how do I replace the "A1:A1000" with several sets of cells?
This comment was minimized by the moderator on the site
Hello, GB,
To apply this code for multiple ranges, please use the following code:

Note: when using this code, first, you should right click the sheet tab, and then click View code from the context menu, and then copy the following code into the module.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Separate the ranges by commas
Dim xRg As Range
Dim xSRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
Set xSRg = Range(sRg)
If Not Intersect(Target, xSRg) 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

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Super, thanks! Very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations