Привет Эксперты, У меня есть приложение vba, которое я должен поддерживать. На самом деле я не эксперт по vba, но стараюсь! приложение в основном получает данные из БД и отправляет эти данные в outlook для создания встречи. данные сначала отображаются пользователю в форме windows, а затем п...
я хочу, чтобы если интернет выключен, то файл не должен быть открыт, и если интернет включен, то можно открыть файлЧто я уже пробовал: я много пробовал в интернете, но потерпел неудачу ...
Привет Пожалуйста, найдите следующую ссылку на снимок экрана:[^][^] Я знаю, что C# может построить практически все, что угодно. Однако можно ли использовать C# для создания базы данных, которая: - Хранит изображения так, как вы видите по ссылке (внутри базы данных) - Получение набора после...
Предыстория: я получил огромную стену sql-кода из программы, которую я хочу использовать для сброса данных в excel. Выполнение этого кода из VBA приводит к большому количеству ошибок, и кусок кода слишком велик и запутан, чтобы пройти через него. Запуск запроса на C# работает нормально, поэ...
у меня есть база данных, в которой один столбец-account no, а также есть столбец account no в листе excel. как сопоставить столбец с помощью запроса vba ?Что я уже пробовал: "выберите * из учетной записи, где account_no= sheet1. range("A1")" он не работает ...
у меня есть форма запроса, которая принимает различные поля ввода от пользователя. большинство запросов имеют те же поля, что и предыдущий набор введенных данных. Поэтому я хотел бы иметь дублирующую кнопку для заполнения формы предыдущим набором данных , используя номер формы (который буде...
я пытался добавить текст с уже существующим текстом в ячейке.но мой приведенный ниже код заменяет текст. пожалуйста, помогите мне, я новичок в 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)...