www.zbgf.net > 想用ExCEl的vBA做一个sElECt CAsE 和 whilE 相嵌套...

想用ExCEl的vBA做一个sElECt CAsE 和 whilE 相嵌套...

程序代码如下: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "√"...

你一直检查到X,那么结果保存到Z吧,空一列,你可以修改为X,代码如下: Sub 宏1() dim i,j,r i=3 '从第三行开始 while cells(i,1)"" r="" for j=6 to 24 if cells(i,j)0 then r=r & chr(64+j) next j cells(i,"Z")=r i=i+1 wendEnd Sub

不明白你说的, 但你可以仿照下面的语法自己写 Case语句的语法如下: Select Case 测试表达式 Case Is 条件1 如果条件1为真时执行的语句 Case Is 条件2 如果条件2为真时执行的语句 Case Is 条件N 如果条件N为真时执行的语句 End Select 例如,我...

Select instr(Case Selection.Cells(1).Value,"圆形“) Case is 0

Case "January" 字符串要加半角双引号

如果是与的关系 嵌套判断,优先级高的放外层! Select Case 变量1 Case xxx Select Case 变量2 Case xxx Func End SelectEnd Select如果是或的关系 放Else里 Select Case 变量1 Case xxx Func Case Else Select Case 变量2 Case xxx Func End Sel...

sub test() Dim Conn As New ADODB.Connection Dim strConn As String Dim strSQL As String Dim rs As New ADODB.Recordset strConn = "Provider=sqloledb;Server=192.168.1.111;Database=db2014;Uid=用户名;Pwd=密码;" Conn.Open strConn Max_...

Select Case range("A1") Case Is = "" Case Is = "a" MsgBox "Y" End Select 以上代码表示如果A1为空时不进行任何操作,A1=a时,提示"Y"

SUBTOTAL函数是功能强大的分类汇总统计函数,有两个参数,第一个为1到11或101到111的数字,第二个为数据区域。 SUBTOTAL函数因为其第一个参数的从1、2、3.。。。11变化而功能依次为:算术平均值函数、数值计数函数、非空单元格计数函数、最大值...

Sub 基础数据更新() '基础数据更新' Application.ScreenUpdating = fale Workbooks.Open Filename:="基础数据.xlsx" '清单' Windows("基础数据.xlsx").Activate Sheets("清单")..Select arr=ActiveSheet.Range("A2:v10240").value Windows("模板...

网站地图

All rights reserved Powered by www.zbgf.net

copyright ©right 2010-2021。
www.zbgf.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com