Tag: 语言翻译

excel vba中的分隔符和单词postioning

什么Excel VBA代码可以颠倒一个单元格中的两个单词的位置，如果它们被一个空格分隔，如下所示： "Broom eletric" 至 "Eletric broom" 不要用“，”来区分单词，就像这样： "Broom, eletric" '(this one remains as it is) 如果一个单元格中有很多单词，它会将这些规则应用于所有单元格，如下所示： "Broom eletric, eraser, documents, part computer" 至 "Eletric broom, eraser, documents, computer part" 另外：分隔符应该是“，”和“和”

在语言翻译代码修复VBA的情况

我的翻译代码不工作，因为我想…它应该只在单元格的第一个单词中执行Propercase，但它是在单元格中的所有单词中进行正确的操作。 任何想法如何使它翻译和只使用适当的activecell中的第一个单词？ 这里是代码： Sub traducaobeta2() Dim translate As Object 'scritping.Dictionary Set translate = CreateObject("Scripting.Dictionary") translate("cadeira") = "chair" translate("cadeira,") = "chair" translate("cadeiras") = "chairs" translate("criado mudo") = "night stand" translate("criado-mudo") = "night stand" translate("mesa") = "table" translate("mesas") = "tables" translate("e") = "and" ' the list goes on… Dim Words As Variant Dim I As Integer Words […]

VBA Excel – 将stringvariables作为一行代码运行

为了允许来自不同国家的用户使用我的应用程序，我想在应用程序的开始初始化每个现有用户表单（标签，命令button，msgbox，框架等）中每个对象的翻译。 我将在我的Languages表中写下所有的翻译： 我已经做了第一个用户表单，用户input他的login名，密码并select他的语言。 在这一步之后，将会启动名为“菜单”的主要用户表单。 我已经试过在一个msgbox中input一段代码（在这里下面）来查找代码行，例如： menu.commandbutton1.caption="Envoyer email" ） Private Sub UserForm_Initialize() ' Definition of language selected during login Set langue = Sheets("Languages").Cells.Find("chosen", lookat:=xlWhole).Offset(-1, 0) ' Initialisation of the texts in the selected language Dim cel As Range Dim action As String For Each cel In Sheets("Languages").Range("d3:d999") If cel <> "" Then action = cel & […]