Skip to content

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

✔ 뷰어로 보기
Excel
2012.01.05 07:00

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

디케
조회 수 42974 추천 수 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 04Jun
    by
    2023/06/04 in 컴퓨터잡담
    Views 51471 

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

  2. No Image 21Sep
    by
    2013/09/21 in WindowsTip
    Views 48506 

    VBS) FTP.scriptlet and Shell.scriptlet

  3. No Image 07May
    by
    2023/05/07 in 파이썬
    Views 47487 

    python AttributeError: 'WebDriver' object has no attribute 'find_element_by_css_selector' 해결방법

  4. No Image 21Nov
    by
    2012/11/21 in AutoHotKey
    Views 47165  Replies 1

    AHK) 보안프로그램 등으로 화면복사(Printscreen) 안될때 사용방법

  5. No Image 13Feb
    by
    2011/02/13 in 프로세스
    Views 45998 

    pinomate.exe 프로세스 삭제방법

  6. No Image 21Sep
    by
    2013/09/21 in WindowsTip
    Views 45965 

    VBS) PostMessage or SendMessage to external program

  7. No Image 11Aug
    by
    2009/08/11 in 컴퓨터잡담
    Views 44528  Replies 2

    [PHP] 원격지의 이미지 사이즈 구하는 방법

  8. No Image 06Jan
    by
    2013/01/06 in AutoHotKey
    Views 44022 

    Ahk) 웹페이지 감시결과에 따라 마이피플로 글 전송하기

  9. No Image 10Nov
    by
    2010/11/10 in 컴퓨터잡담
    Views 43048 

    emule 서버리스트

  10. No Image 05Jan
    by 디케
    2012/01/05 in Excel
    Views 42974 

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

  11. No Image 23Sep
    by
    2023/09/23 in 컴퓨터잡담
    Views 42370 

    2023-09-23 서버다운 후 복구완료

  12. No Image 16Mar
    by
    2012/03/16 in AutoHotKey
    Views 40675 

    Autohotkey) 화면보호기(ScreenSaver) On/Off 방법

  13. No Image 26Mar
    by
    2023/03/26 in [Docs]스프레드시트
    Views 40466 

    구글 스프레드시트에서 셀값이 특정일에서 현재일과 3일 이내의 범위에 들어오면 이메일을 발송하는 방법

  14. No Image 16Jul
    by
    2012/07/16 in Excel
    Views 40175 

    GET.CELL 매크로함수 응용

  15. No Image 26Apr
    by
    2013/04/26 in 컴퓨터잡담
    Views 39285  Replies 2

    안드로이드 동영상 재생시 파란색 물음표 박스만 나올때 조치방법

  16. 30Mar
    by
    2012/03/30 in 컴퓨터잡담
    Views 39034 

    URL Encoding 특수문자코드

  17. No Image 07Dec
    by
    2009/12/07 in 컴퓨터잡담
    Views 38588  Replies 1

    mysql 날짜타입에 기본값으로 현재시간넣기

  18. 30Oct
    by
    2013/10/30 in AutoHotKey
    Views 38176 

    ahk) 오토핫키 콤보박스 제어하기

  19. 29Mar
    by
    2013/03/29 in WindowsTip
    Views 38112 

    네트워크에 있는 다른 시스템과 ip 주소가 충돌합니다.

  20. 26Apr
    by
    2023/04/26 in 컴퓨터잡담
    Views 38037 

    테블릿을 세컨트모니터로???

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

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소