20150916_018 插入行()

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

////////////////////////////////////////////////////////////////////////////////////////////////