Question

excel 中VB关于if的用法

我在excel中的C1-C100列有一定的字符串，我现在想根据C列的字符串来自动填写D列，例如：
C D
1 ab
2 cd
3 1a
4 mp3
5 12
这时，如果C列中，出现了cd那么在后面的D列就自动填写“光盘”，如果是出现了mp3，后面的D列就填写“数码”，12就自动填写“one”
这样子的，不知道谁可以帮忙搞搞呢

Answer 1

excel 中VB关于if的用法如下：

if语句的含义

  if语句字面意思就是如果的意思，如果条件为真，那么就执行if语句里面的程序，这个程序，一般指then后面的，一个if语句可以没有end if ，但绝对不能没有then，这一点是要注意的，

if……then……结构

   该结构一般用于比较简单的判断语句执行，下面以一段实例程序来讲解

实例：如果第一个单元格不为空，那么就弹出一个提示框”单元格不为空“

程序：  

Sub 判断语句()

If Cells(1, 1) <> "" Then MsgBox "单元格不为空"

End Sub

if……then……end if结构

   该结构用于单选择判断语句执行，具体用法看下面实例

实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出”VBA教研室“

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 100

 If Cells(i, 1) = "" Then

    Cells(i, 2) = "VBA教研室"

    Exit For

 End If

Next

End Sub

if ……then……else……end if结构

  该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析

实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出false，否则输出Ture

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 2

 If Cells(i, 1) = "" Then

    Cells(i, 2) = "false"

 Else

    Cells(i, 2) = "True"

 End If

Next

End Sub

Answer 2

=if(c1="cd","光盘",if(c1="mp3","数码",if(c1=12,"one","")))

ksks呵呵，看错了，不过删不了就留着吧，教育下一位。

Answer 3

打开EXCEL表
按ALT+F11
从左边栏双击你要操作的表比如SHEET
复制以下代码
Sub yx()
For i = 1 To 100
If Cells(i, 3) = "mp3" Then Cells(i, 4) = "数码"
If Cells(i, 3) = "cd" Then Cells(i, 4) = "光盘"
If Cells(i, 3) = "12" Then Cells(i, 4) = "one"
Next
End Sub
运行就是。工具栏有个倒三角，点一下就行了

Answer 4

在D1输入：
=IF(C1="","",IF(C1="cd","光盘",IF(C1="mp3","数码",IF(C1="12","one",""))))
向下拖到D100

Answer 5

Sub aa()
For i = 1 To 100
If Cells(i, 4) = "cd" Then Cells(i, 5) = "光盘"
If Cells(i, 4) = "mp3" Then Cells(i, 5) = "数码"
If Cells(i, 4) = "12" Then Cells(i, 5) = "one"
Next
End Sub