열람은 누구나 가능합니다만, 첨부파일 다운로드나 글쓰기는 로그인 하셔야 됩니다

115 110 통계카운터 보기 회원 가입 회원 로그인 관리자 접속 --+
전체 (115)
문학 (9)
음악 (0)
경제경영 (13)
상식 (4)
신앙 (10)
어린이 (0)
유틸러티 (7)
의식변환 (35)
HTML (15)
기타 (22)
Name   (http://wishtree.net http://wishtree.net)
Subject   [VBA] 셀에 입력된 URL 주소를 기본 브라우저로 여는 모듈
Option Explicit

Private Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal Filename As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long

Public Sub OpenUrl()

    Dim my_URL, my_MSG, lSuccess As Long
    
    '현재 셀의 값을 변수에 저장
    my_URL = ActiveCell.Value
    
    '현재 셀의 값이 http:// 주소 형식이 아닌 경우 경고 후 종료
    If Not LCase(Left(my_URL, 7)) = "http://" Then
        my_MSG = MsgBox("주소 형식을 확인하십시오.", vbOKOnly, "주소 형식 확인")
        Exit Sub
    End If
    
    lSuccess = ShellExecute(0, "Open", my_URL)

End Sub

프린트출력을 위한 화면보기
DATE: 2015.11.17 - 00:22

 이전글 [Excel] 중복되지 않은 유일 갯수 구하기 수식
 다음글 [VBA] URL 주소의 이미지를 엑셀 시트로 가져오는 ...
글남기기삭제하기수정하기답변달기전체 목록 보기

115Simple view[Excel] 중복되지 않은 유일 갯수 구하기 수식2016.04.07기타
114현재 읽고 있는 글입니다.[VBA] 셀에 입력된 URL 주소를 기본 브라우저로 여...2015.11.17기타
113Simple view[VBA] URL 주소의 이미지를 엑셀 시트로 가져오는 ...2015.11.16기타
112Simple view[VBA] 엑셀 이름 정의 한꺼번에 모두 삭제하기2015.11.16기타
111Simple view[엑셀] 규칙적 1열 종 데이터를 횡 데이터로 만들...2015.07.25기타
110Simple view야금야금 기초 중국어 (총25강)2015.03.07기타
109Simple view[VBA] 괘선 그리기, 지우기2014.10.11기타
108Simple view[VBA] 한 번에 여러 범위 선택하기2014.10.11기타
107Simple view[VBA] 시간에 맞추어 프로시져 실행 시키기 [1]2014.10.11기타
106Simple view[VBA] 시트의 마지막 셀 찾아 활용하기2014.08.28기타
105Simple view모바일 페이지 화면 크기 자동 조정 메타 소스2014.08.24HTML
104Simple view[VBA] 지정 주소의 그림파일을 엑셀 시트에 삽입하...2014.07.19기타
현재페이지가 첫페이지 입니다. 다음페이지
이전 1  2  3  4  5  6  7  8  9  10 다음
글남기기 새로고침
이름을 검색항목에 추가/제거제목을 검색항목에 추가/제거내용을 검색항목에 추가/제거 메인화면으로 돌아가기