글 수 65
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
a☆----------------------------------------------------------------------
'폼에서 버튼을 이용해서 홈페이지 링크 시키기..
Option Explicit
Const cHome$ = "http://excellove.com"
Sub dhFormShow()
'폼 열기
FrmEs.Show
End Sub
Sub dhGoToHome()
'엑사모 방문하기
On Error GoTo e1
ThisWorkbook.FollowHyperlink Address:=cHome, addhistory:=True
e1:
End Sub
'폼에서 버튼을 이용해서 홈페이지 링크 시키기..
Option Explicit
Const cHome$ = "http://excellove.com"
Sub dhFormShow()
'폼 열기
FrmEs.Show
End Sub
Sub dhGoToHome()
'엑사모 방문하기
On Error GoTo e1
ThisWorkbook.FollowHyperlink Address:=cHome, addhistory:=True
e1:
End Sub
