ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   New Users to Excel (https://www.excelbanter.com/new-users-excel/)
-   -   MS Excel 2010 uses Russian for "Sheet" in new workbook (https://www.excelbanter.com/new-users-excel/454720-ms-excel-2010-uses-russian-sheet-new-workbook.html)

Richard Watt

MS Excel 2010 uses Russian for "Sheet" in new workbook
 
Hi,

I use Excel 2010 on a Windows 7 Home 64-bit system with the Russian language pack installed (my wife is Russian and also uses this computer).

When I create a new spreadsheet from Windows Explorer using File New Excel spreadsheet (or from the context menu), the spreadsheet has the tabs named in Russia, so instead of "Sheet", it uses "List".

I have UK English, US English and Russian installed according to the File Options Languages settings, with UK English set as the default language and keyboard (the US English and Russian keyboards aren't enabled, just the spelling and grammar rules for these).

Windows is set to use United Kingdom as its location in the Region and Language applet in the Control Panel.

Does anyone know how I can correct this behaviour please?

Best regards,
Richard Watt

jerry_maguire

Here's a VBA workaround
 
Sub SetLanguageFormat()

'Declarations
Dim cell As Range
Dim f As String
Const LCID As String = "[$-0409]"
Dim reg 'As RegExp 'Removed for late binding

'Setup regular expression
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.IgnoreCase = True
reg.Pattern = "\[\$\-+[\w]*[\w]\]"

'Loop through all cells and change the date formate
For Each cell In ActiveSheet.UsedRange.Cells
If IsDate(cell.Value) Then
f = cell.NumberFormat
If reg.Execute(f).Count 0 Then
'Language is set so replace it
f = reg.Replace(f, LCID)
Else
'Langauge is not set so add it
f = LCID & f
End If
cell.NumberFormat = f
End If
Next

End Sub

Let me know if this was useful.

Regards,
Jerry


All times are GMT +1. The time now is 02:15 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com