怎样简化多个并列的if语句

lpzxhjp

1. If Left(MyNamea, 3) = "xls" Then
   
2.                     Cells(i, 2) = "Excel文件"
   
3.                 ElseIf Left(MyNamea, 3) = "doc" Then
   
4.                     Cells(i, 2) = "Word文件"
   
5.                 ElseIf Left(MyNamea, 3) = "ppt" Then
   
6.                     Cells(i, 2) = "Powerpoint文件"
   
7.                 ElseIf Left(MyNamea, 3) = "rar" Then
   
8.                     Cells(i, 2) = "Rar压缩文件"
   
9.                 ElseIf Left(MyNamea, 3) = "zip" Then
   
10.                     Cells(i, 2) = "Zip压缩文件"
    
11.                 ElseIf Left(MyNamea, 3) = "jpg" Then
    
12.                     Cells(i, 2) = "Jpg图片"
    
13.                 ElseIf Left(MyNamea, 3) = "png" Then
    
14.                     Cells(i, 2) = "Png图片"
    
15.                 ElseIf Left(MyNamea, 3) = "jpeg" Then
    
16.                     Cells(i, 2) = "Jpeg图片"
    
17.                 ElseIf Left(MyNamea, 3) = "bmp" Then
    
18.                     Cells(i, 2) = "Bmp图片"
    
19.                 ElseIf Left(MyNamea, 3) = "gif" Then
    
20.                     Cells(i, 2) = "Gif图片"
    
21.                 ElseIf Left(MyNamea, 3) = "cdr" Then
    
22.                     Cells(i, 2) = "Cdr文件"
    
23.                 ElseIf Left(MyNamea, 3) = "psd" Then
    
24.                     Cells(i, 2) = "Photoshop文件"
    
25.                 ElseIf Left(MyNamea, 2) = "ai" Then
    
26.                     Cells(i, 2) = "AI文件"
    
27.                 Else

复制代码

怎样简化上面这样累赘的if语句，谢谢！

jsgj2023

这种要简化的还是用字典吧!

lpzxhjp

jsgj2023 发表于 2017-11-23 16:27
这种要简化的还是用字典吧!

字典很少用不太懂，请你示例一下？

jsgj2023

传你的附件看看!

zhjlgaojuan

为什么不用select case?

lpzxhjp

zhjlgaojuan 发表于 2017-11-23 16:52
为什么不用select case?

还是语句太长

liulang0808

建议：将文件扩展名及对应文件类型的说明存入一个二维数组，或者保存到表格某个区域
之后直接读入字典，也可以使用find函数，在表内查找

doitbest

ar=array("xls","excel","doc","word","ppt","Powerpoint")
col=application.match(Left(MyNamea, 3),ar,0)
Cells(i, 2) = ar(col+1)