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

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