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

작성자:  

 도리 (ckeun62)

추천:  2
파일:     모의고사 성적표(질문용)(2).xls (59KB) 조회:  1555
제목:   매크로 실행시 438오류
　 　 　
　 * 2016버전

매크로가 제 컴에서는 잘 작동되는데 다른 컴퓨터에서는 438오류가 나면서 실행이 안됩니다.

즉, 매크로가 제 컴에서만 실행됩니다.



오류가 난 컴에서 매크로를 살펴보니 아래 중에서 
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("K2:K196" _

), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
부분이 노란색으로 표시가 
되어있더라구요.



Sub 전체성적()

'

' 전체성적 매크로

'

 

'

Range("F9").Select

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("K2:K196" _

), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Sheet1").Sort

.SetRange Range("A1:K196")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With



한 수  가르쳐 주십시오. 		　
[불량 게시물 신고]  
dewAdd2 => Add 로변경하시면 됩니다.

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:= .....
=> ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:= ....
09-07 (09:04)
ⓧ삭제 ■신고
도리감사합니다.
속 시원하게 해결했습니다.		09-07 (23:12)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2018-09-06(17:21)
최종수정일 : 2018-09-07(00:28)