vba를 사용하여 선택한 메뉴를 기반으로 Excel의 특정 열 자동 채우기

debugcn 에 게시 Dev

Dren

Excel에서 첫 번째 열의 선택한 드롭 다운 옵션을 기반으로 다음 열을 자동으로 채우려 고합니다.

내가 생각한 초기 코드 샘플 아래는 내 접근 방식이 잘못된 것 같습니다.

Private Sub WorksheetStore_Change(ByVal Target As Range)
    Dim i As Integer
    Dim intCol As Integer

    intCol = shtStoreGroup.Range("A")
    If Not IsEmpty(Target.value) And intCol > 1 And Target.Columns.Count = 1 And Target.Column = intCol And Target.Row > Start_Row Then
        For i = Target.Row To Target.Row + Target.Rows.Count - 1
            If shtStoreGroup.Columns(intCol).Rows(i).value = "Create" Then
                shtStoreGroup.Columns(intCol + 2).Rows(i).value = "N/A"
                shtStoreGroup.Columns(intCol + 3).Rows(i).value = "Test"
        Next i
    End If
End Sub

user3598756

이 이후에있을 수 있습니다.

Private Sub Worksheet_Change(ByVal target As Range)

    If Not ValidateTarget(target, 2) Then Exit Sub '<-- exit if function validating 'Target' returns 'False'

    On Error GoTo EXITSUB ' <-- be sure to handle possible errors properly
    Application.EnableEvents = False '<--| disable events handling not to run this sub on top of itself
    Select Case UCase(target.Value)
        Case "CREATE"
            target.Offset(, 2).Value = "N/A"
            target.Offset(, 3).Value = "Test"
        Case "DELETE"
            target.Offset(, 2).Value = "???"
            target.Offset(, 3).Value = "Test??"
    End Select

EXITSUB:
    Application.EnableEvents = True '<--| restore events handling
End Sub

Function ValidateTarget(target As Range, Start_Row As Long) As Boolean
    With target
        If .columns.Count > 1 Then Exit Function
        If .Column <> 1 Then Exit Function
        If .Row <= Start_Row Then Exit Function
        If IsEmpty(.Value) Then Exit Function
        ValidateTarget = True
    End With
End Function

위 코드를 관련 워크 시트 ( "shtStoreGroup"?) 코드 창에 배치하고 일반 모듈 코드 창에는 넣지 마십시오.

이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.

침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제

에서 수정2021-06-17

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사

vba를 사용하여 선택한 메뉴를 기반으로 Excel의 특정 열 자동 채우기

vba를 사용하여 선택한 메뉴를 기반으로 Excel의 특정 열 자동 채우기

Excel vba를 사용하여 Excel의 열에서 마지막 열까지 수식을 자동 채우기

C #의 로그인 세부 정보를 기반으로 특정 메뉴 선택

선택한 사용자 전체를 반복하고 드롭 다운 목록을 동적으로 채우기

Excel 2013 : 자동 채우기를 사용하여 셀 열의 서식을 미리 지정된 자릿수로 지정하는 방법

VBA 매크로를 사용하여 선택한 전자 메일을 Outlook의 정크 메일 폴더로 이동

JQuery를 사용하여 드롭 다운 메뉴 선택을 기반으로 양식의 필드를 미리 채우는 방법

Excel VBA-사용자 ID를 기반으로 알려진 세부 정보 채우기

대소 문자를 사용하여 선택에서 다른 열의 수를 기반으로 열 계산

정보를 얻기 위해 웹 서비스를 사용하여 다른 선택을 기반으로 두 번째 드롭 다운 상자 채우기

Pandas를 사용하여 다른 열의 값을 기반으로 열 선택

SQL Server 2012의 열을 기반으로 정규 분포를 사용하여 임의의 행 선택

자동 단축키 (AHK)를 사용하여 특정 사용자로 Chrome 열기

선택 상자를 동적으로 추가하고 채우기

ASP.NET Core MVC의 다른 드롭 다운 메뉴에서 사용자 선택을 기반으로 드롭 다운 메뉴를 채우려면 어떻게하나요?

Angularjs-ng-options를 사용하여 선택 상자 채우기

문자열의 문자를 기반으로 비교기를 사용하여 string 형 배열 정렬

Excel vba를 사용하여 특정 기준을 충족하는 섹션의 한 항목을 기반으로 데이터 섹션 삭제

Excel에서 VBA를 사용하여 'x'개의 행을 자동 채우기하는 방법

CoreData / NSFetchedResultsController를 사용하여 PrepareForSegue의 문자열로 UISearchBar 채우기

VBA 매크로-ListBox를 사용하여 Excel에서 동적으로 열 선택

ASP.NET Core 3.1 MVC를 사용하여 드롭 다운에서 선택한 값을 기반으로 텍스트 상자 채우기

Excel 2010 VBA를 사용하여 계열 선 색, 마커 채우기 및 마커 선 색을 설정하는 방법

vba Excel을 사용하여 사용자가 선택한 셀의 열 가져 오기

사용자가 크기를 선택하여 어레이의 VBA 크기 조정

AngularJS는 선택한 항목을 기반으로 json의 세부 정보를 동적으로 채 웁니다.

사용자가 부여한 반경 내의 사용자를 위도 및 경도를 기준으로 동적으로 나열하려면

Regex를 사용하여 특정 선행 문자를 기반으로 문자열에서 숫자를 캡처하는 방법이 있습니까?

Pandas 라이브러리를 사용하여 CSV의 다른 열 값을 기반으로 빈 값 채우기

VBA를 사용하여 Excel의 콤보 상자에 기본 선택 값 제공