Поиск
... объявлении любой переменной в памяти 32-битной системы резервируется Long-адрес для ... тип Long является более родным для 32-битных систем. Поэтому тип Integer ... должен быть преобразован из 16-битного(вроде бы он в ... с типом Integer уходит время на преобразование). Ведь хоть Long и родной ... -то мне подсказывает, что Integer преобразовывается в Long не при каждом обращении, а ... (1, 2) = "Integer"
Cells(1, 3) = "Long"
n ...
Изменен: 19.01.2015
Читать сообщение на форуме или сайте. ... ; (ByVal x As Integer, ByVal y As Integer) As Long
Declare Function ... As Long, ByVal hwndCallback As Long) As Long
#End If
Проблема заключается в том ... не отвечает"(предполагаю, что в ответ на использование клавиатуры, левая ... Break уже не работает, хотя в коде я его не отключал ... я сделал вывод, что проблема в неправильном объявлении внешних по отношению ... к коду функций (Уточню: в самом коде у меня новые ... платформенная неразбериха внутри VBA поставила в тупик. Поэтому буду признателен за ...
Изменен: 14.08.2018
Читать сообщение на форуме или сайте.Автор: Андрей Лящук. :sceptic: ' EXAMPLE USAGE (PASTE SHAPE ON WORKSHEET TO SHAPE IN FORM):
' ____________________________________________________________
' Sheets(SN_Output).Shapes(EMFName).Copy
' Me.BMDS_EMF.Picture = PastePicture(xlPicture)
'***************************************************************************
'*
'* MODULE NAME: Paste Picture
'* AUTHOR & DATE: STEPHEN BULLEN, Business Modelling Solutions Ltd.
'* 15 November 1998
'*
'* CONTACT: ...
Изменен: 06.08.2019
Читать сообщение на форуме или сайте. ... Пытливый. Как-то так, см.в файле на листе фигуру с ... , arrS, lngI As Long, lngJ As Long, lngS As Long, intI As Integer
For lngI = 2 ... Then
intI = UBound(Split(Cells(lngI, 1), ",")) + ... 1
End If
Next lngI
arrA = [a1].CurrentRegion.Value
... arrB(lngJ + 1 + lngS, 2) = arrA(lngI, 2)
Next lngS
lngJ = lngJ + lngS ...
Erase arrS
Next lngI
[d2]. ...
Изменен: 28.12.2017
Читать сообщение на форуме или сайте. ... может превысить предел Integer, не стоит объявлять Integer :)
Объявляйте Long.
Кроме того, по ... , VBA converts all integer values to type Long, even if they are ... declared as type Integer. Therefore ... performance advantage to using Integer variables; in fact, Long variables might be ... .
Ну а с глюком кириллицы в UDF я столкнулся на работе ... .XLS!Get_HTML_Format(A1)
Если в надстройке (или в этом файле), то имя ...
Изменен: 04.12.2012
Читать сообщение на форуме или сайте. ... (типа передают ссылкой или значением, в чём разница, что будет, если ...
ByVal - передача параметра, как значение. В ходе работы функции/процедуры с ... таким параметром будут происходить только в рамках процедуры/функции.
ByRef ( ... все переменные переданные процедуре/функции в ходе работы последней изменят свои ... нужно написать функцию, но ограничение в один возвращаемый параметр нам не ... n as Integer) as Long
Dim a as Long, isum as Long
For a ... ничего не произойдет.
П.С.: В общем все просто до безобразия.
Изменен: 04.04.2018
Читать сообщение на форуме или сайте. ... : Jack Famous. "Jack Famous: В любом случае, изучу"не ... со всем согласен: в основном, кажется, что выигрыш сильно ... и тот же элемент массива в цикле неоднократно, назначьте временной переменной ... элемент, и используйте именно ее. В циклах повышение производительности может достигать ... For Loop с Integer или Long индексом как минимум в двое быстрее." ... (если только не прописать её в отдельном модуле, где все сравнения ... байтовый массив ещё нужно получить.В общем, доверяй, но проверяй (и ...
Изменен: 09.11.2022
Читать сообщение на форуме или сайте.Автор: Hugo. Почти попали. Сравните.
Вместо Integer лучше Long - вдруг данных будет больше, да и всё равно компилятор преобразует при работе.
У меня результат сошёлся, но проверьте на больших и беспорядочных данных.
Sub Try()
Dim i As Long
Dim j As Long
Dim en1 As Long, en2 As Long, en3 As Long
Dim coly As Long, colx As Long, colz As Long
Dim m1 As Variant, m2 As Variant, m3 As Variant
ActiveWorkbook.Sheets("Sheet1").Select
For coly = 1 To ...
Изменен: 25.01.2011
Читать сообщение на форуме или сайте.Автор: Светлана В. {quote}{login=The_Prist}{date=12. ... : Re: }{post}{quote}{login=Светлана В}{date=12.08.2010 10 ... гуманитарию, чем, например, тогда Long отличается от Integer?{/post}{/quote}Ну Вы ... Integer в качестве целого числа может принимать гораздо менее длинное число, нежели Long. Integer ... БОЛЬШЕ число, то лучше использовать Long?
Изменен: 12.08.2010
Читать сообщение на форуме или сайте. ... работу. Это не учитывая нагрузки в виду вычисляемой части формул отчета ... придумал(((
Немного помогло сохранение файла в бинарном формате. Анализ выгрузок из ... двух разных организаций. Все ведется в разных базах. Глубина анализа - 12 ... месяцев от отчетной даты.
Как в коде считать пока не понял ... убрал активацию листа, когда переименовывал Integer в Long, т.к. явно задал имена ... , не особо понятно, почему заковыка в этом выходит. Я специально везде ...
Изменен: 08.04.2017
Читать сообщение на форуме или сайте. ... которые успело натолкнуться много народа? :-)
в этой версии ёкселя подобный баг ... excel пытается преобразовать тип Integer в другие числовые типы (Long, Double ...).
Подробнее смотрите ... .ru/forum.php?thread_id=396
В post_7906.doc описаны разные варианты ...
Изменен: 16.06.2008
Читать сообщение на форуме или сайте. ... Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long ... 'Start of a range of integer values for private clipboard formats ... CLng(GlobalSize(hMemory)) 'копирование текста в переменную
If wSize = vbEmpty Then ...
FormatNumber = GetFormatNumber(FormatName) 'если в б/о существует формат, используем ... ;
sText = addHTMLWraper(sText) 'преобразуется в Ansi (1byte) по умолчанию
iLen ...
SetClipboardData FormatNumber, iStrPtr 'запись в б/о
GlobalFree iStrPtr 'освобождение ...
Изменен: 24.03.2024
Читать сообщение на форуме или сайте. ... смены. Нужно построить график присутствия в каждый часовой интервал.
Задача: ... только уникальные идентификаторы в столбце A, в ячейках справа от ... каждый идентификатор есть/нет и в каком количестве.
Почему необходимо ... массивами данных, количество идентификаторов в исходной таблице "Лист1& ... Long, lastRow2 As Long
Dim i As Long, j As Long, k As Long ... As Integer
Dim presenceCount As Integer
Dim nameColumn As Integer
Dim ... k, startDateTime)
' Подсчитываем присутствие в каждом часе
If currentDateTime > ...
Изменен: 05.02.2024
Читать сообщение на форуме или сайте. ... переданые по значению должны укладываться в стек в виде этих значений, т ... размеру. Размер, занимаемый аргументом в стеке можно проверить отняв его ... As Byte, ByVal i As Integer, ByVal d As Double, ... ;Byte(1)", "Integer(2)", "Double(8 ... "String..", "Long"
Debug.Print "Ptr1 ... у меня (в 32 битном VBA) получается
Byte(1) Integer(2) ... Double(8) Single(4) Varian(16) Currency(8) String.. Long ... Для типов, размер которых меньше Long (4байт-размера указателя), все ...
Изменен: 08.08.2023
Читать сообщение на форуме или сайте. ... алгоритм для поиска ближайших значений (в отсортированном по колонке поиска одномерном ... . параметр Eq
' бинарный ускоренный поиск в массиве - возвращает индекс или -1 ... двухмерного массива
' бинарный ускоренный поиск в массиве - возвращает индекс или -1 ... Integer = 0, Optional ByVal FromRow As Long = -1, Optional ByVal ToRow As Long ... массивы расширяет, у них колонки в 1)
' Eq = 0 точный поиск ... :=Колонка поиска, WhereCol:=Расположение колонок в 2D, Eq:=-2, FromRow:=С ...
Изменен: 26.06.2023
Читать сообщение на форуме или сайте. ... .
1. Сначала выполняются вычисления в скобках по частям по математическим ... и приоритетам вычисления.
2. В каждой вычисляемой части учитывается типы ... и их ограничения.
Если в вычисляемой части мат. выражения ... результат не укладывается в интервал Integer (-32768 … 32767).
Например, в окне Immediate:
... нет, тип результата - long
3. Если в вычисляемой части мат.выражения ... double, но есть long, то тип результата будет long.
?10000 * 10 ... * 10 ошибки нет, тип результата - long
?10000# * 10 ошибки нет, тип ...
Изменен: 21.05.2023
Читать сообщение на форуме или сайте.Автор: olege1983. Почему при в ячейке вместо десятичной дроби появляется ... число:
Например на листе 1 в столбце D записаны числа: 1 ... ,4 3,2 5,9
В итоговый столбец вместо чисел выше ... значение
Хотя Length имеет тип integer, значение Range("M" ... Integer, Ei As String, Poz As Long
Dim Np As Long, Kp As Long ... )
Range("M" & i) = Leng
End If
Next i
Application ...
Изменен: 12.03.2024
Читать сообщение на форуме или сайте. ... :
По тексту откатил все почти в исходное состояние "
Да, я ... сепарацию можно было сделать регулируемой в зависимости от характера данных. А ... Long, a0() As Long, aO() As Integer, aM() As Integer, c As Long, o As Integer ... , cM As Integer ... Then aA(-632675) = k
'досортировка в результирующий массив индексов''''''''''''''''''''''''''''''''''''''''''''''''
ReDim a1 ...
Изменен: 02.03.2018
Читать сообщение на форуме или сайте.Автор: Jerry.Sweer. Пользуюсь данным кодом
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" ...
Изменен: 29.12.2022
Читать сообщение на форуме или сайте. ... , поэтому выскакивает ошибка или приходится в ручную вносить изменения, бывает сметный ... lLastRow As Long, lLastRowMyBook As Long, li As Long, iLastColumn As Integer
Dim wsSh ... лишние запросы екселя и ошибки - в конце включить назад
Application.Calculation ... ;показывает сколько новых строк добавится в отчет.
Application.DisplayAlerts = True & ... ошибки - в конце включить назад
Call HandTools
Dim r As Long, rng ... листе СМЕТА удаляем пустые строки в загруженной смете
If Application.CountIf ...
Изменен: 18.01.2024
Читать сообщение на форуме или сайте.