Sub 插入行()

    Dim myRow As Long '定义myRow变量，用于存储原表中数据的行数；   

    Dim i As Long  '定义i变量，作为循环变量；

   

    myRow = Range("A" & Rows.Count).End(xlUp).Row ' 用rows.count得到excel表总行数，然后利用Range("A" & Rows.Count).End(xlUp)得到最为一行不为空的单元格，然后利用Range("A" & Rows.Count).End(xlUp).Row得到单元格的具体行数，赋值给myRow；

     For i = 2 To 2 * myRow Step 2  '利用for循环，从第二行开始；因为要插入1行，所以是2*myRow，如果插入2行，就是3*myrow；如果插入1行，步长step为2，如果插入2行，步长step3；

        Cells(i, 1).EntireRow.Insert   '完成单元格插入行的操作，如果需要插入两行，再重复写一次这个代码即可；

    Next i '循环结束；

End Sub

 

Sub NewLine()

'

' NewLine 宏

'

'

    Dim myRow As Long

    Dim myRow1 As Long

   

    '定义myRow变量，用于存储原表中数据的行数；

   

    myRow = Range("A" & Rows.Count).End(xlUp).Row

   

    myRow1 = myRow + 1

    ActiveWindow.SmallScroll Down:=39

    Rows(myRow1).Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    ActiveWindow.SmallScroll Down:=-43

End Sub

 

20150915-001   插入新行

Sub NewLine()

'

' NewLine 宏

'

'

   

    '定义myRow变量，用于存储原表中数据的行数；

   

    Dim myRow As Long

    Dim myRow1 As Long

   

    '定义获取上一单元格的值

   

    Dim cell_value As Long

   

   

   

    myRow = Range("A" & Rows.Count).End(xlUp).Row

    myRow1 = myRow + 1

   

   

    '

    '获取上一单元格的值

    '

    cell_value = Range("A" & myRow)

   

    '

    '

   

    ActiveWindow.SmallScroll Down:=39

    Rows(myRow1).Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

   

 

      

    '

    '

    ' 显示行号

 

    'Range("A5:A" & i) = "=Row()-4"

   

    'Range("A" & myRow) = "=6868"

    'MsgBox myRow1

   

    Range("A" & myRow1) = cell_value + 1

   

    '

    '

    '

   

   

   

    ActiveWindow.SmallScroll Down:=-43

   

   

   

End Sub

 

20150916_001  复制选中行到另一表格

Sub MovetoTaskEnd()

  

  

   Dim Row_1 As Long          '   table 1

   Dim Row_2 As Long          '   table 2

   Dim Row_21 As Long         '   add 1

   Dim Row_init As Long       '

  

   'Dim myRange As Range       '   From

   'Dim Range2 As Range

  

  

   'MsgBox "行：" & ActiveCell.Row & " 列：" & ActiveCell.Column

   Row_1 = ActiveCell.Row

  

   'MsgBox "选中的行"

   'MsgBox Row_1

  

  

   '

   Row_2 = Worksheets("已完结工作").Range("A" & Rows.Count).End(xlUp).Row

  

   Set myRange = Worksheets("Open List 未完结工作").Range("A" & Row_1, "J" & Row_1)

  

   '

   'If Row_2 > 15 Then

  

   '   Row_init = Row_2 + 1

     

   'Else

     

   'End If

  

  

  

   '

   'If Row_2 > 15 Then

  

      'Row_init = Row_2 + 1

   'Else

  

     

   'End If

  

  

  

   '

   'cell_value = Range("A" & myRow)

   'Worksheets("Sheet1").Range("A5").Value = 22

  

   Row_init = Row_2 + 1

   'Worksheets("已完结工作").Range("A" & Row_init, "J" & Row_init).Value = myRange.Copy()

   Worksheets("已完结工作").Range("A" & Row_init).Value = Worksheets("Open List 未完结工作").Range("A" & Row_1).Value

   Worksheets("已完结工作").Range("B" & Row_init).Value = Worksheets("Open List 未完结工作").Range("B" & Row_1).Value

   Worksheets("已完结工作").Range("C" & Row_init).Value = Worksheets("Open List 未完结工作").Range("C" & Row_1).Value

   Worksheets("已完结工作").Range("D" & Row_init).Value = Worksheets("Open List 未完结工作").Range("D" & Row_1).Value

   Worksheets("已完结工作").Range("E" & Row_init).Value = Worksheets("Open List 未完结工作").Range("E" & Row_1).Value

   Worksheets("已完结工作").Range("F" & Row_init).Value = Worksheets("Open List 未完结工作").Range("F" & Row_1).Value

   Worksheets("已完结工作").Range("G" & Row_init).Value = Worksheets("Open List 未完结工作").Range("G" & Row_1).Value

   Worksheets("已完结工作").Range("H" & Row_init).Value = Worksheets("Open List 未完结工作").Range("H" & Row_1).Value

   Worksheets("已完结工作").Range("I" & Row_init).Value = Worksheets("Open List 未完结工作").Range("I" & Row_1).Value

   Worksheets("已完结工作").Range("J" & Row_init).Value = Worksheets("Open List 未完结工作").Range("J" & Row_1).Value

  

  

End Sub

  

   20150916_002  选择日期Excel日历控件将日期插入到指定单元格

  

Private Sub Calendar1_Click()

'Calendar1.Value = Date

ActiveCell = Calendar1.Value

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 5 Then

Me.Calendar1.Visible = True

   Me.Calendar1.Top = Target.Offset(0, 1).Top    '设置位置

   Me.Calendar1.Left = Target.Offset(0, 1).Left   '设置位置

Else

Me.Calendar1.Visible = False

End If

End Sub