在ElseIf中忽略VBA排序
在VBA中，ElseIf语句用于在多个条件之间进行选择。当某个条件不满足时，程序会继续检查下一个条件，直到找到满足条件的代码块或者执行完所有条件。
在排序过程中，可以使用ElseIf语句来忽略某些特定的排序规则。例如，如果要对一个数组进行排序，但希望忽略其中的某些元素，可以使用ElseIf语句来跳过这些元素的排序。
下面是一个示例代码：
Sub SortArray()
Dim arr(1 To 10) As Integer
Dim i As Integer
' 初始化数组
arr(1) = 5
arr(2) = 2
arr(3) = 8
arr(4) = 1
arr(5) = 9
arr(6) = 3
arr(7) = 7
arr(8) = 4
arr(9) = 6
arr(10) = 0
' 排序数组，忽略值为0的元素
For i = 1 To 10
If arr(i) <> 0 Then
' 执行排序操作
' ...
End If
Next i
End Sub在上面的代码中，通过使用If语句和ElseIf语句，我们可以在排序过程中忽略值为0的元素。在实际应用中，可以根据具体需求来设置忽略的条件。
对于VBA排序的具体实现，可以使用VBA内置的排序函数或者自定义排序算法。在这里，我们不推荐特定的腾讯云产品，因为腾讯云主要是提供云计算服务，与VBA排序无直接关联。
相关·内容
1回答
使用excel中的VBA，我有一个代码，将输入的日期与当前日期进行比较，根据结果，系统将以正确的颜色填充单元格。
代码在四种条件下进行比较。如果输入的日期减去当前的日期是：
=0
小于0
在1至4之间
在4至10之间
使用IF语句，但是系统给了我一个错误，错误在哪里，以及如何修复它？
代码：
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge
浏览 3提问于2017-10-10得票数 1
1回答
您好，我是一个完全的初学者在编码方面我刚刚在excel的一个学期的课程，所以我很抱歉被打破了我正在尝试做一个按钮宏，当按下时从某个单元格中取出键入的ID，将其复制到不同工作表上的运行主列表中，然后通过索引匹配在不同的工作表上引用一个表，并使用该表插入特定的日期(雇佣周年纪念日+1或+2年，基于他们有多少天休息)。希望您能从我从设置变量开始的基本代码中了解我的意图 Private Sub Submitsp3_Click()
Dim a As Long
Dim b As Integer
Dim c As Integer
a = Range("M8").Formul
浏览 23提问于2021-07-21得票数 0
2回答
我有VBA代码，用当前日期检查输入的日期，并以适当的颜色填充单元格，并检查colomn "F"是否为空，它将为D、E、F列着色。
问题是，到目前为止，我有21条记录，但系统只显示19条记录，即使2行在F列中不是空的。
代码：
Private Sub CommandButton1_Click()
Dim i As Long
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If I
浏览 3提问于2017-10-19得票数 0
我有VBA代码，将用户输入的日期与当前日期进行比较，并以适当的颜色填充背景。一切都很好。
现在我需要使系统检查所选行的F列中的单元格是否为空，我需要将列D、E、F着色为灰色。
代码：
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If IsEmpty(Cells(i
浏览 6提问于2017-10-18得票数 0
回答已采纳
2回答
我试着做一个5盒的彩票发生器，想法是每一个盒子都会有唯一的号码，每次我随机化它，
我的代码
If TextBox1.Value = TextBox2.Value Or TextBox1.Value = TextBox3.Value Or TextBox1.Value = TextBox4.Value Or TextBox1.Value = TextBox5.Value Then
TextBox1.Value = TextBox1.Value + 1
ElseIf TextBox2.Value = TextBox1.Value Or TextBox2.Value = TextBox3.V
浏览 3提问于2021-08-27得票数 0
下面这小段vba在单元格B2中返回所需的值。我想通过将范围更改为("A:A")和("B:B")，我可以让它在整个电子表格中运行。然而，当我尝试它时，它不能运行。完整的列表有15个国家，所以向下复制B列的IF函数将不起作用。任何帮助都将不胜感激。提前谢谢。
Sub test()
Dim Country As String, ID As Integer
Country = Range("A2").Value
If Country = "France" Then
ID = 1
浏览 0提问于2014-02-27得票数 0
我最近开始学习excel VBA，目前我只能从用户表单Excel vba调用Public子例程。我一直在尝试将子例程放入一个模块和其他几个地方，但仍然给出了一个错误。(Sub或Function没有定义！)
你能给我指引正确的方向吗？
module1中的函数本身
Public Sub Check(j As Integer)
If Worksheets("VBA").Cells(j, 19).Value = "Y" Then
imgA.Visible = True
imgB.Visible = False
imgC.Visible =
浏览 16提问于2016-07-07得票数 0
回答已采纳
1回答
我有一个用VBA编写的代码，它将检查日期和基础，它将用适当的颜色填充背景。
我有细胞(A到G )。
我想检查G是否是空的，如果是空的，我想改变单元格(A)(B)(D)(E)(F)(G)的背景色，但单元格(C )除外。
代码：
Private Sub CommandButton1_Click()
Dim i As Long
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If IsEmpty(C
浏览 0提问于2017-11-06得票数 0
回答已采纳
1回答
有一段检查日期并用适当的颜色填充单元格的代码，该代码包括一个按钮，当用户单击该按钮时，它将运行VBA代码。
我想始终使按钮可见，无论用户如何向下滚动。
代码：
Private Sub CommandButton1_Click()
Dim i As Long
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If IsEmpty(Cells(i, 3)) Then
Cells(
浏览 0提问于2017-11-01得票数 0
5回答
VBA中的左函数
、、
我有一个通过power-shell生成的输出文件，该文件提供了共享的转储，并具有以下格式的权限：
我希望在VBA中编写一个模块，在该模块中，我可以将原始数据放在一个名为“输入和乐趣”的表中，因此输出如下所示：
我对VBA非常陌生，但是修改一些代码提供了我的Stackoverflow社区，我已经做到了这一点：
Sub PathAccessSplit()
Dim wsFrom, wsTo As Worksheet
Dim rowFrom, rowTo, lastRow As Long
Dim cellVal As String
Set wsFrom = Sheets(
浏览 8提问于2015-11-10得票数 1
回答已采纳
1回答
我有一个代码，当用户单击按钮时，系统会比较当前日期和书面日期，然后用适当的颜色填充单元格。
问题是，如果在两天前我写了10-16-2017年，它将用红色填充背景。如果我今天检查的话，它必须把颜色变成黄色。问题是，一旦单元格被着色，它就不会改变颜色。
示例：
日期10-16-2017是写在3前，所以最初的颜色将是红色。
今天是10-16-2017年，所以当我按下按钮时，它必须变成黄色。
，这是我的代码：
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("C5000").End(x
浏览 1提问于2017-10-16得票数 0
回答已采纳
1回答
我正在尝试创建一个按钮，并根据第4列中的值填充第5列的值。以下是代码：
Private Sub CommandButton1_Click()
Dim x As Integer
For x = 3 To 1000
If Cells(x, 4).Value = "Regular" Then
Cells(x, 5).Value = Today()
ElseIf Cells(x, 4).Value = "Temporary" And Cells(x, 5).Value = "" Then
Cells(x,
浏览 2提问于2022-04-24得票数 -1
2回答
条件型错配
、、、
我是VBA的新手，但我一直在编写大量的C#。我在这里的问题是，我一直在我的VBA函数中得到“运行时错误13.类型错配”错误。
我正在从access中的Table中提取数据，然后尝试过滤其中的一些数据。
我的功能如下：
Function FlowType(deliveryAdrID As String, deliverType As String, note As String) As String
If (note = "*J") Then
FlowType = "Weekend"
ElseIf (deliveryAdrID =
浏览 0提问于2014-06-11得票数 0
回答已采纳
1回答
我正在对一大列字符串进行数据质量检查。姓氏)，并希望查看它们是否包含数字。
到目前为止，我尝试过的VBA代码应该是直接的:如果LastName字段包含1或2(依此类推)之后，如果ReasonCode = 3，结果就会显示"Contains a ReasonCode“。
然而，在像'marshall‘这样的情况下，它仍然填充“包含一个数字”
ElseIf LastName Like "*#*" Or FirstName Like "*#*" Then
ReasonCode = 3
End If
ElseIf ReasonCode = 3 Th
浏览 4提问于2019-05-01得票数 0
我希望我能在我遇到的VBA问题上得到一些帮助，但首先我想说我不是VBA的专家，也不是任何接近VBA的人.但是，我渴望学习！
我正在使用MS 2010中的报告，并使用VBA，我隐藏了一个页脚，并显示另一个基于页码的页面。我遇到的问题是，我需要使页脚在报告中两次访问和可调用。我试过使用IF ELSEIF，但它似乎不起作用。这段代码看起来正确吗？还是我做错什么了？
If Me.Page <= 2 Then
Me.PageFooter1.Visible = True
Me.PageFooter2.Visible = False
ElseIf Me.Page >= 9 The
浏览 1提问于2015-03-19得票数 1
回答已采纳
1回答
在Excel VBA中压缩以下代码有什么好技巧吗？我尝试在我的图表中设置网格线(主要和次要)，但这取决于源数据的最大值。感谢你的投入！(出自一个新手) If MaxY < 0.1 Then
MajGridY = 0.1 / 5
MinGridY = 0.1 / 10
ElseIf MaxY < 1 Then
MajGridY = 1 / 5
MinGridY = 1 / 10
ElseIf MaxY < 10 Then
MajGridY = 10 / 5
浏览 22提问于2020-07-08得票数 0
回答已采纳
2回答
在VBA中，我一直收到“Else without if”错误，而我显然没有这个问题。有人知道怎么修吗？它将我带到以elseif开头的elseif语句，下面的memb=“白金”是我的代码：
ElseIf memb = "Platinum" Then d = 0.01
ElseIf memb = "Black" Then d = 0.03
End If
If st >= min Then cb = st * d Else cb = 0
End If
If cb >= thresh Then MsgBox ("cb is greater th
浏览 3提问于2017-04-21得票数 1
下面的代码是我试图让它在VBA中工作，但不知道如何链接代码，或者它不工作？ Option Compare Database
If siteType = "Pennies" Then
siteModel = TblPennies
ElseIf siteType = "Nickels" Then
siteModel = TblNickels
ElseIf siteType = "Dimes" Then
siteModel = TblDimes
ElseIf siteT
浏览 21提问于2019-06-24得票数 0
1回答
我不需要在MS access vba中对分数和成绩进行硬编码，而是如何将这些值放入表中并从表中访问它们？这样，当分数范围发生变化时，我就不必返回到vba代码并更新它。我只需更新表中的值，代码将只获取分数范围，并在字段中分配正确的分数。请协助...
Private Sub MarkScored_Exit(Cancel As Integer)
Dim mScore As Integer
mScore = Nz(Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![MarkScored])
If mScore >= 0 And m
浏览 3提问于2016-07-28得票数 0
我在excel VBA中面临一个问题。上面说是unable to get the vlookup property of the WorksheetFunction class
Private Sub cmb_Product_Change()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Product_Master")
If Me.cmb_Product.Value = "" Or Me.cmb_Type.Value = "" Then Me.tx
浏览 2提问于2021-02-16得票数 0
回答已采纳
1回答
我有以下IF语句：
lF(C:C=CE,0.3,(IF(C:C=CS,0.2,(IF( C:C=TE,0.2,(IF( C:C=MV,0.25,(IF( C:C=HCV,0.375,(IF( C:C=HM,0.3,(IF( C:CLM,0.125,(IF( C:C=FF,0.125,(IF( C:C=OE,0.3,0))))))))))
然后我在我的第一个VBA模块中将其作为函数输入：
Function DepRate(pVal As String) As Long
If pVal = "HCV" Then
DepRate = 0.375
ElseI
浏览 0提问于2014-11-26得票数 0
我已经在Outlook中创建了一个UserForm，它允许我选择要创建的电子邮件模板。电子邮件模板的VBA在创建电子邮件时工作正常，但是，当我在UserForm中使用以下代码时，电子邮件没有创建？我是否在UserForm中遗漏了一些额外的代码？
私有子CommandButton1_Click()
如果为OptionButton1，则
Call QueueTrackingemail 'Module 2
然后是ElseIf OptionButton2
Call DailyReportsEmail 'Module 3
然后是ElseIf OptionButt
浏览 17提问于2015-04-09得票数 0
1回答
当我在VBA中单击要替换的CTRL+H时，我希望找到一个字符串并将其替换为相同的字符串+断线+其他字符串
我知道如何在CTRL+H (CTRL+J)中添加断线，CTRL+H是不同的。
我知道如何在Excel中添加断线(CHAR(10))，VBA CTRL+H是不同的。
我知道如何在MsgBox (vbCrLf)中添加断线，VBA CTRL+H是不同的。
Dim i, xa, xb, counter As Integer
counter = 0
For i = 1 To 5
If Cells(i, 1) = "a" Then
xa = i
Else
浏览 1提问于2019-01-05得票数 0
回答已采纳
我对Vba脚本非常陌生，在我的vba脚本中需要帮助。
预期：
如果excel数据如下：
R/C Col1 Col2 Col3
Row1 1 1 1
Row2 0 0 0
Row3 1 0 1
Row4 0 0 0
在上面的示例中，输出应该是值为0的所有行的列表，它将输出Row2和Row4。
代码：
Sub LookUp()
Dim result As String
Dim i As Long
Dim j As Long
For i = 2 To Rows.Count
result = "P
浏览 1提问于2020-06-04得票数 0
我是StackOverflow和VBA的新手。除了用VBA从头开始编写代码之外，我是Excel的所有方面的专家。
我尝试做的是将索引中的颜色应用于包含特定术语的单元格的内部。这就是我所拥有的：
Sub ConditionalFormatting()
Do Until ActiveCell = ""
If ActiveCell = "STAR DISTRICT" Then
ActiveCell.Interior.ColorIndex = 50
ElseIf ActiveCell = "STAR SCHOOL" Then
ActiveCell.I
浏览 0提问于2012-06-28得票数 1
回答已采纳
1回答
我对VBA非常陌生，我希望找到一种更简单的方法来创建SQL查询。我有4个组合框，查询取决于它们是否被填充。其中一个组合框链接到一个带有多个复选框的userform，这些复选框将添加到查询中。
下面是我目前的代码，我想增加userform条件：
If Sheets("Home Page").opecbbx.Value <> "" And Sheets("Home Page").wellchk.Value = False Then 'contractor only
op = Sheets("Home Pag
浏览 1提问于2020-03-06得票数 1
回答已采纳
是否可以编写一个查询来遍历一个包含两列的表的行，检查第一列中的某个标识符，并将第二列中的数据复制到一个新表中？
示例：
tblSurveyData
FirstColumn Second Column
A0 John
A2 Smith
A3 05-01-1973
tblSurveyReport
FirstName MiddleName LastName DateOfBirth
John Smith 05-01-1973
A0数据将流向FirstN
浏览 1提问于2013-09-05得票数 1
回答已采纳
我正在做一个VBA项目，以确定公司的PE是否太高。我对vba比较缺乏经验，但是，我找不到我的代码有任何错误，为什么excel总是返回一个object required错误？如果有人能帮我，谢谢！
Dim i As Long, pe As Long
Dim result As String
For i = 4 To 10
pe = Sheet1.Range("C" & i).Value
If pe >= 85 Then
result = "high"
ElseIf pe >= 75 Th
浏览 92提问于2020-02-25得票数 0
在VBA中，我使用的是if语句，否则语句，但是它没有给出我想要的输出。
Sub oefening1()
Dim jaarinkomen As Long
jaarinkomen = InputBox("Wat is uw jaarinkomen?")
If jaarinkomen < 18300 Then
MsgBox ("U zit in klasse minimumloon of lager")
ElseIf 18300 <= jaarinkomen < 36500 Then
MsgBox ("U zit in kla
浏览 0提问于2019-03-19得票数 0
回答已采纳
2回答
我有一个关于在VBA excel中查找和检测每行空隙的问题。分拆部分是从周五开始，一直持续到周四(FTGaps)的空隙需要单独加起来，而从其他日子开始的空隙必须分开计算。
例如，在图片中，第一行的结果必须是:1 FTGap和1 Gap，第2行必须是1 FTGap。
但是，如果行前面有一个空单元格，则必须将其计算为不同的空白。因此，例如，下面的行输出是2个间隙和1个FTGap。
我希望我的问题很清楚。提前感谢
我试过的
For Row = 3 To Worksheets("Kalender2").UsedRange.Rows.Count
GapDays = 0
浏览 10提问于2022-06-11得票数 0
回答已采纳
3回答
我想删除已排序数组的重复值。
下面是按升序对值进行排序的代码。
Dim k As Integer
Dim j As Integer
Dim sortedArray As Variant
Dim sorting As Boolean
If sorting = True Then
For j = LBound(concentrationArray) To UBound(concentrationArray)
For k = j + 1 To UBound(concentrationArray)
If concentrationArray(j) < concentrationAr
浏览 1提问于2018-09-11得票数 0
2回答
因此，我有一些VBA代码，用于根据单元格中的值执行一些操作。将读取单元格中的值，并相应地运行代码。这与没有问题的工作。
If Target.Value = "something" Then
End If
ElseIf Target.Value = "something2" Then
End If
ElseIf Target.Value = "something3" Then
End If
ElseIf Target.Value = "something4" Then
End If
这很好用，但是如果我添加一个额外的ElseIf条件
浏览 5提问于2017-02-15得票数 1
回答已采纳
我尝试在某些列上运行VBA (例如: M、N、U、V...)根据值的范围设置值的格式。
我目前有：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("U:W")) Is Nothing Then
If Target.Value < -1000000 Then
Target.NumberFormat = "#,###.0,, ""M"""
ElseIf Target.
浏览 0提问于2018-08-11得票数 0
2回答
我试着在VBA中写两个If语句，但是给出了错误的答案。当我调试它时，它显示程序没有通过ElseIf，并继续执行第一个If的其他部分。
如何才能让两个If语句在彼此内部正常工作？代码：
If ConfigBox.Value <> ... Then
If ListBox1.Value = ... Then
DO SOMETHING
Else
DO SOMETHING
End If
ElseIf ListBox1.Value = ... Or ListBox1.Value = ... Then
DO
浏览 0提问于2016-05-06得票数 0
1回答
在VBA中If，ElseIf，Else函数有问题。
我的代码需要查找"Text1"，elseIf需要查找"Text2"，否则在日志文件中记录。
问题是，作为ElseIF的一部分，我似乎无法更改Find参数。
ElseIf Selection.Find.ClearFormatting
With Selection.Find
.Forward = False
.Text = "Text2"
End With
Selection.Find.Execu
浏览 2提问于2013-05-01得票数 2
回答已采纳
2回答
如何使用VBA在组合框中插入命名范围这里根据combobox1中的值我需要在combobox2中插入某些命名范围。其中，Def1m、Def2m等是命名范围
Private Sub Def_Change()
If combobox1.Value = "1 month" Then
Me.combobox2.RowSource = Def1m
ElseIf combobox1.Value = "2 month" Then
Me.combobox2.RowSource = Def2m
ElseIf combobox1.Value = "3 month"
浏览 3提问于2018-10-18得票数 0
我认为我的代码是好的，但它显示类型错配后，我运行它，有人能帮忙吗？(类型错配来自性别部分)
Sub tuitioncal()
Dim Name As String
Dim Gender As String
Dim LocalID As String
Dim CreditUD As Integer
Dim GenderAbb As String
Dim tuitionFee As Double
Dim uniFee As Double
Dim totalFee As Double
Name = InputBox("E
浏览 4提问于2020-04-21得票数 0
回答已采纳
请我想移动下一个日期总是添加到星期一，如果它落在星期六或星期日使用VBA宏。我不喜欢使用公式。下面的代码使添加的日期落在一周中的任何时间。非常感谢你的帮助，真的很感激。如果问题不清楚，请告诉我，我会尝试重新制定。再次感谢。
Private Sub Worksheet_Change(ByVal target As Range)
Dim d1 As Date, d2 As Date, d3 As Date
d1 = DateAdd("w", 1, Date)
d2 = DateAdd("w", 7, Date)
d3 = DateA
浏览 3提问于2017-07-18得票数 1
我有一些我认为可以很简单解决的问题。然而，由于我对VBA的了解非常少，我似乎无法使它发挥作用。
以下是我要做的事：
我想用单词错误、失败或传递重新排列单元格，使它们符合正确的列。实际上，我正在解析一个网页和数据变化的顺序。如果我能重新安排，让一切都适合，那么这将是完美的！
下面是我到目前为止掌握的代码：
Sub FindandcutPASS()
Dim rngA As Range
Dim cell As Range
Set rngA = Sheets("Sheet1").Range("H2:H1000")
For Each cell In rngA
浏览 3提问于2017-04-25得票数 0
回答已采纳
1回答
我试图根据从另一个单元格中选择的内容，在一个单元格中使用vlookup多个值。
我有下面的表格，我选择一个单一的“健身房”，“GymID”自动填充。然后，我使用下面的VBA允许我选择多个“健身房”，我也希望它显示给我多个“GymID”。
当前vlookup =VLOOKUP(M7，忽略！F1:G 300，2，FALSE)
用于多种选择的VBA代码
Private Sub Worksheet_Change(ByVal Target As Range)
'Code by Sumit Bansal from https://trumpexcel.com
' To Select
浏览 0提问于2017-10-02得票数 0
0回答
我将一个变量作为参数传递给VBA函数，但只引用了函数中的参数，而没有引用原始变量。原来的变量似乎正在被函数修改，这意味着它共享相同的地址空间？这里发生了什么?我如何防止它发生？
下面是函数：(单位、十、百和千是全局整数变量)
Function Components(qty As Integer, stringSize As Integer)
If qty < stringSize Then
units = qty
ElseIf qty >= stringSize * 100 Then
thousands = qty \ (stringSize * 100)
浏览 5提问于2017-06-02得票数 4
回答已采纳
下面是gist 上的类
我已经用不同的文件对它进行了多次测试，即使二进制搜索比较少，所花费的时间也总是更长。出什么问题了？
public static int linerSearch ( String array [], String word, long resultsArray [])
{
int comparisons = 0;
int pos = -1;
//i have started the timer where the search actualy starts
long start = System.nanoTime ();
for (
浏览 1提问于2012-05-06得票数 3
回答已采纳
1回答
我在VBA中有一个函数，可以根据指定的值-负数、正数和零-格式化单元格的内部颜色。
PositiveFillColor、NeutralFillColor和NegativeFillColor是读取输入到设置表单单元格的颜色的全局长变量。
我主要关心的是宏的速度(对于中等数量的数据，这似乎非常好)和工作簿大小(对于这样的数据量，3.5MB似乎太多了)。
也许在VBA中使用Excel条件格式是更好的做法？
Public Function FillColorByValue(ByVal RefNumber As Double) As Long
Dim FillColor As Long
If
浏览 0提问于2016-10-04得票数 0
我正在尝试设置下拉框的值，但它显示一个空白，甚至不是一个选项。
这是HTML -it：(注意:内部网站，所以我不能给出URL或太多)
<select id="entNo" name="entNo" style="width:75px">
<option selected="selected" value="All">All</option>
<option value="650101">650101</option>
<o
浏览 3提问于2016-03-09得票数 0
大家好，这是在excel中使用VBA的新手，我正在尝试创建一个函数，该函数可以查看数字并将其作为六位数返回。
我编写的函数试图实现这一点，如下所示，但是当我在一个单元格中使用=Res(A1)命令时，我只得到了一个#值！作为答案。
此时单元格1中的值是30508。
任何人都可以提供任何帮助来解决这个问题，我们将不胜感激。谢谢你们。
Function Res(myval As Integer) As Integer
Res = 0
If ((myval > 0) And (myval < 10)) Then
Res = myval * 100000
ElseIf
浏览 0提问于2012-09-06得票数 2
回答已采纳
2回答
我是VBA的新手，我不知道如何在subs之间使用变量。代码应该是自解释的：
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strWeapon As String
If Target.Address = "$I$8" Then
MsgBox "You pick up a sword"
strWeapon = "Sword"
ElseIf Target.Address = "$I$9" Then
MsgBox "You p
浏览 2提问于2016-12-01得票数 4
回答已采纳
3回答
我正在使用以下方法
Sub CopyDataByDay()
Dim data As Range
Dim today As Date
Set data = ThisWorkbook.Worksheets(1).Range("A1")
today = Date
If (Weekday(today) = vbMonday) Then
ThisWorkbook.Worksheets(1).Range("B1") = data.Value
ElseIf (Weekday(today) = vbTuesda
浏览 1提问于2016-09-03得票数 0
回答已采纳
1回答
select查询运行良好(access 2013)。一旦我将它更改为交叉表，它就会给出错误“条件表达式中的数据类型不匹配”。我使用交叉表值中的vba函数作为表达式。我的表中没有空值，并且尝试使用变量作为我的数据类型。
VBA
enter code here
'assumes that the rate is monthly
Public Function payFrequency(frequency As String, rate As Currency) As Currency
If frequency = "BI-WEEKLY" Then
payFreque
浏览 1提问于2015-10-19得票数 2
回答已采纳
2回答
我正在创建一个简单的事务报告页面，该页面接受输入的数据库数据并将其显示在HTML表中。我希望在单击表标题时能够按asc/desc顺序对客户端上的每一列进行排序，但我无法让我的函数工作。
<?php session_start();
include 'db.php';
include 'head.php';
$sql = "SELECT * FROM ach";
$result = $mysqli->query($sql);
echo "<div class='w3-row-padding w3-mar
浏览 1提问于2017-07-20得票数 1
我想写一个VBA，它可以改变以特定单词开头的单元格的颜色(“输入”、“错误”、“使用”、“充电号”)。“错误！输入与材料不匹配”。我对VBA很陌生，也尝试过不同的东西，但每次都被困住了，也会犯错误
“类型错配”。
到目前为止我得到的是：
Sub highlight()
Dim cell As Range
For Each cell In Range("D2:E2").EntireColumn
If cell.Value = "Enter" Then
浏览 2提问于2021-11-02得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
