ufExcelFile.EnableViewState = false; //filePath = ufExcelFile.Value.ToString(); filePath = Server.MapPath("~/"); filePath = filePath + ufExcelFile.Value; Stopwatch sw = new Stopwatch(); sw.Start(); string excelConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filePath + ";Extended Properties=Excel 12.0;"; using (OleDbConnection excel_con = new OleDbConnection(excelConnectionString)) { excel_con.Open(); string sheet1 = excel_con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null).Rows[0]["TABLE_NAME"].ToString(); /****error line*****/ System.Data.DataTable dtExcel = new System.Data.DataTable(); dtExcel.Columns.AddRange(new DataColumn[3] { new DataColumn("CNIC", typeof(string)), new DataColumn("PhoneNumber", typeof(string)), new DataColumn("BatchNumber", typeof(string)) }); using (OleDbDataAdapter oda = new OleDbDataAdapter("select * from [" + sheet1 + "]", excel_con)) { oda.Fill(dtExcel); } excel_con.Close(); using (SqlConnection con = new SqlConnection(connectionString)) { using (SqlBulkCopy sqlBulkCopy = new SqlBulkCopy(con)) { //Set the database table name sqlBulkCopy.DestinationTableName = "dbo.ExcelToDB"; //[OPTIONAL]: Map the Excel columns with that of the database table sqlBulkCopy.ColumnMappings.Add("CNIC", "CNIC"); sqlBulkCopy.ColumnMappings.Add("PhoneNumber", "PhoneNumber"); sqlBulkCopy.ColumnMappings.Add("BatchNumber", "BatchNumber"); con.Open(); sqlBulkCopy.BulkCopyTimeout = 2700; sqlBulkCopy.WriteToServer(dtExcel); con.Close(); count++; } } } sw.Stop(); lblTotalExecutionTime.Visible = true; lblTotalExecutionTime.Text = "Total Execution Time: " + sw.Elapsed; 

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

См. Следующий рисунок:

В ячейке B5 I =(AND(IF(B2=0,SUM(2+2),0),IF(B3="",SUM(2+2),0))) и вместо этого он говорит TRUE рассчитать и дать мне 4. Я не знаю почему.

• гиперссылка в excel, если файл существует в папке
• Excel 2010: вложенный оператор IF
• Excel - фильтрация значений и копирование данных на новый лист
• Есть ли способ для Excel вернуть результат формулы, которая сама используется в качестве критериев IF?
• Оператор IF возвращает false без данных

Я хочу, если я введу 0 для Apple в ячейку B2 и оставлю ячейку B3 для оранжевой пустой (должен быть пустым или появится ошибка), только тогда я хочу, чтобы ячейка B5 вычислила 2 + 2 = 4. Теперь, если я введу 0 для Orange в ячейке B3 и оставлю ячейку B2 для Apple пустой (должен быть пустым или появится ошибка), тогда я хочу, чтобы ячейка B5 имела значение 0.

 =IF(AND(B2=0, B3=""), SUM(2,2),0) 

 =IF(AND(B2 = "", B3 = ""), "Error", IF(AND(B2=0, B3=""), (1+(K17*4))*K31),0)) 

Мне нужен оператор SQL Query, который выбирает строки, в которых столбец O не равен 0.

пример:

Col A Col O Pencil 1 Ballpen 0 Paper 5 

Я хочу положить лист в datatable, но исключая строки, которые имеют значение 0 в столбце O. ячейки, которые я выбираю, запускаются из строки 13, потому что файл excel по-прежнему имеет заголовки и заголовки в первых 10 строках. Если я не ошибаюсь, это начнется следующим образом:

• запрос в ADODB, имя столбца dot il
• Excel не распознает переменные в SQL-заявлении
• Как экспортировать сериализованные данные из WordPress
• Подключение данных Excel-to-Excel дает ограниченные возможности SQL
• форматирование телефонного номера в 10-значное число (mysql)

 SELECT * FROM SHEET1$ WHERE. . . 

 SELECT * FROM SHEET1$ WHERE o <> 0 ; 

У меня есть ряд чисел, которые являются почтовыми кодами, но поскольку все они начинаются с нуля (NJ), нуль падает. то есть. 07749 показывает только как 7749. Какую формулу я могу написать в другой ячейке, которая добавит нуль к началу каждого из них? Спасибо, Jerry.'Jeff

 =TEXT(A1,"00000") 

A1 = 317.84 , B1 = 422.79 .
Ячейки A1 и B1 выполняют SUM на пару чисел, которые вычисляются с помощью основных операторов математики и функции ROUND .

Вызов следующей функции в соседней ячейке:
=SQRT(A1*A1+B1*B1) постоянно дает 0 .
Изменить : это действительно относится к любой функции, которая содержит любую из этих двух ячеек

Теперь эта проблема воспроизводима, но явно не имеет никакого смысла.

• VBA - ActiveX - Открыть Datepicker, нажав на ячейку
• Форматирование списка текстовых строк в Excel
• Как заполнить ячейку, когда все ячейки верны
• VBA "Ошибка компиляции: заявление недействительно вне блока типа"
• Как использовать флажки в инструкции IF-THEN в Excel VBA 2010?

Некоторая информация, которая может помочь

• Работа в Excel 2010
• Я добавил код VBA но он не имеет ничего общего с функциями
• Ссылка на скачивание файла:
  • http://speedy.sh/QaZ7Z/.xlsm
  • http://speedy.sh/bfMZM/.xlsx

См. Ячейки BY35: BW35

Любые идеи, что может привести к этому?

Я смотрю таблицу в excel

Name | Paperwork | Paperwork 1 | Paperwork 2 Joe | 1 | 1 | 1 Jane | 0 | 1 | 0 

Я пытаюсь найти 0 в электронной таблице и выводить что-то вроде. В документе, написанном Jane for Paperwork 2, есть ошибка.

Код VBA, который у меня есть:

• VBA - ActiveX - Открыть Datepicker, нажав на ячейку
• Форматирование списка текстовых строк в Excel
• Как заполнить ячейку, когда все ячейки верны
• VBA "Ошибка компиляции: заявление недействительно вне блока типа"
• Как использовать флажки в инструкции IF-THEN в Excel VBA 2010?

 Private Sub CommandButton1_Click() Dim i As Integer, j As Integer, Staff As String, Consumer As String, Error As String, CurCell As String MsgBox "Starting the routine..." For i = 2 To 3 If Cells(i, 2).Value = 0 Then For j = 3 To 4 If Cells(i, j).Value = 1 Then CurCell = i & ", " & j Else CurCell = i & ", " & j MsgBox CurCell End If Next j End If Next i End Sub 

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

Для (Jane, Paperwork 1) алгоритм видит 1 и перемещается в increment For (Jane, Paperwork 2), алгоритм видит 0, и я хочу показать: «Джейн отсутствует» + «Бумага» 2.

Я хотел бы сделать что-то в этот момент, например, установив переменную строки Staff, которая будет = Cell (строка i, j) .value, а затем выводит «Персонал» где-то в электронной таблице, но я не знаю синтаксиса VBA для быть в состоянии сделать это.

 Sub ZeroError() Dim rng As Range Dim rowREF As Integer 'row reference Dim colREF As Integer ' column reference Dim eName As String 'name holder for employee Dim wAssignment As String 'assignment holder eg Paperwork Dim colLOCATION As Integer ' this is the column you want to put your results in colLOCATION = 1 ' placing everying in column note that i add 6 in CELLS rowREF = 1 colREF = 1 eName = "" wAssignment = "" Set rng = ActiveSheet.UsedRange For Each cell In rng If cell.Value = 0 Then rowREF = cell.Row colREF = cell.Column eName = Cells(rowREF, 1) wAssignment = Cells(1, colREF) If (eName <> "" And wAssignment <> "") Then If Cells(rowREF, colLOCATION + 6) <> "" Then colLOCATION = colLOCATION + 1 Else colLOCATION = 1 End If Cells(rowREF, colLOCATION + 6) = eName & " " & "is missing" & " " & wAssignment End If End If If cell.Value <> 0 Then rowREF = cell.Row colREF = cell.Column eName = Cells(rowREF, 1) wAssignment = Cells(1, colREF) If (eName <> "" And wAssignment <> "") Then If Cells(rowREF, colLOCATION + 6) <> "" Then colLOCATION = colLOCATION + 1 Else colLOCATION = 1 End If Cells(rowREF, colLOCATION + 6) = eName & " " & "has completed" & " " & wAssignment End If End If Debug.Print colLOCATION Next End Sub 

 Sub lost_Paperwork() Dim iStaffCol As Long, rng As Range With ActiveSheet 'define this worksheet peoperly! With .Cells(1, 1).CurrentRegion iStaffCol = .Columns.Count + 2 For Each rng In .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1) If rng.Value = 0 Then _ .Cells(Rows.Count, iStaffCol).End(xlUp).Offset(1, 0) = _ .Cells(rng.Row, 1).Value & ", missing " & .Cells(1, rng.Column).Value Next rng End With .Cells(1, iStaffCol) = "Staff" End With End Sub 

Поэтому я храню 10 строк в массиве. Затем я просматриваю рабочий лист и добавляю больше элементов в массив, начиная с позиции 10 (11-й элемент). Работает отлично.

arr = Array("Summary", "Account Summary", "Calendarization", "Vehicles", "Buildings", "Personal Comp", "Comp Equip", _ "Software", "Furn & Fixtures", "Alloc Deprec") With ThisWorkbook.Worksheets("PrintTabCheck") lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 6 To lastRow If .Cells(i, 4) <> 9999999 Then ReDim Preserve arr(UBound(arr) + 1) arr(UBound(arr)) = .Cells(i, 2).Value Debug.Print arr(UBound(arr)) End If Next End With 

Но иногда я ничего не хранил в массиве до того, как я зациклился, поэтому решил, что могу начать заполнять массив в i-6 (позиция 0), но я получаю run time error 13 type mismatch error во время строки на строке arr(i-6) = .Cells(i, 2).Value ; _;

Это происходит потому, что первая ячейка для запуска true находится в строке 9, а не 6. Я попытался сделать arr(i - 6 - b) = .Cells(i, 2).Value где b=3 но все еще нет; _;

• Объявление свойства нескольких элементов в массиве
• Excel VBA вытягивает одно значение вне диапазона и помещает в ячейку
• Лучший способ игнорировать пустые массивы в Python?
• Процентный ранг ячейки, которая не находится в массиве - EXCEL
• IsInArray Excel VBA ... вне диапазона

В процессе работы я добавляю в массив сначала «фиктивную» строку, а затем реплицирую, как описано выше.

 arr = Array("dummy") With ThisWorkbook.Worksheets("PrintTabCheck") lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 6 To lastRow If .Cells(i, 4) <> 9999999 Then ReDim Preserve arr(UBound(arr) + 1) arr(UBound(arr)) = .Cells(i, 2).Value End If Next End With 

Но это глупо XD Почему я не могу заполнить массив в позиции 0, не прибегая к добавлению фиктивного элемента ???

Я объявил это как Dim arr As Variant

 Sub arrtest() Dim arr() As String Dim t&, i&, lastrow&, firstrow& With ActiveWorkbook.Worksheets("Sheet1") lastRow = .Cells(.Rows.count, "A").End(xlUp).Row For t = 6 To lastRow If .Cells(t, 4) <> 9999999 Then firstrow = t - 6 Exit For End If Next ReDim arr(firstrow To firstrow) For i = 6 To lastRow If .Cells(i, 4) <> 9999999 Then ReDim Preserve arr(firstrow To UBound(arr) + 1) arr(UBound(arr)) = .Cells(i, 2).value End If Next For t = LBound(arr) To UBound(arr) Debug.Print arr(t) Next End With End Sub 

Я хочу макрос, чтобы при вводе 0 в конкретную ячейку / диапазон ячеек, которые он очищает ячейку.

Я написал простой макрос, подобный этому

 Sub RemoveZeros() 'to remove 0 values that may be a result of a formula or direct entry. For Each cell In Range("A1:D20") If cell.Value = "0" Then cell.Clear Next End Sub 

Тем не менее, я должен запустить это после того, как я ввел свои значения, чтобы он очистился. Я хотел бы, чтобы ячейка очистилась, если введено значение 0 . Как мне это сделать?

• Объявление свойства нескольких элементов в массиве
• Excel VBA вытягивает одно значение вне диапазона и помещает в ячейку
• Лучший способ игнорировать пустые массивы в Python?
• Процентный ранг ячейки, которая не находится в массиве - EXCEL
• IsInArray Excel VBA ... вне диапазона

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Value = 0 Then Target.ClearContents Application.EnableEvents = True End Sub 

У меня проблема с кодом VBA, который кажется таким простым, но все же просто не работает. Я новичок в VBA так, что чего-то не хватает.

Код должен проверять ячейку (XFD3002), чтобы увидеть, равно ли она 0, если она отображает сообщение и останавливает сохранение файла. Для фона есть проверка, чтобы убедиться, что определенные ячейки заполнены, и если не вернет 0.

Код:

• Объявление свойства нескольких элементов в массиве
• Excel VBA вытягивает одно значение вне диапазона и помещает в ячейку
• Лучший способ игнорировать пустые массивы в Python?
• Процентный ранг ячейки, которая не находится в массиве - EXCEL
• IsInArray Excel VBA ... вне диапазона

Private Sub Check_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim check As Integer check = Sheets("Data").Range("XFD3002").Value If check = 0 Then MsgBox ("You have missed one or more required field") Cancel = True End If End Sub 

Может ли кто-нибудь увидеть что-то не так с этим?

У меня есть набор мест со следующим соглашением об именах:

• КП 0,18 СР 02
• КП 100.33 СР 06
• КП 72.93 СР 09

Я хочу изменить все значения KP так, чтобы было 3 цифры перед десятичной точкой, например:

• KP 000,18 CP 02
• КП 100.33 СР 06
• KP 072.93 CP 09

Может ли кто-нибудь подумать о способе сделать это, который не включает 10 вложенных заменяющих функций?

• Заменить слова в столбце с другим текстом
• VBA, как сделать формулы видимыми в Excel
• Формула для назначения, является ли дата «В рабочее время» или «Вне рабочего времени» в excel
• Объединение данных из двух таблиц в Excel 2010
• Я не знаю, какую формулу нужно делать

 =LEFT(A1,3) & REPT("0",7 - FIND(".",A1)) & RIGHT(A1,LEN(A1)- 3) 

 =TRIM(LEFT(SUBSTITUTE(A1," ",REPT(" ",LEN(A1))),LEN(A1))&TEXT(VALUE(MID(SUBSTITUTE(A1," ",REPT(" ",LEN(A1))),LEN(A1),LEN(A1)))," 000.0# ")&MID(SUBSTITUTE(A1," ",REPT(" ",LEN(A1))),LEN(A1)*2,LEN(A1))&MID(SUBSTITUTE(A1," ",REPT(" ",LEN(A1))),LEN(A1)*3,LEN(A1))) 

Я использую Mid () для извлечения информации из дампа Oracle, и когда я пытаюсь извлечь число с ведущим 0, excel автоматически отключает его. Есть ли способ сохранить 0?

Пример в ячейке 6,1 = "0030645"

Sub snip4() Dim text As String text = Cells(6, 1).Value Cells(7, 4) = Mid(text, 4, 4) End Sub 

Выход для 7,4 = "645"

• Преобразование координат Laravel Excel
• Панель инструментов отображается при изменении вкладок в форме пользователя
• Индивидуальный регрессионный анализ в excel
• Цветная ячейка IF-Condition
• Найти текст в таблице array excel

Желаемый выход = " 0645 "

Ячейка выгружается как общий формат

 Sub snip4() Dim text As String text = Cells(6, 1).Value With Cells(7, 4) .NumberFormat = "@" .Value = Mid(text, 4, 4) End With End Sub 

 Sub snip4() Dim text As String text = Cells(6, 1).Value Cells(7, 4) = "'" & Mid(text, 4, 4) End Sub 

У меня есть даты в столбцах U, X, AA, AD, AG и AJ и именах в V, Y, AB, AE, AH и AK. У меня есть следующая формула для выбора последних обновлений по мере их обновления. Сначала будут заполнены столбцы U и V, а затем столбцы X и Y будут обновлены позднее. Мне нужно, чтобы столбец даты и имени был заполнен до обновления ячеек на другом листе.

Это формула, которую я использую, которая очень длинная, но я не могу понять, как сделать ее короче. Для даты я заменяю столбцы для столбца даты (U, X, AA, AD, AG и AJ) во второй половине формулы

=CHOOSE(1+COUNT('Training Schedule'!U42,'Training Schedule'!V42,'Training Schedule'!X42,'Training Schedule'!Y42,'Training Schedule'!AA42,'Training Schedule'!AB42,'Training Schedule'!AD42,'Training Schedule'!AE42,'Training Schedule'!AG42,'Training Schedule'!AH42,'Training Schedule'!AJ42,'Training Schedule'!AK42),"",'Training Schedule'!V42,'Training Schedule'!Y42,'Training Schedule'!AB42,'Training Schedule'!AE42,'Training Schedule'!AH42,'Training Schedule'!AK42) 

Эта формула работает, но если в столбце имени не введена запись, то 0 (ноль) копируется в столбец имен. Как я могу отобразить пустую ячейку? Если я добавлю имя, но ни одна дата не скопирована. У меня есть другая формула для подсчета формулы даты и имени для копирования на другой рабочий лист, но она подсчитывает 0, как если бы ячейка была заполнена. Я сделал так много версий файла, с которым я работаю, и ошибочно удалил свой оригинал, который работал без 0, и я не помню, как я это сделал!

• Excel 2007: обновить соединение для передачи данных и показать / скрыть результаты обновленного фильтра
• Кто-нибудь сталкивался с странным поведением LOOKUP ()?
• Уравнение / сортировка для разделения одного длинного столбца данных на отдельные столбцы
• Удаление содержимого из ячейки таблицы Word с помощью Excel VBA
• VBA Если Countifs

 =IFERROR(IF(LEN(INDEX(V42:AK42, MATCH(1E+99, U42:AJ42))), INDEX(V42:AK42, MATCH(1E+99, U42:AJ42)), ""), "") 

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

 =COUNTIF(A:A,"<"&TODAY())/COUNTA(A:A) 

 =if((your VLookup-formula)<today(),0,your VLookup-formula) 

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

Использование Excel 2016

• Можно ли изменить формулу ячейки, не заставляя ячейку пересчитывать?
• excel 'IF' 'OR', но нужна пустая опция
• Поиск соседних ячеек
• сопоставлять и заменять значения ячеек с 1 листа на другой
• Написание формулы в ячейке, которая проверяет, равны ли два значения ячейки, но делает одно исключение

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

У меня есть такие значения:

1. A3 – Категория (Заголовок)
2. A4 – глобальный
3. A5 – КАМ
4. A6 – продавец
5. A7 – внешний
6. A8 – Администратор

Вот мой код:

• Установить диапазон в сортировке VBA
• Возвращаемое значение в столбце, основанном на значении в подмножестве в другом столбце
• Формула Excel для установки значения ячейки
• Как получить сохраненные наборы из excel с помощью Python
• Необходимо удалить дубликаты из списка. Функция Set () не работает. Метод петлевого цикла

Function xyz() Dim Category as Variant Set Category = Sheets("Reports").Range("A4:A8") End Function 

Значения, которые я получаю:

 MsgBox Category(0) =Category MsgBox Category(1) =Global MsgBox Category(2) =KAM MsgBox Category(3) =Salesman MsgBox Category(4) =External MsgBox Category(5) =Admin 

Насколько я понимаю, база Option Array по умолчанию задана как «0», так почему значение Category (0) относится к ячейке «A3» вместо ячейки «A4»?