自己写的用过的vba

 

艺思网    http://www.edusrc.com  提供中学教学资料下载

Sub 复制()
For i = 2 To 34
    FileCopy "D:\20110607\" & Sheets("Sheet3").Cells(i, 1).Text, "D:\" & Sheets("Sheet3").Cells(i, 6).Text
Next i
End Sub

Sub 生成()
For i = 2 To 34
    Open "D:\20110607\" & Sheets("Sheet3").Cells(i, 1).Text For Output As #1
    Close #1
Next i
End Sub

Sub 生成文件夹()
On Error Resume Next
    For i = 2 To 34
        MkDir "d:\" & Sheets("Sheet3").Cells(i, 4).Text
    Next i
End Sub

Sub test()
'
' test Macro
' 宏由 雨林木风 录制，时间: 2002-1-1
'

'
a = InputBox("请您输入一个数值")
MsgBox "您输入的数是" & a
End Sub

Sub fuzhi()
  Sheets("sheet1").Cells(1, 1).Value = "123456"
End Sub

Sub ShowMsg()
   MsgBox Sheets("sheet1").Cells(1, 1).Text
End Sub

Sub CopyData()
  Dim i
  For i = 1 To 10
      Sheets("sheet1").Cells(i, 2).Value = Sheets("sheet1").Cells(i, 1).Text
  Next i
End Sub

Sub CheckData()
  Dim sColNo, dColNo, StartColNo, ColNum
  Dim sNum, dNum
  Dim i, j, k, m
  Dim dCData, sCData
  sColNo = InputBox("请输入源数据起始列号")
  sNum = InputBox("请输入源数据量")
  dColNo = InputBox("请目标数据起始列号")
  dNum = InputBox("请输入目标数据量")
  StartColNo = InputBox("请复制数据起始列号")
  ColNum = InputBox("请复制数据列数")
 
  sColNo = CInt(sColNo)
  sNum = CInt(sNum)
  dColNo = CInt(dColNo)
  dNum = CInt(dNum)
  StartColNo = CInt(StartColNo)
  ColNum = CInt(ColNum)
 
  k = 1
  For i = 1 To dNum
      dCData = Sheets("sheet1").Cells(i, dColNo).Text
      'MsgBox dCData
      For j = 1 To sNum
        sCData = Sheets("sheet1").Cells(j, sColNo).Text
        If dCData = sCData Then
           Sheets("sheet1").Cells(k, StartColNo).Value = dCData
           For m = 1 To ColNum - 1
             Sheets("sheet1").Cells(k, StartColNo + m).Value = Sheets("sheet1").Cells(j, sColNo + m).Text
           Next m
           k = k + 1
        End If
      Next j
      Sheets("sheet1").Cells(i, sColNo).Value = Sheets("sheet1").Cells(i, 1).Text
  Next i
End Sub