Excel VBAcheckbox英文和法文

我有一个Excel文件需要处理checkbox。 checkbox的名称是用法语自动定义的（由于我的安装是法语的）。 例如“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) 

我似乎无法find重命名checkbox的名称的方法。

Answer 1

检查区域设置，然后决定使用哪一个。

尝试这个

 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