nbcj.net
当前位置:首页 >> ExCElVBA,iF语句学习问题,我想学习iF语句,并列... >>

ExCElVBA,iF语句学习问题,我想学习iF语句,并列...

并列两个条件中间用and隔开即可。 如果是或的关系,用or隔开。如果是“与”的话,用and。

IF语句的语法: If 条件判断语句1 Then 处理语句AElseIf 条件判断语句2 Then 处理语句BElse 处理语句CEnd If其中,条件判断语句需要使用判断符,常用的判断符有“==”(相等)、“>”(大于)、“>=”(大于等于)、“

给你个简单的,代码可以复制图下边的。复杂的需要静下心来好好学习,网上很多教程。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [B1] < 8 Then [C1] = "小" Else If [B1] = 8 Then [C1] = "中" Else [C1] = "大" End If ...

第一个问题:1.新建一个表2,把整个表1,都复制过去,如果是这样一个需求,不如直接把表1复制一份,改名称为表2岂不更好?代码如下: Sub test() Sheet1.Copy after:=Sheets("Sheet1") ActiveSheet.Name = "表2"End Sub第二个问题:新建一个表2...

If 条件1 Then 处理 ElseIf 条件2 Then 处理 Else 处理 End If 条件与条件之间可以用 "And, Or, Not" 等。 判断符可以用 "=,,=," 等。

可以用if elseif else,也可以用select case,示例代码如下: (1)if elseif; Sub if_sample() Dim i As Integer For i = 1 To 300 If i = 1 Then Debug.Print "i值等于1" ElseIf i = 20 Then Debug.Print "i值等于20" ElseIf i = 40 Then Deb...

if cells(6,2)=1 then cells(7,3)=cells(7,8) elseif cells(6,2)=2 then cells(7,3)=cells(8,8) elseif cells(6,2)=3 then cells(7,3)=cells(9,8) endif 注意 cells(i,j) i表示第多少行,j表示第多少列 比如c7 表示的是第7行,第3列的单元

Sub 名称匹配() Dim x As Integer, y As Integer For x = 2 To 201 For y = 2 To 201 If Cells(x, 2) & Cells(x, 3) & Cells(x, 4) = Cells(y, 7) & Cells(y, 8) & Cells(y, 9) Then Cells(x, 1) = Cells(y, 6) Next y Next xEnd Sub

最简单的来两句,不明白请追问~~~ FOR的用法是这样的: FOR I=1 TO N ......语句...... NEXT I 这样的功能是,使里面的 语句 运行N次,每次I的值都不同,分别是1~N,用来完成固定次数的重复。 IF的用法是这样的: IF 条件 THEN .......语句1.......

Sub s() Dim i&, t$ i = 1 t = Cells(i, 1).Text Do While t "" If InStr(t, "市") Then Cells(i, 2) = 1 ElseIf InStr(t, "省") Then Cells(i, 2) = 2 Else Cells(i, 2) = 0 End If i = i + 1 t = Cells(i, 1).Text LoopEnd Sub

网站首页 | 网站地图
All rights reserved Powered by www.nbcj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com