Skip to content

Blog 우린친구 블로그에 오신것을 환영합니다.

✔ 뷰어로 보기
Excel
2012.01.05 07:00

Excel Vba) 셀의 행, 열(column, row) 주소 알아내기 또는 삽입하기 더불어 제어하기

디케
조회 수 42968 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

가 크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

가 크게 작게 위로 아래로 댓글로 가기 인쇄

Excel Vba) 셀의 행, 열(column, row) 주소 알아내기 또는 삽입하기 더불어 제어하기

 

셀주소 - 행, 열 주소알아내기 또는 선택하기

Sub Macro1()
'ActiveCell.EntireColumn.Select
'ActiveCell.EntireRow.Select

a = ActiveCell.Address
b = ActiveCell.EntireColumn.Address
c = ActiveCell.EntireRow.Address

    MsgBox a & b & c
End Sub

셀 삽입 - 행, 열 삽입

Sub InsertMania()

'Insert row above active cell
ActiveCell.EntireRow.Insert

'Insert row below active cell
ActiveCell.Offset(1).EntireRow.Insert

'Insert column to the left of the active cell
ActiveCell.EntireColumn.Insert

'Insert column to the right of the active cell
ActiveCell.EntireColumn.Offset(0, 1).Insert

End Sub


 

 

 

Select active column / row

ActiveCell.EntireColumn.Select
ActiveCell.EntireRow.Select

 

Selection.EntireColumn.Select
Selection.EntireRow.Select

 

Select active column / row

ActiveSheet.Columns(ActiveCell.Column).EntireColumn.Select
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Select

 

Would something like this work for you?

Dim StartPoint As Range

Set StartPoint = ActiveCell
StartPoint.EntireColumn.Insert
'or StartPoint.EntireRow.Insert
StartPoint.EntireColumn.Copy Destination:=StartPoint.Offset(0, -1)
'or StartPoint.Entirerow.Copy _
    Destination:=StartPoint.Offset(-1, 0)

 

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
If Range("E2").Value = 0 Then
Columns("G:H").EntireColumn.Hidden = True
Else
Columns("G:H").EntireColumn.Hidden = False
End If
If Range("E1").Value = 0 Then
Columns("B").EntireColumn.Hidden = True
Else
Columns("B").EntireColumn.Hidden = False
End If
If Range("I4").Value = 0 Then
Columns("I").EntireColumn.Hidden = True
Else
Columns("I").EntireColumn.Hidden = False
End If
If Range("J4").Value = 0 Then
Columns("J").EntireColumn.Hidden = True
Else
Columns("J").EntireColumn.Hidden = False
End If
If Range("K4").Value = 0 Then
Columns("K").EntireColumn.Hidden = True
Else
Columns("K").EntireColumn.Hidden = False
End If
If Range("L4").Value = 0 Then
Columns("L").EntireColumn.Hidden = True
Else
Columns("L").EntireColumn.Hidden = False
End If
If Range("M4").Value = 0 Then
Columns("M").EntireColumn.Hidden = True
Else
Columns("M").EntireColumn.Hidden = False
End If
If Range("N4").Value = 0 Then
Columns("N").EntireColumn.Hidden = True
Else
Columns("N").EntireColumn.Hidden = False
End If
If Range("O4").Value = 0 Then
Columns("O").EntireColumn.Hidden = True
Else
Columns("O").EntireColumn.Hidden = False
End If
If Range("P4").Value = 0 Then
Columns("P").EntireColumn.Hidden = True
Else
Columns("P").EntireColumn.Hidden = False
End If
If Range("Q4").Value = 0 Then
Columns("Q").EntireColumn.Hidden = True
Else
Columns("Q").EntireColumn.Hidden = False
End If
If Range("R4").Value = 0 Then
Columns("R").EntireColumn.Hidden = True
Else
Columns("R").EntireColumn.Hidden = False
End If
ActiveSheet.Protect
End Sub

 

 

 

Facebook Twitter Google Pinterest
위로 아래로 댓글로 가기 인쇄
로그인 후 댓글쓰기가 가능합니다.

에디터 선택하기
?
에디터 사용하기 닫기
  1. No Image 07Feb
    by 디케
    2011/02/07 in 프로세스
    Views 312174  Replies 2

    프로세스

  2. No Image 23Jan
    by 디케
    2013/01/23 in WindowsTip
    Views 192701 

    윈도우 DLL 오류 해결방법

  3. No Image 10Oct
    by 디케
    2010/10/10 in 컴퓨터잡담
    Views 103644 

    자바스크립트로 전송(submit) 버튼 누르기

  4. 24Aug
    by 디케
    2010/08/24 in 컴퓨터잡담
    Views 103067  Replies 1

    hMailServer - 설치시 주의 핵심사항

  5. No Image 30Oct
    by 디케
    2010/10/30 in 컴퓨터잡담
    Views 102936 

    북마크 링크 주소모음

  6. No Image 15Sep
    by nanumi
    2023/09/15 in 파이썬
    Views 72491 

    파이썬에서 인식이 잘되는 OCR 종류

  7. No Image 29Sep
    by nanumi
    2023/09/29 in 컴퓨터잡담
    Views 72124 

    파이썬 request, beautifulshop으로 정액정보 받아오기

  8. No Image 04Oct
    by nanumi
    2023/10/04 in 파이썬
    Views 72028 

    파이썬 랜덤으로 문제풀기 #2

  9. No Image 14Sep
    by nanumi
    2023/09/14 in 파이썬
    Views 71867 

    한우경매낙찰 유튜브 영상의 이미지에서 특정 문자 가져와서 저장하기

  10. No Image 17Sep
    by nanumi
    2023/09/17 in 컴퓨터잡담
    Views 71463 

    CANON PRINTER ERROR CODE B203, B204 해결방법

  11. 04Oct
    by nanumi
    2023/10/04 in 파이썬
    Views 68205 

    파이썬 랜덤으로 시험문제 풀기

  12. No Image 28Jul
    by 디케
    2010/07/28 in 컴퓨터잡담
    Views 65609  Replies 1

    엑셀 색깔 지정 함수

  13. No Image 21Nov
    by 디케
    2009/11/21 in 컴퓨터잡담
    Views 64229  Replies 3

    MYSQL 미 해결 과제 : Can't connect to MySQL server on 'localhost'(10055)

  14. No Image 17Oct
    by 디케
    2009/10/17 in 컴퓨터잡담
    Views 62317  Replies 4

    php로 이미지를 mysql디비 저장하고 보여주는 소스

  15. No Image 13Nov
    by nanumi
    2023/11/13 in 파이썬
    Views 59906 

    파이썬 requestsbeautifulsoup 으로 웹 input에 입력값 대입한 뒤 결과값 파일로 저장하기

  16. No Image 22Jun
    by 디케
    2010/06/22 in 컴퓨터잡담
    Views 57408 

    여러개의 엑셀파일을 하나로 합치기

  17. No Image 25Sep
    by 디케
    2010/09/25 in 컴퓨터잡담
    Views 54049  Replies 3

    오류 socket error #10061 connection

  18. No Image 12May
    by 디케
    2012/05/12 in AutoHotKey
    Views 52951 

    AHK) AUTOKEY 웹페이지 열지않고 소스 가져오기 또는 로그인 하기

  19. No Image 21Sep
    by 디케
    2013/09/21 in Visual C++
    Views 51929 

    VBS) VBScript Telnet log save

  20. No Image 04Jun
    by nanumi
    2023/06/04 in 컴퓨터잡담
    Views 51332 

    H734GP 공유기 시스템로그 중 >>> Send Offer / Receive Discover /

Board Pagination Prev 1 2 3 4 5 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소