Skip to content
?

단축키

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

 

 

 

로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
557 컴퓨터잡담 유튜브 버퍼링과 DNS 이슈에 대한 총체적 설명 2 2011.12.23 7127
556 AutoHotKey Ahk) ip할당 진단프로그램 file 2011.12.26 12118
555 컴퓨터잡담 runDll32.exe 빠른실행, 윈도우 익스플로러 이용하여 실행하는 프로그램 2011.12.26 4392
554 컴퓨터잡담 윈도우7, 비스타 관리자 권한 획득하기 13 2011.12.26 9342
553 컴퓨터잡담 arp란? arp 해킹방법 및 차단방법(MAC 다발변조로 인한 인터넷 차단방지) 4 2011.12.26 6657
552 컴퓨터잡담 IPv6 몽땅제거 2 2 file 2011.12.26 6298
551 AutoHotKey autohotkey) IPv6 모두 사용안함 설정하기 1 file 2011.12.30 19132
550 AutoHotKey autohotkey) Mutex에 대해서 1 4 2011.12.31 24065
549 AutoHotKey autohotkey) 핑테스트 프로그램 1 file 2011.12.31 18950
548 AutoHotKey autohotkey) Virus? 6 2011.12.31 34677
» Excel Excel Vba) 셀의 행, 열(column, row) 주소 알아내기 또는 삽입하기 더불어 제어하기 2012.01.05 42946
546 Excel Excel Vba) 현재 셀에서 한줄내림 (activecell.offset(1,0).Select) 3 2012.01.05 30982
545 Excel 엑셀에서 음수를 0으로 표현하는 방법 2 2012.01.07 13522
544 컴퓨터잡담 해외속도테스트 사이트 speedtest.net 2 2012.01.08 5841
543 AutoHotKey autohotkey) 네 코드를 보여, 내가 당신에게서 배우고 싶어요 1 2012.01.08 15113
542 컴퓨터잡담 PC에서 스마트폰 원격제어하는 프로그램 2 2012.01.09 5936
541 컴퓨터잡담 Mysql) mysql mysql-bin.0000x 로그 기록설정방법(사용안함설정등) 2 2012.01.23 7820
540 AutoHotKey IF문에서 변수와 상수 또는 변수와 변수 비교하기시 주의사항 2012.01.23 6674
539 컴퓨터잡담 인터넷속도 단위 3 1 2012.01.25 6037
538 컴퓨터잡담 캐논 IR-3300 복합기 스캔드라이버 3 file 2012.01.31 16313
Board Pagination Prev 1 ... 17 18 19 20 21 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소