在使用VBA脚本根据其他单元格值锁定/解锁单元格时,我面临Excel 2013崩溃问题。你能帮我找出我的VBA代码中的错误吗?
Private Sub Worksheet_Change(ByVal Target As Range)
Unprotect "****"
On Error Resume Next
If [S9] = "Yes" Then
Unprotect "****"
[T9].Locked = False
Protect "****"
E
你好,我有一个excel文件。excel文件中有一个宏来清除从属下拉列表。当我们将值从一行复制到另一行或将一列复制到另一列时,我们将得到运行时错误13。请帮助我们解决这个问题。
代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Row < 100 Then
If Target.Column = 2 And Target.Cells.Count = 1 And Target.Value = "Create Account_
我正在尝试用VBA生成一个函数,它可以自动将Excel表格定义区域中的一个单元格的值添加到它右边的单元格中,例如,当您将一个数字放入A1中时,该数字将自动添加到A2中的值中(并在A1中删除)。这是我的第一个想法:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Range("A1:A100")
If cell.Value > 0 Then
cell.Offset(0, 1).Value = cell.Offset(0, 1).Value + cell.Value
cell.Clea
大量的excel菜鸟,也发现了类似的反应,并试图将其应用于我自己的宏,但可悲的是,我在VBA经验/知识方面不足。这对你来说应该是一个简单的解决方法!
我基本上是想让数据在T列中有日期的情况下从一个工作表移动到另一个工作表。我希望复制整行,然后从第一个工作表中删除(以便下次单击该按钮时避免重复。当我运行这个命令时,我得到了错误“参数不是可选的”。我理解这意味着我没有在某个地方指定变量,但我不知道它在哪里。请帮帮我!
Private Sub Move(ByVal Target As Range)
Dim nextRow As Long
If Not Intersect(Target, Range(
我是一个新手程序员,最近摆脱了基于网络的编码,并有一个错误的我的脚本。我已经知道这是一个很差的脚本,我想知道我是否能得到任何帮助。
此脚本只需将该范围内的任何单元格更改后的等效偏移量单元格设置为当前时间和日期。我相信我糟糕的脚本要么导致循环,要么导致计算错误的信息,因为excel在事件触发后崩溃。
任何帮助都将不胜感激。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E5:E100")) Is Nothing Then
Target.Offs
我使用一个简单的代码在excel表格中的两个单独的单元格中自动输入日期和时间,但是,如果我在单元格中输入一个新值或只按"Delete“键,它们就会自动更改。下面是我使用的代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, -2).Value = Date
Application.EnableEvents = True
If Target.Colu
我有一个函数可以在excel中的特定列中找到最后一行。
下面是代码
Private Function FindLastRowInColumn(ByVal XlWorkSheet As Excel.Worksheet, ByVal ColumnName As String) As Long
Dim LastRow As Long
With XlWorkSheet
LastRow = .Cells(.Rows.Count, ColumnName).End(Excel.XlDirection.xlUp).Row
End With
Return Last
我不太懂Excel编码。你能帮帮我吗?波洛代码与偏移单元格或范围完美地工作。但是,当我将Target.Column = 5改为单细胞,如范围(“B2”)和Target.Offset(0,1)为这不管用。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 And Target.Validation.Type = 3 Then
Target.Offset(0, 1).Value = ""
我想连续将条形码扫描到excel中。每次扫描都会进入同一行的不同单元格,直到"$“被扫描,并返回到原始列和下一行。 我已经尝试过了: Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 3 'column c
If Target.Value <> "" Then
T
我正在尝试根据excel上第一列的选定下拉选项自动填充下一列。
下面是我认为的初始代码示例,但似乎我的方法是不正确的。
Private Sub WorksheetStore_Change(ByVal Target As Range)
Dim i As Integer
Dim intCol As Integer
intCol = shtStoreGroup.Range("A")
If Not IsEmpty(Target.value) And intCol > 1 And Target.Columns.Count = 1 And
当执行以下VB代码并打开“跟踪更改”功能时,我在MS Excel中遇到错误:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If IsEmpty(Target) Then
Target.Offset(0, 1).Value = Empty
Else
Target.Offset(0, 5).Value = Now()
End If
End If
End Sub
似乎我可以很
我有excel表格。当我将国家值从美国更改为加拿大时,州字段应该被清除。我已经用下面的单行代码做到了这一点,但我不能用相同格式的多行做这件事,你能指导我做同样的事情吗? Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Cells(3, 26).Value = "Please select"
End If
End Sub ?
我在复习这段代码
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Offset(1, 0) = "" Then
Target.Offset(-1, 0).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If
End Sub
基本上,这
我想根据上一个单元格的条件禁用excel中的一个单元格,例如,如果A3="xyz“那么B3=禁用,那么我已经通过以下代码实现了这一点:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("A3") Then Exit Sub
ActiveSheet.Unprotect
If Range("A3").Value = "CNS" Then
Range("B3").Locked =
这个Excel程序有一个表,其中有一些列,它从几个主表中收集数据。 使用如下代码: Private Sub worksheet_change(ByVal target As Range)
'Autofill Die Description after Die No is filled
'If Project No is not empty then do the following
If Not Intersect(target, Me.ListObjects("F.Main").ListColumns("Project No").DataB
我尝试弹出一个表单,如果选择在第4列,和只有1单元格被选中和,那么第3列中的单元格是空的。
如果条件为真,则起作用。
但是如果条件是假的,则会出现一个错误:
运行时错误“13”:类型不匹配,
在if线上
这就是密码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target.Cells.Count = 1 And Target.Offset(, -1).Value = 0 Then
C = Target.Offset(, -1).Address
此加载项是我用visual basic编写的,我需要打开和关闭它。
Imports Microsoft.Office.Interop.Excel
Public Class ThisAddIn
Private Sub ThisAddIn_Startup() Handles Me.Startup
End Sub
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
End Sub
Sub Application_SheetChange(Sh As Object, Target As Range)
我摆弄这张床单的时间太长了。这是一个停放在不应该停放的区域的汽车列表。6个月后,我尝试让他们在工作簿的另一个工作表中自动“存档”。本质上,我一直在尝试寻找一个宏,这样在从列中的日期开始的6个月后,它将自动剪切行并将其插入到下一个工作表中。任何帮助都将不胜感激。到目前为止,我已经在这上面辛勤工作了3天,我的大脑已经被烧焦了!显然,我不能发布截图,因为我需要10分的声誉(无论这意味着什么),我完全可以通过电子邮件发送它。
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 5 Then
我在Excel中工作,"Details“和"status”列都存在。
当“已完成”的列状态为Y时,应使用文件格式abc.doc/abc.pdf/abc.jpeg更新列"File Name“。如果用户只是更新文件名,则单元格不应该使用户这样做。
如何在Excel中完成?
Excel数据
Details Status
Completed(Y/N) Y or N in Dropdown
File Name abc.doc/ abc.pdf/abc.jpg
码
' If Completed is
在Excel中,我有三列:
column1, column2, column3
我正在使用连接到IPAD上的条形码扫描仪将数据输入excel。条形码扫描器每次扫描后都会发送ENTER。我相信我可以设置excel,以便ENTER将导致选择下一列(而不是下一行)。
但是,在ENTER中检测到column3之后,我不知道如何将它转到下一行。现在我有一个:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
If Target.
我有一个excel工作表,如果一个值被输入到A列中的一个单元格中,那么B列旁边的单元格将自动生成日期和时间。我遇到的问题是,我想检查A列中的值是否为空,即"“然后日期和时间也被清除了。我已经知道了如何添加日期和时间,而不是如何添加对单元格值的检查,以确定它是否为空。代码如下,并附有一个示例;
榜样;
A4 a change is made, the current date and time is entered into B4
A8 a change is made, the current date and time is entered into B8
A4 the user