Question

我的工作表基本上是一个日历，我在其中添加了某些任务。现在我想excel在单元格下面添加某个文本，如果我在这个单元格中输入某个文本。

E.g。如果我写了＃34;评估＆＃34;在单元格A1中，文本＆＃34;人员＆＃34;将出现在单元格A2中。但是，如果我写了＃34;评估＆＃34;在单元格B1中，文本＆＃34;人员＆＃34;会出现在B2等等。此外，我也可能写＆＃34;评估＆＃34;在一个以上的单元格中插入＆＃34; Personnel＆＃34;应该适用于所有这些细胞。

因为它在我输入文本时完全可变（＆＃34;评估＆＃34;）并且所有其他单元格也需要是免费的，我不能用基本的Excel公式来做。因此，我认为，VBA是唯一的出路。

不幸的是，我对VBA的经验不多，所以如果你能帮助我，我会很高兴。

Answer 1

将其放在工作表的私人代码表中。

private sub worksheet_change(byval target as range)
    application.enableevents = false
    dim t as range
    for each t in intersect(target, target.parent.usedrange)
        if lcase(t.value2) = "evaluation" then
            t = "Evaluation"
            t.offset(1, 0) = "Personnel"
        end if
    next t
meh:
    application.enableevents = true
end sub

VBA根据cell1中的文本在cell1下面插入文本（文本/单元格变量;范围内）

1 个答案: