Собственно есть файл. В нем есть одна строка, заполнив которую мы получим необходимые нам данные для написания протокола, не суть.
Заполнение формы производится двумя макросами.
Первый
Запускается при запуске файла. Второй
Запускается с кнопки.
В обоих случаях при нажатии децимальной запятой, которая работает при нажатии формы вручную и при обычном заполнении ячеек так, как мне требуется (как запятая), выдаётся точка при английской раскладке и точка и запятая при русской (., - два символа). Это делает заполнение формы через макрос бесполезным. Как убрать этот баг?
Заполнение формы производится двумя макросами.
Первый
| Код |
|---|
Private Sub Workbook_Open()
Range("A2").Select
ActiveSheet.ShowDataForm
End Sub |
Запускается при запуске файла. Второй
| Код |
|---|
Private Sub CommandButton4_Click()
Dim Ans As Integer
Ans = MsgBox("Это действие удалит все данные предыдущих измерений. Продолжить? ", vbYesNo)
Select Case Ans
Case vbYes
Range("A2").Select
ActiveSheet.ShowDataForm
Case vbNo
End Select
End Sub |
В обоих случаях при нажатии децимальной запятой, которая работает при нажатии формы вручную и при обычном заполнении ячеек так, как мне требуется (как запятая), выдаётся точка при английской раскладке и точка и запятая при русской (., - два символа). Это делает заполнение формы через макрос бесполезным. Как убрать этот баг?
Изменено: - 23.03.2020 12:26:30
