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

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

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

글 수 822

vba 메세지 창 제어

VBA 조회 수 2642 추천 수 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/005/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 55951

특정 텍스트를 포함한 데이터를 쭈~욱 나열하는 방법에 대하여(제발 도와주세요) imagefile [2]

  • [레벨:2]matroos
  • 2011-07-29
  • 조회 수 1973

조건에 따라 셀 나누기 file [3]

특정 text를 포함한 데이터 나열하기!! (다시 질문합니다 파일포함) imagefile [4]

  • [레벨:2]matroos
  • 2011-08-01
  • 조회 수 2916

차트 엑셀에서 라인 차트 질문입니다. imagefile [2]

엑셀일반 부분합 질문있습니다. file [2]

  • [레벨:5]정화
  • 2011-08-08
  • 조회 수 4564

엑셀수식 indirect 함수사용시 [2]

엑셀수식 indirect file [5]

엑셀수식 셀에 있는 주소에서 국가만 남기고 지우는 방법좀 알려주세요 imagefile [1]

  • [레벨:1]누렁2
  • 2011-08-11
  • 조회 수 2978

기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기..

  • [레벨:30]아별
  • 2011-08-11
  • 조회 수 27340

엑셀일반 틀고정 질문입니다. file [3]

  • [레벨:5]정화
  • 2011-08-12
  • 조회 수 3825

엑셀수식 정렬에 관해서 여쭤봅니다. imagefile [4]

피벗테이블 엑셀 시계열 중복된 날짜 맞추기 질문 imagefile [3]

엑셀일반 투입인력에 대한 값(?)을 알고자합니다. file [1]

차트 백분율을 Bar 그래프로 간단히 할 수는 없을까요? [7]

엑셀일반 활성창 이동 [2]

피벗테이블 시간표 관리, 피벗 부분합의 활용 질문?? file [5]

엑셀수식 자동계산 질문입니다._세금계산서 자리수 & 숫자 한글 표시 file [4]

  • [레벨:5]정화
  • 2011-09-14
  • 조회 수 3330

엑셀일반 일정표를 하나 만들었는데 도와주세요(긴급)ㅠㅠ imagefile [1]

  • [레벨:2]matroos
  • 2011-09-14
  • 조회 수 3997

피벗테이블 엑셀 작업 중, 질문사항 몇개... _ 피벗테이블 계산 필드, 계산 항목 [3]

엑셀일반 셀 병합 후 데이터가 지워지지 않는 방법이 있는지요.. [2]

목록
쓰기