求教这个EXCEL VBA代码要怎么写 excel中vba代码怎么写
excel的vba 代码
看你数据还比较多，用数组给你写一段，这样运行速度会快些。而且你数据有增加或减少也一样通用。不管你是几行数据。
也不知道是否合你意，最好把你的表发过来看下是什么结构。
Sub 是否有重复中奖()
Dim i&, R&, g&, x&
Dim arr, arr1()
With Sheets("sheet1")
R = .Range("B65536").End(xlUp).Row
arr = .Range("B2:C" & R).Value
For i = 1 To UBound(arr) - 1
If arr(i, 1) = arr(i + 1, 1) And arr(i, 2) = arr(i + 1, 2) Then
g = g + 1
ReDim Preserve arr1(1 To 2, 1 To g)
For x = 1 To 2
arr1(x, g) = arr(i, x)
Next x
End If
Next i
.Range("E2:F" & .Range("E65536").End(xlUp).Row).ClearContents
.Range("E2").Resize(UBound(arr1, 2), 2) = Application.Transpose(arr1)
End With
MsgBox "重复中奖的号码个数为:" & g
End Sub这里指定为sheet1表，你表名不同可直接修改成你的存放数据的工作表名
Excel文件如何输入VBA代码,求详解
菜单上的 工具->宏->visual basic 编辑器，打开编辑器
然后，一般的情况: 菜单->插入->模块 在右边的编辑框输入代码。
如果代码是针对某个工作表的，则在左边的“工程资源管理器”双击该工作表对象，在右边的编辑框输入代码。
excel 打印某文件夹下所有工作薄第一页 vba代码该怎么写 谢谢
新建立一个excel文件,命名为"a.xls"放到你要打印的文件夹里面,然后按alt+f11进入vba编辑环境,在左边的资源管理器中的"thisworkbook"或者"sheet1"上点右键,(没有资源管理器的话在上边的视图里面勾出来)建立模块,把下边的代码粘贴进去,然后回到表里,先检查一下宏安全性是否为中或者低,如果是高的话,需要设置工具--宏--安全性--中或者低,保存再打开,选择宏启用,执行 工具--宏,找到uiui执行这个宏
Sub uiui()
Set ws = CreateObject("wscript.shell")
Set fso = CreateObject("scripting.filesystemobject")
Set folder = fso.getfolder(ActiveWorkbook.Path)
Set Files = folder.Files
For Each file In Files
If file.Name <> "a.xls" Then
D = file.Name
path1 = file.Path
Workbooks.Open Filename:=path1
Windows(file.Name).Activate
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Close
End If
Next
End Sub
写一段 excel vba 代码
你的附图好像不对。
假设是否锁定这列在“K”列，那么请按ALT+F11打开VBA窗口，粘贴以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("K" & Target.Row).Value = "是" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":J" & Target.Row)
.Locked = True
.FormulaHidden = True
.Interior.ColorIndex = 6
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf Range("K" & Target.Row).Value = "否" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":J" & Target.Row)
.Locked = False
.FormulaHidden = False
.Interior.ColorIndex = Null
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
希望能帮到楼主，有其它要求请HI我。