vba case 多条件判断 vba多条件判断语句

VB中Case是什么意思

要用VBA数组

Select case a

vba case 多条件判断 vba多条件判断语句

vba case 多条件判断 vba多条件判断语句

.... '代码

End Subcase 2

case else

end select

意思就是判断a是什么内容。然后根据不同内容执行不同的代码

其实case是一个 执行命令

在得到 XX命令的入口后

就顺序执行每个 case后面的语句 除非后面有 结束该顺序的语句出现

否则就顺着执行

当遇到结束的 就跳出整个入口

往下执行

Excel Vba编程，为什么没有执行正确的case。 但是通过IF判断是相等的

Cells(i, 6) = "顺子"

Select Case CoulmnWord

Case ThisWorkbook.Sheets("作表1").Range("C1").TextCells(i, 6) = "豹子" '格式错CoulmnWord = 不用写

WbGoal.Sheets(GoalSheet).Range("" & CoulmnWord & GoalBeginRow + RowInt - SourceBeginRow & "").Text = ThisWorkbook.Sheets("作表1").Range("B1").Text

Case

End Select

VBA case 下多个语句，怎么实现？ select case true case s like "send" num=5

一般写2个 FOR 循环，6万多条数据,就很慢了

s="dsafljsa send asdfals"

条件公式:

num=5

name=10

elseif s like "bend" then

num=6

name=15

end if

case 不支持like

EXCEL根据条件判断几个单元格的数值所代表的属性，if语句或者vba都可以，跪求大神帮忙！

MsgBox "Y"

=IF(LARGE(A2:C2,1)=SMALL(A2:C2,1),"豹子",IF(OR(LARGE(A2:C2,1)=LARGE(A2:C2,2),SMALL(A2:C2,1)=SMALL(A2:C2,2)),"对子",IF(OR(LARGE(A2:C2,1)-AVERAGE(A2:C2)=1,AND(LARGE(A2:C2,1)=9,LARGE(A2:C2,2)=1,SMALL(A2:C2,1)=0)),"顺子",IF(OR(LARGE(A2:C2,1)-LARGE(A2:C2,2)=1,SMALL(A2:C2,2)-SMALL(A2:C2,1)=1),"半顺","杂六"))))

一般写2个 FOR 循环，6万多条数据,就很慢了

用公式几乎不大可能实现，就算用VBA也很复杂的，你在买排列5吗？

如下模块实现前三的统计，跑跑看，

Sub jisuan()

For i = 2 To Application.CountA(Range("a:a"))

a = Cells(i, 1)

b = Cells(i, 2)

c = Cells(i, 3)

d = Cells(i, 4)

e = Cells(i, 5)

c3 = a & b & c

If a = b And b = c Then

ElseIf Not IsError(Application.Find("0", c3)) And Not IsError(Application.Find("1", c3)) And Not IsError(Application.Find("9", c3)) Then

ElseIf Not IsError(Application.Find("0", c3)) And Not IsError(Application.Find("9", c3)) And Not IsError(Application.Find("8", c3)) Then

ElseIf a = b Or a = c Or b = c Then

Cells(i, 6) = "对子"

ElseIf a = b + 1 Or a = c + 1 Or b = a + 1 Or b = c + 1 Or c = a + 1 Or c = b + 1 Or (Not IsError(Application.Find("0", c3)) And Not IsError(Application.Find("1", c3))) Or (Not IsError(Application.Find("0", c3)) And Not IsError(Application.Find("9", c3))) Then

Cells(i, 6) = "半顺"

Else

Cells(i, 6) = "杂六"

End If

Next

你这肯定不是纯学术研究。

这么多奇怪的问题要解决，要多请几张毛老人家了

excel中用vba条件判断填入相应值？

case 1 '如果A等于1执行代码

全选C列——CTRL+G——定位条件：空值，这时候注意看哪个单元格处在激活状态，设是C2，在编辑栏里输入 =C1，然后CTRL+Enter齐按。

case 判断语句

在excel VBA如何判断自动筛选的参数？

msgbox n

楼主只是要用ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("B1:B5"), _VBA来根据条件来提取数据吧？

for x=1 to ragne("A65536").end(xlup).row

if cells(x,1)=你要求的条件1 and cells(x,3)=你要求条件2 then

i=i+1

cells(x,1).resize(1,10).copy sheet2.range("A"&i).resize(1,10)

end if

next x

这样就把选出来的数据拷贝到sheet2工作表中依次往下排列了。

excel中if如何实现多个条件的判断？

这两种方式，可以实现相同的功能。简单Case函数的`写法相对比较简洁，但是和Case搜索函数相比，功能方面会有些限制，比如写判断式。

在excel表格中用if公式实现如下：

自己研究if语句吧，多个if嵌套。

=IF(OR(A1="",B1=""),"",IF(AND(A1=1,B1=0),2,IF(AND(A1=0,B1=1),1,"无解")))

注:if(or(A1=“”，B1=“”)，“”，计算式)用来排除单元格内空值计算成逻辑0，造成误计算

函数:

And(条件1，条件2)返回Ture/False

if(条件，Ture返回值，False返回值)

扩展如下：

1、Excel 是 Microsoft Off 中的电子表格程序。您可以使用 Excel 创建工作簿（电子表格）并设置工作簿格式，以便分析数据和做出更明智的业务决策。特别是，您可以使用 Excel 跟踪数据，生成数据分析模型，编写公式以对数据进行计算，以多种方式数据，并以各种具有专业外观的图表来显示数据。简而言之：Excel是用来更方便处理数据的办公软件[1]。

2、Excel 的一般用途包括：会计专用、预算、帐单和销售、报表、跟踪 、使用日历等

3、Excel中大量的公式函数可以应用选择，使用Microsoft Excel可以执行计算，分析信息并管理电子表格或网页中的数据信息列表与数据资料图表制作，可以实现许多方便的功能，带给使用者方便。

与其配套组合的有：Word、PowerPoint、Access、InfoPath及Outlook,Publisher

4、Excel2013、2010、2007和老一点的Excel2003较为多见，Excel2002版本用的不是很多。比Excel2000老的版本很少见了。的版本增添了许多功能。使Excel功能更为强大。

5、Excel2003支持VBA编程，VBA是Visual Basic For Application的简写形式。VBA的使用可以达成执行特定功能或是重复性高的作。

casewhenthenelse多个条件

...

WHEN 条件1 THEN 结果1

WHEN 条件2 THEN 结果2

WHEN 条件3 THEN 结果3

WHEN 条件4 THEN 结果4

.........

WHEN 条件N THEN 结果N

ELSE 结果X

END 扩展资料 Case具有两种格式。简单Case函数和Case搜索函数。

CASE

WHEN '1' THEN '男'

WHEN '2' THEN '女'

ELSE '其他' END

--Case搜索函数

CASE WHEN = '1' THEN '男'

WHEN = '2' THEN '女'

ELSE '其他' END

例如：

SELECT id, name, cj, (CASE WHEN cj 60 THEN '不及格' WHEN cj BETWEEN 60 AND 90 THEN '良好' WHEN cj > 90 THEN '' END) AS 状态

FROM stud

--比如说，下面这段SQSelection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _L，你永远无法得到“第二类”这个结果

CASE WHEN col_1 IN ( 'a', 'b') THEN '类'

WHEN col_1 IN ('a') THEN '第二类'

ELSE'其他' END

Excel VBA使用

为什么用VBA，用基础作都可以搞定。

如果A,B单元格所有只有你列举出的话

if s like "send" then

VBA里面用IF或者select case再加个循环就可以了

如果不止这么几项的话你就要重新描述你的逻辑了

同一个单元格输出的话，用，不同的单元格输出的话，可以用按钮。

求excel vba如何实现如下多条件、不同列条件的排序。

比如：

如果没有标题行的话，单击数据区域，点击数据——排序——主要关键字里选 列B——次要关键字选 列C，选无标题行——确定。

Sub Macro2()

'' Macro2 Macro

''

ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("C1:C5"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Sheet2").Sort

.SetRange Range("A1:C5")

.Header = xRange("A1:C5").SelectlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMod = xlPinYin

.Apply

End With

Sub Macro1()

'' Macro1 Macro

' 宏由 yzvvj 录制，时间: 2012/9/8

''

Range("A1:C9").Select

' Range("B1").Activate

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMod _

:=xlPinYin, DataOption1:=xlSortNormal