vbscript 待做_xls

Posted 2021-05-21

Sub color_clear()
    For i = 300 To 1000
        Rows(i).Interior.ColorIndex = 0
    Next
End Sub



Sub complete_date1()
    For i = 200 To ed(3, fc("item_设想", 2))
        If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i + 1, 1)
    Next
End Sub
Sub m_end1()
    i1 = Selection.row
    If Cells(i1, 1) = "" Then
        MsgBox "Date is empty."
        Exit Sub
    End If
    
    Rows(i1).Select
    Selection.Cut
    Rows(eu(10000, fc("item_设想", 2)) + 1).Select
    Selection.Insert Shift:=xlDown
    Rows(i1).Select
    
End Sub

Sub r_delete1()
c1 = fc("item_设想", 2)
For i = ed(3, c1) To eu(10000, c1)
    If Cells(i, c1) = "" Then
        Rows(i).Select
        If MsgBox("delete " & i & " row", vbOKCancel) = vbOK Then
            Rows(i).Delete
        End If
    End If
Next
End Sub

Sub extr_period_plan()
arr1 = Split("周期计划，月计划，周计划", "，")
End Sub






'func------------
Sub add_hyperlink1()
    i1 = Selection.row
    j1 = Selection.Column
    Cells(i1, j1 + 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        ActiveSheet.Name & "!a" & Cells(i1, j1) + 4, TextToDisplay:="jump"
    Cells(Cells(i1, j1) + 1, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        ActiveSheet.Name & "!" & convert1(j1) & i1, TextToDisplay:="jump"
    Cells(i1, j1).Select
End Sub