www.zbgf.net > 在ExCEl中是否有类似vB中"Do CAsE"的语句,用来处...

在ExCEl中是否有类似vB中"Do CAsE"的语句,用来处...

excel的vba中也有select case语句. 如果你说的"语句"是指公式的话,choose,vlookup,index+match也许可以解决你的问题.

select case [A1] case 1 [B1] = * case 2 [B1] =..... case ..... end select 你在讲程序还是讲 Excel 公式? 公式: =choose(A1,第一个值,第二个值,第三个值。。。。。。) =choose(A1,"A","B","C","D","E","F"......) 你讲的是 =1 2 3 4 5 ...

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

If [a1] - [b1] < 100 Then [c1] = [a1] + 1 [d1] = [b1] - 1 While [c1] - [d1] < 100 [c1] = [c1] + 1 [d1] = [d1] - 1 Wend End If

Private Sub Form_Load() Dim oexcel, oworkbooks, newbook, newsheet, s As String Set oexcel = CreateObject("Excel.application") Set oworkbooks = oexcel.workbooks Set newbook = oworkbooks.open("c:\Allsales.xls") Set newsheet = new...

如果是打开Excel文件就自动运行宏,那么,可以在ThisWorkBook里面,在WorkBook_Open事件里面加入代码,这样启动Excel文件即可自动运行宏。或者在模块里面使用Auto_Open事件,也可以自动运行宏。 如果是在Excel使用过程中使用宏,就必须根据你的...

sub main() if cells(1,"A").value="中国" then cells(1,"B")="111" if cells(1,"A").value="美国" then cells(1,"B")="1123" end sub 以此为例,在Excel中调用VBA程序的操作步骤如下(Excel2007为例): 1.选择”开发工具“选项卡,点击”Visual B...

VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。 2、在通用对...

核心步骤:1,讲两张数据表放进同一个excel文件内,可以在同一个sheet或者不同sheet。选择对应的数据区域,右键,“定义名称”。说明:这里,数据的第一行是列名,定义的名字,是表名。2、选择“数据”——“其他来源”——“来自Microsoft Query”。3、选择...

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

网站地图

All rights reserved Powered by www.zbgf.net

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