у меня есть форма запроса, которая принимает различные поля ввода от пользователя. большинство запросов имеют те же поля, что и предыдущий набор введенных данных. Поэтому я хотел бы иметь дублирующую кнопку для заполнения формы предыдущим набором данных , используя номер формы (который буде...
я пытался добавить текст с уже существующим текстом в ячейке.но мой приведенный ниже код заменяет текст. пожалуйста, помогите мне, я новичок в vba.что я должен сделать, чтобы добавить текст,какую команду я должен использовать?Что я уже пробовал:Sub micro1() lr = ThisWorkbook.Worksheets(...
код показывает ошибку в строке xlsum, которая является последней строкой.Что я уже пробовал:Sub formatPivot() 'Declaration Dim ws As Worksheet Dim pc As PivotCache Dim pt As PivotTable 'Adding worksheet for the destination of the pivot table Set ws = ActiveSheet 'Creating Pivot cache Set pc...
На самом деле я копирую столбец с других листов на лист1.мне удалось скопировать 1 лист.но я хочу начать копирование данных из ячейки, где копирование закончилось раньше. Один ------------------ 1 Больничное Учреждение ------------------ 2 Общая Палата ------------------ 3 ...
код ничего не показывает, когда я выбираю файл, потому что он выходит из sub, я думаю.но если я удаляю exit sub и выбираю файл, это нормально, но если я не выбираю файл, он показывает msgbx, но тогда он также приходит как файл не найден. как отредактировать мой код, чтобы он работалЧто я уж...
у меня есть около 500 данных и примерно на 100 данных код останавливается из-за ошибки деления на нольЧто я уже пробовал: Приложение.Диапазон ("О7").Активировать "количество данных хранится в переменной Приложение.Выбор(Отбор, Селекция.Конец(xlDown)).Выбрать приложение.Графа (Выбор) Диапазо...
из моих данных я хочу, чтобы красные клетки имели значения менее 50%, янтарные-от 50 до 90%, а зеленые-более 90%. когда я запускаю эту программу, она показывает синтаксическую ошибку для С Колонками ("D2:D37"). FormatConditions.Добавить тип:=xlExpression, оператор:=xlBetween,_ Form...
я даю цикл for для двух вариантов того, что произойдет, если файл не будет выбран. когда я не даю цикл for for тогда он работает но тогда если я не выберу файл он покажет ошибкуЧто я уже пробовал:Sub importedrfile() Worksheets("sheet2").Activate Dim scan As Integer Dim myfilepath As String ...
Всем Привет, У меня есть файл .txt со следующими данными:Student 1 name abc age 12 section 123 Student 2 section 456 name xyz age 13 Student 3 name dfg age 12 section 456 Моим выходным файлом будет файл. xlsxstudent name age section student1 abc 12 123 student2 xyz 13 456 st...
Как включить оба разделителя в строку элементов строки? как мне разделить данные за один раз?если я даю только vbtab данные импортируются правильно но есть двойные кавычки опущенныеSub importfile() Open "E:\anaken\excel n vba\project\DATA SETS_VBA.txt" For Input As #1 x = 0 Do Until EOF(1) ...
Привет, У меня есть свои данные, как показано ниже. вход: Название Loc_id 0 Илья HYD001 Илья 0 Илья 0 Илья Азбука.запрет 0 бан 0 бан Рам Пуна 0 xyz 0 бан Название Loc_id 0 Илья HYD002 Илья 0 Илья 0 Илья Азбука.запрет 0 бан 0 бан Рам Пуна 0 xyz 0 бан Мне нужно видеть данные в следующем фо...
id name sal 0 abc 100 123 bcd 200 ss cdf 300 0 dfg 400 id name sal 0 ghi 500 234 hij 600 sd ojk 400 вывод такойid name sal 123 abc 100 123 bcd 200 123 cdf 300 123 dfg 400 234 ghi 500 234 hij 600 234 ojk 400 Что я уже пробовал:Sub DeleteRowsWithX() maxRow = ActiveSheet.UsedRange.Rows.Cou...
a 1 2 3 b 1 2 3 c 1 2 3 a 1 16 17 b 12 15 16 c 13 14 17 У меня есть такие данные в моем excel .Из этого я хочу видеть свой необходимый вывод, как показано ниже, с помощью скрипта vba. Обязательный ОП: a b c 1 1 1 ...
Всем Привет!, Это мой первый вопрос на этом сайте. описание проблемы Проблема в том, что в VBA Excel ListBox мы не можем выбрать отдельное выравнивание текста каждого отдельного столбца. Свойство TextAlign по умолчанию выравнивает все столбцы по выбранному выравниванию. Как мы можем решить...
Sub Texas() Dim wks As Workbook Dim app As Object On Error Resume Next Dim i As Integer Sheets("TEXAS").Activate Range("A1:D1000000").ClearContents Set app = GetObject("RIBM") Set app = GetObject("RIBM") If Trim(app.getdisplaytext(1, 32, 26)...
Я создаю форму пользователя в VBA, но мне нужна подсказка в стиле cue banner (например, "DD/MM/YYYY" и т. д.) В некоторых полях. Я могу найти VB.NET код для этой функции, но не могу найти решение VBA. Есть идеи?Что я уже пробовал: Не так уж много на самом деле, немного поискал в интернете, ...
Создал короткий макрос для распаковки некоторых файлов и запуска часов после нажатия кнопки commandbutton. Я нахожусь в сети с некоторыми ограничениями, но у меня есть права администратора как на этот компьютер, так и на сетевую папку. Проблема в том, что он действует нормально в электрон...
Когда пользователь идентифицирует слово в кроссворде,он должен выделить его. Однако я не могу выделить командную кнопку при нажатии пользователем. Следующий код я использовал для создания сетки командных кнопок 10 x 10.Private Sub cmd_Click() FrmCross.Frame1.Controls(cnt).BackColor = RGB(0,...
Привет, У меня есть класс, который содержит в себе некоторые поля и свойства, Проблема в том, что когда я пытаюсь присвоить значение его переменным, я терплю неудачу, и все, что я вижу, когда я отслеживаю его, это то, что поля моего кода не приняли никаких значений, Вот код моего объекта по...
Я пробовал следующий код, скопированный с различных сайтов, но я не программист. Я хочу, чтобы изображение загружалось в правой части экрана в Word напротив позиции курсора. В настоящее время он загружается в верхней части документа или в центре первой страницы, если я использую .Top = wdS...