EXCEL 매크로에서 자주 사용하는 함수 등
4171 단어 EXCEL
Application.ScreenUpdating = False
columnIndex = ActiveSheet.UsedRange.Find(" ").Column
Dim Wb As Workbook
Set Wb = Workbooks.Add '
Wb.Activate
num = Sheets.Count '
For i = 2 To num
Application.DisplayAlerts = False ' EXCEL
Worksheets(1).Delete
Application.DisplayAlerts = True ' EXCEL
Next
' hg = (240 * 2.7682) / (20 + 3); 6:34:10:10:10, 70
'A4 : 210mm, 297mm, 20mm, 170mm; 257mm
' : 1 =2.7682 1 =27.682 1 =0.3612
' : 1 =0.4374 1 =4.374 1 =2.2862
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(2) '
.RightMargin = Application.CentimetersToPoints(2) '
.TopMargin = Application.CentimetersToPoints(2) '
.BottomMargin = Application.CentimetersToPoints(2) '
.HeaderMargin = Application.CentimetersToPoints(1) '
.FooterMargin = Application.CentimetersToPoints(1) '
.CenterHorizontally = True 'False '
'.CenterVertically = False'
End With
Columns(2).Select
With Selection.WrapText = True
.ShrinkToFit = False
End With
Range(Cells(xinbiao + 2, 1), Cells(xinbiao + 22, 5)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone'
Selection.Borders(xlDiagonalUp).LineStyle = xlNone '
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous '
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous '
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous '
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous '
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous '
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous '
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
C# EXCEL에서 워크시트를 읽는 것은 Sheet1과 같은 기본 이름이 아닙니다.텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.