엑셀 함수 및 매크로 관련 질문입니다.

본문 바로가기

엑셀 함수 및 매크로 관련 질문입니다.

작성일 2011.12.05댓글 1건
    게시물 수정 , 삭제는 로그인 필요

 
 

 

엑셀 관련 질문드립니다.

위의 그림과 같이 대화상자를 통해 F열에 수식을 입력하면 E열에 자동계산되는 사용자 함수를 사용하고 있습니다. 사용자 함수는 다음과 같습니다.

 

Function eVAL(wStr As String)

eVAL = Evaluate(wStr)

End Function

 

그리고 대화상자를 통해 입력하는 매크로의 내용은 다음과 같습니다.

 

Sub 수량산출대화상자입력()

'통합 Macro

'바로 가기 키: Ctrl+j

'con = vbYes

Do While con = vbYes

DialogSheets("근거산출대화상자").Show

Sheets("공정내역").Select

no = 4

Do While no > 0

If Range("e" & no) = "" Then

Range("e" & no).Select

ActiveCell.FormulaR1C1 = DialogSheets("근거산출대화상자").EditBoxes("수량상자").Text

no = 0

Else

no = no + 1

End If

Loop

Sheets("근거산출").Select

no = 3

Do While no > 0

If Range("f" & no) = "" Then

Range("f" & no) = DialogSheets("근거산출대화상자").EditBoxes("수량상자").Text

Range("f" & no).Offset(, -1).Formula = "=eVAL(" & Range("f" & no).Address & ")"

Range("g" & no) = DialogSheets("근거산출대화상자").EditBoxes("근거산출비고상자").Text

no = 0

Else

no = no + 1

End If

Loop

con = MsgBox("계속입력하시겠습니까?", vbYesNo, "inputbox")

Loop

End Sub

 

문제는 E19셀처럼 오류값이 나오면 매크로가 실행되지 않습니다. 디버그하라고 나오구요

 

질문입니다.

F19셀에 아무것도 입력하지 않을시 E19셀이 오류값이 아닌 공란으로 되게 하는 방법을 알고싶습니다. 답변부탁드립니다. IF 함수나 IFERROR 함수로는 해결이 안되네요.


#엑셀 함수 #엑셀 함수 정리 #엑셀 함수 안됨 #엑셀 함수 만들기 #엑셀 함수 빼기 #엑셀 함수 쓰는법 #엑셀 함수 고정 #엑셀 함수 복사 #엑셀 함수 if #엑셀 함수 곱하기

profile_image 익명 작성일 -

안녕하세요?
만족한 답변이 될런지는 모르겠습니다만, 제게 보내주신 파일을 기준으로

아래의 매크로를 각각 참고해 보시기 바라며 ...

보다 상세한 내용은 E-Mail로 보내드린 첨부파일을 참고하시기 바랍니다.

 

 

Sub Macro_Eval()
 Dim rng As Range, rngFind As Range, rngEnd As Range
 Dim i As Integer
        On Error Resume Next
  For Each rng In Range(Cells(3, 6), Cells(Rows.Count, 6).End(3))
    If IsNumeric(rng.Value) Then
      rng.Offset(, -1) = rng.Value
     Else
      rng.Offset(, -1) = eVAL(rng.Value)
     End If
    Next rng
     Set rng = Nothing     
   For Each rng In Columns("B").SpecialCells(2)
     Set rngFind = Sheets("공정내역").Columns("B").Find(rng.Value, , , 1)
        If Not rngFind Is Nothing Then
         rngFind.Offset(, 1).Resize(, 3) = rng.Next.Resize(, 3).Value
       End If
     Next rng
End Sub

 

 

 

Function eVAL(wStr As String) As Long
  eVAL = Evaluate(wStr)
End Function

 

 

 


 

그럼, 도움되시기를 바라며 즐거운 주말 보내세요 ^^* ;;;

 

 

 

 

 

연관된 질문 답변 리스트

엑셀 함수및 매크로 질문

엑셀에서 매크로 하나를 만들고 싶은데 어떻게 하먄 될까요? 출고대기시트에 값을 출고시트로 넘어가게 하고 싶은데요 출고 대기시트에 있는 셀에서 선택한 셀이 출고...

엑셀 함수 매크로 관련 질문

컴활 준비중인데요 이상하게 지정대로 메크로를 실행하고, 합계나 평균같은 함수를 셀에 입력하고 매크로 종료한 후 도형에 지정하고 확인차 그 도형을 누르면 갑자기 생뚱맞은...

엑셀 함수 및 매크로 질문입니다.

... 혹시 매크로 기능을 이용한다거나 함수 등을 이용해서 버튼 한 번 클릭하면 총합값의 데이터가 자동으로 전날 총합으로 옮겨지게 할수는 없을까요? 첨부파일 참고하세요.