☰

문자를 특정 숫자로 바꾸려면 어떤 수식을 입력해야 합니까?

tag-icon • tag-icon microsoft-excel worksheet-function find replacement
문자를 특정 숫자로 바꾸려면 어떤 수식을 입력해야 합니까?

예를 들어 문자 'W'를 입력하면 셀이 자동으로 숫자 4,000으로 바뀌고 문자 'B'를 입력하면 셀이 숫자 3,000으로 바뀌게 됩니다. 그런 다음 문자를 변경하면 셀이 자동으로 새 숫자로 변경되도록 하고 싶습니다.

답변1

다음 코드를 시도해 볼 수 있습니다.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

If Target.Columns.Count = 1 Then   

If Target.Value = "W" Then
Target.Value = 4000

ElseIf Target.Value = "X" Then
Target.Value = 5000

ElseIf Target.Value = "Y" Then
Target.Value = 6000

End If
Endif

End Sub

작동 방식:

  • 누르거나ㅏlt+F11.
  • 또는아르 자형시트 탭을 클릭한 다음 팝업 메뉴에서V코드야.

VBA 편집기 창이 나타납니다.

  • 씨오피 &피이 코드를 확인하세요.

  • 누르다씨trl+s를 눌러 저장하세요.

  • 이제 누르세요ㅏlt+Q를 누르면 시트로 돌아갑니다.

  • 이제 A열에 W, X 또는 Z를 입력하자마자 이 코드가 할당된 숫자로 대체됩니다.

주의

  • 조건을 더 추가할 수 있습니다.
  • 알파벳과 존중되는 숫자는 편집 가능합니다.
  • 코드 라인을 사용하여 열을 조정할 수 있습니다.

If Target.Columns.Count = 1 Then

여기서 1은 하나의 열을 나타냅니다.

그것도 되어야 하는데,,

If Target.Columns.Count >= 1 And Target.Columns.Count <= 5 Then

A열에서만 작업하려면 이 코드를 사용하는 것이 좋습니다.

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Application.Intersect(Target, Me.Range("A:A")) Is Nothing Then

If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub


If Target.Value = "W" Then
Target.Value = 4000


ElseIf Target.Value = "X" Then
Target.Value = 5000

ElseIf Target.Value = "Y" Then
Target.Value = 6000

End If
End If


End Sub

주의

  • 이는 Me.Range("A:A"))편집 가능하며 Me.Range("A:C"))그래야 합니다 Me.Range("A1:A100")).
  • 통합 문서를 다른 이름으로 저장중아크로 활성화( .xlsm ).

관련 정보