Question

excel中如何编辑这段vb

如果在A1输入a，B1显示1。
A1输入aa，C1显示1。
A1输入aaa，D1显示1。
如果在A1输入a aa或a，aa或a/aa（就是能后同时识别出有“a”“aa”，不管空格分开，逗号分开，斜杠号分开或其他形式分开，取一种形式），B1、C1同时显示1。
总之，语句就是要判断A1是否有“a”“aa”“aaa”，然后跟之相应的B1、C1、D1要显示1。

Answer 1

我说下核心代码，外围的你自己先写写看。
s=cells（“A1”）
if instr（“aaa”）then cells（“D1”）=1：s=replace（s，“aaa”）
if instr（“aa”）then cells（“C1”）=1：s=replace（s，“aa”）
if instr（“a”）then cells（“B1”）=1：s=replace（s，“a”）

追问

不会，大哥，能帮忙写下吗？我追分给你

追答

你是用excel里面的vba在写，还是用vb6在写？

追问

excel

追答

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        s = Range("A1")
        If InStr(s, "aaa") Then
            Range("D1") = 1
            s = Replace(s, "aaa", "")
        Else
            Range("D1") = ""
        End If
        If InStr(s, "aa") Then
            Range("C1") = 1
            s = Replace(s, "aa", "")
        Else
            Range("C1") = ""
        End If
        If InStr(s, "a") Then
            Range("B1") = 1
            s = Replace(s, "a", "")
        Else
            Range("B1") = ""
        End If
    End If
End Sub

追问

感谢