小编jcv*_*jcv的帖子

我正在尝试将字符串内容删除到字符串中包含的某个单词.例如

"Emily has wild flowers. They are red and blue."

我想使用VBA来替换它

"They are red and blue."

即删除所有内容直到单词"他们".我不知道字符串内容和其中包含的字符数.

我不知道该怎么做,我真的很感谢你的帮助!

按下我的CommandButton后,我想要一个弹出窗口,询问"这些更改无法撤消.建议在继续之前保存副本.是否要继续？"

我想有三个选择:

1. 是 - 关闭弹出窗口并执行CommandButton宏
2. 否 - 这会关闭弹出窗口并且不会更改任何内容
3. 保存 - 关闭弹出窗口并打开"另存为"(未执行宏)

我真的不知道从哪里开始.你能帮我个忙吗？

非常感谢你.

我希望有一个代码可以取消工作簿中所有工作表的所有名为"CheckBox1"的复选框.遗憾的是,我当前的代码不起作用,我不知道为什么 - 它只适用于活动表.

Private Sub CommandButton1_Click()

    Dim Sheet As Worksheet
    For Each Sheet In ThisWorkbook.Worksheets

        Select Case CheckBox1.Value
        Case True: CheckBox1.Value = False
        End Select  
    Next
End Sub

我正在尝试将工作表函数“left”与“find”结合使用来确定 VBA 中的字符串变量。但是，excel将find函数解释为VBA函数，在解析时会产生错误信息。

在我的代码下面：

...
Else
    MSa = MSa & Left(Range("D22"), Find(".", Range("D22")) - 1) & " " & Range("D25").Value & "."
    Range("Q7").Value = MSa
End If
...

其中 MSa 是一个字符串。你能告诉我如何最好地解决这个问题吗？

提前谢谢了。