버리며 살기...

'매크로'에 해당되는 글 4건

  1. 2008.09.25 사진 자동입력하는 매크로 - manual/auto
  2. 2008.09.25 폴더 여는 매크로
  3. 2008.09.22 화일 이름 바꾸기 매크로 1
  4. 2008.09.03 macro 설명
매크로 | Posted by lamie 2008. 9. 25. 19:53

사진 자동입력하는 매크로 - manual/auto

Sub Get_Picture_auto()
    On Error GoTo File_error
Dim c_path, p_name, r_name, border
c_path = Application.ThisWorkbook.path '현재 문서의 디렉토리

border = 3

Input_p_heingt:         '사진 높이 입력
    h_zoom = 1
   'h_zoom = Application.InputBox(PROMPT:="사진 높이를 입력하세요(사진이 차지하는 행의 수)", Type:=2)
    'If h_zoom = False Then Exit Sub
    'If IsNumeric(h_zoom) = False Then GoTo Num_error

Repeat:
    prev_addr = ActiveCell.Address             '현재셀주소
    r_name = Selection.Text                    '현재셀을 사진화일 이름으로 사용
        If r_name = "" Then GoTo noname_error
    p_name = r_name + ".jpg"                   '사진화일명 생성
    p_height = Selection.Height                '현재셀의 높이(사진 높이의 기준이 됨)
    p_width_move = Selection.Offset(0, 0).Width    '현재열의 너비(사진의 폭이됨)
    p_width = Selection.Offset(0, 1).Width    '다음열의 너비(사진의 폭이됨)
    
    
    'Application.Dialogs(xlDialogOpen).Show
    'ins = Application.Dialogs(xlDialogInsertPicture).Show
    
   ActiveSheet.Pictures.Insert(c_path + "\" + p_name).Select
    'If ins Then
    With Selection
                  .ShapeRange.LockAspectRatio = msoFalse
                  .ShapeRange.Height = p_height * h_zoom - border * 2 '셀 높이 * 배율
                  .ShapeRange.Width = p_width - border * 2 '셀 너비 단위로 입력
                  .ShapeRange.IncrementLeft p_width * 1 + p_width_move - p_width '셀크기 단위로 그림 위치 이동
                  .ShapeRange.IncrementLeft border '셀크기 단위로 그림 위치 이동
                  .ShapeRange.IncrementTop border '셀크기 단위로 그림 위치 이동
                  .Placement = xlMoveAndSize '사진이 움직일 수 있도록
                  .PrintObject = True        ' 출력 가능
    End With
    'End If
Blank_check:
   'Range(prev_addr).Offset(h_zoom, 0).Select '다음 이름으로 이동
    ActiveCell.Offset(h_zoom, 0).Select '다음 이름으로 이동
    If ActiveCell = "" Then
    gostop = MsgBox("빈칸입니다. 아래칸으로 계속하시겠습니까?", vbYesNo, "Go? Stop?")
    If gostop = vbYes Then GoTo Blank_check
    Else
    gostop = MsgBox("계속 진행하시겠습니까?", vbYesNo, "Go? Stop?")
    If gostop = vbYes Then GoTo Repeat
    End If
'Exit Sub

'Num_error:
'    MsgBox "숫자로 입력하셔야 합니다."
'    GoTo Input_p_heingt

File_error:
    MsgBox "사진화일이 동일 디렉토리에 없거나, 사진화일명과 Symbol 내용이 다릅니다." + Chr(13)
Exit Sub
noname_error:
    MsgBox "Symbol 내용이 비어있습니다."
End Sub

Sub Get_Picture_manual()
    'On Error GoTo File_error
Dim c_path, p_name, r_name, border
c_path = Application.ThisWorkbook.path '현재 문서의 디렉토리

border = 3

Input_p_heingt:         '사진 높이 입력
    h_zoom = 1
   'h_zoom = Application.InputBox(PROMPT:="사진 높이를 입력하세요(사진이 차지하는 행의 수)", Type:=2)
    'If h_zoom = False Then Exit Sub
    'If IsNumeric(h_zoom) = False Then GoTo Num_error

'Repeat:
    prev_addr = ActiveCell.Address             '현재셀주소
'    r_name = Selection.Text                    '현재셀을 사진화일 이름으로 사용
'        If r_name = "" Then GoTo noname_error
'    p_name = r_name + ".jpg"                   '사진화일명 생성
    p_height = Selection.Height                '현재셀의 높이(사진 높이의 기준이 됨)
    p_width = Selection.Offset(0, 0).Width    '현재열의 너비(사진의 폭이됨)
   'p_width = Selection.Offset(0, -1).Width    '전열의 너비(사진의 폭이됨)
    
    
    'Application.Dialogs(xlDialogOpen).Show
    ins = Application.Dialogs(xlDialogInsertPicture).Show
    
   'ActiveSheet.Pictures.Insert(c_path + "\" + p_name).Select
    If ins Then
    With Selection
                  .ShapeRange.LockAspectRatio = msoFalse
                  .ShapeRange.Height = p_height * h_zoom - border * 2 '셀 높이 * 배율
                  .ShapeRange.Width = p_width - border * 2 '셀 너비 단위로 입력
                  .ShapeRange.IncrementLeft p_width * 0 '셀크기 단위로 그림 위치 이동
                  .ShapeRange.IncrementLeft border '셀크기 단위로 그림 위치 이동
                  .ShapeRange.IncrementTop border '셀크기 단위로 그림 위치 이동
                  .Placement = xlMoveAndSize '사진이 움직일 수 있도록
                  .PrintObject = True        ' 출력 가능
    End With
    End If
'    Range(prev_addr).Offset(h_zoom, 0).Select '다음 이름으로 이동

'    gostop = MsgBox("계속하시겠습니까?", vbYesNo, "Go? Stop?")
'    If gostop = vbYes Then GoTo Repeat
    
'Exit Sub

'Num_error:
'    MsgBox "숫자로 입력하셔야 합니다."
'    GoTo Input_p_heingt

'File_error:
'    MsgBox "사진화일이 동일 디렉토리에 없거나, 해당 인물의 사진화일명이 틀렸습니다." + Chr(13) + "(화일 이름은 해당인물의 이름으로 사용바랍니다.)"
'Exit Sub
'noname_error:
'    MsgBox "이름칸이 비어있습니다."
End Sub


'아래는 참고 함수임
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rngTarget As Range
    Dim blnOk As Boolean
    Dim L, T, W, H
   
    Set rngTarget = Range("b10,g10,b30,g30") '작업범위설정
    If Union(Target, rngTarget).Address = rngTarget.Address Then '선택셀이 작업범위와 같다면
        With Target.MergeArea '선택셀의 크기를 변수에 담구
            L = .Left
            T = .Top
            W = .Width
            H = .Height
        End With
      
        blnOk = Application.Dialogs(xlDialogInsertPicture).Show '사진삽입대화상자
        If blnOk Then '사진을 입력했다면
            With Selection
                .ShapeRange.LockAspectRatio = msoFalse
                .Width = W
                .Height = H
                .Left = L
                .Top = T
                .TopLeftCell.Offset(0, 1).Select '
            End With
        End If
    End If
   
    Set rngTarget = Nothing '개체메모리 지우기
End Sub

'매크로' 카테고리의 다른 글

파일목록생성샘플  (0) 2008.10.06
filesearch 대용  (0) 2008.10.05
폴더 여는 매크로  (0) 2008.09.25
화일 이름 바꾸기 매크로  (1) 2008.09.22
macro 설명  (0) 2008.09.03
매크로 | Posted by lamie 2008. 9. 25. 18:14

폴더 여는 매크로

Public Type BROWSEINFO '사용자 정의
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

'32비트 API함수 선언
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
  Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Sub dhTest()
    Dim strMsg As String
    Dim strT As String
    strMsg = "설치하려는 폴더를 선택하세요!"
     strT = getdirectory(strMsg)
     MsgBox strT
End Sub

Function getdirectory(Optional strMsg) As String
    Dim bInfo As BROWSEINFO
    Dim path As String
    Dim r As Long, x As Long, pos As Integer

   bInfo.pidlRoot = 0&


    If IsMissing(strMsg) Then
        bInfo.lpszTitle = "폴더를 선택하세요"
    Else
        bInfo.lpszTitle = strMsg
    End If
    
    bInfo.ulFlags = &H1

ChDir ThisWorkbook.path ' & "Temp"
    x = SHBrowseForFolder(bInfo)
'    x = SHBrowseForFolder()
    
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal path)
    If r Then
        pos = InStr(path, Chr$(0))
        getdirectory = Left(path, pos - 1)
    Else
        getdirectory = ""
    End If
End Function

'매크로' 카테고리의 다른 글

filesearch 대용  (0) 2008.10.05
사진 자동입력하는 매크로 - manual/auto  (0) 2008.09.25
화일 이름 바꾸기 매크로  (1) 2008.09.22
macro 설명  (0) 2008.09.03
엑셀 함수 목록  (0) 2008.09.02
매크로 | Posted by lamie 2008. 9. 22. 11:03

화일 이름 바꾸기 매크로

파란부분 path는 직접 손으로 쓰야 합니다......ㅡㅡㅋ


디렉토리네 화일을 a열에 읽어오는 메크로가   Sub 파일이름읽기() 이고

이거실행시킨후


b열에 작업한후  Sub 다른이름저장() 메크로를 실행합니다.

b열에 바꿀명 넣으면 화일명 변경하고 비워두면 그냥 지나갑니다.

*가 있으면 삭제합니다.  a열은 절대 변경하면 안돼고요


도구 메크로 비주얼베이직 에디터로 가셔서 왼쪽 탐색기창에 모듈삽입하고

아래 메크로 붙여넣으세요



Sub 파일이름읽기()

Dim mydir, Mypath, FileExt As String
Dim fs          As Object
Dim sFile       As Variant
Dim i, s          As Integer


mydir = "H:\새 폴더\mp3\z미정리곡\21212222"
s = Len(mydir)

FileExt = "*.*"                       '
Set fs = Application.FileSearch       ' 지정 디렉토리에서 지정한 형식의 파일을 찾음
  
With fs
  .NewSearch
  .LookIn = mydir
  .Filename = FileExt
  .SearchSubFolders = False
  .Execute
                   
  If .FoundFiles.Count = 0 Then      ' 지정 디렉토리에 파일 없을땐 끝냄
        MsgBox "디렉토리에 파일이 없습니다."
  End If
  Range("a:b").Clear
  Range("a1").Select
 
  For i = 1 To .FoundFiles.Count
       
      sFile = .FoundFiles(i)                          ' 찾은 파일
      Selection.Offset(i, 0) = Right(sFile, Len(sFile) - s - 1)
  Next i
 
End With
 
End Sub


Sub 다른이름저장()

Dim Oldname, NewName, mydir As String
Dim i, lastRow As Integer

Cells(Cells.Rows.Count, 1).End(xlUp).Select
lastRow = Selection.Row
mydir = "H:\새 폴더\mp3\z미정리곡\21212222"

Range("a1").Select
With Selection

For i = 1 To lastRow - 1
   Oldname = .Offset(i, 0).Value
   NewName = .Offset(i, 1)
   Oldname = mydir & "\" & Oldname
  
   If NewName = "*" Then
       Kill Oldname
   ElseIf NewName = "" Then
   Else
   NewName = mydir & "\" & NewName
   Name Oldname As NewName
   End If
  
Next i
파일이름읽기
End With

End Sub

'매크로' 카테고리의 다른 글

filesearch 대용  (0) 2008.10.05
사진 자동입력하는 매크로 - manual/auto  (0) 2008.09.25
폴더 여는 매크로  (0) 2008.09.25
macro 설명  (0) 2008.09.03
엑셀 함수 목록  (0) 2008.09.02
매크로 | Posted by lamie 2008. 9. 3. 13:29

macro 설명

Range 개체 구성원

셀, 행, 열, 연속 셀 블록이 하나 이상 들어 있는 셀 선택 영역, 3차원 범위 등을 나타냅니다.

메서드

  이름 설명
Activate 현재 선택 영역에 있는 셀 중 하나를 활성화합니다. 셀 범위를 선택하려면 Select 메서드를 사용합니다.
AddComment 범위에 메모를 추가합니다.
AdvancedFilter 찾을 조건 범위로 목록에서 데이터를 필터링하거나 복사합니다. 처음에 단일 셀을 선택하면 현재 셀이 있는 영역을 사용합니다.
ApplyNames 지정한 범위에 있는 셀에 이름을 적용합니다.
ApplyOutlineStyles 지정한 범위에 윤곽 스타일을 적용합니다.
AutoComplete 목록에서 자동 완성 일치 문자열을 찾아 반환합니다. 목록에 자동 완성 일치 문자열이 없거나 목록에서 자동 완성 일치 문자열을 한 항목 이상 찾으면 빈 문자열을 반환합니다.
AutoFill 지정한 범위에 있는 셀에 자동 채우기를 실행합니다.
AutoFilter AutoFilter를 사용하여 목록을 필터링합니다.
AutoFit 특정 범위의 열 너비나 행 높이를 가장 알맞은 크기로 변경합니다.
AutoOutline 지정한 범위의 윤곽선을 자동으로 만듭니다. 범위가 한 셀이면 Microsoft Excel은 전체 시트에 대해 윤곽선을 만듭니다. 새 윤곽선으로 기존의 윤곽선을 바꿉니다.
BorderAround 범위에 테두리를 추가하고 새 테두리에 대한 Color, LineStyle 및 Weight 속성을 설정합니다. Variant입니다.
Calculate 열려 있는 모든 통합 문서나 통합 문서 내의 특정 워크시트, 시트 내의 특정 셀 범위를 다음 표와 같이 계산합니다.
CheckSpelling 개체의 맞춤법 검사를 실행합니다.
Clear 개체 전체를 지웁니다.
ClearComments 지정한 범위의 셀 메모를 모두 지웁니다.
ClearContents 워크시트 범위에서 수식을 지웁니다.
ClearFormats 개체의 서식을 지웁니다.
ClearNotes 지정한 범위에 있는 모든 셀의 메모와 소리 메모를 지웁니다.
ClearOutline 지정한 범위의 윤곽선을 지웁니다.
ColumnDifferences 각 열에서 비교할 셀과 내용이 다른 모든 셀을 나타내는 Range 개체를 반환합니다.
Consolidate 여러 워크시트에 있는 여러 범위의 데이터를 하나의 워크시트에 있는 하나의 범위로 통합합니다. Variant입니다.
Copy 범위를 지정한 범위나 클립보드에 복사합니다.
CopyFromRecordset ADO 또는 DAO Recordset 개체의 내용을 워크시트에 복사하여 지정한 범위의 왼쪽 위 모서리부터 붙여 넣습니다. Recordset 개체에 OLE 개체가 있는 필드가 포함되어 있으면 이 메서드를 사용할 수 없습니다.
CopyPicture 선택한 개체를 클립보드에 그림으로 복사합니다. Variant입니다.
CreateNames 시트에 있는 텍스트 레이블로 지정된 범위에 이름을 만듭니다.
Cut 개체를 잘라 내어 클립보드나 지정한 대상 범위에 붙여 넣습니다.
DataSeries 지정한 범위에 데이터 계열을 만듭니다. Variant입니다.
Delete 개체를 삭제합니다.
DialogBox Microsoft Excel 4.0 매크로 시트의 대화 상자 정의 테이블에 정의된 대화 상자를 표시합니다. 선택된 컨트롤의 번호를 반환하거나, 사용자가 취소 단추를 클릭할 경우 False를 반환합니다.
Dirty 다음에 다시 계산할 범위를 지정합니다.
EditionOptions Macintosh 전용 Visaul Basic 키워드에 대한 도움말을 요청하셨습니다. 이 키워드에 대한 자세한 내용은 Microsoft Office Macintosh Edition에 포함된 언어 참조 도움말을 참고하십시오.
ExportAsFixedFormat 지정한 형식의 파일로 내보냅니다.
FillDown 지정한 범위의 가장 위쪽 셀부터 아래쪽으로 채웁니다. 범위에서 맨 위 행에 있는 셀의 내용과 서식을 나머지 행에 복사합니다.
FillLeft 지정한 범위의 가장 오른쪽 셀부터 왼쪽으로 채웁니다. 범위에서 오른쪽 열에 있는 셀의 내용과 서식을 나머지 열에 복사합니다.
FillRight 지정한 범위의 가장 왼쪽 셀부터 오른쪽으로 채웁니다. 범위에서 왼쪽 열에 있는 셀의 내용과 서식을 나머지 열에 복사합니다.
FillUp 지정한 범위의 가장 아래쪽 셀부터 위쪽으로 채웁니다. 범위에서 맨 아래 행에 있는 셀의 내용과 서식을 나머지 행에 복사합니다.
Find 범위 내에서 특정 정보를 검색합니다.
FindNext Find 메서드로 시작된 검색을 계속합니다. 해당 조건과 일치하는 다음 셀을 찾아 해당 셀을 나타내는 Range 개체를 반환합니다. 선택 항목이나 현재 셀에는 아무 영향도 주지 않습니다.
FindPrevious Find 메서드로 시작된 검색을 계속합니다. 해당 조건과 일치하는 이전 셀을 찾아 해당 셀을 나타내는 Range 개체를 반환합니다. 선택 항목이나 현재 셀에는 아무 영향도 주지 않습니다.
FunctionWizard 범위의 왼쪽 맨 위의 셀에서 함수 마법사를 실행합니다.
GoalSeek 특정 목표값을 찾기 위해 필요한 값을 계산합니다. 수식에서 반환하는 값이 목표값인 경우 목표값을 구하기 위해 그 수식에 대입할 값을 계산합니다. 목표값을 찾으면 True를 반환합니다.
Group Range 개체가 피벗 테이블 필드의 데이터 범위에 있는 단일 셀을 나타내는 경우, Group 메서드는 해당 필드에서 숫자나 날짜를 기준으로 그룹을 만듭니다.
Insert 하나의 셀이나 셀 범위를 워크시트나 매크로 시트에 삽입하고 공간을 만들기 위해 다른 셀을 이동합니다.
InsertIndent 지정한 범위에 들여쓰기를 추가합니다.
Justify 텍스트를 범위의 양쪽에 맞춰 다시 배열합니다.
ListNames 워크시트에 나타나는 전체 이름 목록을 범위의 첫 번째 셀부터 붙여 넣습니다.
Merge 지정한 Range 개체로 병합된 셀을 만듭니다.
NavigateArrow 지정한 범위에서 연결선을 따라 참조되는 셀, 참조하는 셀 또는 오류가 있는 셀을 찾습니다. 또한 참조되는 셀, 참조하는 셀 또는 오류가 있는 셀을 선택하고 새 선택 영역을 나타내는 Range 개체를 반환합니다. 연결선이 보이지 않는 셀에서 이 메서드를 실행하면 오류가 발생합니다.
NoteText 범위의 왼쪽 위 모서리에 있는 셀과 연결된 셀 메모를 반환하거나 설정합니다. 읽기/쓰기가 가능한 String입니다. 자세한 내용은 Comment 개체를 참고하십시오.
Parse 데이터 범위를 구문 분석하여 여러 셀로 만들고 범위의 내용을 배분하여 인접한 여러 열에 넣습니다. 범위의 너비는 한 열을 초과할 수 없습니다.
PasteSpecial 클립보드에 있는 Range 개체를 지정한 범위에 붙여 넣습니다.
PrintOut 개체를 인쇄합니다.
PrintPreview 인쇄할 개체의 미리 보기를 표시합니다.
RemoveDuplicates 값 범위에서 중복 값을 제거합니다.
RemoveSubtotal 목록에서 부분합을 제거합니다.
Replace 지정한 범위에 들어 있는 셀에서 문자를 나타내는 Boolean 형식을 반환합니다. 이 메서드를 사용하면 선택 영역이나 현재 셀을 변경하지 않습니다.
RowDifferences 각 행의 비교 셀과 내용이 다른 모든 셀을 나타내는 Range 개체를 반환합니다.
Run 현재 위치에서 Microsoft Excel 매크로를 실행합니다. 범위는 매크로 시트에 있어야 합니다.
Select 개체를 선택합니다.
SetPhonetic 지정한 범위에 있는 모든 셀에 대해 Phonetic 개체를 만듭니다.
Show 현재 창의 내용을 스크롤하여 지정한 범위가 보이도록 합니다. 범위는 현재 문서에 있는 하나의 셀로 구성되어야 합니다.
ShowDependents 지정한 범위를 직접 참조하는 셀까지 연결선을 그립니다.
ShowErrors 참조되는 셀 트리를 통해 오류가 발생한 셀까지 연결선을 그리고, 해당 셀이 들어 있는 범위를 반환합니다.
ShowPrecedents 지정한 범위에서 직접 참조되는 셀까지 연결선을 그립니다.
Sort 값 범위를 정렬합니다.
SortSpecial 한/중/일어 정렬 메서드를 사용하여 범위 또는 피벗 테이블 보고서를 정렬하거나, 범위에 셀이 하나만 있을 경우 현재 영역에 대해 이 메서드를 사용합니다. 예를 들어 일본어는 가나 음절순으로 정렬합니다.
Speak 행 또는 열 순서대로 범위 내의 셀을 음성 재생합니다.
SpecialCells 지정한 유형 및 값과 일치하는 모든 셀을 나타내는 Range 개체를 반환합니다.
SubscribeTo Macintosh 전용 Visaul Basic 키워드에 대한 도움말을 요청하셨습니다. 이 키워드에 대한 자세한 내용은 Microsoft Office Macintosh Edition에 포함된 언어 참조 도움말을 참고하십시오.
Subtotal 범위(셀 하나를 선택했을 때는 현재 영역)에 대한 부분합을 구합니다.
Table 워크시트에 정의한 입력 값과 수식을 사용하여 데이터 테이블을 만듭니다.
TextToColumns 텍스트가 들어 있는 셀의 열 하나를 여러 열로 구문 분석합니다.
Ungroup 윤곽선 수준에 있는 범위를 증진시킵니다. 즉 범위의 윤곽선 수준을 낮춥니다. 지정한 범위는 열이나 행의 범위이거나 열이나 행이어야 합니다. 범위가 피벗 테이블 보고서 안에 있으면 범위 안에 있는 항목의 그룹을 해제합니다.
UnMerge 병합된 영역을 각각의 셀로 분리합니다.

속성

  이름 설명
AddIndent 셀의 텍스트 맞춤이 가로나 세로 균등 분할로 설정된 경우 텍스트를 자동으로 들여쓸지 여부를 나타내는 Variant 값을 반환하거나 설정합니다.
Address 매크로 언어로 된 범위 참조를 나타내는 String 값을 반환합니다.
AddressLocal 지정한 범위에 대한 범위 참조를 사용자 언어로 반환합니다. 읽기 전용인 String입니다.
AllowEdit 보호된 워크시트에 있는 범위를 편집할 수 있는지 여부를 나타내는 Boolean 값을 반환합니다.
Application 개체 한정자 없이 사용할 경우 Microsoft Excel 응용 프로그램을 나타내는 Application 개체를 반환합니다. 개체 한정자와 함께 사용할 경우에는 지정한 개체의 작성자를 나타내는 Application 개체를 반환합니다. OLE 자동화 개체와 함께 이 속성을 사용하면 해당 개체의 응용 프로그램을 반환할 수 있으며 읽기 전용입니다.
Areas 다중 영역 선택 범위에 있는 모든 범위를 나타내는 Areas 컬렉션을 반환하며 읽기 전용입니다.
Borders 조건부 서식의 일부로 정의된 범위를 포함하는 셀 범위나 스타일의 테두리를 나타내는 Borders 컬렉션을 반환합니다.
Cells 지정한 범위에 있는 셀을 나타내는 Range 개체를 반환합니다.
Characters 개체 텍스트 안에서 문자 범위를 나타내는 Characters 개체를 반환합니다. Characters 개체를 사용하여 텍스트 문자열 안에 있는 문자의 서식을 지정할 수 있습니다.
Column 지정한 범위에서 첫 번째 영역의 첫 번째 열 번호를 반환합니다. 읽기 전용인 Long입니다.
Columns 지정한 범위의 열을 나타내는 Range 개체를 반환합니다.
ColumnWidth 지정한 범위에 있는 모든 열의 너비를 반환하거나 설정합니다. 읽기/쓰기가 가능한 Variant입니다.
Comment 범위의 왼쪽 위 모서리에 있는 셀과 관련된 메모를 나타내는 Comment 개체를 반환합니다.
Count 컬렉션의 개체 수를 나타내는 Long 값을 반환합니다.
CountLarge 특정 값 범위의 최대값을 계산하며 읽기 전용인 Variant입니다.
CurrentArray 지정한 셀이 배열의 일부인 경우 배열 전체를 나타내는 Range 개체를 반환하며 읽기 전용입니다.
CurrentRegion 현재 영역을 나타내는 Range 개체를 반환합니다. 현재 영역은 빈 행 및 빈 열의 조합으로 이루어진 범위이며 읽기 전용입니다.
Dependents 참조하는 셀을 모두 포함하는 범위를 나타내는 Range 개체를 반환합니다. 참조하는 셀이 두 개 이상이면 다중 선택 영역(Range 개체의 합집합)이 될 수 있습니다. 읽기 전용인 Range 개체입니다.
DirectDependents 직접 참조하는 셀을 모두 포함하는 범위를 나타내는 Range 개체를 반환합니다. 참조하는 셀이 두 개 이상이면 다중 선택 영역(Range 개체의 합집합)이 될 수 있습니다. 읽기 전용인 Range 개체입니다.
DirectPrecedents 직접 참조되는 셀을 모두 포함하는 범위를 나타내는 Range 개체를 반환합니다. 참조되는 셀이 두 개 이상이면 다중 선택 영역(Range 개체의 합집합)이 될 수 있습니다. 읽기 전용인 Range 개체입니다.
End 원본 범위가 들어 있는 영역의 끝에 있는 셀을 나타내는 Range 개체를 반환합니다. End+위쪽 화살표, End+아래쪽 화살표, End+왼쪽 화살표, End+오른쪽 화살표를 누르는 것과 같습니다. 읽기 전용인 Range 개체입니다.
EntireColumn 지정한 범위가 들어 있는 전체 열(또는 여러 열)을 나타내는 Range 개체를 반환하며 읽기 전용입니다.
EntireRow 지정한 범위가 들어 있는 전체 행(또는 여러 행)을 나타내는 Range 개체를 반환하며 읽기 전용입니다.
Errors 오류 검사 옵션에 액세스할 수 있습니다.
Font 지정한 개체의 글꼴을 나타내는 Font 개체를 반환합니다.
FormatConditions 지정한 범위에 대한 조건부 서식을 모두 나타내는 FormatConditions 컬렉션을 반환하며 읽기 전용입니다.
Formula 개체 수식을 A1 스타일 표기법과 매크로 언어로 나타내는 Variant 값을 반환하거나 설정합니다.
FormulaArray 범위의 배열 수식을 반환하거나 설정합니다. 단일 수식이나 Visual Basic 배열을 반환하거나 설정할 수 있습니다. 지정한 범위에 배열 수식이 없으면 null을 반환합니다. 읽기/쓰기가 가능한 Variant입니다.
FormulaHidden 워크시트를 보호할 때 수식을 숨길지 여부를 나타내는 Variant 값을 반환하거나 설정합니다.
FormulaLocal A1 스타일 참조를 사용하여 사용자 언어로 개체에 대한 수식을 반환하거나 설정합니다. 읽기/쓰기가 가능한 Variant입니다.
FormulaR1C1 R1C1 스타일 표기법을 사용하여 매크로 언어로 개체에 대한 수식을 반환하거나 설정합니다. 읽기/쓰기가 가능한 Variant입니다.
FormulaR1C1Local R1C1 스타일 표기법을 사용하여 사용자 언어로 개체에 대한 수식을 반환하거나 설정합니다. 읽기/쓰기가 가능한 Variant입니다.
HasArray True이면 지정한 셀이 배열 수식의 일부입니다. 읽기 전용인 Variant입니다.
HasFormula True이면 범위에 있는 모든 셀에 수식이 들어 있고, False이면 수식이 들어 있는 셀이 없습니다. 그 밖의 경우에는 null을 반환합니다. 읽기 전용인 Variant입니다.
Height 범위 높이를 포인트 단위로 나타내는 Variant 값을 반환하거나 설정합니다.
Hidden 행이나 열을 숨길지 여부를 나타내는 Variant 값을 반환하거나 설정합니다.
HorizontalAlignment 지정한 개체의 가로 맞춤을 나타내는 Variant 값을 반환하거나 설정합니다.
Hyperlinks 범위에 대한 하이퍼링크를 나타내는 Hyperlinks 컬렉션을 반환합니다.
ID 페이지가 웹 페이지로 저장되어 있으면 지정한 셀의 식별 레이블을 나타내는 String 값을 반환하거나 설정합니다.
IndentLevel 셀이나 범위의 들여쓰기 수준을 나타내는 Variant 값을 반환하거나 설정합니다. 0에서 15사이의 정수가 될 수 있습니다.
Interior 지정한 개체의 내부를 나타내는 Interior 개체를 반환합니다.
Item 지정한 범위에 대한 오프셋에서 범위를 나타내는 Range 개체를 반환합니다.
Left A 열의 왼쪽 모서리에서 범위의 왼쪽 모서리까지의 거리를 포인트 단위로 나타내는 Variant 값을 반환합니다.
ListHeaderRows 지정한 범위의 머리글 행 번호를 반환합니다. 읽기 전용인 Long입니다.
ListObject Range 개체에 대한 ListObject 개체를 반환합니다. 읽기 전용인 ListObject 개체입니다.
LocationInTable 지정한 범위의 왼쪽 위 모서리가 들어 있는 PivotTable 보고서의 일부를 설명하는 상수를 반환합니다. 다음 XlLocationInTable 상수 중 하나일 수 있습니다. 읽기 전용인 Long입니다.
Locked 개체가 잠기는지 여부를 나타내는 Variant 값을 반환하거나 설정합니다.
MDX 지정한 Range 개체의 MDX 이름을 반환하며 읽기 전용인 String입니다.
MergeArea 지정한 셀이 들어 있는 병합된 범위를 나타내는 Range 개체를 반환합니다. 지정한 셀이 병합된 영역에 없으면 지정한 셀을 반환합니다. 읽기 전용인 Variant입니다.
MergeCells True이면 범위에 병합된 셀이 포함됩니다. 읽기/쓰기가 가능한 Variant입니다.
Name 개체 이름을 나타내는 Variant 값을 반환하거나 설정합니다.
Next 다음 셀을 나타내는 Range 개체를 반환합니다.
NumberFormat 개체의 서식 코드를 나타내는 Variant 값을 반환하거나 설정합니다.
NumberFormatLocal 개체의 서식 코드를 사용자 언어로 된 문자열로 나타내는 Variant 값을 반환하거나 설정합니다.
Offset 지정한 범위부터 오프셋되는 범위를 나타내는 Range 개체를 반환합니다.
Orientation 텍스트 방향을 나타내는 Variant 값을 반환하거나 설정합니다.
OutlineLevel 지정한 행 또는 열의 현재 윤곽선 수준을 반환하거나 설정합니다. 읽기/쓰기가 가능한 Variant입니다.
PageBreak 페이지 구분선 위치를 반환하거나 설정합니다. XlPageBreak 상수인 xlPageBreakAutomatic, xlPageBreakManual 또는 xlPageBreakNone 중 하나일 수 있습니다. 읽기/쓰기가 가능한 Long입니다.
Parent 지정한 개체의 부모 개체를 반환하며 읽기 전용입니다.
Phonetic 셀에서 특정 윗주 텍스트 문자열에 대한 정보가 들어 있는 Phonetic 개체를 반환합니다.
Phonetics 범위의 Phonetics 컬렉션을 반환하며 읽기 전용입니다.
PivotCell 피벗 테이블 보고서에 있는 셀을 나타내는 PivotCell 개체를 반환합니다.
PivotField 지정한 범위의 왼쪽 위 모서리를 포함하는 피벗 테이블 필드를 나타내는 PivotField 개체를 반환합니다.
PivotItem 지정한 범위의 왼쪽 위 모서리를 포함하는 피벗 테이블 항목을 나타내는 PivotItem 개체를 반환합니다.
PivotTable 지정한 범위의 왼쪽 위 모서리를 포함하는 피벗 테이블 보고서를 나타내는 PivotTable 개체를 반환합니다.
Precedents 셀이 참조되는 셀을 모두 나타내는 Range 개체를 반환합니다. 참조되는 셀이 여러 개이면 다중 선택 영역(Range 개체의 합집합)이 되며 읽기 전용입니다.
PrefixCharacter 셀의 접두사를 반환합니다. 읽기 전용인 Variant입니다.
Previous 다음 셀을 나타내는 Range 개체를 반환합니다.
QueryTable 지정한 Range 개체를 교차하는 쿼리 테이블을 나타내는 QueryTable 개체를 반환합니다.
Range 셀이나 셀 범위를 나타내는 Range 개체를 반환합니다.
ReadingOrder 지정한 개체의 읽기 순서를 반환하거나 설정합니다. xlRTL(오른쪽에서 왼쪽으로), xlLTR(왼쪽에서 오른쪽으로) 또는 xlContext 상수 중 하나일 수 있습니다. 읽기/쓰기가 가능한 Long입니다.
Resize 지정한 범위의 크기를 조정합니다. 크기가 조정된 범위를 나타내는 Range 개체를 반환합니다.
Row 범위의 첫 번째 영역에 있는 첫째 행 번호를 반환합니다. 읽기 전용인 Long입니다.
RowHeight 지정한 범위의 모든 행 높이를 포인트 단위로 반환합니다. 지정한 범위의 행 높이가 모두 같지 않으면 null을 반환합니다. 읽기/쓰기가 가능한 Variant입니다.
Rows 지정한 범위에 있는 행을 나타내는 Range 개체를 반환합니다. 읽기 전용인 Range 개체입니다.
ServerActions SharePoint 서버에서 Range 개체에 실행할 수 있는 작업을 지정합니다.
ShowDetail True이면 지정한 범위의 윤곽선이 확장되어 열이나 행의 하위 수준을 볼 수 있습니다. 지정한 범위는 윤곽선 안에서 단일 요약 열이나 행이어야 합니다. 읽기/쓰기가 가능한 Variant입니다. PivotItem 개체 또는 Range 개체(범위가 피벗 테이블 보고서에 있는 경우)의 경우 이 속성이 True로 설정되면 항목에 하위 수준이 표시됩니다.
ShrinkToFit 나타내는 Variant 값을 반환하거나 설정합니다.
SmartTags 지정한 셀의 식별자를 나타내는 SmartTags 개체를 반환합니다.
SoundNote Microsoft Excel에서 소리 메모가 제거되었으므로 이 속성은 사용할 수 없습니다.
Style 지정한 범위의 스타일을 나타내는 Variant 값을 반환하거나 설정하며, Style 개체를 포함합니다.
Summary True이면 범위는 윤곽의 정리 행이나 열입니다. 범위는 행이나 열이어야 합니다. 읽기 전용인 Variant입니다.
Text 지정한 개체에 대한 텍스트를 반환하거나 설정합니다. 읽기 전용인 String입니다.
Top 행 1의 위쪽 모서리에서 범위의 위쪽 모서리까지 거리를 포인트 단위로 나타내는 Variant 값을 반환합니다.
UseStandardHeight True이면 Range 개체의 행 높이가 시트의 표준 높이와 같습니다. 범위에 행이 여러 개 들어 있고 행 높이가 모두 같지 않으면 Null을 반환합니다. 읽기/쓰기가 가능한 Variant입니다.
UseStandardWidth True이면 Range 개체의 열 너비가 시트의 표준 너비와 같습니다. 범위에 열이 여러 개 들어 있고 열 너비가 모두 같지 않으면 null을 반환합니다. 읽기/쓰기가 가능한 Variant입니다.
Validation 지정한 범위에 대한 데이터 유효성 설정을 나타내는 Validation 개체를 반환하며 읽기 전용입니다.
Value 지정한 범위의 값을 나타내는 Variant 값을 반환하거나 설정합니다.
Value2 셀 값을 반환하거나 설정합니다. 읽기/쓰기가 가능한 Variant입니다.
VerticalAlignment 지정한 개체의 세로 맞춤을 나타내는 Variant 값을 반환하거나 설정합니다.
Width 범위의 너비를 포인트 단위로 나타내는 Variant 값을 반환합니다.
Worksheet 지정한 범위가 들어 있는 워크시트를 나타내는 Worksheet 개체를 반환하며 읽기 전용입니다.
WrapText 개체의 텍스트 줄이 바뀌는지 여부를 나타내는 Variant 값을 반환하거나 설정합니다.
XPath 지정한 Range 개체로 매핑된 요소의 Xpath를 나타내는 XPath 개체를 반환합니다. 범위의 컨텍스트에 따라 동작이 성공할지 또는 빈 개체를 반환할지 여부가 결정되며 읽기 전용입니다.

[출처] Range 개체 구성원|작성자 불꽃가심

'매크로' 카테고리의 다른 글

filesearch 대용  (0) 2008.10.05
사진 자동입력하는 매크로 - manual/auto  (0) 2008.09.25
폴더 여는 매크로  (0) 2008.09.25
화일 이름 바꾸기 매크로  (1) 2008.09.22
엑셀 함수 목록  (0) 2008.09.02

티스토리툴바