나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 서수지 (hajoon2004)

추천:  2
파일:     aaa(2).png (10.2KB) 조회:  2858
제목:   고견 부탁 드립니다~~
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>
-엑셀도 초보,VB도 모르는데 귀동낭 하면서 매크로를 만들었습니다.
근데...뭐가 문제인지 12개월 * 각월의 날수 만큼 For ~~Next 하는데
시간이 많이 걸리네요~~~의견 좀 부탁 드립니다.
-감사합니다.
-------------source
    ' 월 정보 Reset
    '
    
    'incolor = -4142 ' 색 없음
    
    'Dim bb As Integer
    
    'MsgBox "정보설정 Start ~~~! ", vbYesNo, "옙~~??"
    
    'For i = 1 To 12 ' 월 for
    
    '    bb = Range(i & "!H1") '월의 일수
    '    Set aRng = Range(i & "!i3:AM3")
  
    '    For t = 1 To bb  '일 for
    '            aRng.Cells(1, t).Interior.ColorIndex = incolor
    '            aRng.Cells(2, t).Interior.ColorIndex = incolor
    '        aRng.Cells(1, t).Value = ""
    '        aRng.Cells(2, t).Value = ""
    '    Next
    'Next
 
[불량 게시물 신고]  
조삿갓아마도 월별로 시트가 구성되어 있고 set 버튼을 누르면 각 날짜의 요일에 따라 셀 음영을 칠해주려는 의도 같은데
굳이 어려운 VBA를 쓰는 것보다는
워크시트 함수와 조건부서식으로 간단히 해결할 수 있을 것 같은데요?
그림 파일이 아닌 실제 엑셀파일을 첨부해 보세요.
회사 기밀에 해당하는 데이터 부분은 삭제하거나 자료 값을 변형하여 올리세요.
10-19 (17:49)
삭제 ■신고
        
  

작성일 : 2017-10-13(11:49)
최종수정일 : 2017-10-13(11:49)