1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

글 수 822

vba 메세지 창 제어

VBA 조회 수 2331 추천 수 0 2012.10.10 10:29:36
[레벨:4]고수가되고파 *.104.208.234

첨부된 예제의 C6셀과 C7 셀에는 함수계산 후 인위적으로 +1, -1이 계산되어져 있습니다.

이러한 것들을 제어하고자 코드가 기록되어져 있는데요.

매크로를 실행하면 이러한 것들을 수정할 것인지를 묻는 대화상자가 나옵니다.

첨부된 예제는 2번 나오는데요. 만약 100개라면 100번 대화상자가 나오게 됩니다.

100개의 셀에 +,- 값이 계산되어져도 대화상자는 1번만 나오도록(물론 1개의 대화상자이더라도 100개의 셀에 이상이 있다는 내용은 출력이 되어야 하구요)하려면 어디를 수정해야 하는지요?

이 게시물을...
첨부
엮인글 :
http://www.abyul.com/zbxe/111478/4b0/trackback
목록

댓글 '4'

profile

[레벨:30]아별

2012.10.11 12:11:44
*.104.126.21

첨부파일이 없네요~

[레벨:4]고수가되고파

2012.10.11 12:49:04
*.104.208.234

헉!. 이런 실수를... 다시 올렸습니다.

profile

[레벨:30]아별

2012.10.11 14:31:30
*.104.126.21

고수가되고파님..

아래와 같은 로직을 이용해보세요..

수식셀들을 순환하면서 수식에 +나 -가 있는 셀들을 rngSum이라는 가상의 영역 범위에 모았다가..

그 셀의 개수를 메시지박스에 띄워서 몇개가 있는지 표시하면 될 것 같습니다.

 

Option Explicit

Sub abFindAdjustedFormulaCells()
    Dim rngSrc As Range
    Set rngSrc = ActiveSheet.UsedRange
    On Error Resume Next
    Set rngSrc = rngSrc.SpecialCells(xlCellTypeFormulas, 23)
  
    If rngSrc Is Nothing Or Err.Number = 1004 Then
        MsgBox "현재 시트에는 수식셀이 없습니다."
        Exit Sub
    ElseIf Err.Number <> 1004 And Err.Number <> 0 Then
        MsgBox "알수 없는 에러가 발생하여 종료합니다."
        Exit Sub
    Else
        Dim r As Range, rngSum As Range
        For Each r In rngSrc
            If InStr(r.Formula, "+") Or InStr(r.Formula, "-") Then
                If rngSum Is Nothing Then
                    Set rngSum = r
                Else
                    Set rngSum = Union(rngSum, r)
                End If
            End If
        Next r
    End If
   
    On Error GoTo 0
   
    Dim msgResult As Long
    If rngSum Is Nothing Then
        MsgBox "임의로 조정된 수식이 없습니다."
    Else
        msgResult = MsgBox(rngSum.Cells.Count & "개의 수식이 임의로 조정되었습니다." & _
                        "수정하시겠습니까?", vbYesNo, " 수식 조정 여부 확인창")
        If msgResult = vbYes Then
            '### 수식을 수정하는 코드를 넣으세요..
        End If
    End If
   
End Sub

[레벨:4]고수가되고파

2012.10.11 16:32:42
*.104.208.234

위 코드를 토대로 다시한 번 짜보겠습니다.

감사합니다.^

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 43846

엑셀수식 직급, 차수별 교육일정을 자동으로 만드는 방법을 알고 싶네요 file [5]

VLookup 참조범위의 셀에 '~' 글자가 들어가도 조회하는 방법 file [2]

VBA 개체와 컬렉션 [2]

엑셀일반 아별님 큰일 났습니다.ㅠㅠ [1]

엑셀수식 데이터 통합에 대한 질문 드려요ㅜㅜ imagefile [4]

안녕하세요? [1]

  • [레벨:5]정화
  • 2011-06-11
  • 조회 수 2261

피벗테이블 기능 file [4]

  • [레벨:5]정화
  • 2011-06-29
  • 조회 수 2269

아별툴관련질문 아별툴 오류! imagefile [1]

  • [레벨:1]namoman
  • 2014-06-11
  • 조회 수 2270

안녕하세요^^ 아별님 책은 언제쯤 볼 수 있을까요? [3]

버젼이 만료 되었네요.ㅡㅡ [1]

엑셀일반 엑셀 이미지

엑셀일반 상대참조 질문이요~ [1]

  • [레벨:4]요셉
  • 2013-08-08
  • 조회 수 2290

VBA sub과function차이 [4]

엑셀수식 다중 조건을 만족하는 값을 입력하고 싶습니다. file [2]

엑셀일반 엑셀 링크에서의 문제입니다. [3]

갑자기 아별 단축키가 안되네요.ㅡㅡ;; [2]

엑셀일반 엑셀 숨겨진데이터에 맞춰서 내용붙여넣기 방법문의요^^ [3]

엑셀일반 안녕하세요 질문좀 하려고 합니다 [2]

VBA vba 에러처리 file [2]

VBA vba 메세지 창 제어 file [4]

목록
쓰기