필터 DB 함수 문제관련 _컴파일오류 도와주세요!

VBA
작성자
GMART
작성일
2022-10-09 00:09
조회
133
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : 컴파일 오류가나서 필터 함수가 작동을 안하는데 이유를 모루겠습니다. 도와주세요..

재고만들기 8시간을보며 포기했던 DB 함수 공부를 다시 하고 있는데

필터 텍스트 상자에 한 자라도 쓰기만하면

컴파일 오류가 납니다. 이거 왜이런건가요?

 

제가 적용중인 수식입니다.

Private Sub ListBox1_Click()
Dim vArr As Variant
    vArr = Get_ListItm(Me.ListBox1)
        Me.P_NameID.Value = vArr(0)
        Me.P_Name01.Value = vArr(1)
        Me.P_Name02.Value = vArr(2)
        Me.P_Name03.Value = vArr(3)
        Me.P_Name04.Value = vArr(4)
        Me.P_Name05.Value = vArr(5)
        Me.P_Name06.Value = vArr(6)
        Me.P_Name07.Value = vArr(7)
        Me.P_Name08.Value = vArr(8)
        Me.P_Name09.Value = vArr(9)
        Me.P_Name10.Value = vArr(10)
        Me.P_Name11.Value = vArr(11)
End Sub
Private Sub P_B_Delete_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
P_Delete
End Sub
Private Sub P_B_Modify_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
P_Modify
End Sub
Private Sub P_B_Register_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
P_Register
End Sub
Private Sub P_B_Reset_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
P_Reset
End Sub
Private Sub txtSearch_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim DB As Variant
    DB = Get_DB(ShtProduct)
    DB = Filtered_DB(DB, Me.txtSearch.Value)
 
    Update_List Me.ListBox1, DB, "0;80;90;70;70;70;90;190;190;50;20;30;"
 
End Sub
 
Private Sub UserForm_Initialize()
Dim DB As Variant
    DB = Get_DB(ShtProduct)
        Update_List Me.ListBox1, DB, "0;80;90;70;70;70;90;190;190;50;20;30;"
End Sub
Sub P_Modify()
Dim DB As Variant
        Update_Record ShtProduct, Me.P_NameID.Value, Me.P_Name01.Value, Me.P_Name02.Value, _
        Me.P_Name03.Value, Me.P_Name04.Value, Me.P_Name05.Value, _
        Me.P_Name06.Value, Me.P_Name07.Value, Me.P_Name08.Value, _
        Me.P_Name09.Value, Me.P_Name10.Value, Me.P_Name11.Value
 
        DB = Get_DB(ShtProduct)
        Update_List Me.ListBox1, DB, "0;80;90;70;70;70;90;190;190;50;20;30;"
        Select_ListItm Me.ListBox1, Me.P_NameID.Value
        MsgBox "Product information has been corrected.", vbInformation
End Sub
Sub P_Reset()
    Me.P_Name01.Value = ""
    Me.P_Name02.Value = ""
    Me.P_Name03.Value = ""
    Me.P_Name04.Value = ""
    Me.P_Name05.Value = ""
    Me.P_Name06.Value = ""
    Me.P_Name07.Value = ""
    Me.P_Name08.Value = ""
    Me.P_Name09.Value = ""
    Me.P_Name10.Value = ""
    Me.P_Name11.Value = ""
End Sub
Sub P_Register()
Dim DB As Variant
    Insert_Record ShtProduct, Me.P_Name01.Value, Me.P_Name02.Value, _
    Me.P_Name03.Value, Me.P_Name04.Value, Me.P_Name05.Value, _
    Me.P_Name06.Value, Me.P_Name07.Value, Me.P_Name08.Value, _
    Me.P_Name09.Value, Me.P_Name10.Value, Me.P_Name11.Value
 
    DB = Get_DB(ShtProduct)
        Update_List Me.ListBox1, DB, "0;80;90;70;70;70;90;190;190;50;20;30;"
        P_Reset
        MsgBox "New product registration has been completed.", vbInformation
End Sub
Sub P_Delete()
Dim DB As Variant
Dim YN As VbMsgBoxResult
    YN = MsgBox("Are you sure you want to delete your product information? Information once deleted cannot be recovered.", vbYesNo)
    If YN = vbNo Then Exit Sub
 
    Delete_Record ShtProduct, Me.P_NameID.Value
 
    DB = Get_DB(ShtProduct)
        Update_List Me.ListBox1, DB, "0;80;90;70;70;70;90;190;190;50;20;30;"
        P_Reset
        MsgBox "Product information has been deleted.", vbInformation
End Sub

현재 컴파일 오류가 나는 부분입니다.

If left(Value, 2) = ">=" Or left(Value, 2) = "<=" Or left(Value, 2) = "=>" Or left(Value, 2) = "=<" Then Operator = left(Value, 2) If IsDate(Right(Value, Len(Value) - 2)) Then isDateVal = True ElseIf left(Value, 1) = ">" Or left(Value, 1) = "<" Then

If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) < CDbl(Right(Value, Len(Value) - 1)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next Case ">=", "=>"

If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) <= CDbl(Right(Value, Len(Value) - 2)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next End Select Else Select Case Operator Case ">"

If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) < CDate(Right(Value, Len(Value) - 1)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next Case ">=", "=>"

If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) <= CDate(Right(Value, Len(Value) - 2)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next End Select End If Else If ExactMatch = False Then For i = 1 To cRow If filterArr(i) Like "*" & Value & "*" Then vArr(i) = left(vArr(i), Len(vArr(i)) - 2) vReturn = Split(vArr(i), "|^") Dict.Add i, vReturn End If Next Else For i = 1 To cRow If filterArr(i) Like Value & "|^" Then vArr(i) = left(vArr(i), Len(vArr(i)) - 2) vReturn = Split(vArr(i), "|^") Dict.Add i, vReturn End If Next End If End If If Dict.Count > 0 Then

모듈에 저장한 필터 DB 함수입니다.

Function Filtered_DB(DB, Value, Optional FilterCol, Optional ExactMatch As Boolean = False) As Variant
 
Dim cRow As Long
Dim cCol As Long
Dim vArr As Variant: Dim s As String: Dim filterArr As Variant:  Dim Cols As Variant: Dim Col As Variant: Dim Colcnt As Long
Dim isDateVal As Boolean
Dim vReturn As Variant: Dim vResult As Variant
Dim Dict As Object: Dim dictKey As Variant
Dim i As Long: Dim j As Long
Dim Operator As String
 
Set Dict = CreateObject("Scripting.Dictionary")
 
If Value <> "" Then
    cRow = UBound(DB, 1)
    cCol = UBound(DB, 2)
    ReDim vArr(1 To cRow)
    For i = 1 To cRow
        s = ""
        For j = 1 To cCol
            s = s & DB(i, j) & "|^"
        Next
        vArr(i) = s
    Next
 
    If IsMissing(FilterCol) Then
        filterArr = vArr
    Else
        Cols = Split(FilterCol, ",")
        ReDim filterArr(1 To cRow)
        For i = 1 To cRow
            s = ""
            For Each Col In Cols
                s = s & DB(i, Trim(Col)) & "|^"
            Next
            filterArr(i) = s
        Next
    End If
 
    If left(Value, 2) = ">=" Or left(Value, 2) = "<=" Or left(Value, 2) = "=>" Or left(Value, 2) = "=<" Then Operator = left(Value, 2) If IsDate(Right(Value, Len(Value) - 2)) Then isDateVal = True ElseIf left(Value, 1) = ">" Or left(Value, 1) = "<" Then
        Operator = Left(Value, 1)
        If IsDate(Right(Value, Len(Value) - 1)) Then isDateVal = True
    Else: End If
 
    If Operator <> "" Then
        If isDateVal = False Then
            Select Case Operator
                Case ">"
                    For i = 1 To cRow
                        If CDbl(Left(filterArr(i), Len(filterArr(i)) - 2)) > CDbl(Right(Value, Len(Value) - 1)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                    Next
                Case "<"
                    For i = 1 To cRow
                        If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) < CDbl(Right(Value, Len(Value) - 1)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next Case ">=", "=>"
                    For i = 1 To cRow
                        If CDbl(Left(filterArr(i), Len(filterArr(i)) - 2)) >= CDbl(Right(Value, Len(Value) - 2)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                    Next
                 Case "<=", "=<"
                    For i = 1 To cRow
                        If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) <= CDbl(Right(Value, Len(Value) - 2)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next End Select Else Select Case Operator Case ">"
                    For i = 1 To cRow
                        If CDate(Left(filterArr(i), Len(filterArr(i)) - 2)) > CDate(Right(Value, Len(Value) - 1)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                    Next
                Case "<"
                    For i = 1 To cRow
                        If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) < CDate(Right(Value, Len(Value) - 1)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next Case ">=", "=>"
                    For i = 1 To cRow
                        If CDate(Left(filterArr(i), Len(filterArr(i)) - 2)) >= CDate(Right(Value, Len(Value) - 2)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                    Next
                 Case "<=", "=<"
                    For i = 1 To cRow
                        If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) <= CDate(Right(Value, Len(Value) - 2)) Then: vArr(i) = left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn Next End Select End If Else If ExactMatch = False Then For i = 1 To cRow If filterArr(i) Like "*" & Value & "*" Then vArr(i) = left(vArr(i), Len(vArr(i)) - 2) vReturn = Split(vArr(i), "|^") Dict.Add i, vReturn End If Next Else For i = 1 To cRow If filterArr(i) Like Value & "|^" Then vArr(i) = left(vArr(i), Len(vArr(i)) - 2) vReturn = Split(vArr(i), "|^") Dict.Add i, vReturn End If Next End If End If If Dict.Count > 0 Then
        ReDim vResult(1 To Dict.Count, 1 To cCol)
        i = 1
        For Each dictKey In Dict.Keys
            For j = 1 To cCol
                vResult(i, j) = Dict(dictKey)(j - 1)
            Next
            i = i + 1
        Next
    End If
 
    Filtered_DB = vResult
Else
    Filtered_DB = DB
End If
 
End Function

 

스크랩
공유
전체 2

  • 2022-10-09 22:48

    @GMART 님 안녕하세요.

    복/붙하신 코드에 줄바꿈이 잘못되어있어 오류가 발생한 것 같습니다.

    기존 코드대신 아래 코드를 복/붙후 다시 사용해보시겠어요?^^

    적어드린 답변이 문제해결에 도움이 되셨길 바랍니다. 감사합니다.

    '###############################################################
    '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
    '수정 및 배포 시 출처를 반드시 명시해야 합니다.
     
    '■ Filtered_DB 함수
    '■ 서로 다른 두 시트를 연결합니다. FromWS의 첫번째 필드는 반드시 고유값(ID)이 입력되어야 합니다.
    '■ 사용방법
    'Array = Filtered_DB(Get_DB(Sheet1),">=200")
    '■ 인수 설명
    '_____________DB                  : 데이터를 필터링 할 원본 DB 입니다.
    '_____________Value             : 필터링 할 조건입니다.
    '_____________FilterCol         : [선택인수] 필터링 할 검색 열입니다. 빈칸일 경우 전체 열을 대상으로 필터링합니다.
    '_____________ExactMatch   : [선택인수] 정확히 일치 여부입니다. 기본값은 False(=유사일치) 입니다.
    '###############################################################
     
    Function Filtered_DB(DB, Value, Optional FilterCol, Optional ExactMatch As Boolean = False) As Variant
     
    Dim cRow As Long
    Dim cCol As Long
    Dim vArr As Variant: Dim s As String: Dim filterArr As Variant:  Dim Cols As Variant: Dim Col As Variant: Dim Colcnt As Long
    Dim isDateVal As Boolean
    Dim vReturn As Variant: Dim vResult As Variant
    Dim Dict As Object: Dim dictKey As Variant
    Dim i As Long: Dim j As Long
    Dim Operator As String
     
    '<-- 21.08.19 수정 : DB 비어있을 시, 오류 대신 비어있는 DB 반환 -->
    If IsEmpty(DB) Then Filtered_DB = DB: Exit Function
     
    Set Dict = CreateObject("Scripting.Dictionary")
     
    If Value <> "" Then
        cRow = UBound(DB, 1)
        cCol = UBound(DB, 2)
        ReDim vArr(1 To cRow)
        For i = 1 To cRow
            s = ""
            For j = 1 To cCol
                s = s & DB(i, j) & "|^"
            Next
            vArr(i) = s
        Next
     
        If IsMissing(FilterCol) Then
            filterArr = vArr
        Else
            Cols = Split(FilterCol, ",")
            ReDim filterArr(1 To cRow)
            For i = 1 To cRow
                s = ""
                For Each Col In Cols
                    s = s & DB(i, Trim(Col)) & "|^"
                Next
                filterArr(i) = s
            Next
        End If
     
        If Left(Value, 2) = ">=" Or Left(Value, 2) = "<=" Or Left(Value, 2) = "=>" Or Left(Value, 2) = "=<" Or Left(Value, 2) = "<>" Then
            Operator = Left(Value, 2)
            If IsDate(Right(Value, Len(Value) - 2)) Then isDateVal = True
        ElseIf Left(Value, 1) = ">" Or Left(Value, 1) = "<" Then
            Operator = Left(Value, 1)
            If IsDate(Right(Value, Len(Value) - 1)) Then isDateVal = True
        Else: End If
     
    '<-- 21.08.19 수정 : 제외조건(<>)으로 필터링 가능하도록 수정 -->
        If Operator <> "" And Operator <> "<>" And Operator <> "=" Then
            If isDateVal = False Then
                Select Case Operator
                    Case ">"
                        For i = 1 To cRow
                            If CDbl(Left(filterArr(i), Len(filterArr(i)) - 2)) > CDbl(Right(Value, Len(Value) - 1)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                    Case "<"
                        For i = 1 To cRow
                            If CDbl(Left(filterArr(i), Len(filterArr(i)) - 2)) < CDbl(Right(Value, Len(Value) - 1)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                    Case ">=", "=>"
                        For i = 1 To cRow
                            If CDbl(Left(filterArr(i), Len(filterArr(i)) - 2)) >= CDbl(Right(Value, Len(Value) - 2)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                     Case "<=", "=<"
                        For i = 1 To cRow
                            If CDbl(Left(filterArr(i), Len(filterArr(i)) - 2)) <= CDbl(Right(Value, Len(Value) - 2)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                End Select
            Else
                Select Case Operator
                    Case ">"
                        For i = 1 To cRow
                            If CDate(Left(filterArr(i), Len(filterArr(i)) - 2)) > CDate(Right(Value, Len(Value) - 1)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                    Case "<"
                        For i = 1 To cRow
                            If CDate(Left(filterArr(i), Len(filterArr(i)) - 2)) < CDate(Right(Value, Len(Value) - 1)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                    Case ">=", "=>"
                        For i = 1 To cRow
                            If CDate(Left(filterArr(i), Len(filterArr(i)) - 2)) >= CDate(Right(Value, Len(Value) - 2)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                     Case "<=", "=<"
                        For i = 1 To cRow
                            If CDate(Left(filterArr(i), Len(filterArr(i)) - 2)) <= CDate(Right(Value, Len(Value) - 2)) Then: vArr(i) = Left(vArr(i), Len(vArr(i)) - 2): vReturn = Split(vArr(i), "|^"): Dict.Add i, vReturn
                        Next
                End Select
            End If
        Else
            If ExactMatch = False Then
                If Operator = "<>" Then
                    Value = Right(Value, Len(Value) - 2)
                    For i = 1 To cRow
                         If Not filterArr(i) Like "*" & Value & "*" Then
                            vArr(i) = Left(vArr(i), Len(vArr(i)) - 2)
                            vReturn = Split(vArr(i), "|^")
                            Dict.Add i, vReturn
                        End If
                    Next
                Else
                    For i = 1 To cRow
                        If filterArr(i) Like "*" & Value & "*" Then
                            vArr(i) = Left(vArr(i), Len(vArr(i)) - 2)
                            vReturn = Split(vArr(i), "|^")
                            Dict.Add i, vReturn
                        End If
                    Next
                End If
            Else
                If Operator = "<>" Then
                Value = Right(Value, Len(Value) - 2)
                    For i = 1 To cRow
                        If Not filterArr(i) Like Value & "|^" Then
                            vArr(i) = Left(vArr(i), Len(vArr(i)) - 2)
                            vReturn = Split(vArr(i), "|^")
                            Dict.Add i, vReturn
                        End If
                    Next
                Else
                    For i = 1 To cRow
                        If filterArr(i) = Value & "|^" Then
                            vArr(i) = Left(vArr(i), Len(vArr(i)) - 2)
                            vReturn = Split(vArr(i), "|^")
                            Dict.Add i, vReturn
                        End If
                    Next
                End If
            End If
        End If
     
        If Dict.Count > 0 Then
            ReDim vResult(1 To Dict.Count, 1 To cCol)
            i = 1
            For Each dictKey In Dict.Keys
                For j = 1 To cCol
                    vResult(i, j) = Dict(dictKey)(j - 1)
                Next
                i = i + 1
            Next
        End If
     
        Filtered_DB = vResult
    Else
        Filtered_DB = DB
    End If
     
    End Function

    • 2022-10-18 23:18

      @오빠두엑셀 님 감사합니다. 선생님!


전체 8,690
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (37)
오빠두엑셀 | 2022.09.28 | 추천 9 | 조회 3292
오빠두엑셀 2022.09.28 9 3292
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (110)
오빠두엑셀 | 2021.10.28 | 추천 137 | 조회 8821
오빠두엑셀 2021.10.28 137 8821
45457 함수/공식
New 두 셀 문자를 한셀로 가져오면서 줄바꿈과 괄호가 삽입되게 할 수 있을까요? 엑셀파일첨부파일 (2) 답변완료
초코우유 | 2022.12.09 | 추천 0 | 조회 31
초코우유 2022.12.09 - 31
45456 피벗테이블
New 피벗테이블 설문조사 문항별로 모든 사람의 5점척도 응답값들을 가져오고 싶습니다. 엑셀파일 (2) 답변완료
dissim**** | 2022.12.09 | 추천 0 | 조회 17
dissim**** 2022.12.09 - 17
45452 함수/공식
New 자동으로 조건별 정렬이 되도록 보고싶어요 엑셀파일첨부파일 (6)
짱구는옷말려 | 2022.12.09 | 추천 0 | 조회 41
짱구는옷말려 2022.12.09 - 41
45451
New 매크로 파일 버튼이 작동을 안합니다. 첨부파일 (1)
강홍구 | 2022.12.09 | 추천 0 | 조회 25
강홍구 2022.12.09 - 25
45449 VBA
New 엑셀(EXCEL) Worksheet_SelectionChange VBA관련 엑셀파일첨부파일
woooooo.m | 2022.12.09 | 추천 0 | 조회 32
woooooo.m 2022.12.09 - 32
45448 VBA
New VBA 에서 Call Shell로 링크를 끌어오려하는데 현재 Month -1 에 해당하는 데이터를 불러오고 싶어요
Taee | 2022.12.09 | 추천 0 | 조회 20
Taee 2022.12.09 - 20
45447 VBA
New 값을 찾아올때, 음영색깔도 그대로 가져오기 엑셀파일 (1)
RED HERO | 2022.12.09 | 추천 0 | 조회 34
RED HERO 2022.12.09 - 34
45446 함수/공식
New 2개의 조건과 일치하는 대상자들의 중앙값구하기 엑셀파일 (2) 답변완료
willow**** | 2022.12.09 | 추천 0 | 조회 28
willow**** 2022.12.09 - 28
45445 함수/공식
New QR코드함수 관련 한글깨짐 현상 엑셀파일첨부파일 (2)
쿠키바삭 | 2022.12.09 | 추천 0 | 조회 21
쿠키바삭 2022.12.09 - 21
45437 함수/공식
New 특정단어 입력시 시트2에 표기법 엑셀파일 (3)
자유 | 2022.12.09 | 추천 0 | 조회 34
자유 2022.12.09 - 34
45436 함수/공식
New 조건에 따른 평가점수의 중앙값을 구하는 방법을 알고싶어요 엑셀파일 (2) 답변완료
willow**** | 2022.12.09 | 추천 1 | 조회 19
willow**** 2022.12.09 1 19
45435 함수/공식
New 엑셀 속도 관련 질문입니다. (용량이 큰 엑셀파일을 어떻게 관리해야할까요?) (2)
정지훈 | 2022.12.09 | 추천 0 | 조회 29
정지훈 2022.12.09 - 29
45433 기능/도구
New 체크박스와 필터링 문제 엑셀파일첨부파일 (1)
꽃받침 | 2022.12.09 | 추천 0 | 조회 29
꽃받침 2022.12.09 - 29
45432 함수/공식
New 월별 매출액 자동 합산 엑셀파일 (3) 답변완료
더데빌 | 2022.12.09 | 추천 0 | 조회 27
더데빌 2022.12.09 - 27
45429 파워쿼리/피벗
New 네이버 메일 열기 첨부파일 (2)
옥산이 | 2022.12.09 | 추천 0 | 조회 23
옥산이 2022.12.09 - 23
45422 함수/공식
New SUMPRODUCT 행열 조건식 덧셈 사용시 #VALUE 문제 엑셀파일 (4) 답변완료
김동연 | 2022.12.09 | 추천 0 | 조회 23
김동연 2022.12.09 - 23
45421 함수/공식
New 공백제외하고 셀의 내용을 합치는 함수 알고싶습니다.(두줄당하나로) 첨부파일 (3)
고독한술한잔 | 2022.12.09 | 추천 0 | 조회 28
고독한술한잔 2022.12.09 - 28
45418 함수/공식
New 일자별로 합계구하고싶어요 엑셀파일첨부파일 (2)
엑셀잘할래요 | 2022.12.09 | 추천 0 | 조회 33
엑셀잘할래요 2022.12.09 - 33
45416 함수/공식
New sumifs와 sumproduct 사용법 질문입니다. 첨부파일
PQDL | 2022.12.09 | 추천 0 | 조회 22
PQDL 2022.12.09 - 22
45413 VBA
New 매크로 기능을 사용하면 매크로 파일(XLSM)이 갑자기 켜집니다 (1)
바네 | 2022.12.09 | 추천 0 | 조회 28
바네 2022.12.09 - 28
45412 함수/공식
New 절대값 음수 시간 합계 표시 질문입니다. 엑셀파일첨부파일 (7)
힙합매냐 | 2022.12.09 | 추천 0 | 조회 32
힙합매냐 2022.12.09 - 32
45410 함수/공식
New indirect 함수 상대참조 엑셀파일첨부파일 (1)
마마마 | 2022.12.08 | 추천 0 | 조회 27
마마마 2022.12.08 - 27
45409 함수/공식
New 다중조건 첨부파일 (1)
김미영 | 2022.12.08 | 추천 0 | 조회 30
김미영 2022.12.08 - 30
45399 함수/공식
New 제시간에 퇴근하고싶어요 엑셀파일 (2)
taegshin kim | 2022.12.08 | 추천 0 | 조회 63
taegshin kim 2022.12.08 - 63
45398 기능/도구
New 목록명이 다른 데이터 통합방법 첨부파일 (2)
will12**** | 2022.12.08 | 추천 0 | 조회 33
will12**** 2022.12.08 - 33
45397 함수/공식
New 산출식이 들어 있는 값으로 표시 엑셀파일첨부파일 (2)
바른나무 | 2022.12.08 | 추천 0 | 조회 31
바른나무 2022.12.08 - 31
45394 함수/공식
New 여러수식의 범위값을 연동해서 변경하는 방법 있을까요 (4) 답변완료
하이롭 | 2022.12.08 | 추천 0 | 조회 37
하이롭 2022.12.08 - 37
45390 함수/공식
New 조건에 맞는 값 구하기 첨부파일
노갈 | 2022.12.08 | 추천 0 | 조회 45
노갈 2022.12.08 - 45
45389 문서서식
New 기존에 인쇄 되어있는 용지를 넣고 출력할때 원하는 위치에 글씨 입력하는 방법 (1)
willow123 | 2022.12.08 | 추천 0 | 조회 21
willow123 2022.12.08 - 21
45388 함수/공식
New 여러가지 조건 함수 첨부파일 (7)
지니 | 2022.12.08 | 추천 0 | 조회 40
지니 2022.12.08 - 40