VBA脚本的if-else

2016-09-29 64 views -3 likes

-3

我的专栏看起来像这些为列G：VBA脚本的if-else

G列
完成
完成
在进步
未启动
完成

我需要一个If-Else脚本将所有Complete值转换为“Y”，否则转换为“N”。
有人可以帮助我吗？

2016-09-29 Sahl1991

从这里开始：http://msdn.microsoft.com/en-us/library/office/jj692812(v=office.15).aspx和specificaly中，[如果...那么...否则]（https://msdn.microsoft.com/en-us/library/office/gg251599.aspx ）文件。 –

你能否澄清你的问题？ – Animesh

欢迎来到Stack Overflow。你想要一个脚本或公式？因为这可以通过像= = If（G1 =“Complete”;“Y”;“N”）这样的公式来解决，例如将H粘贴到单独的列中，然后拖动到表格的末尾。如果你想要一个代码，告诉我们你已经拥有了什么，然后我们可以帮你解决问题 –

回答

你需要学习VBA脚本的三个基本元素。

回路参数 - 取（开始>结束）
行动（善有善报环内）

迭代（你如何移动到循环的下一条记录，避免无限循环）

Sub MarkComplete() 

'Select first cell 
Range("G2").Select 

'Loop until no more values 
While ActiveCell.Value <> "" 

    'Print appropriate value 
    If ActiveCell.Value = "Complete" Then 

     ActiveCell.Value = "Y" 

    Else 

     ActiveCell.Value = "N" 

    End If 

    'Move to next cell 
    ActiveCell.Offset(1, 0).Select 

Wend 

End Sub

来源

2016-11-04 18:51:22

VBA脚本的if-else

回答

相关问题