Excel

[dr.dimm]

Привет ! Прошу прощения за эту тему, дело в том что только начинаю изучать Excel, есть много вопросов. Можно я их буду задавать в этой теме?

Вот мой вопрос:
Как на VBA написать такой макрос:

       {
            for (№=0; № in numbs; №++)
            {
                if B (№).valie = B (№+1).value
                {
                    string (№+1).delate
                }
                next
            }
        }

Он будет убирать дубликаты. В Столбце B такие значения: "A3 1,9л. хэтчбек дизельный"

№ - номер строки
numbs - типа все строки
В - столбец

И как его правильно применить?
Спасибо!

[kalbasiatka]

И этот код работал? Наверно надо отсортировать сначала и цикл с последней ячейки к первой.

[doober]

можно так

for n=numbs to 2 step-1
if cells(n,2).value =  cells(n-1,2).value then rows(n).delete
next

[roborrr]

Сообщение от doober

можно так

for n=numbs to 2 step-1
if cells(n,2).value =  cells(n-1,2).value then rows(n).delete
next

а если одинаковые строки не соседние?

[doober]

Сообщение от kalbasiatka

И этот код работал? Наверно надо отсортировать сначала и цикл с последней ячейки к первой.

Сортировать надо.
Вопрос стоял

Вот мой вопрос:
Как на VBA написать такой макрос:
Код:

{
for (№=0; № in numbs; №++)
{
if B (№).valie = B (№+1).value
{
string (№+1).delate
}
next
}
}

[dr.dimm]

Подскажите пожалуйста, как сделать что бы если в TextBox1 вводили текст, вылетала ошибка. И что бы в TextBox1 при вводе числа с точкой в качестве разделителя дробной части, точка менялась на запятую?

Dim a As Double
If TextBox1.Value = "" Then
    MsgBox ("Error")
    Exit Sub
End If

a = TextBox1.Value
Dim b As Double
Dim c As Double
b = 2.3
c = a * b
MsgBox (c)

[kalbasiatka]

Простенько

Private Sub TextBox1_Change()
If Right(TextBox1, 1) = "," Then Exit Sub
If Right(TextBox1, 1) = "." Then
    TextBox1 = Replace(TextBox1, ".", ",", 1)
    Exit Sub
End If
If Not IsNumeric(TextBox1) Then
    MsgBox "Амигос! Подумай."
    TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub

[dr.dimm]

Private Sub CommandButton1_Click()
Dim a
    If TextBox1.Value = "" Then
        MsgBox ("Пусто")
        Exit Sub
    End If
a = Replace(TextBox1.Value, ".", ",")
If Not IsNumeric(a) Then
    MsgBox "Амигос, подумай!"
    Exit Sub
End If
Dim b As Double
Dim c As Double
b = 2.3
c = a * b
MsgBox (c)
End Sub

Остановился на этом варианте.

[dr.dimm]

А как можно упростить эту простыню?

Private Sub Use()
    Dim Km As Double
    If ComboBox2.ListIndex = -1 Then Exit Sub
    Km = Val(ComboBox2.List(ComboBox2.ListIndex, 1))
End Sub
Private Sub UserForm_Initialize()
    ComboBox2.AddItem ("1 год 1 месяц")
    ComboBox2.List(12, 1) = 13 / 12
    ComboBox2.AddItem "1 год 2 месяца"
    ComboBox2.List(13, 1) = 14 / 12
    ComboBox2.AddItem "1 год 3 месяца"
    ComboBox2.List(14, 1) = 15 / 12
    ComboBox2.AddItem "1 год 4 месяца"
    ComboBox2.List(15, 1) = 16 / 12
    ComboBox2.AddItem "1 год 5 месяцев"
    ComboBox2.List(16, 1) = 17 / 12
    ComboBox2.AddItem "1 год 6 месяцев"
    ComboBox2.List(17, 1) = 18 / 12
    ComboBox2.AddItem "1 год 7 месяцев"
    ComboBox2.List(18, 1) = 19 / 12
    ComboBox2.AddItem "1 год 8 месяцев"
    ComboBox2.List(19, 1) = 20 / 12
    ComboBox2.AddItem "1 год 9 месяцев"
    ComboBox2.List(20, 1) = 21 / 12
    ComboBox2.AddItem "1 год 10 месяцев"
    ComboBox2.List(21, 1) = 22 / 12
    ComboBox2.AddItem "1 год 11 месяцев"
    ComboBox2.List(22, 1) = 23 / 12
    ComboBox2.AddItem "2 года"
    ComboBox2.List(23, 1) = 24 / 12
End Sub

[IgorGO]

можно так:

Private Sub UserForm_Initialize()
  Dim i As Long, m As Long
  For i = 13 To 24
    m = i Mod 12
    ComboBox2.AddItem = IIf(m = 0, "2 года", "1 год " & m & " месяц" & IIf(m = 1, "", IIf(m < 5, "a", "ев")))
    ComboBox2.List(i - 1, 1) = i / 12
  Next
End Sub