excel里的VB语法if

分类:Excel操作手册浏览量:3234发布于:2021-06-14 19:12:04

excel里的VB语法if

if not worksheets("sheet2").range("g:g").find("到期项") is nothing then msgbox "有到期", vbokonly, "提示" end if

有多种表示法,比如要代表A列:range("A":A")[A:A]columns("A")

看到有两个错误.一,自定义函数声明错误,前面怎么还有个 Sub 的程序声明?Public Function ff(x,y As Range)'代码内容End Function二,单元格引用格式错误IF . then ff=11.5*range("D9") 或这种格式 [D9]*11.5

最简单的来两句,不明白请追问~~~FOR的用法是这样的:FOR I=1 TO N语句NEXT I这样的功能是,使里面的 语句 运行N次,每次I的值都不同,分别是1~N,用来完成固定次数的重复.IF的用法是这样的:IF 条件 THEN.语句1.ELSE语句2END IF这样的功能是判断条件是否满足,如果满足就执行 语句1,否则执行 语句2以上例子中的语句、语句1、语句2都可以是一个或者多个语句,往往是一段.

全部转换为大写 MsgBox StrConv(strInfo, vbUpperCase) 或者UCase和LCase来转换 小写:97-122 大写:65-90 用ASC和CHR函数来取字符和字符代码循环比较就可以了 网上查到这些,我对VBA也是半桶水的,希望这能帮到你一点点了!我不会引用ASC码,应该有ASC码代替“OK”字符应该就行了!

Function Bonus(performance, salary) If performance = 1 Then Bonus = salary * 0.1 ElseIf performance = 2 Then Bonus = salary * 0.09 ElseIf performance = 3 Then Bonus = salary * 0.07 Else Bonus = 0 End IfEnd Function请参考,if和then之前是条件,Bonus = salary * 0.1为符合条件下的操作

1. 函数中的if语句=if(条件,符合条件结果,不符合条件结果).2. VBA中也有一个同样的函数,为了跟函数的if区分,vba中的名称为iif,使用方法与函数完全一致,iif(条件,符合条件结果,不符合条件结果).3. VBA中另外一种if表达方式更为常用,格式为 if 条件 then 执行结果或者 if 条件 then 结果一 结果二 else if 条件 结果 end if4. VBA中的if语句常用来与for..next循环搭配使用,亦可用do whileLoop语句代替.

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

Dim i%, a% a = Sheets("source data from 201010 to (2)").Range("h1").CurrentRegion.Rows.Count For i = 2 To a If Cells(i, 6).Value = "NB" Then Cells(i, 1) = Cells(i, 6).Value Cells(i, 2) = Cells(i, 7).Value Cells(i, 3) = Cells(i, 8).Value END IF Next i 没有加END IF朋友!

Private Sub Worksheet_Activate() Dim D As Date Dim y As String Dim Arr Dim R As For i = 1 To UBound(Arr) If Arr(i, 1) <> "" And Arr(i, 2) <> "" Then y = y & Chr(10)