셀에 체크박스 추가하기 Sub Insertchkbox() On Error Resume Next Dim c As Range, myRange As Range Dim celltext As String Set myRange = Selection For Each c In myRange.Cells celltext = c.Text '셀에 있는 텍스트를 임시로 보관한다. ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select '체크박스를 추가한다. 좌표와 높이, 폭은 셀의 크기대로 설정한다. With Selection .LinkedCell = c.Address .Characters.Text = "" .Name = c.Address .Characters.Text = cellte.. 더보기 구메뉴 복원하기 엑셀 2007로 버전업 되면서 구 메뉴들은 리본X로 대체되었다. 과연 그럴까? 사실은 그냥 안보이게 처리해논것 뿐이다. 아래의 코드를 사용하면 구메뉴가 추가기능에 나오게 할 수 있다. Private Sub ShowOldStyleMenus() On Error Resume Next Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl Dim sMenuName As String Dim sToolbarName As String Dim iMenu As Integer sMenuName = "Old Style Menu" sToolbarName = "Old StyleToolbar" CommandBars(sMenuName).Delete Set cBar = CommandBa.. 더보기 통합문서의 속성 출처 : http://www.andrewsexceltips.net 통합문서안의 속성 들여다 보기 Sub ShowBuiltinDocumentProperties() Dim rw As Long Dim p As DocumentProperty On Error Resume Next For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(rw + 1, 1).Value = p.Name Cells(rw + 1, 2).Value = p.Value rw = rw + 1 Next p On Error GoTo 0 End Sub 통합문서안의 속성 수정하기 ThisWorkbook.BuiltinDocumentProperties("Author").Value = "Castalie" .. 더보기 이전 1 ··· 8 9 10 11 다음
