OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    멋쟁이 (hqrok627) 추천:  2 파일:     조회:  2797 제목:   조건부 서식으로 셀에 값넣기
안녕하세요. 조건부 서식을 이용해서 셀에 값이나 함수를 넣을수 있는지 궁금해서 질문 올립니다. 예를 들면, 만약에 A1 셀에 어떤값이 들어가면 자동으로 A10 셀에 =SUM(A1:A9) 이라는 함수가 들어 갈수 있는지요? 같은 원리로 B1 에 값이 들어가면 B10 에도 B1 부터 B9 까지의 총합이 들어갑니다. A10 셀에 함수를 넣고 아래로 쭈욱 끌어내리는 방법말고는 다름 방법이 없는지요? 답변 부탁드리겠습니다. 감사합니다. 　 [불량 게시물 신고]
황기성 안녕하세요? 당연히 불가능한 것이랍니다. 서식과 수식은 달라도 너무 다른 것이랍니다. VBA를 이용하시는 방법이 있지만...그냥 수식을 이용하세요...^^* 그럼...행운이 있으시길...! 07-28 (09:21) ⓧ삭제 ■신고 멋쟁이 황기성님, 안녕하세요? 그럼 VBA를 이용한 방법이라도 가르쳐 주실수 있나요? 급해서 그런데요, 부탁좀 드립니다. 감사합니다. 07-28 (09:24) ⓧ삭제 ■신고 황기성 급하신가요? 그러나 VBA로 코딩하려면 훨씬 더 자세한 질문을 주셔야 한답니다. 저로선 하지만, 왜 이런 번거로운 작업이 필요한지조차 잘 이해하기 어렵군요. 아무튼 아래와 비슷한 방법으로... Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer On Error GoTo e1 With Target     If .Row <= 9 Then         i = .Column         If Application.WorksheetFunction.Count(Range(Cells(1, i), Cells(9, i))) = 0 Then             Cells(10, i).Value = Empty         Else             Cells(10, i).FormulaR1C1 = "=SUM(R1C:R[-1]C)"         End If     Else     End If End With e1: End Sub 그럼...행운이 있으시길...! 07-28 (09:49) ⓧ삭제 ■신고 블랙조 좀 허접 하지만,=IF(LEN(A1)>0,SUM(A1:A9),"")으로 가능할지.. 07-28 (09:54) ⓧ삭제 ■신고 멋쟁이 갑사합니다. 블랙조님 의견같이 해봤는데요, =if(A1,sum(a1:a9),"") 이런식으로요, 근데 이런 성질이 시트 전체에 들어가 있어야 하거든요. 그리고 난 후에 A10 을 선택하고, IV10 까지 쭉 끌어서 수식을 확장 시켰더니 데이터가 아무것도 안 들어 있는 상황에서 파일 사이즈가 3메가가 넘어가 버리더군요. 사용자가 어떤 값을 계속 입력 시켜 나가야 하는 파일 이거든요. 어쨋든 감사합니다. 황기성님, 블랙조님. ^^ 07-28 (10:02) ⓧ삭제 ■신고 황기성 시트 전체에 그런 이벤트가 있어야 한다면, Thisworkbook모듈에서 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub 이벤트를 이용하세요... 코드는 동일합니다. 그럼...행운이 있으시길...! 07-28 (10:04) ⓧ삭제 ■신고 황기성 혹, 1행에 값이 있고 없고의 여부에 따라서 달라져야 한다면 If .Row <= 9 Then         i = .Column         If Application.WorksheetFunction.Count(Range(Cells(1, i), Cells(9, i))) = 0 Then             Cells(10, i).Value = Empty         Else 를 If .Row = 9 Then         i = .Column         If len(.value) = 0 Then             Cells(10, i).Value = Empty         Else 라고 수정하세요 그럼...행운이 있으시길...! 07-28 (10:06) ⓧ삭제 ■신고
작성일 : 2003-07-28(09:19) 최종수정일 : 2003-07-28(09:19)