随笔分类 -  9. Excel

摘要：Public Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick' probably originator of base code algorithm modified for coverage' of workbook structure / windows passwords and for multiple passwords'' Norman Harker and JE McGimpsey 27-Dec-2002 阅读全文

摘要：Private Sub Document_New()For Each tb In ThisDocument.Tables tb.AllowAutoFit = False For Each col In tb.Columns col.Width = 50 Next NextFor Each oTable In ThisDocument.Tables Dim oCols As Integer oCols = oTable.Columns.Count For Each oCol In oTable.Columns If oCols = 2 Then Select Case oCol.I... 阅读全文

摘要：Sub 마우스오른쪽버튼윗주죽이기()Dim i As Long, txt As StringDim ctr As CommandBarControlCommandBars("Cell").FindControl(ID:=1614).Enabled = FalseCommandBars("Cell").FindControl(ID:=1614).Visible = FalseEnd SubSub 마우스오른쪽버튼윗주살리기()Dim i As Long, txt As StringDim ctr As CommandBarControlCommandBa 阅读全文

摘要：while문을 빠져나가는 것은 여러가지 방법이 있습니다.먼저.. Do While문으로 고치면 Exit Do라는 구문을 활용할 수 있습니다.------------------------------------Do While exetime <> Data2.Recordset.Fields("시간") If Data1.Recordset.EOF <> True Then Exit Do End If Data2.Recordset.MoveNextLoop------------------------------------두 阅读全文

摘要：ExcelVB일력Private Sub Calendar1_Click()Range("A1") = Calendar1.ValueEnd SubPrivate Sub Calendar1_DblClick()Range("A1") = Calendar1.ValueCalendar1.Visible = FalseRange("A1").SelectEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = " 阅读全文

摘要：Sub SetBlueText(str_startNo As Integer, colLength As Integer)With ActiveCell.Characters(Start:=str_startNo, Length:=colLength).Font .Name = "맑은 고딕" .FontStyle = "보통" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Un 阅读全文