책 내용 질문하기
내일 시험인데 빨리알려주세요ㅠㅠ 엑셀 런타임오류
도서
[2012] 컴퓨터활용능력 2급 실기(엑셀 2007 사용자용)
페이지
조회수
237
작성일
2012-08-04
작성자
도형으로 매크로 지정할 떄 있잖아요
그떄는 제대로 매크로가 실행되는데,,, 채점도 되구요
양식-단추 이걸로 매크로 지정하면 눌렀을때 실행이 안되요... 이떄 채점도 안되요
대체 왜그러는 거죠???
이파일은 인터넷에서 구한문제인데 그래도 알려주실수있죠??ㅜㅜㅜ
엑셀파일 지금올리구요
문제는 따로올릴게요
어떻게 올리는지 잘몰라서.....
암호 : 987*12
답변
2012-08-06 06:54:02
Sub 비율()
'
' 비율 Macro
'
'
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "비율"
With Selection.Characters(Start:=1, Length:=2).Font
.Name = "돋움"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R8C5"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F8")
Range("F4:F8").Select
Range("G8").Select
End Sub
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "비율"
With Selection.Characters(Start:=1, Length:=2).Font
.Name = "돋움"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R8C5"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F8")
Range("F4:F8").Select
Range("G8").Select
End Sub
굵게 표시된 부분이 매크로에 포함되지 않아야 할 것 같은데요.
매크로 안에는 비율에 대한 계산만 입력되어야 하므로
Sub 비율()
'
' 비율 Macro
'
' 비율 Macro
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R8C5"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F8")
Range("F4:F8").Select
Range("G8").Select
End Sub
ActiveCell.FormulaR1C1 = "=RC[-1]/R8C5"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F8")
Range("F4:F8").Select
Range("G8").Select
End Sub
만 입력되어야 합니다.
아무래도 매크로 기록안에 명령단추 생성하는 것 까지 기록 하신 것 같네요.
매크로안에는 비율에 대한 값을 구하는 것만 입력하셔야 합니다.
명령 단추를 만들면 자동으로 매크로가 실행되므로
명령단추를 만들면서 나타나는 매크로에서 비율에 대한 값을 구한 후 매크로 기록을 중지하고
명령단추의 이름을 변경하세요.
좋은 하루 되세요.
"
-
*2012-08-06 06:54:02
Sub 비율()
'
' 비율 Macro
''
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "비율"
With Selection.Characters(Start:=1, Length:=2).Font
.Name = "돋움"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R8C5"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F8")
Range("F4:F8").Select
Range("G8").Select
End Sub굵게 표시된 부분이 매크로에 포함되지 않아야 할 것 같은데요.매크로 안에는 비율에 대한 계산만 입력되어야 하므로Sub 비율()
'
' 비율 Macro
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R8C5"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F8")
Range("F4:F8").Select
Range("G8").Select
End Sub만 입력되어야 합니다.아무래도 매크로 기록안에 명령단추 생성하는 것 까지 기록 하신 것 같네요.매크로안에는 비율에 대한 값을 구하는 것만 입력하셔야 합니다.명령 단추를 만들면 자동으로 매크로가 실행되므로명령단추를 만들면서 나타나는 매크로에서 비율에 대한 값을 구한 후 매크로 기록을 중지하고명령단추의 이름을 변경하세요.좋은 하루 되세요."