макрос

[vita79]

как в Excel в макрос прописать код, чтобы при вводе отображалось цифровое значение со знаком процент?
Не понимаю, что я делаю не так, но когда я ввожу данные то, к примеру, вместо вводимого значения 10% отображается значение 1000%.
Формат ячейки стоит Проценты, при вводе сразу в ячейку пишет то что надо, а если выбрать просто числовое значение 10
помогите плиззззз

[IgorGO]

зная что такое процент и прочитав описанные вами действия и их последствия - все логично
осталось понять по вашей логике 8где логика Excel не стыкуется с вашей

[vita79]

IgorGO,на первом фото указано что ввожу 1 и по логике должно получится 1%, на фото 2 результат,100%, как я уже сказал, мне нужно чтобы в соответствующей ячейке отображалось 1%. Если через формат ячейки выбрать просто число то число и получается (1), в моем же случае формат ячейки проценты, но в итоге получается 100 вместо единицы

[vita79]

IgorGO,
вот сам макрос
Option Explicit

Private Sub CommandButton1_Click()
Dim ns As Long
ns = Range("A1").CurrentRegion.Rows.Coun t + 1
Cells(ns, 1) = TextBox1.Text
Cells(ns, 2) = TextBox2.Text
Cells(ns, 3) = TextBox3.Text & " / " & TextBox4.Text
Cells(ns, 4) = TextBox5.Text
If IsNumeric(ComboBox1.Text) Then
Cells(ns, 5) = CDbl(ComboBox1.Text)
Else
Cells(ns, 5) = ComboBox1.Text
End If
If IsNumeric(ComboBox1.Text) Then
Cells(ns, 6) = CDbl(ComboBox2.Text)
Else
Cells(ns, 6) = ComboBox2.Text
End If
If IsNumeric(TextBox6.Text) Then
Cells(ns, 7) = CDbl(TextBox6.Text)
Else
Cells(ns, 7) = TextBox6.Text
End If
If IsNumeric(TextBox7.Text) Then
Cells(ns, 8) = CDbl(TextBox7.Text)
Else
Cells(ns, 8) = TextBox7.Text
End If
Unload Me
ActiveCell.Activate
ThisWorkbook.Save
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()
End Sub

Private Sub TextBox7_Change()

End Sub

'Private Sub UserForm_Initialize()
' TextBox1.Text = Format(Now, "DD.MM.YYYY")
' TextBox2.Text = Format(Now, "HH:MM")
' ComboBox1.AddItem "слабость"
' ComboBox1.AddItem "головокружение"
' ComboBox1.AddItem "головная боль легкая"
' ComboBox1.AddItem "головная боль"
' ComboBox1.AddItem "головная боль с приступами пульсирующей"
' ComboBox2.AddItem "аритмия"
' ComboBox2.AddItem "амлодипин"
' ComboBox2.AddItem "бисопролол"
' ComboBox2.AddItem "аритмия, амлодипин"
' ComboBox2.AddItem "аритмия, бисопролол"
'
' TextBox3.SetFocus
'End Sub

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Now, "DD.MM.YYYY")
TextBox2.Text = Format(Now, "HH:MM")
Label6.Caption = Cells(1, 5)
Label7.Caption = Cells(1, 6)
Label8.Caption = Cells(1, 7)
Label9.Caption = Cells(1, 8)

Dim n As Byte, i As Byte

n = Лист2.Cells(1, 1).End(xlDown).Row
For i = 2 To n
ComboBox1.AddItem Лист2.Cells(i, 1)
Next

n = Лист2.Cells(1, 2).End(xlDown).Row
For i = 2 To n
ComboBox2.AddItem Лист2.Cells(i, 2)
Next

TextBox3.SetFocus
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

[Aleksandr H.]

А что, то что вводите на форме нельзя на 100 поделить при выводе в ячейку?

[IgorGO]

это ваш проект?
вот и управляйте им, а не уповайте, что звезды сложатся так удачно, что все начнет работать само собой и не важно что пользователь ввел в ячейку 10 или 10%
и полная беда если вы не понимаете разницы что
число 10 - это число 10 или 1000%
а 10% - это число 0.1
нужно возвращаться в класс 5 и поучить с детьми, что такое проценты
удачи!

[vita79]

IgorGO, Спасибо