Как распечатать одну картинку на 4 листах на windows 10

Содержание
  1. Excel VBA — введите данные в ячейку
  2. Видеокурсы по Excel
  3. Ъпо воде
  4. Введите текст в ячейку
  5. Введите поместить в ячейку
  6. Образцы текста
  7. Обратитесь к стенду:
  8. Введите текущую строку и столбец
  9. Заполнить область текстом
  10. Примечание
  11. В выделенной области напишите значение в указанной ячейке
  12. Прочитать пароль
  13. Вариант 1
  14. Вариант 2
  15. Вариант 3
  16. Вставка формулы (функции)
  17. Похожие статьи
  18. Для скачивания
  19. Контент
  20. Если
  21. Павел Ласбк — автор сайта
  22. Комментарии
  23. Цветок
  24. Павел Ласбак
  25. Ауреаты
  26. Павел Ласбак
  27. Ауреаты
  28. Футболки
  29. Павел Ласбак
  30. Павел Ласбак
  31. Джордж
  32. Павел Ласбак
  33. Штамп
  34. Павел Ласбак
  35. Штамп
  36. Павел Ласбак
  37. Штамп
  38. Павел Ласбак
  39. Штамп
  40. Павел Ласбак
  41. Мартин
  42. Андрей
  43. Павел Ласак
  44. Павел Ласак
  45. Катька
  46. Питер
  47. Джон В.
  48. Павел Ласбак
  49. Алена
  50. Борек
  51. Павел Ласбак
  52. Павел Ласбак
  53. Павел Ласбак
  54. Войта
  55. Джейкоб
  56. Механик
  57. Павел Ласбак
  58. Механик
  59. Дэвид
  60. Джозеф
  61. Томаш
  62. чудо
  63. Роберт
  64. Лукас
  65. Беллеро
  66. Пойпоп
  67. Мишко71
  68. Мишко71
  69. Габбана
  70. Франта Смутне
  71. Франта Смутне
  72. острый
  73. Мартин
  74. Дэвид
  75. Томаш
  76. Двор
  77. Двор
  78. Питер
  79. Пол
  80. Карел
  81. Франтишек Мачек
  82. Вилли
  83. Восхождение
  84. Здравствуйте

Excel VBA — введите данные в ячейку

Видеокурсы по Excel

В сотрудничестве с SEDUO я создал несколько видеокурсов:

  • Как работать с Excel – научитесь эффективно использовать Excel – самый популярный ( рейтинг 97 %, более 13 000 студентов, + 750 положительных отзывов ) – Получить курс
  • MaxiCourse Excel – получите лучшую работу, больше денег, станьте незаменимым ( более 6 часов просмотра, 160 уроков ) – Получить курс
  • G-таблицы. — если не нравится Excel, воспользуйтесь курсом на Google-таблицах

Как записывать значения, числа, тексты в ячейки Excel с помощью макросов (коды VBA). Практические примеры.

Ъпо воде

Как читать некоторые данные (значение, дату, время и т.д.) из ячейки, я полагаю, вы знаете из предыдущей статьи. В следующих примерах я представляю практические примеры того, как записывать данные в ячейки:

Введите текст в ячейку

Мы начнем с традиционного раунда. Текст » Hello world. «

вставляется в ячейку A1 с помощью макроса VBA.

Sub Zapis() Cells(1, 1) = «Привет, мир.» Конец подписки

или используя диапазон

Range(«A1») = «Привет, мир.»

Введите поместить в ячейку

Как вы знаете из чтения данных из ячейки. В соответствии с требуемым свойством будет написано то, что вам нужно, так же, как это работает для записи.

  • Значение —
  • Значение2 —
  • Текст — это свойство не может быть использовано для листинга, только для чтения
  • Формула* — напишите формулу по-разному (R1C1/A1), на английском языке или на местном диалекте (чешском), возможно, в виде матрицы (для использования позже при написании) — см. отдельную главу

Образцы текста

Обратитесь к стенду:

Примечание: я предполагаю, что вы знаете, и объяснять не нужно.16:02 30/11/2018

Диапазон(«B2») Ячейки(2, 2) [B2]

Введите текущую строку и столбец

Немного более сложный запрос. макросзаписывает в соответствующую строку и столбец данные, о которых идет речь.

Subscribe()
Для i = от 1 до 9 Для j = от 1 до 3 Cells(i, j) = «Šadek: » & я и усилитель; » — Столбец » & j Далее j Далее i Конец Sub

Образец:

Заполнить область текстом

Макрос заполняет несколько ячеек нужным текстом.

Sub Vicecell()16:13 30/11/2018 Range(«A1, A3, A5») = «Привет!» ‘ или лучше с указанным свойством ‘ Range(«A1, A3, A5»).Value = «Hello!» Конец подписки

Sub Vicecell2() Range(«A1:B5») = «ALPHABET» End Sub

Примечание

Опять же, вместо Value для записи можно выбрать другое свойство.

В выделенной области напишите значение в указанной ячейке

Используйте макрос для записи данных в определенную ячейку в выбранной области.

Sub Dobunky()
Range(«A1:C5»).cells(8) = «ZYZ»
End Sub

Это немного более сложное соображение. Запись производится в x-ю ячейку из указанного диапазона.
В нашей таблице выбора первая строка имеет позицию:
1 2 3 4 5
вторая строка имеет позицию:
6 7 8 9 10
третья строка имеет позицию :
11 12 13 14 15 16
Наша просьба записать требуемое значение в позицию (ячейку) 8.

Прочитать пароль

Вопрос: Можно ли как-то настроить ячейку так, чтобы каждый раз, когда я пишу в нее число, она делала сумму? т.е. первый раз я пишу в ней 10, второй раз в той же ячейке 15, будет ли отображаться 25?

Ответ: Можно, например, с помощью Worksheet_Change, когда «валидность» (для какой ячейки вычисляется значение) ограничивается ячейкой M7 и вспомогательным значением (необходимым для следующего расчет) хранится во вспомогательной ячейке M8.

Вариант 1

Использует вспомогательные кабины.

Private Sub Worksheet_Change(ByVal Target As Range) Если Target.Address = «$M$7», Then Application.EnableEvents = False Target = Target + Range(«M8»). Диапазон значений(«M8») = целевое приложение. EnableEvents = True End If End Sub

Вариант 2

Используйте Worksheet_SelectionChange и Worksheet_Change (вспомогательная ячейка не требуется).

Dim OldValue As Integer Private Sub Worksheet_SelectionChange(ByVal Target As Range) OldValue = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target = Target + OldValue Application.EnableEvents = True End Sub

Вариант 3

Пожалуй, самое элегантное решение. Благодарю Петра Пехбика, автора сайта excelplus.net, за идею и вдохновение. Решение использует Application.Undo

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngSledovanaBunka As Range ‘отслеживаемая ячейка Set rngSledovanaBunka = Range(«B2») ‘проверить изменение отслеживаемой ячейки If rngSledovanaBunka.Address = Target.Address Then ‘новое значение dblNovaHodnota = Target .Значение Application.ScreenUpdating = False Application.EnableEvents = False ‘откатиться назад Application.Undo ‘старое значение dblOldValue = Target.Value ‘добавить новое значение к старому Target.Value = dblOldValue + dblNewValue ‘выбрать следующую ячейку’ примечание. Application.Undo не перемещает выделение Target.Offset(1, 0).Select Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub

Вставка формулы (функции)

Как вставлять формулы — функции в ячейки Excel. Чтобы было не так просто, можно ввести такие значения, как абсолютное/относительное/смешанное. Имена функций могут быть в английской или чешской системах письма, они могут быть A1 или R1C1. Таким образом, удовольствие сохраняется во время написания. Пример пары возможных записей:

Диапазон(«B1»).Формула = «=A1» Диапазон(«B2»).Формула = «=A$1» Диапазон(«B3»).Формула = «=$A$1» Диапазон(«A1» ).Formula = «=СУММ(B2:B5)» Диапазон(«A2»).FormulaR1C1 = «=СУММ(RC[1]:R[3]C[1])» Диапазон(«A3»).FormulaLocal = «=СУММ(B2:B5)» Диапазон(«A4″).ФормулаR1C1Local =»=СУММ(R[-2]C[1]:R[1]C[1])»

Подробнее о вставке формул и функций с помощью VBA в ячейки Microsoft Excel.

Похожие статьи

Меня интересует дополнительная информация по теме

Для скачивания

Файл для бесплатного скачивания находится в стадии подготовки. В файле используются макросы.

Контент

Данные макроса в Microsoft Excel записываются на текущем листе текущей рабочей книги. Если вы хотите записать макрос на другой лист (книгу), вам нужно добавить адрес данного листа (книги).

Статья обновлена: 19.09.2020 11:07

Если

Помог ли этот веб-сайт сэкономить вам время и деньги? Помог ли он решить проблему? Готовы ли вы предоставить символическое вознаграждение за дальнейшее развитие? Выберите форму вознаграждения, которая вам подходит.

Павел Ласбк — автор сайта

Microsoft Office (Word, Excel, Google Sheets , PowerPoint) Я использую с 2000 года (с 2004 года в этом домене) — В 2017 году я получил престижную награду MVP от Microsoft (пока я единственный из IR в категории Excel). Я также делюсь своими знаниями и опытом онлайн в видеороликах для SEDUO . В компаниях преподаю и консультирую , работаю в МУНИ. Я создаю этот сайт более 15 лет. Существует более 1000 бесплатных инструкций, советов и рекомендаций, включая более 250 различных шаблонов и рабочих книг.

Комментарии

Цветок

Добавлено: 06.11.11 12:44

Здравствуйте, я сейчас борюсь со случаем, когда у меня есть вычисляемая ячейка (A2), которая возвращает числовое значение, а затем у меня есть ячейка (A1), в которой у меня есть какое-то число, «жестко закодированное». Итак.. и теперь мне нужен макрос, который берет значение из A2, выполняет наименьшую дополнительную операцию вычисления (умножает на два, добавляет один и т.д..) и умножает результат на значение ячейки A1 и записывает этот результат в А1 как новое значение.. Уф.. Надеюсь понятно.. Логически я знаю как этовыполнить, но я не знаю правильных команд и синтаксиса..

Павел Ласбак

Добавлено: 06.11.11 20:38

Квитеку: Вот так. a = Range(«A2»).Value b = a + a Range(«A1»).Value = b Дальнейшие вычисления по желанию.

Ауреаты

Добавлено: 30.11.11 19:38

Здравствуйте, мне нужна помощь макроса для установки печати «кнопки» — выделенной части ячеек — мы пытались предоставить этот макрос для записи помощи, но возникла ошибка 1004: Sub button10_Clicked() ‘ ‘ button10_Clicked Macro ‘ ‘ Range(«D1:K19») .Select Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False End Sub Пожалуйста, помогите, где ошибка, спасибо

Павел Ласбак

Добавлено: 30.11.11 20:40

В Aureas: ActiveSheet.PageSetup.PrintArea = «$C$4:$K$16» ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Ауреаты

Добавлено: 01.12.11 19:08

Футболки

Добавлено: 01.03.12 12:32

Здравствуйте, доктор, я создал макрос с помощью записи, который после нажатия кнопки выбирает нужные листы и сохраняет их в одном PDF-файле в нужном месте. Однако я не возражаю против имени файла PDF, созданного таким образом. Можно ли назвать полученный PDF-файл непосредственно в соответствии со значением ячейки E2 (только значения — ячейка E2 отображает результат формулы) на листе выставления счетов? Текущий код выглядит следующим образом: PDF_Save_All Macro ‘ Sheets(Array(«FAV», «DL», «Vędejka»)).Select Sheets(«FAV»).Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ » D: \Documents\Workplace\DUAVE\Dropbox\Выставленные счета и накладные\2012\FAP и DL PDF 2012\FAP\FA2012_ .pdf» _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish := True Sheets(«Invoicing»).Select Range(«E3»).Select End Sub Большое спасибо заранее за любую помощь. С уважением, Михал

Павел Ласбак

Добавлено: 01.03.12 17:38

To Majkie: Просто прочитайте данные из заданной ячейки, я предполагаю, что они в виде: «C:\lasak\2012.pdf» и = Range(«A1»).Значения нет и оно передается для экспорт ActiveSheet.ExportAsFixedFormat Тип:= xlTypePDF, имя файла:=Pdf_name .

Добавлено: 13.01.12 13:57

Добрый день, пример и. 2 не работает — четвертая строка неверна. Он может быть влажным. вот так: Cells(i,j) = «Šadek: » & я и усилитель; » — Столбец » & j

Павел Ласбак

Добавлено: 24.01.12 19:54

Тот БЖ: Спасибо, я уже исправил, формула Cells(i,j) = выпадала при копировании, так что исправлено и пример теперь работает корректно.

Джордж

Добавлено: 11.02.12 15:06

Отличный сайт, они мне очень помогли. я думаю

Павел Ласбак

Добавлено: 11.02.12 17:08

Йирке: Спасибо, поэтому я их и создаю 🙂

Штамп

Добавлено: 15.02.12 08:39

Здравствуйте, у меня большая проблема. В листе я создал на их основе несколько разных расчетов, в последней ячейке он выведет результат в виде имени. У меня проблема в том, что ячейка, в которой у меня есть результат, форматирует отображаемый результат совершенно бессмысленным образом. Если я пишу данное слово чисто без шаблона, оно может быть выровнено по центру ячейки, а другие форматы работают как надо. Но если я позволяю отображать его с помощью образца, имя странно смещается и не может быть выровнено по центру ячейки. Есть ли способ отображать в ячейке только текст (который будет нормально отформатирован)? Я прошу помощи. я думаю

Читайте также:  Как узнать на сколько компьютеров лицензия windows 10

Павел Ласбак

Добавлено: 15.02.12 10:33

К Штмпану: Разве результирующее значение не содержит пробелов (я не знаю, что такое результирующая формула)? Если вы отформатируете, все должно работать.

Штамп

Добавлено: 15.02.12 11:54

Спасибо за быстрый ответ. Подводя итог тому, что происходит. В зависимости от даты и времени отображается кто свободен в данный момент. В результате получается полное имя (Петр Новенк), pзазор. Для расчетов использую функции If, And, SSearch. При расчете в новой формуле я обращаюсь к ячейкам, где уже есть функция. Конечным результатом является помощь fc. Объединить. Имена, которые появляются в результирующей ячейке, берутся из обычного текста. Я попытался убрать пробелы в имени, но форматирование не сильно улучшилось. Может быть, я уже ошибся в каких-то расчетах

Павел Ласбак

Добавлено: 15.02.12 14:52

Кому Штемпану: Итак, в Concatenate постепенно заменяйте отдельные переменные и выясняйте, какая из них это делает. Поскольку отформатировать ячейку не проблема, необходимо выяснить, что влияет на форматирование. Попробуйте другую ячейку = ячейку с формулой объединения, чтобы увидеть, есть ли такая же проблема с форматом.

Штамп

Добавлено: 16.02.12 07:19

Спасибо большое за совет, попробую исправить функцию или даже заменить на что-то другое. Вероятно, поэтому другой заикался. Есть ли макрос (или функция), который бы проверял 8 строк в одном столбце (A1:A8) и если какой-то текст отображается в одной из 8 строк, пусть он отображается в другой ячейке (например, C3)? И, прежде всего, как мне заставить его автоматически проверять возможный макрос, и мне не нужно каждый раз запускать его вручную. Заранее большое спасибо

Павел Ласбак

Добавлено: 16.02.12 14:51

To Šttmpán: используйте события листа, например SheetChange (изменение листа) http://office.lasakovi.com/excel/vba/vlastnosti-metody-udalosti-kolekce-excel-vba/ по циклу от 1 до 8 через if проверьте, содержит ли поле текст.

Штамп

Добавлено: 16.02.12 15:38

Итак, я наконец-то воспользовался функцией очистки, и проблема решена. Я получил всю информацию с вашего сайта, так что это здорово, и большое спасибо

Павел Ласбак

Добавлено: 16.02.12 16:38

Штмпану: Поздравляю с решением. Я рад, что сайт помогает.

Мартин

Добавлено: 25.02.12 16:05

Здравствуйте,Мне нужно было бы сделать макрос в таблице для «выбрать строку, вставить новую (ниже/выше это не имеет значения) и скопировать содержимое исходной». Однако у меня есть несколько таких строк в таблице в случайные позиции, поэтому мне нужен был бы способ разобраться, чтобы он копировал только те строки, которые я ранее отметил

Андрей

Добавлено: 12.04.12 15:51

Добрый день, я хотел бы спросить: когда я ввожу число в TextBox, например. до двух знаков после запятой, и я хочу загрузить его в ячейку в книге. В ячейке значение числа отображается в виде текста, без цифр после запятой. Перед числом в ячейке создается апостроф. Как устранить эту проблему, чтобы у меня в ячейке было написано число с десятичной точкой? Большое спасибо за ответ.

Павел Ласак

Добавлено: 12.04.12 19:54

Мартину: см. статью: http://office.lasakovi.com/excel/vba-listy-bunky/radky-sloupce-excel-vba-kody/

Павел Ласак

Добавлено: 12.04.12 19:58

Андрею: задайте соответствующий формат, например, следующий: Range(«a1»).Value = CDec(Me.TextBox1.Value) CBool
CByte
CCur
CDate
CDbl
CDec
CInt
CLng
CSng
CStr
CVar
или установить формат текстового поля TextBox1.Text = Format(Number, «0.00»)

Добавлено: 10.05.12 13:25

привет, мне нужна помощь с макросом.У меня есть три столбца, и я хочу, чтобы он выбрал все значения из столбца A, например «009», и вычислил значения в C в соответствии с столбцом B. например , в столбце B есть 3x «112» для «009» в столбце A. в столбце C каждое «112» имеет другое значение, и я хочу их подсчитать. результатом будет вкладка 111 = . 112 = . 211 = . и т.п. Надеюсь понятно объяснил. Подскажите пожалуйста как написать макрос. Входные данные A B C 008 231 0,35951990495 008 243 0,397333340372 008 231 0,00084065193 008 411 0,2544396339 008 324 3,801557521745,94512305510 009 512 0,08039077068 009 324 0,41974515393 009 121 0,44113070070 009 141 0,55228658827 009 112 8,71109016533 009 311 3,52031756380 009 222 0,60390707015 009 112 1,56412570854 010 211 28,00392873070 010 311 4,71930247394 010 243 0,29071348127 010 211 1,64391386883

Катька

Добавлено: 30.10.12 09:12

Здравствуйте, я хотел бы попросить вашего совета. Мне нужно было бы создать макрос, который бы заполнил определенную ячейку именем nas. этого листа.Название листа фиксировано и мне нужно чтобы оно было заполнено на первом листе определенной ячейки. Большое спасибо за совет.

Питер

Добавлено: 30.11.12 09:12

Здравствуйте, г-н Ласак, у меня проблема с базой данных wis.accdb, я хочу произвести расчеты в виде команд SQL, и мне нужно записать результат в определенную ячейку в книге Excel. Мне все равно сейчас. VIP макрос. Спасибо за помощь. Dim varConn As String Dim varSQL As String Dim varSQL1 As String Dim varSQL2 As String Dim varSQL3 As String Dim varSQL4 As String Range(«D3»). Выберите varConn = «ODBC;DBQ=wis.accdb;Driver= » varSQL = «ВЫБЕРИТЕ SHIFTPRD.DATETIME, SHIFTPRD.HINBAN, Sum(SHIFTPRD.ORILEN), count(SHIFTPRD.KIDAI)/2,Sum(SHIFTPRD.ORILEN)/count(shiftprd.kidai)*2 AS SumOfORILEN» varSQL1 = «FROM SHIFTPRD » varSQL2 = «ГРУППИРОВАТЬ ПО SHIFTPRD.DATETIME, SHIFTPRD.HINBAN» varSQL3 = «ИМЕЕТ (((SHIFTPRD.DATETIME) Между to_date(‘27.08.2012′,’dd.mm.yyyy’) And to_date(‘27.08.2012′ ,’dd.mm.yyyy’)) AND ((SHIFTPD.HINBAN)=’3660′))» varSQL4 = «ORDER BY SHIFTPRD.DATETIME;» С ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range(«D3»), Sql:=sqlstring) .CommandText = varSQL .CommandText = varSQL1 .CommandText = varSQL2 .CommandText = varSQL3 .CommandText = varSQL4 End With<27

Джон В.

Добавлено: 30.01.13 18:11

Здравствуйте, мне нужна помощь с макросом, который бы копировал слияниеячейки на листе 1 в одну конкретную ячейку на листе 2 в той же книге. Мне нужно скопировать только значение без формул и форматов. На листе 1 я объединил ячейки H2:L3, а на листе 2 мне нужно поместить это в A3. Решить это можно с помощью макросов. Спасибо за помощь

Павел Ласбак

Добавлено: 30.01.13 20:04

Катьке, Петру: Это для отдельной статьи, т.е. если будет время. А пока попробуйте www.pc-help.cz, там больше людей, которые могут дать совет (конечно, так будет быстрее). Для Honza V: прочитать значения см.: http://office.lasakovi.com/excel/vba-listy-bunky/preciti-udaj-do-bunky-excel-vba/

Алена

Добавлено: 13.03.13 13:51

здравствуйте, я хотел бы установить текущую отмеченную область в параметре LookAt в процедуре замены ячейки, чтобы операция выполнялась в выбранных ячейках. (пока у меня там xlPart)

Борек

Добавлено: 11.06.13 09:13

Здравствуйте, мне нужен совет по копированию столбца из одной книги или листа в другую. я думаю

Добавлено: 07.04.13 11:36

есть ли способ настроить ячейку так, чтобы каждый раз, когда я ввожу в нее число, она вычисляла сумму? т.е. первый раз я пишу в ней 10, второй раз в той же ячейке 15, будет ли отображаться 25?

Павел Ласбак

Добавлено: 07.04.13 17:43

Алене: Пока что я рекомендую http://msdn.microsoft.com/en-us/library/office/ff194086.aspx, если вы хотите что-то написать об этом.

Павел Ласбак

Добавлено: 07.04.13 17:50

К Бореку: вам нужно это: Dim sourceColumn As Range, targetColumn As Range Set sourceColumn = Workbooks(«sesit1.xlsm»).Worksheets(«Sheet4»).Columns(«A») Set targetColumn = Workbooks(«sesit2 .xlsm»).Worksheets(«Sheet4»).Columns(«A») sourceColumn.Copy Destination:=targetColumn

Павел Ласбак

Добавлено: 07.04.13 18:00

К Пепе: я добавил статью Private Sub Worksheet_Change(ByVal Target As Range) IfTarget.Address = «$M$7» Then Application.EnableEvents = False Target = Target + Range(«M8»).Value Range(«M8») = Target Application.EnableEvents = True End If End Sub

Войта

Добавлено: 25.11.13 02:35

Здравствуйте, хотелось бы спросить, как можно было бы расширить возможность вставки с другого сочетания клавиш через макросы, когда каждое сочетание клавиш вставляло бы разный текст, например, на сочетание клавиш ctrl+q сохранить его в строку, в которой он в настоящее время отмечена ячейка (например, A1), после использования ярлыка текст будет вставлен в ячейки (например, A1, A3, A4 и A7, если ячейка в другой строке может быть отмечена (например, 1C) и тот же ярлык был используется, текст будет вставлен в ту же позицию, но в следующую строку (т. е. C1, C3, C4 и C7), если используется другое сочетание клавиш, например, ctrl + w, то в эти ячейки будет вставлен другой текст, если бы это было сочетание клавиш ctrl + e то другие и т.д. в сумме я хочу выделить ячейку в начале строки, нажать сочетание клавиш и в соответствии с этим сочетанием клавиш добавить в ту строку информацию, которую я бы ранее установил правильно на этом ярлыке, спасибо за совет

Джейкоб

Добавлено: 07.02.14 15:16

Добрый день, хотел бы спросить, как можно было бы настроить макрос для выбора отдельных значений из одного столбца, но с регулярным интервалом, например пять строк, и записать их друг за другом в строка. Я не могу применить к нему ни одну из вышеперечисленных процедур. большое спасибо за любой совет.

Механик

Добавлено: 21.03.14 21:58

Здравствуйте, пожалуйста, мне нужен совет. Я хочу ввести всю серию марок в Лист2, первый столбец Но так, чтобы серия начиналась с: «HX» & (из ячейки F5 Листа 1) заканчивается на «HX» & (вставка из ячейки F9 листа 1). Я попытался использовать вашу формулу: Private Sub CommandButton1_Click() For i = . Ячейки (i, 1) = «HX» & i Next i End Sub К сожалению, я не знаю, что вводитьДля i = x to y Для x и y действовать как ссылка на ячейку со значением. Заранее спасибо. Я очень ценю ваши знания

Павел Ласбак

Добавлено: 22.03.14 08:10

В Mechac: Как ввести данные из ячейки http://office.lasakovi.com/excel/vba-listy-bunky/preciti-udaj-do-bunky-excel-vba/

Механик

Добавлено: 24.03.14 14:34

Здравствуйте Павел, я пытался копаться в вашей помощи и понял читаемую ячейку, но я все еще не могу применить ее к приведенной выше формуле 🙁 (я, например, альбинос) Мне не ясно, как установите его, чтобы он начинался с числа 96107 = а и заканчивался на 96175 знак 69 значений, начинающихся с HF96107 и совет HF96175, при этом а и b должны быть переменной в зависимости от ссылки в ячейке.При этом , результат должен быть записан из ячейки А1 в сеансе 2. Это явно не работает, к сожалению, мне не удалось получить результат даже после постоянного поиска в сети.Лицевая петля, вероятно, была ближайшей, но проблема все же есть с определением выходного диапазона и поля Sub enter_row() a = Worksheets(1).Range(«F5»).Value b = Worksheets(1).Range(«I5») .Value For i = a To b Cells(i, 1).Value = «HF» & i i = i + 1 Next i End Sub извините за редактирование, но я не знаю, как перенести строку в пост. Хорошего дня M

Читайте также:  Win restore points windows 10 как удалить

Добавлено: 25.03.14 16:29

Здравствуйте, я уже некоторое время пытаюсь программировать на VBA, но последние два дня пытаюсь решить ошибку в написанном мной коде (см. ниже).Для описания моей проблемы — я использую флажок, чтобы определить, какое значение должно быть записано в ячейке да-нет. Проблема у меня в том, что мне пишется значение «да», а значение «нет» пишется как пустое поле.Где я ошибаюсь? Заранее спасибо за помощь. Private Sub CheckBox1_Click() If CheckBox1.Value = True Then DalsiRadek = _ Application.WorksheetFunction.CountA(Range(«A:A»)) + 4 Cells(DalsiRadek, 2) = «yes» End If CheckBox1.Value = False затемNextRow = _ Application.WorksheetFunction.CountA(Range(«A:A»)) + 4 Cells(NextRow, 2) = «no» End If End Sub

Добавлено: 06.04.14 03:19

На здоровье есть возможность того, что при нажатии на кнопку лист переключается на другой, и пишет данные из памяти в ячейку B4 как при ctrl+v

Дэвид

Добавлено: 08.04.14 23:19

Здравствуйте, у меня проблема с макросом ползунка. Я постараюсь описать, что я имею в виду. Первое важное: Ползунок можно установить на наименьшее значение шага 1, а мне нужно по 0,01, что бы не было такой проблемы, это можно решить, поместив результат ползунка в другое поле, а затем в В последнем поле я вырезаю все, что хочу, но здесь начинаются проблемы. Мне тоже приходится писать в конечной ячейке вручную, но если есть формула, то конечно нельзя. Приведу пример: Ячейка А1 — это поле ввода, рядом с которым есть ползунок, его значение теперь пишем. 0,24. Я изменю значение 0,24 на 0,28, и когда я нажму на ползунок «плюс», значение должно подскочить до 0,29. Ползунок так работает и без макроса, но к сожалению суффикс после 1. Заранее спасибо за помощь

Джозеф

Добавлено: 04.09.14 12:14

Я полный новичок в макросах. Мне понадобится довольно простая вещь: у меня есть список чисел (столбец: A: я в пустой ячейке: B1. Когда я нажимаю на созданную кнопку, назначенную макросу, я хочу, чтобы он заполнил ячейку B1 значением из A1 и одновременно перейти в ячейку B2.Я снова нажимаю на кнопку я заполняю ячейку B2 значением из A2 и перехожу в ячейку B3.и т.д., после этого все повторится.Спасибо

Томаш

Добавлено: 10.06.14 00:25

Здравствуйте, помогите пожалуйста с макросом, я бы хотел, чтобы рабочая книга автоматически вычисляла значение +1 в ячейке A1 (как, например, ссылочный номер счета-фактуры). Заранее большое спасибо.

Добавлено: 30.06.14 15:02

Юзефу: Selection.Offset(0, 0) = Selection.Offset(0, -1)Выбор.Смещение(1, 0).Выбрать

Добавлено: 30.06.14 15:37

Томасу: в ThisWorkbook вам нужно поместить: Private Sub Workbook_Open() Range(«A1») = Range(«A1») + 1 End Sub — и, конечно же, сохранить файл (с текущим значением) после окончание работы

чудо

Добавлено: 16.07.14 18:16

Здравствуйте, я хотел бы получить консультацию по Excel, особенно по VBA. если, например, я пишу в А1 число 20, которое показывает количество месяцев, мне нужно, чтобы оно автоматически заполняло даты от А2 до А21, всегда по месяцам. пример: A1=10, поэтому A2=1.1.2014, A3=1.2.2014, A4=1.3.2014 будут заполнены автоматически. и т.д. Большое спасибо за ответ

Добавлено: 22.07.14 09:31

Чтобы задаться вопросом: CountMonth = Range(«A1») ‘ количество месяцев Range(«A2») = «1/1/2014» ‘ countMonth Range(«A2:A» & CountMonth + 1).DataSeries Rowcol :=xlColumns, Тип:=xlChronological, Дата:= _ xlMonth, Шаг:=1, Тенденция:=False

Добавлено: 22.07.14 13:56

Дэвиду: (это также ответ на вопрос от: — http://office.lasakovi.com/excel/prakticke-priklady/dynamicka-tabulka-excel/ ‘Вставить в модуль листа Explicit Dim OldVal Private Sub ScrollBar1_Change() ‘Ползунок на сотые доли (1,01; 1,02 и т. д.) Dim i As Long Dim minVal, maxVal minVal = 0 maxVal = 10 With ScrollBar1 .Min = minVal .Max = maxVal * 100 If .Value > OldVal Then .Value = Cells(1, 1) * 100 + 1 Else .Value = Cells(1, 1) * 100 — 1 End If OldVal = .Value Cells(1, 1) = OldVal / 100 End With End Sub

Добавлено: 22.07.14 15:00

Ивану: Private Sub CheckBox1_Click() с Application.WorksheetFunction DalsiRadek = .CountA(Range(«A:A»)) + 4 If CheckBox1.Value = True Then Cells(DalsiRadek, 2) = «yes» Else Cells (DelsiRadek, 2) = «нет» End If End With End Sub

Добавлено: 22.07.14 15:15

To Mechac: Sub enter_row() ‘Поместите сюда значения a = Worksheets(1).Range(«F5») ‘первая строка b = Worksheets(1).Range(«I5») ‘ последняя строка ‘Вывод для i = a To b Cells(i, 1) = «HF» & как Next, так и End Sub

Добавлено: 22.07.14 15:31

Якубу: Если я правильно понял вопрос: Sub Test() ‘Intane строки с регулярным интервалом и написанные одна за другой в одной строке ofs = 0 With Cells(1, 2)’ в этой ячейке начнет писать For i = 1 To 20 Step 5 ‘ Distance = 5 .Offset(0, ofs) = Cells(i, 1) ofs = ofs + 1 ‘ 1 = сдвиг списка на 1 ячейку вправо Next i End With End Sub

Роберт

Добавлено: 12.08.14 14:35

У меня есть таблица, в которой указаны код и сумма (например, U21 = 1000, U16 = 200, а код и сумма указаны в отдельных столбцах) + дополнительная информация. Суммы могут быть введены или рассчитаны. И я пытаюсь позволить пользователю определить саму формулу, которую макрос будет читать, а затем соответствующим образом вычислять результат. Формула может быть записана как ((U21+U16)-5)*-1 или «if(U21>100;5;0) и т. д. Чтобы добиться этого, сегодня я заставляю пользователя писать код и/или операнд в отдельных столбцах и предполагаю, что что не код — это операнд (+-*()) и т.д.) Когда я потом запускаю макрос, я предсказываю значение по коду и потом складываю значения из столбцов.(что-то в VBA и для чего-то использую скрытую таблицу) (из них 1 ряд просто по расчету), заменяю коды на вычисленное значение и получаю какой-то результат, который записываю.Это сложно и я тоже заставляю пользователя заниматься созданием описанным способом.хотелось бы чтобы формула писалась в 1 ячейку в прописанном формате,а потом можно было бы разделить и соединить в VBA я понимаю

Лукас

Добавлено: 18.08.14 10:59

Здравствуйте, подскажите пожалуйста. Мне нужно определить размер детали в Excel, чтобы значения из таблицы автоматически копировались в картинку при указании размера детали. Пример: компонент отмечен размерами. Каждыйразмер имеет разные размеры, которые указаны в сводной таблице. Мне нужно создать размерную кисть для клиента. Чтобы заказчику не приходилось каждый размер искать в таблице по каталожному номеру уголка, я ищу его сам и записываю правильные значения уголков. Но когда есть более одной части, это излишне долго и трудоемко. Я хотел вставить картинку в Excel и вместо значения в углу вставить текстовое поле. Но я не знаю, как настроить запись значений из таблицы в это текстовое поле. Я использую Microsoft Office Excel 2007. Спасибо

Беллеро

Добавлено: 04.09.14 04:01

Здравствуйте, я хотел бы несколько советов. Делаю программу в excel для сдачи материала на склад. И мне нужно, чтобы ячейки с листа1 копировались на лист2 без включения моего листа2. Я использовал ActiveSheet.paste Destination:=worksheet(«list2»).cell(a ,2) все работает как надо, но изначально у меня была классическая pastespecial и вставлял без форматирования, поэтому только значения. Это здорово тем, что у меня всегда работало с первой ячейки, где у меня есть формула =Now() текущее время, и я не копировал формулу и не добавлял весь материал и т. д. на лист2 в таблицу, которая имеет свой собственный формат, который был сохранен. А с ActiveSheet.paste я совершенно не представляю, как вставлять только значения.

Добавлено: 09.08.14 10:26

Для Bellero: — 1) через значение, например: — Sheets(2).Range(«A1») = Sheets(1).Range(«A1»).Value — 2) через PasteSpecial: — Range(«A1:A5»).Копировать листы(«Лист2»).Range(«A1»).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Добавлено: 09.08.14 10:43

Беллеро: . в пункте 2 есть новая строка после «.Copy».

Пойпоп

Добавлено: 01.10.14 10:23

Здравствуйте, я пытаюсь выделить диапазон ячеек и скопировать текст из другого диапазона в этот диапазон. Район, в который я собираюсьскопируйте мой переменный номер. Поэтому я использую код, чтобы найти FirstEmptyRow. Этот работает для меня. Второй шаг — найти область, в которую следует скопировать текст. И тут у меня проблема. Я пытаюсь сделать что-то вроде этого: a = Worksheets(«Help X»).Range(«b9:c9») Application.Goto ActiveWorkbook.Sheets(«Help X»).Range(Cells(FirstEmptyRow, 9), Cells( FirstEmptyRow, 10)) Selection = a Первая строка должна выбрать данные для копирования, а вторая команда должна выбрать область для копирования из «a». Что бы я ни делал, у меня не получается совместить выделение активного листа и выделение области с переменным количеством строк. Выбор активного листа есть потому, что кнопка запуска макроса находится на другом листе. Возможно ли вообще то, что я создал? Если я использую «диапазон» вместо «ячеек» с фиксированной площадью, то все работает как надо. Но это как-то не работает с переменным количеством строк. Спасибо за любой совет

Добавлено: 06.10.14 08:30

To Poipop: — a = Worksheets(«Help X»).Range(«b» & lastLine & «:c» & lastLine)

Мишко71

Добавлено: 12.01.14 11:00

Привет, красавчик. . Я использую Excel и «Дополнительный персональный клиент» вместе, потому что мне пришлось бы использовать AutoIT на PUTTY, и я не смог бы работать с ПК во время этого процесса 🙁 . Так что теперь ура с проблемой. Когда я отправлю данные с E!PC в сеть, открываю, редактирую и вставляю в книгу, так что сразу занимает около +120 МБ памяти, и все равно растет до значений, с которыми ПК с трудом справляется «подумай».10 записей = 1,1гб ОЗУ!И это только Excel,господа.Есть ли какой-нибудь «инструмент»,который бы «почистил» хоть часть памяти после вставки данных?Дополнение:это рабочий ПК,так что некоторые вид расширенной оперативной памяти «НЕ СУЩЕСТВУЕТ» (они не $$$).Спасибо за время и усилия, чтобы прочитать это.

Добавлено: 12.03.14 12:04

К Мишко71: —Сохранение файла или закрытие файла (без сохранения) или что-то вроде этого: — Set Variable = Nothing — не поможет?

Мишко71

Добавлено: 12.04.14 19:29

To Jojo: Это будет возможно только после того, как блокнот обработает все данные (1 блокнот = 2 листа для редактирования + 10 листов с результатом). Кроме того, откройте другую книгу, в которую будут вставлены данные путем «связывания». Чтобы получить необработанные данные, мне нужно скопировать (в открытой книге результат) и вставить как «Значение». Затем я сохраняю файл, и когда я закрываю исходную книгу, все созданные листы (10) удаляются, и остаются только два основных листа. Для большей наглядности сниму видео (около 7 минут) и потом куда-нибудь сохраню. Как я уже писал, спасибо за прочтение 😉

Добавлено: 05.12.14 07:31

Кому Мишко71: — У Excel нет проблем даже с большим количеством листов, чем 12, конечно, это зависит от того, сколько ячеек заполнено. — Однако, если я правильно понимаю от 04.12.14, может помочь не создавать сразу 10 справочных листов, а ПОСТЕПЕННО копировать (переносить данные, ссылки) в другую книгу.

Читайте также:  Как удалить лишние сети windows 10

Габбана

Добавлено: 21.12.14 15:00

Здравствуйте, у меня проблема, когда я делаю таблицу на листе 2 и я хочу, чтобы значения менялись при входе в таблицу на листе 1. Что с этим делать? Я все еще не могу найти в таблице общие цены на предхолодильники, они, однако, объединены с другими электроприборами, как это можно суммировать, чтобы мне не приходилось вычислять его по формуле один за другим? Буду очень признателен, так как бьюсь с этим уже несколько часов.

Франта Смутне

Добавлено: 11.01.15 17:05

Здравствуйте, г-н Лесек, спасибо за отличный веб-сайт, который вы подготовили, и у меня есть один вопрос, на который я не смог найти ответ или инструкцию на вашем веб-сайте. Хотелось бы совета по созданию формы (анкеты). Я хотел бы, чтобы кнопка запуска отображалась внизу, после нажатия этой кнопкипоявлялись отдельные окна с вопросами, и пользователь заполнял данные в этих окнах. Эти данные будут записываться в отдельные ячейки, предназначенные для конкретных вопросов. (пример: в ячейке А1 будет вопрос: Ваше имя и фамилия: ; в ячейке В1 ответ будет редактироваться из окна, в котором будет вопрос об имени и фамилии). Спасибо за помощь в ответах.

Добавлено: 13.01.15 07:15

В Gbbin: — просуммируйте индивидуальное потребление с помощью SUMIF() + затем перенесите результат на другой лист с помощью =Hbrok1!A1. Однако гораздо лучше использовать таблицу непредвиденных обстоятельств (правда, это требует немного больше опыта)

Добавлено: 13.01.15 08:05

Франте Смутной: — необходимо использовать макрос. Без макроса он может быть бесполезен в Exc2003 «Данные/Формула».

Франта Смутне

Добавлено: 02.02.15 21:39

К ДжоДжо: Спасибо за ранний ответ, но я просто спрашивал здесь о макросе. Я не знаю, как его создать.

Добавлено: 02.04.15 10:37

Франте Сад: — для строк с 1 по 5: Sub Test() Для rw = от 1 до 5 answer = InputBox(Cells(rw, 1), «Пожалуйста, введите ответ!») Cells(rw, 2) = ответ Следующий rw End Sub

острый

Добавлено: 19.02.15 15:19

Добрый день. Я новичок, у меня таблица около 5000 строк и 10 столбцов, если я отфильтрую так, как мне нужно, у меня останется около 10-20 строк, мне нужно скопировать эти строки на второй лист. вот первый макрос Dim LastRow As Long, i As Long Dim AreaLabel As Range With Sheets(«database») LastRow = .Range(«A» & .Rows.Count).End(xlUp).Row For i = 1 В последнюю строку, если Len(Trim(.Range(«A» & i).Value)) <> 0 Then If OznacOblast is Nothing Then Set OznacOblast = .Rows(i) Else Set OznacOblast = Union(OznacOblast, .Rows(i)) End If End If Next If Not OznacOblast Is Nothing Затем ‘ эту область можно скопировать. TagArea.Copy Sheets(«справочный лист»).Rows(10)MarkArea.Select End If

Мартин

Добавлено: 23.02.15 06:14

Здравствуйте, хотелось бы посоветовать (желательно создать) макрос для записи времени в ячейке. Допустим, у меня есть столбец A, в который я ввожу данные в электронном виде, и мне нужно узнать, когда данные были введены. Вот для чего должна быть колонка post. B, где в каждой строке для каждого значения будет запись о том, когда значение было записано. Заранее благодарю за ответ. Мартин

Добавлено: 23.02.15 07:13

Мартину: — см. комментарий от 01.12.14 по адресу: http://office.lasakovi.com/excel/funkce/ms-excel-funkce-en-cz/

Добавлено: 16.03.15 15:29

Здравствуйте, есть ли возможность ссылки на то, что если я поставлю значение 11 в ячейку A1, следующая ячейка будет автоматически отмечена для меня. A11, я понимаю.

Дэвид

Добавлено: 12.05.15 10:37

Здравствуйте, спасибо за множество полезных советов на вашем сайте. Я создаю макрос Function (. ), который также возвращает приблизительное совпадение указанного значения в указанной последовательности. 1 значение должно быть возвращено, но в случае, если нет возможности вернуть значение по спецификации (например, ближайшее выше), я хочу вернуть хотя бы ближайшее значение + написать сообщение об ошибке где-нибудь (желательно в LOG лист в конце). Я не хочу возвращать функцию ошибку, потому что рабочая книга очень обширна, и 1 ошибка обычно вызывает лавину из примерно 100 ошибок. Невозможно записать в ячейки функцию, есть ли способ обойти это? Макрос будет вызываться во многих местах книги с разными параметрами, Sub мне кажется неуместным. Я понимаю.

Томаш

Добавлено: 03.06.15 12:04

Здравствуйте, у меня тоже есть одна доставка. У меня есть листы, выполненные в виде бумаги формата А4, к которым я всегда добавляю одну новую строку после нажатия кнопки. Я добавляю эти строки в область, окаймленную текстом с обеих сторон. Мне понадобится функция, которая гарантирует, что после добавления одной строки текст под вновь добавленной строкой перемещается вниз на одну строку, чтобы сделать егоместо для вставки другой строки. Я надеюсь, что это ясно. Спасибо за ответ

Двор

Добавлено: 23.06.15 07:42

Просто введите этот код в редакторе Visual Basic в окне List1. Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.Range(«A1»).Value = 11 Then Range(«A11»).Выберите End If End Sub Или этот код для окна ThisWorkbook. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If ActiveSheet.Range(«A1»).Value = 11 Then Range(«A11»).Выберите End If End Sub

Двор

Добавлено: 01.07.15 15:41

Дэвиду Запуск функции В отличие от подпроцедур, которые можно запустить разными способами, функцию можно запустить только: — вызвав ее из другой процедуры, — используя ее в формуле на листе. Вы можете узнать о функциях по этой ссылке http://office.lasakovi.com/excel/vba-funkce-vzorce/vlastni-funkce-excel-VBA/

Питер

Добавлено: 24.07.15 17:17

Добрый день. Хочу попросить совета, как сделать мако, что бы считать количество автоматических пересчетов??? Спасибо ..

Пол

Добавлено: 11.09.15 13:58

Здравствуйте, хотелось бы попросить совета по элегантному («элегантному») решению. Это всего лишь одно изменение, и значение добавляется не в одну ячейку, а в диапазон/набор. Например: B2:D7 и подобные. Заранее спасибо

Карел

Добавлено: 08.11.15 22:52

Здравствуйте, я хочу записать данные из формы, созданной в Excel, на лист книги Excel. Для этого должен быть какой-то простой макрос, к сожалению, я пока не знаю, что это такое. Буду признателен за любую идею. Спасибо К.

Франтишек Мачек

Добавлено: 11.11.15 19:40

Здравствуйте, я пытаюсь создать формулу, которая берет значение из TextBox и записывает его, например, в ячейку A2 после нажатия кнопки OK. Я освоил это, число = 2 Range(«A» &число) = TextBox1.Value, но я не знаю, что делать дальше, что после нажатия этой кнопки значение в TextBox (числовое) автоматически удаляется, а затем устанавливается текстовое поле для двух строк выше (A4) и так далее (А6, А8, А10) и т.д..) следующая процедура после нажатия кнопки «ОК, готово» после подсчёта всех значений написать текст и т.д. уже практически просто, но я застрял по проблеме цикла, когда при нажатии на кнопку значение впоследствии будет на две строки выше. Кто-нибудь может помочь с этой проблемой? Может кто-нибудь, кто уже сталкивался с этой «проблемой», посоветовать? Спасибо за любой совет

Вилли

Добавлено: 20.11.15 11:59

Добрый день. Большой пожалуйста. На 1-м листе у меня есть экспорт из базы данных, где много значений, присвоенных отдельным людям (у некоторых одно значение, у некоторых около 10). Лица отображаются как личный номер. На 2-м листе идет список личных номеров и фамилий лиц в две графы. Мне нужно, чтобы имена отображались на 1-м листе вместо инициалов. Я понимаю.

Добавлено: 15.12.15 14:18

Здравствуйте, у меня есть некоторые данные на листе 1, такие как номер заказа, номер продукта и т. д. в столбце J у меня есть список из 5 текстовых значений, одно из которых Resolved-Valid Complaint, если человек отмечает это значение, я хотел бы, чтобы вся строка (номер заказа, номер продукта и т. д.) была написана на следующем листе . Кто-нибудь знает как это сделать? (на заключительном этапе было бы совсем лучше, если бы строка после выбора разрешенного значения в списке копировалась на следующий лист и не редактировалась, возможно, после выбора другого значения из списка она снова редактировалась бы (чтобы когда человек забывает значение из листа, возможно, напишите числовое произведение, чтобы ему пришлось щелкнуть статус, отличный от разрешенного, ради целостности и полноты данных.

Добавлено: 15.12.15 14:19

Здравствуйте, у меня на листе 1 в столбце J список из 5 значений, из которых пользователь выбирает(1-неразрешенная, 2-разрешенная, 3-разрешенная действительная жалоба, 4-разрешенная недействительная жалоба и 5-неразрешенная), если он выберет значение 5-разрешенная, то я хотел бы, чтобы данная строка, в которой мы выбираем, была записана лист 3, есть идеи, как это сделать? На работе мы решаем жалобы от клиентов, и я хочу сохранять только правомерные жалобы, а они на данный момент имеют статус 5-решено

Восхождение

Добавлено: 28.01.16 23:06

Здравствуйте, куда перейти непосредственно на рабочий лист — при нажатии на ячейку С3 вводится значение «ДА», после еще одного нажатия пишется «НЕТ». На самом деле это что-то вроде флажка, если я хочу изменить несколько определенных ячеек, так что нет проблем: Установить rng = Range(«C3, C5, D8, D10») Но я понятия не имею, как определить несколько ячеек для независимого изменения -> ; только там, где я нажимаю. Кто-нибудь знает, как мне помочь? Заранее спасибо. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Set rng = Range(«C3») Если Application.Intersect(Target, rng) is Nothing, тогда установите mRngOld = Target Exit Sub End If If rng.Value = «YES» Тогда rng.Value = «NO» Else rng.Value = «YES» End If End Sub

Добавлено: 03.02.16 10:51

Здравствуйте, я новичок в VBA. Мне нужна помощь с макросом, который вставляет, например, в каждую 4-ю строку во всех столбцах таблицы количество значений над ней и так до конца таблицы. Надеюсь понятно написал. Спасибо

Здравствуйте

Добавлено: 07.02.16 08:44

Здравствуйте, как добавить переменные в ячейки с A2 по A10 и ячейки с B2 по B10, чтобы ячейки с B2 по B10 рассчитывались с использованием Case Is. Я написал это так, но это неправильно: Для i = 2 To 10 Step 1 Select Case Range(«Ai») Case Is

Поделиться с друзьями
ОС советы