中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

Sub 戶口導入文件工作表選擇()
Dim i As Integer, sp As Shape, n As Integer
MsgBox "按確定按鈕開始導入數(shù)據(jù)，請稍候！ ", 64, "系統(tǒng)提示："
    Application.ScreenUpdating = False
    With thisworkbook.ActiveSheet '在當前激活的工作表運行宏
    ActiveSheet.Unprotect ("") '工作表解密
        .Cells.Clear
        For i = 1 To UBound(arrf)
            If WorksheetFunction.CountA(wk.Sheets(arrf(i)).Cells) > 0 Then
                wk.Sheets(arrf(i)).UsedRange.Copy .Range("a1").End(3).Offset(0) 'Offset(0)表示復制到a1單元格
            End If
        Next
    End With
    wk.Close False
    Set wk = Nothing
    Erase arrf
    Range("F3:H3").FormulaR1C1 = "=MID(CELL(""filename"",R[-2]C[-5]),FIND(""]"",CELL(""filename"",R[-2]C[-5]),1)+1,LEN(CELL(""filename"",R[-2]C[-5])))"
    Range("A8:AL8").Select
    Selection.AutoFilter '區(qū)間篩選
    Rows("8:65536").Locked = False '允許用戶編輯區(qū)域
    Range("J9").Select '凍結窗口
    ActiveWindow.FreezePanes = True
    ActiveWindow.Zoom = 90 '顯示比例
    For Each sp In ActiveSheet.Shapes '刪除細小圖形代碼
    If sp.Width < 14.25 Or sp.Height < 14.25 Then   '約小于0.5cm，根據(jù)需要設定
    sp.Delete
    n = n + 1
    End If
    Next sp
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
        AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFiltering:=True '有條件保護工作表
    ActiveSheet.EnableSelection = xlUnlockedCells '保護時啟用自動篩選
    Application.ScreenUpdating = True
    ActiveWindow.DisplayHeadings = True '恢復行號列標
    MsgBox "導入完畢，請查看！ ", 64, "系統(tǒng)提示："
End Sub

Sub 學生信息數(shù)據(jù)導入()
If Cells(2, 12).Value = "學年初在校學生花名冊" Then '當Cells(2,13).Value等于...時運行宏
    Dim filetoopen
    filetoopen = Application _
                 .GetOpenFilename("Excel Files (*.xls), *.xls", 1, "EXCEL 戶口數(shù)據(jù)導入：")
    If filetoopen = False Then Exit Sub
    If filetoopen = thisworkbook.FullName Then
        MsgBox "不可以選擇本文件！ ", 16, "系統(tǒng)提示："
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set wk = Application.Workbooks.Open(filetoopen)
    wk.Windows(1).Visible = False '隱藏當前導入數(shù)據(jù)的文件
    thisworkbook.Activate
    Application.ScreenUpdating = False
    學生信息導入.Show
Else
   MsgBox "進入學生信息錄入表才能導入數(shù)據(jù)！ ", 64, "系統(tǒng)提示："
End If
End Sub
Sub 學生信息選擇()
Dim i As Integer, sp As Shape, n As Integer
MsgBox "按確定按鈕開始導入數(shù)據(jù)，請稍候！ ", 64, "系統(tǒng)提示："
    Application.ScreenUpdating = False
    With thisworkbook.ActiveSheet '在當前激活的工作表運行宏
    ActiveSheet.Unprotect ("") '工作表解密
        .Cells.Clear
        For i = 1 To UBound(arrf)
            If WorksheetFunction.CountA(wk.Sheets(arrf(i)).Cells) > 0 Then
                wk.Sheets(arrf(i)).UsedRange.Copy .Range("a1").End(3).Offset(0) 'Offset(0)表示復制到a1單元格
            End If
        Next
    End With
    wk.Close False
    Set wk = Nothing
    Erase arrf
    Range("K2").FormulaR1C1 = _
        平塘縣""&a!R[9]C[112]&a!R[15]C[112]&a!R[15]C[113]&a!R[15]C[114]"
    Range("C6:V6").Select
    Selection.AutoFilter '區(qū)間篩選
    Rows("6:65536").Locked = False '允許用戶編輯區(qū)域
    Range("H7").Select '凍結窗口
    ActiveWindow.FreezePanes = True
    ActiveWindow.Zoom = 90 '顯示比例
    For Each sp In ActiveSheet.Shapes '刪除細小圖形代碼
    If sp.Width < 14.25 Or sp.Height < 14.25 Then   '約小于0.5cm，根據(jù)需要設定
    sp.Delete
    n = n + 1
    End If
    Next sp
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True '有條件保護工作表
    ActiveSheet.EnableSelection = xlUnlockedCells '保護時啟用自動篩選
    Application.ScreenUpdating = True
    ActiveWindow.DisplayHeadings = True '恢復行號列標
    MsgBox "導入完畢，請查看！ ", 64, "系統(tǒng)提示："
End Sub