VBA Excel изменить ячейку с другим значением

Question

Привет! Я хочу заменить ячейку с таким же номером и заменить ее значением diffrent.Как и у 1846120 есть два ряда в Excel.Я хочу изменить один из них на 5, а другой на 10. Как?

  Public Sub ersatt()
        Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
            For i = 1 To 10000
                Select Case ws.Cells(i, 1)
                Case 1741568, 1741984, 1741985, 2267661, 2452546, 2452544, 2239671, 2515828, 2254875, 2553829, 2147721, 2609859, 2055238, 2296699, 2611432
                    ws.Cells(i, 9) = "0"
                Case 1893055, 1868157, 1893055
                    ws.Cells(i, 9) = "=8*F2"
                Case 1846120
                   ws.Cells(i, 9) = "=((F2-90)*29+(90*25))"
                End Select
            Next
        Next ws
    End Sub

Answer 1

Не забудьте использовать "Option Explicit" в верхней части кода. Также, если вы хотите получить значение ячейки, используйте .value .

Option Explicit

Public Sub ersatt()

      Dim ws As Worksheet
      Dim i As Long

      For Each ws In ActiveWorkbook.Worksheets

          For i = 1 To 10000
                With ws
                    Select Case .Cells(i, 1)
                    Case 1741568, 1741984, 1741985, 2267661, 2452546, 2452544, 2239671, 2515828, 2254875, 2553829, 2147721, 2609859, 2055238, 2296699, 2611432
                        ws.Cells(i, 9).Value = "0"
                    Case 1893055, 1868157, 1893055
                        .Cells(i, 9).Value = 8 * .Range("F2").Value
                    Case 1846120
                       .Cells(i, 9).Value = ((.Range("F2").Value) - 90) * (29 + (90 * 25))
                    End Select
                End With

          Next i

      Next ws

  End Sub

Answer 2

, чтобы записать значение ячейки, напишите ... Ячейки (строка, столбец) .Value = X Если вы хотите записать числовую переменную, напишите

 ws.Cells(i, 9).Value = 0

без "".Если в вашей записи «0» ячейка будет содержать строку «0», то при написании приведенного выше кода будет записано числовое значение 0. Это становится важным, когда вы пишете переменные.То же самое относится и к аргументу «Выбрать регистр»

Также напишите «Далее» i после строки, в которой говорится «Конец выбора»