求修改VBA

软件 2022-08-27

求VBA大神修改代码

原来的方向就不对，无法修改，只有重写，下面的代码我测试通过，你试试看是否满意：

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If InputBox("请输入修改权限的密码：", "修改权限验证：") <> "123" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

EXCEL的VBA代码，求修改

设置成表单就好了

选中区域转换成表，选一个样式就完了

不需要什么VBA 条件格式

EXCEL的VBA公式，求修改下

添加一个模块，写如下函数：

FunctionJ0r(d1$,d2$)
DimsSh,arr,i,s#
Dimds,dd1,dd2AsDate
SetsSh=GetObject(ThisWorkbook.Path&"\A.xlsm").Sheets(1)
WithsSh
arr=.Range("M5:N"&.Range("N99999").End(xlUp).Row)
EndWith
Fori=1ToUBound(arr)
ds=DateSerial(Left(arr(i,1),4),Mid(arr(i,1),5,2),Right(arr(i,1),2))
dd1=DateSerial(Left(d1,4),Mid(d1,5,2),Right(d1,2))
dd2=DateSerial(Left(d2,4),Mid(d2,5,2),Right(d2,2))
Ifds>=dd1Andds<=dd2Then
s=s+arr(i,2)
EndIf
Next
J0r=s
EndFunction

用法：

修改VBA代码

Sub另存所有工作表为工作簿()
DimshtAsWorksheet
Application.ScreenUpdating=False
ipath=ThisWorkbook.Path&"\"
ForEachshtInSheets
sht.Copy
ActiveSheet.name="sheet1"
ActiveWorkbook.SaveAsipath&sht.Name&".xls"'(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating=True
EndSub

在COPY后面添加了一行

VBA代码的修改

PrivateSubWorksheet_Change(ByValTargetAsRange)
rw1=Target.Row
col1=Target.Column
DimoffsetsAsInteger
offsets=0
Ifrw1>7Andcol1=6Then'这里
Foroffsets=0ToTarget.Rows.Count
IfCells(rw1+offsets,6)<>""Then'这里
Cells(rw1+offsets,8)="=g"&(rw1+offsets)&"-f"&(rw1+offsets)&""'这里
Else
Cells(rw1+offsets,8).ClearContents
EndIf
Nextoffsets
EndIf
EndSub

标签：信息技术编程 MicrosoftOffice vba MicrosoftExcel