选择 Excel 单元格的一部分（未完成单元格）并通过运行宏将其转换为大写

Question

选择 Excel 单元格的一部分（未完成单元格）并通过运行宏将其转换为大写。

我有一段代码可以将选定的单元格或选定的单元格范围转换为大写，但我的要求是，选择将是单元格的一部分（子字符串），如果我执行，它应该转换为大写宏。

例如，我有一个值为“感谢帮助”的单元格

现在我的代码是：

Convert_To_Upper()
Selection.value = UCase(Selection.Value)
end Sub

如果用户选择单元格并运行宏，单元格将更改为“感谢帮助”

现在我的要求是..

如果用户只从单元格中选择“帮助”并运行宏单元格，则应将宏单元格更改为“感谢帮助”

有没有可能做到这一点？

Answer 1

简而言之：不，做不到。

一种修复它的极其丑陋的黑客如下：

让用户选择文本并按 CTRL+C 将其复制到剪贴板，然后运行宏。

从剪贴板拉取字符串到一个变量（你必须添加 MSForms 参考）

'Clipboard -> variable S
Dim DataObj As New MSForms.DataObject
Dim S As String
DataObj.GetFromClipboard
S = DataObj.GetText

使用某种差异或正则表达式从单元格中的文本中删除它，将其转换为大写并将其与单元格连接。

它可以完成，但这并不是最佳实践...

Answer 2

您可以在具有 MID 的单元格中选择部分字符串

Dim var As String
var = Mid(ActiveCell.Text, 1, 10)

Mid(string, start, 你想要的字符数)

编辑：

因此，用户需要选择要更改的字符数：

'Throw up a popup box
numbVar= InputBox(Prompt:="Please input how many characters to turn into UPPER", _
          Title:="Anything goes here", Default:="Enter number here")

' Exit if cancel is pressed
If numbVar= "" Then Exit Sub

然后用 numbVar 代替 10

Answer 3

试试这个：

Private Sub test()

    ' n is the number of letter you want to have to upper case
    n = 2

    Cells(1, 1) = UCase(Left(Cells(1, 1), n)) + Mid(Cells(1, 1), n + 1)

End Sub

UCase(string) = 将字符串转换为大写

Left(string, int) = 从左边开始取字符串的第一个 int 字符

Cells(x,y) = 返回位置 (x,y) 的 Cell

Mid(string, int) = 返回从 int 位置的字符开始的字符串内容