Коллеги, добрый день!
Помогите разобраться.
Имеется Элемент управления TextBox. Когда его заполняю, он в ячейки устанавливает формат "Текстовый", как сделать что бы в ячейку эксель прописывался формат ячеек "Числовой"
Вот часть кода:
Помогите разобраться.
Имеется Элемент управления TextBox. Когда его заполняю, он в ячейки устанавливает формат "Текстовый", как сделать что бы в ячейку эксель прописывался формат ячеек "Числовой"
Вот часть кода:
| Код |
|---|
Private Sub MyButton1_Click()
Dim iRow As Integer
If TextBox1 = Empty Or TextBox2 = Empty Or TextBox4 = Empty Then
MsgBox " Быстро заполни все поля помеченные знаком *"
Exit Sub
End If
With MyList1
On Error Resume Next
iRow = .ListObjects("Таблица1").DataBodyRange.Rows.Count + 6
If Err.Number <> 0 Then
Err.Clear
iRow = 6
End If
.Cells(iRow, "B").Value = TextBox1
.Cells(iRow, "C").Value = TextBox2
.Cells(iRow, "D").Value = TextBox3
.Cells(iRow, "E").Value = TextBox4
.Cells(iRow, "F").Value = TextBox5
.Cells(iRow, "G").Value = TextBox6
.Cells(iRow, "H").Value = TextBox7
End With
ClearForm
End Sub
|
