我有一个 Excel 文件需要处理复选框。复选框的名称自动用法语定义(因为我的安装是法语)。例如“Case à cocher 100”而不是“Checkbox 100”。
但是,当我们的兄弟公司使用这个 Excel 文件时,由于安装的是英文,所以崩溃了。
有没有办法使以下内容适用于英语和法语?
ActiveSheet.CheckBoxes("Case à cocher 488").Interior.Color = RGB(255, 255, 255)
ActiveSheet.CheckBoxes("Case à cocher 383").Interior.Color = RGB(255, 255, 255)
ActiveSheet.CheckBoxes("Case à cocher 467").Interior.Color = RGB(255, 255, 255)
ActiveSheet.CheckBoxes("Case à cocher 461").Interior.Color = RGB(255, 255, 255)
ActiveSheet.CheckBoxes("Case à cocher 460").Interior.Color = RGB(255, 255, 255)
ActiveSheet.CheckBoxes("Case à cocher 459").Interior.Color = RGB(255, 255, 255)
ActiveSheet.CheckBoxes("Case à cocher 458").Interior.Color = RGB(255, 255, 255)
ActiveSheet.CheckBoxes("Case à cocher 8").Interior.Color = RGB(255, 255, 255)
我似乎找不到重命名复选框名称的方法。
最佳答案
检查区域设置,然后决定使用哪一个。
试试这个
Sub Sample()
Dim CBNAME As String
Select Case Application.International(XlApplicationInternational.xlCountryCode)
Case 1 '<~~ English
CBNAME = "CheckBox"
Case 33 '<~~ French
CBNAME = "Case à cocher"
End Select
ActiveSheet.CheckBoxes(CBNAME & " 488").Interior.Color = RGB(255, 255, 255)
End Sub
关于vba - Excel VBA 复选框英语与法语,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44331737/