我需要显示一个msgbox，如果单元格包含除数字以外的任何内容，则退出sub。现在它给出了一个空白
答案：
根据提供的问答内容，你需要显示一个msgbox，如果单元格包含除数字以外的任何内容，则退出sub。现在给出了一个空白。
首先，我们需要编写一个VBA宏来实现这个功能。以下是一个示例的VBA代码：
Sub CheckCellContent()
Dim cell As Range
Dim content As Variant
' 获取当前选中的单元格
Set cell = Selection
' 检查单元格内容
content = cell.Value
' 判断单元格内容是否为数字
If Not IsNumeric(content) Then
MsgBox "单元格包含除数字以外的内容！"
Exit Sub
End If
' 如果单元格内容为数字，则继续执行其他操作
' TODO: 在这里添加你的代码
End Sub上述代码中，我们首先获取当前选中的单元格，并将其内容存储在变量content中。然后，我们使用IsNumeric函数来判断单元格内容是否为数字。如果不是数字，则显示一个msgbox提示信息，并使用Exit Sub语句退出sub。如果是数字，则可以在代码中继续执行其他操作。
关于VBA的更多信息，你可以参考腾讯云的Excel VBA开发文档：Excel VBA开发。
希望以上回答能够满足你的需求。如果你有任何其他问题，请随时提问。
相关·内容
我想要创建一个输入框，并将输入放入相应的单元格中。但它显示出类型错配。
Sub Profit_Projection()
Dim rng As Range
Dim psales As Integer
Dim msg1 As String
psales = InputBox("Please enter the predicted growth of sales next month in decimal form.", "Sales Growth", 1)
If StrPtr(psales)
浏览 12提问于2022-11-24得票数 0
简单地说，我想做一个Excel表单，要求用户填写5个单元格，如果没有填写一个单元格，他们就无法保存文件。问题是，用我目前的实现，我甚至无法保存要分发给我的同事的空白文档。有没有办法在这里保存一次，然后让我的VBA脚本工作？下面是我为表单编写的代码：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim whatCell As String
whatCell = "B3"
If Sheets("Report").Range(whatCell).
浏览 5提问于2015-08-06得票数 0
回答已采纳
我有一个Excel工作簿，它运行宏，最后在数据透视表中显示所有内容
当我的数据透视表有一个空单元格(在我的宏的末尾)时，我正在尝试添加一个msgbox。我已经做了条件格式化版本(红色空白单元格)，它工作得很好，但是客户想要一个msgbox来提醒他。
我发现了一个应该可以工作的IsEmpty命令，但我似乎不能让它只在透视表中显示。这是我尝试过的：
Sub IsEmpty()
If IsEmpty(ActiveSheet.Range("PivotTables(1)")) = True Then
'Cell A2 is not blank
MsgBox
浏览 6提问于2020-05-11得票数 0
回答已采纳
如果活动列中的第一个单元格不是"abc“，则尝试退出。
If Not Cells(1, ActiveCell.Column).Value = "abc" Then Exit Sub
MsgBox ("323")
无论活动列中的第一个单元格是什么- MsgBox都不会出现。
浏览 2提问于2012-08-21得票数 0
回答已采纳
1回答
您是否注意到在Excel Vba代码中划分2/ 60的问题？我正在使用Excel 2013。请测试以下代码：
Sub test1()
Dim A As Integer
Dim B As Integer
MsgBox 2 / 60
A = 2
B = 60
MsgBox A / B
End Sub
Sub test2()
Cells(1, "a") = 2
Cells(1, "b") = 60
Cells(1, "c") = Cells(1, "a") / Cells(1, "b")
MsgBox Cells(1,
浏览 2提问于2015-08-05得票数 1
2回答
我在一张桌子上寻找一个空白的单元格。如果没有空白单元格，则希望具有msg或运行命令。我试过下面的版本，但都没有用。
Sub Macro1()
ActiveSheet.ListObjects("Tabel1").DataBodyRange.Select
Selection.SpecialCells(xlCellTypeBlanks).Select
On Error GoTo Line1
Line1:
MsgBox "no blank cell is found"
End Sub
还有这个
Sub Macro1()
Acti
浏览 0提问于2019-05-06得票数 2
回答已采纳
我有一个宏，它检查空白单元格的范围，然后运行第二个宏。目前，如果找到空白单元格，用户将收到一条消息，通知他们空白单元格，并且宏结束。
我希望能够在结束宏之前选择空白单元格，这样用户就知道在哪里可以找到它。
Dim e As Range
Set e = Range("A2", Range("A1000").End(xlUp))
For Each Cell In e
If IsEmpty(Cell) Then
ActiveCell.Select
MsgBox ("Please remove empty row"
浏览 2提问于2015-08-20得票数 0
回答已采纳
我正在尝试向使用列表配置的单元格D16添加一些验证。
通常，此单元格将显示供用户选择的选项列表。但是，如果它们没有将值添加到另一个工作表中，则此列表将显示#CALC!
目前我有：
Set Check = ThisWorkbook.Sheets("Home").Range("D16")
If IsEmpty(Check.Value) Then
MsgBox "Warning...."
End If
如果没有选择选项，但是如果用户没有将选项添加到另一个工作表，则列表提供#CALC!，如果用户选择检查不起作用，则这样做是可行的。
该选项的值将始
浏览 3提问于2022-01-12得票数 0
回答已采纳
我正在使用类型为8(单元格引用/范围)的输入框。所选范围的部分验证是使用下面的MsgBox。
问题是，当您选择了错误的范围时，MsgBox会提示您，如果您单击Ok，它会在单元格中留下数字2，如果您单击Cancel，它会在单元格中留下数字1。
ElseIf myRange.Value = "" Or myRange.Value = 0 Then
'...
myRange = MsgBox("Please Select a Valid Code. Try again?", vbOKCancel + vbQuestion)
If m
浏览 0提问于2013-08-14得票数 2
回答已采纳
我正在尝试创建一个MsgBox，当列中的单元格从空白更改为"News“时，它会自动弹出提示符”是或否“，并将答案放入下一列。
随着时间的推移，我将继续添加行，因此当单元格从空白更改为"news“时，它必须自动弹出，并将答案输入新添加的右边单元格中。
我很确定我需要每个循环，但老实说，我有点迷路了，在If相交行的调试过程中得到了一个错配错误。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = Range("G2:G1000")
If I
浏览 2提问于2015-09-19得票数 1
回答已采纳
2回答
所以我有下面的VBA代码，它写入CSV文件，问题是I在许多返回空白值的单元格中有公式。电子表格的工作方式是将所有有效的结果放在第一行中，其余行则为空。所以我想让
iLastRow = Range("A" & Rows.Count).End(xlUp).Row
iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
使用数据来计数到最后一个单元格，而不是使用公式的最后一个单元格。
Sub writeCSV()
Dim iLastRow As Long
Dim iLastCol As Lon
浏览 7提问于2022-04-26得票数 2
1回答
我正在使用VBA，首先看一下我的代码：
Sub ali()
a = [C13]
Dim b As Double
b = CDbl(a)
MsgBox b
End Sub
我的单元格C13是= 0.5在单元格中手动键入，我想要msgbox的B变量，它应该是该单元格的双倍数，但它出现类型不匹配的错误，我不知道该怎么办！
浏览 0提问于2021-11-16得票数 0
1回答
我正在写一个If语句来测试我是否在两个组合框中选择了一个选项。选中的组合框是从具有两个值的数组中生成的。其中一个单元格是空白的，因此顶部的值在组合框中为空白。
我的if语句是
The array is
Private Sub cbApplicationSelection_Change()
If (eMassWelcome.cbwesitechoose.text = "") Then
eMassWelcome.cbApplicationSelection.text = ""
MsgBox "A website has not bee
浏览 2提问于2017-04-04得票数 1
回答已采纳
1回答
我有一个名为Start Page的工作表，我正在使用它。我的代码的目标是，如果单元格为空白，则通知用户需要通过消息框输入值。通过使用If语句，我就能够做到这一点。请参阅下面的代码：
Dim rng As Range
Set rng = Sheets("Start page").Range("A4")
If rng = "" Then
MsgBox "Please enter Date from A4", vbOKCancel
Exit Sub
End If
但是，我试图避免使用多个If语句()。我所指的单元格和消息
浏览 5提问于2015-04-26得票数 0
回答已采纳
1回答
我尝试将字符串为"Senast“的单元格后面的单元格的值放入单元格Q2。下面的代码不起作用。你知道为什么吗？
Sub Find_Data()
Dim item_in_review As Variant
Dim row_number As Long
For row_number = 1 To 1000 Step 1
item_in_review = Sheets("Investor_Importerad data").Range("A" & row_number)
If InStr(ite
浏览 0提问于2018-07-09得票数 0
我在Google工作表的一个单元格中有一个字符串，我希望从其中提取图像文件名到工作表中的单独单元格中，以便将文件名与字符串隔离开来。比如说..。
所以如果原来的字符串是..。
{[file_name_1.png][yes]}{[file_name_2.jpg][no]}{[file_name_3.png][no]}
..。然后，我希望下面的三个单元格中有file_name_1.png，file_name_2.jpg，file_name_3.png。
我试过以下方法..。
(.*?[A-Za-z0-9_]+\.(?:(?:png)|(?:jpg))){1}给出了{[file_name_
浏览 4提问于2020-07-02得票数 1
回答已采纳
我想看看一个单元格是否有某种颜色。如果为true，则需要此消息框(“单元格匹配颜色”)。否则，我希望看到消息框("Cell I not match color.")
Option Explicit
Sub Autoselect()
Dim Refcolor As Long
Set Refcolor = RGB(220, 230, 241)
If ActiveCell.Interior.Color = Refcolor Then MsgBox ("Cell Match
Color") Else: MsgBox ("Cell
浏览 8提问于2015-07-31得票数 1
为了在工作表上进行复制，首先需要宏知道它属于哪个员工(每个员工都有自己的工作表名称)。在要添加到它们的新的一组工作表中，它们是列D中偶尔出现的名称。然而，第一个单元格有标题"Reference“--有些有员工名称，有些是空的。我想做的是找到一个有值的单元格(不是空白的)，并且不包含“引用”这个词，因为这只留下了员工的名字。我想把它复制到表外的空白单元格L1中。
从这里开始，通过调用L1作为工作表名引用，我将能够将其复制到他们的工作表中。
我拥有的代码将复制引用到L1，但我不知道如何处理上面描述的员工姓名：
`With Sheet2
Set Foundcell = Selecti
浏览 0提问于2014-01-28得票数 0
回答已采纳
2回答
我需要确保用户在某一列的任何单元格中键入一个长度为(空白)的整数。如果用户输入的数字不是长度(空白)，Excel将冻结该单元格中的用户，并提示重新输入，直到输入整数长度(空白)或点击取消。
我目前已经完成了我所要求的大部分工作。但是，我的问题是，直到我离开单元格并返回到单元格，Excel才能识别长度错误。
例如(使用3作为所需的长度)：如果我当前在单元格B12上键入15646，但长度不是3，我仍然可以单击enter，它将移动到单元格B13，这是我想要阻止的。但是如果我再次从B13向上移动到B12，就会看到长度错误，并提示我输入具有正确长度的整数，直到它固定为止。
现在，只有当我返回到单元格时，
浏览 20提问于2019-08-02得票数 0
我编写了一段代码，用.txt文件中的新行替换了所有的空白空间，这基本上是一种新颖的方法。这样做，为我分离了新行中的单词，但是有一些空行，我想删除这些行。因此，我试图删除除新行之外的所有空白空间。我怎么才能用regex来实现呢？
首先，我这样做是为了用新行替换空格：
text= re.sub(r'\s',r'\n',text)
然后，我试着删除空行，这实际上是做不到的：
text= re.sub(r'(\s)(^\n)',"",text)
浏览 3提问于2021-05-22得票数 0
回答已采纳
1回答
我刚开始使用VBA，我被困在了一个用户表单上。
我正在寻找一种方法，它允许我单击一个命令按钮，然后该按钮上的文本将出现在某一列的最后一个空白单元格中。(以A2为例)
Private Sub CommandButton1_Click()
If MsgBox("Please confirm your choice ?", vbYesNo, "Confirmation") = vbYes Then
Worksheets("Sheet1").Select
ligne = Sheets("Sheet1"
浏览 11提问于2022-05-03得票数 1
我正在尝试使用以下代码来查看当某个工作表的整个列中存在用户名(Application.Username)时，当工作簿处于打开状态时是否会发生匹配。
Dim rgFound As Range
Set rgFound = Range("C1:C20").Find(Application.Username,After: Range("C1"))
If rgFound Is Nothing Then
MsgBox("User Access not found in list")
Else
MsgBox("User Access gra
浏览 8提问于2021-06-10得票数 0
回答已采纳
1回答
我是VBA新手，我有一段简单的代码，它会导致一些单元格成为强制性的，并在打开工作簿时突出显示这些单元格是空的。但是，我无法用我的代码关闭我的excel。谁能告诉我原因吗？
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cells(2, 6).Value = "" Then
MsgBox "Cell F2 requires user input", vbInformation, "Please filled up the mandatory cells&
浏览 1提问于2017-11-13得票数 1
回答已采纳
1回答
我试图在两列(E和F)中自动搜索空白单元格。我的目标是在一个消息框中显示这些空白单元格的地址。如果没有空白单元格，则会出现一个消息框，提示在两列中没有空单元格。到目前为止，我已经尝试过该代码，但是这只适用于第5(E)列，并且没有验证如果没有空白单元格，它将提示一条消息。我不知道如何才能实现我的目标。
下面是我迄今为止尝试过的代码：
Sub test()
Dim i As Long, lastrow As Long
Dim rng As Range
Dim MsgStr As String
Dim c As Range
lastrow = Cells(Rows.Count, "E&
浏览 1提问于2018-06-05得票数 0
回答已采纳
0回答
我不太明白这里出了什么问题。任何指导都将不胜感激。
当我在单元格位置进行硬编码时，我可以简单地打印单元格项，但是，当我传入单元格位置时，它不会显示单元格内的值。为什么会这样呢？
Sub Button6_Click()
Dim col As Long
Dim row As Long
col = 2
row = 2
MsgBox Sheets("MYSheet").Cells(2, 2).Value
MsgBox Sheets("MYSheet").Cells(row & "," & c
浏览 2提问于2017-06-12得票数 0
回答已采纳
目前我正在制作一个模型，在这个模型中，我需要两个单元格来保持固定的比率，这样当两个单元格的和总是等于1时。在本例中，单元格是F13和F14。举个例子，如果F13的值更改为0.4，那么F14应该变成0.6。同样，如果F14的值更改为0.2，那么F13应该变为0.8。我得到的代码是：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("F13")) Is Nothing Then
If ActiveCell.V
浏览 0提问于2016-02-08得票数 0
我正在编写代码，比较在一列中输入的日期和在另一列中输入的日期。如果条目违反数据验证规则，则会显示错误消息。
另外，我还禁用了剪切粘贴操作和ctl+d.
数据验证规则：
输入在01/01/1900至12/31/9999之间的有效日期
AP列中的日期值应大于AO列。
但是，当用户复制一个单元格时，在目标列中选择多个单元格并粘贴，那么数据验证根本不会触发。下面是截图：
下面的代码处理单个单元格操作，例如复制一个单元格并粘贴到另一个单元格中，但当用户选择多个单元格和粘贴时无法处理。
请帮助我理解我的代码有什么问题。谢谢!
这里是我的代码：
Private Sub Wo
浏览 2提问于2017-05-22得票数 1
回答已采纳
我编写了一段代码，给出了列/s中空/空单元格的准确计数。
这显示了如果我运行A列的代码的结果
Sub countblank()
Const column_to_test = 2 'column (B)
Dim r As Range
Set r = Range(Cells(2, column_to_test), Cells(Rows.Count,
column_to_test).End(xlUp))
MsgBox ("There are " & r.SpecialCells(xlCellTypeBl
浏览 0提问于2017-10-07得票数 0
回答已采纳
2回答
我是VBA的新手。我想对我在UserForm中的输入设置一些限制。我希望我的变量是一个数字(用户应该选择行号)，如果她/他输入文本或将其留空，应该会出现一条错误消息。这是我的代码：
Public Sub AddPolicy_Click()
Dim RowNumber As Integer
RowNumber = TextBox1.Value
If RowNumber = "" Then
MsgBox "Error Row Number- enter a value!", vbOKCancel + vbCritical, "Error"
E
浏览 0提问于2020-02-05得票数 0
1回答
我试图创建一个宏来检查用户是否已填写了他的行。例如，如果用户开始键入单元格A1，宏将检查单元格是否填充在同一行中，如果在填充所有空白之前，空白用户无法关闭excel。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rsave As Range
Dim cell As Range
Set rsave = Sheet1.Range("a1:i1")
For Each cell In rsave
If cell = "" Then
Dim mi
浏览 3提问于2015-02-01得票数 0
回答已采纳
我想编写一个类似于rm_ext的函数tools::file_path_sans_ext，但如果文件结尾以数字开头，则不删除它们。通过在[:alnum:]中用[:alpha:]替换tools::file_path_sans_ext，我几乎达到了目的，但是如果文件的基本名称以点本身结尾，它就失败了：
rm_ext <- function(x) sub("([^.]+)\\.[[:alpha:]]+$", "\\1", x) # adapted from tools::file_path_sans_ext()
rm_ext("test.string.wi
浏览 0提问于2019-07-24得票数 1
回答已采纳
Excel VBA:在包含空白单元格的行中查找最大日期的代码
Dim s As Date
s = WorksheetFunction.Max((If IsNotEmpty (CDate(Range("A" & x + 1).Value), CDate(Range("B" & x + 2).Value), CDate(Range("C" & x + 1).Value)))
MsgBox s
我有一个表格，其中大约有8列包含日期(前开始日期，结束日期等)。现在，对于每一行，有些列为空白。我必须在每一行中找到最大日期。
浏览 3提问于2019-09-18得票数 0
回答已采纳
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range
Set r1 = Range("A1:B10")
If Intersect(Selection, r1) Is Nothing Then Exit Sub ' how to write this line ?
MsgBox "323"
End Sub
只有当我手动选择并更改r1中的某些单元格时，我才需要MsgBox，而不是通过运行另一个更改此单元格的代码。
浏览 0提问于2012-09-23得票数 0
回答已采纳
我想执行以下任务：
写上“你醒了吗？”并显示一个问号
捕获整数变量intR中的响应，将intR值放入单元格A2中
如果响应为“是”，则在单元格A1中写入"Hurray“
如果响应为否，则编写一个带有文本"ZZZZZZZZ“的消息框
如果响应为“取消”，则退出“子”
SubEX3_1_6MsgBoxFunction() Dim intR As Integer Dim TxtRng As Range Dim stra作为String‘有消息框显示intR =MsgBox(“您醒了吗？"，vbQuestion + vbYesNoCancel) intR =
浏览 4提问于2017-09-15得票数 3
我正在尝试使用vba创建一个代码，根据该代码，当会话被解锁时，我希望使某个单元格B2只读且不可更改(我有一个锁和解锁模块供以后使用，因此锁定不允许编辑和解锁允许编辑)。
该代码的目的是在会话锁定时进行编辑之前，给出错误消息并将单元格恢复到以前的值。
问题:但是，目前这段代码的结果成功地给出了一条错误消息，当编辑被锁定时，但是在错误消息之后将单元格变为空白，而我实际上希望它在编辑之前恢复到以前的值。
如果您知道出了什么问题，请帮助，并提前感谢您。
Public locked As Boolean
Dim oldValue As Variant
Private Sub worksheet_Sel
浏览 2提问于2022-03-15得票数 1
1回答
我想要实现的是计算lRow行中的非空白单元格。宏的第三行出错了。我不知道怎么修好它。
Sub CountNonEmptyCells()
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Rows(lRow).SpecialCells(xlCellTypeConstants, 23).Cells.Count
MsgBox lRow
End Sub
浏览 1提问于2016-10-09得票数 1
回答已采纳
2回答
我正在尝试编写一个简单的宏将单元格的当前值加1：
Sub add()
MsgBox Selection.Value
Selection.Value = Selection.Value + 1
End Sub
当我单击(数字)单元格并尝试运行宏时，收到以下错误消息：
Cannot Execute in Break Mode
我遗漏了什么？
浏览 0提问于2013-02-18得票数 7
回答已采纳
3回答
我有一个Sud，它告诉我一列是否有空白单元格。
有没有办法也可以得到单元格的位置，如果它是空的，可能有数千行，也可能有一两个空白单元格，即使你知道它在那里，它们也很容易遗漏。
谢谢
Sub CountBlankCellsComments()
Dim Lastrow As Long
Sheets("Comments").Select
With Sheets("Comments")
Lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
End With
If WorksheetFunctio
浏览 0提问于2013-06-17得票数 0
回答已采纳
2回答
如何从函数返回布尔值？
、、、、
尝试编写一些错误检查代码。到目前为止，我所有的代码都是一个巨大的子过程。
我在工作表中选择了单元格A1，单元格中包含Test1。然后我运行MainProgramCode宏。
我得到的结果是：
函数调用前的False
您从第1列选择了数据
函数调用后返回False
在MsgBox "You selected data from column 1"之后我就有OkToProceed = True了。但是我在MainProgramCode中的OkToProceed变量在函数执行后仍然是假的？
Function Check_User_Select_Range_Column(OkToPro
浏览 0提问于2020-07-19得票数 0
6回答
我在找任何只有空格的细胞。但是，当我运行这个程序时，它也会找到空白的单元格。有找到有空格的单元格吗？
For i = 1 to lastRow
If len(trim(this workbook.sheets("data").range("a" & i)) = 0 then
Msgbox("a" & i " contains only space")
End if
Next i
浏览 0提问于2021-08-23得票数 3
回答已采纳
2回答
嗨，我有两个公式，我试图运行，但努力使COUNTIF计算，只有当单元格不是空白。
Sheets("Home").Select
If Range("A2:A14").Count = "13" Then
MsgBox "Current Load Full Please Complete & Export", vbCritical
Exit Sub
End If
第二代码
Sheets("Home").Select
If Range("A2:A14").Count < "13&
浏览 4提问于2014-10-06得票数 0
回答已采纳
3回答
我想知道我的编码有什么问题，因为我无法在Microsoft中结束我的do while循环。如果下一行是空的，我希望结束这个do while循环。
Do While Cells(RowName, 1) <> ""
Name = Cells(RowName, ColumnName)
MsgBox Name
RowName = RowName + 1
Loop
请启发我，因为我仍然是一个初学者。MsgBox不断地弹出，即使它是空白，也不会结束。
浏览 2提问于2016-04-29得票数 10
回答已采纳
5回答
我在读Ionic的源代码。我偶然发现了这个大梁，我被它弄得很困惑。
([\s\S]+?)
好的，它是在每个字符上分组，要么是空白，要么是非空白？
他们为什么不这么做
(.+?)
我是不是遗漏了什么？
浏览 4提问于2015-09-11得票数 11
回答已采纳
我有一个源工作簿和一个目标工作簿。源书有一个范围(D13:F293)，它包含数据值以及空白单元格。目标簿包含相同的范围，各种单元格包含公式。
我希望将数据从源簿导入到目标簿，但只导入包含值的单元格。此外，如果目标图书/单元格包含一个公式，我希望将公式保留在单元格中。
我的选择是：
扫描源以查找空白单元格，并且只导入带有数据的单元格。
扫描目标中的公式，如果存在公式，则不要将数据导入到该单元格。
我不知道该怎么做。我对VBA非常陌生，不完全理解语法。我已经尝试过3次使用用空白单元格替换公式或给出错误的代码。
此代码将空白单元格复制到目标簿：
Sub TransferData()
浏览 1提问于2019-04-03得票数 0
我正在尝试将包含坐标的单元格值转换为整数。字符串值是"X-324.45"，但希望以后能够将此数字用于if then循环。
Msgbox1将字符串显示为X-324.45 Msgbox2将字符串显示为-324.45 Msgbox3显示空白MsgBox
这里我漏掉了什么？我希望-324.45是一个可以用于数学运算的变量。
谢谢,
Dim YVAL1 As String
Dim YVAL2 As String
Dim YVAL3 As Double
YVAL1 = ActiveCell.Offset(0, -4).Value
YVAL2 = Mid(YVAL1, 1, 10)
浏览 31提问于2017-07-13得票数 0
2回答
我正在尝试让两个对话框在私有子Worksheet_Change(ByVal目标作为范围)下工作。每当有人在范围内输入某个值时，它们都会弹出。第一个运行正常，但第二个根本不显示。下面是我使用的代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J2:J54")) Is Nothing Then Exit Sub
If Target.Value <> "Transportation" Then Exit Sub
M
浏览 2提问于2018-08-30得票数 0
回答已采纳
我正在尝试找到一种方法来搜索Excel电子表格列中的单元格范围，以查找任何空白单元格。该列将包含"Quantity ordered“，如果该列保留为空，则稍后会在不同的系统中抛出错误。如果我现在可以检测到错误，我可以将该工作表标记为失败，以便可以手动处理或与客户一起查询。
我尝试过各种方法，但要么一直收到“从类型'Object(，)‘到类型'String’的转换无效”的错误信息，要么就会忽略代码。
第一段代码查找工作表中最后使用的行，因此下面的代码仅从第2行第8列查找到第8列最后使用的行：
Dim rw As Integer = 1
Do Unt
浏览 10提问于2021-02-25得票数 1
回答已采纳
1回答
我是第一次超越VBA编码。我在一行A1中有最后一个非空白单元格的地址，现在我想移到下一个右单元格。
Dim ws As Worksheet
Dim cell1 As String
Dim cell2 As String
Dim rng1 As Range
Set ws = Sheets("ADS User Data")
Set rng1 = ws.Rows(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious)
MsgBox rng1
If Not rng1 Is Nothing Then
浏览 2提问于2016-10-18得票数 0
我是VBA的新手，我非常感谢您在以下方面的帮助。下面的代码搜索A列中的空白，突出显示它们，然后每次单元格有带有单元格位置的空白时，它都会显示一条消息(例如，“No Value，in $A$1")。我在另一个名为“结果”的标签中复制这些单元格位置。
，我需要在以下方面的帮助。，我想让消息显示一次，列出有空格的单元格列表及其位置。我不希望消息每次发现空白单元格时都弹出(我可以在一个文件中有数百个空白单元格，然后单击每个单元格的Ok是不实际的)。然后，值的列表将被复制到我的“结果”表中。
下面是我目前的代码：
Sub CeldasinInfo()
Dim i As Long, r As R
浏览 4提问于2015-05-11得票数 1
回答已采纳
我正在尝试打开一个新的工作簿，并将"A“列中的值相加，然后粘贴到第一个空白单元格中。但是总和不会显示在空白单元格中。
Path = ActiveWorkbook.Path
Filename = InputBox("Enter an input file name")
MsgBox Filename
InputFile = Path & "\"
InputFile = InputFile & Filename
MsgBox InputFile
Workbooks.Open Filename:=InputFile
'Activat
浏览 0提问于2013-05-05得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
