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

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

vba 메세지 창 제어

VBA 조회 수 2151 추천 수 0 2012.10.10 10:29:36

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

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

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

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

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


댓글 '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
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40208
522 기타 엑셀파일 용량 문제. [1] [레벨:3]jjay98 2012-10-30 3263
521 엑셀일반 특정열을 밑으로 25칸 내리는 방법이 있나요? file [2] [레벨:0]싸이 2012-10-30 2789
520 피벗테이블 피벗 통합 문의 드려요~~ file [11] [레벨:1]예진 2012-10-27 2499
519 추가기능(AddIns) 아별툴 추가기능 실행시 에러 imagefile [1] [레벨:2]성현아방 2012-10-25 1826
518 SUMPRODUCT SUMPRODUCT file [2] [레벨:0]아민 2012-10-24 1809
517 VBA Excel에서 DLL Load file [2] [레벨:1]와룡 2012-10-23 2695
516 엑셀수식 중복된 행을 묶으면서 값은 합치는 내용 file [1] [레벨:1]여엉 2012-10-19 3723
515 VBA 셀병합 효과 file [2] [레벨:4]고수가되고파 2012-10-19 2032
514 VBA 특정폴더 내 숨기지 않은 파일 모두 열기 [2] [레벨:4]고수가되고파 2012-10-18 2944
513 VBA 인위적 계산 셀 찾기 file [2] [레벨:4]고수가되고파 2012-10-18 2552
512 VBA 사용자 정의 폼 관련 file [2] [레벨:4]고수가되고파 2012-10-16 2287
511 VBA 셀 병합 관련 file [2] [레벨:4]고수가되고파 2012-10-11 1867
510 셀서식(표시형식) 아별님 복사관련해서 문의 사항이 있습니다 [7] [레벨:3]월전천넘 2012-10-10 1960
» VBA vba 메세지 창 제어 file [4] [레벨:4]고수가되고파 2012-10-10 2151
508 VBA vba 행 삽입 file [2] [레벨:4]고수가되고파 2012-10-10 2925
507 엑셀일반 아별님! 컨트롤 서식 조언 부탁합니다 file [1] [레벨:2]북곰 2012-10-08 1755
506 VBA 액셀 아르바이트 좀 해주세요 [2] [레벨:1]구삼이 2012-10-08 1872
505 엑셀수식 추석은 잘 지내셨는지요 file [1] [레벨:0]아민 2012-10-03 1560
504 VBA 파일&폴더 엑셀파일명으로 검색하여 링크걸기 file [1] [레벨:2]광택입니다 2012-09-29 3943
503 엑셀일반 안녕하세요 아별님~ [1] [레벨:4]나카타 2012-09-27 1514