이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
안녕하세요~ ^^ 잘 해결이 안되는 것이 있어 질문 여쭙습니다. 아래와 같이 엘셀 VBA 프로그램 작성중인데요....코드..Range("C" & Next_Row).Value = WorksheetFunction.Max(Sheets("1일").Range("C2:C13"))...코드... 여기서 Range ----> ("C2:C13") 이 계속 변합니다.즉, 열에 대한 변화는 갯수가 고정되어 있기때문에 직접 써주면 되는데... 행 숫자는 계속 변하게 되어 변수처리 하여야 합니다.. Chr() 를 사용해서 "C2:C13" 의 형태로 똑같은 형태로 만들어 봤으나..인식이 안되네요..ㅠㅜ..범위를 그냥 직접 쓸 경우엔 됩니다. 여기저기 찾아봐도 시원한 해결책이 없어 이렇게 도움을 청합니다. Office 2010 이구요..파일첨부하엿습니다. VBA폼 코드중에 '질문부분**********'****************** 이라고 마킹 했습니다.
댓글 '3'
앗! 엑신님! 답변 감사합니다! ^^;;
사실은 오전중에..해결이 되었습니다.Range("E" & Next_Row).Value = WorksheetFunction.Average(Sheets(k & "일").Range("E" & S_No & Chr(44) & "E" & E_No))제가 첨에 시도했던..ASCII문자표...의 번호가 잘 못 선택했더군요..><;;
ㅋ~~ " 를 * 번호로 잘 못 썻던 것!암튼...엄청난 자료(매월 분단위 시계열데이터)를 한꺼번에 처리하게 되었네요..
요런 게 또 몇년치가 있습니다..-_-;;암튼..이곳을 알게 되어 반갑구요...엑신님의 배품도 잘 느끼게 되네요..앞으로 잘 부탁드리겠습니다.감사합니다. ^^;
사실은 오전중에..해결이 되었습니다.Range("E" & Next_Row).Value = WorksheetFunction.Average(Sheets(k & "일").Range("E" & S_No & Chr(44) & "E" & E_No))제가 첨에 시도했던..ASCII문자표...의 번호가 잘 못 선택했더군요..><;;
ㅋ~~ " 를 * 번호로 잘 못 썻던 것!암튼...엄청난 자료(매월 분단위 시계열데이터)를 한꺼번에 처리하게 되었네요..
요런 게 또 몇년치가 있습니다..-_-;;암튼..이곳을 알게 되어 반갑구요...엑신님의 배품도 잘 느끼게 되네요..앞으로 잘 부탁드리겠습니다.감사합니다. ^^;
안녕하세요? 마리너님~
첨부파일을 자세히 보진 않았습니다만..
아래의 코드를 참고해 보시면 문제가 해결 되실 것 같습니다.
Sub testMax()
Dim intStart As Integer: intStart = 5
Dim intEnd As Integer: intEnd = 10
Dim rngMax As Range
Set rngMax = Sheets("1일").Range("C" & intStart & ":D" & intEnd)
Set rngMax = Sheets("1일").Range("C" & intStart, "D" & intEnd)
Set rngMax = Sheets("1일").Range(Cells(intStart, 3), Cells(intEnd, 4))
Range("F3").Value = WorksheetFunction.Max(rngMax)
End Sub
정리하자면..
아래 3개의 표현은 모두 동일한 셀영역을 표시하는 방법입니다.
Cells를 사용할때는 Cells(행숫자,열숫자) 인 것에 주의 하세요..
Rnage("C5:D10")
Rnage("C5","D10")
Range(Cells(5,3),Cells(10,4))
** 참고로.. [긴급] 같은 것은 적으셔도 아무 소용이 없습니다. 하하..