Vba excel проверка значения массива

Check if Value is in Array using VBA

The VBA Tutorials Blog

VBA Code Library

Check if a value is in an array with this VBA function. If the value is in the VBA array, the function returns true. If the value is not in the array or the array is empty, the VBA function returns false.

The function accepts two variants, so it can look for a string in a string array, an integer in an integer array, or whatever you’d like as long as you pass it converted data types. The first argument is the value you want to find and the second argument is the array you want to search.

I’ve included a demo at the bottom showing how you can convert a number to a string while using the IsInArray function to see if that number is in an array of strings.

Check if Value is in Array using VBA

Checking if a value is in an array is an essential skill, but it just scratches the surface of what you can do with VBA arrays. To become really good at using arrays, you’ll need to grab a copy of our comprehensive VBA Arrays Cheat Sheet with over 20 pre-built macros and dozens of tips designed to make it easy for you to handle arrays.

How to use the IsInArray VBA Function

When you’re ready to start writing your macros faster (without having to search online for answers) check out our best-selling VBA Cheat Sheets for some powerful automation tricks. For more VBA tips, techniques, and tactics, subscribe to our VBA Insiders email series using the form below.

Ready to do more with VBA?
We put together a giant PDF with over 300 pre-built macros and we want you to have it for free. Enter your email address below and we’ll send you a copy along with our VBA Developer Kit, loaded with VBA tips, tricks and shortcuts.

Before we go, I want to let you know we designed a suite of VBA Cheat Sheets to make it easier for you to write better macros. We included over 200 tips and 140 macro examples so they have everything you need to know to become a better VBA programmer.

Источник

VBA Search for (Find) Value in Array

In this Article

This tutorial will demonstrate how to Search for (Find) a Value in an Array in VBA

There are a number of ways you can search for a string in an array – depending on whether the array is a one dimensional or multi-dimensional.

Searching in a One-Dimensional Array

To search for a value in a one-dimensional array, you can use the Filter Function.

The Syntax of the Filter option is a follows

Filter(Source Array, Match as String, [Include as Boolean], [Compare as vbCompareMethod])

The Source Array and the Match as String are required while the Include as Boolean and the Compare as vbCompareMethod are optional. If these are not included they are set to True and vbCompareBinary respectively.

Find values that match the Filter

The second array will hold the values found by the filter. If your UBound values are not -1, then the array has managed to find the value that you were searching for.

You can also see how many times the text appears in the original array.

Find values that DO NOT match the Filter

The [Include as Boolean] option allows you to find how many values in your array which DO NOT match your filter

we have therefore amended this line:

Using this line in the code, would return all the names that do NOT match “Bob”.

Case Sensitive Filters

You will find that the filter is case sensitive by default. This is true for all VBA functions. If you want to search for text that is not case sensitive, you need to amend your code slightly.

Adding vbTextCompare to your filter line will enable your code to find “bob” or “Bob”. If this is omitted, VBA by default uses vbBinaryCompare which will only look for data that is an EXACT match. Notice in the example above, we have left out the [Include as Boolean] argument so True is assumed.

Option Compare Text

Alternatively, you can add the text Option Compare Text to the top of your module – this will make all the functions that you write in that particular module case insensitive.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Using a Loop to Search through an array

Using a loop is a little bit more complicated than using the Filter function. We can create a function that will loop through all the values in the array.

In order to find a part of the text string ie “Bob” instead of “Bob Smith” or “Bob Williams”, we needed to use the Instr Function in the If Statement. This looked in the string returned by the loop from the Array to see if “Bob” was in the string, and as it was in the string, it would return a message box and then Exit the Loop.

Searching in a Multi-Dimensional Array

We also use the loop to search through a multi-dimensional array. Once again, we need to create a function than enables us to loop through all the values in the array, but this time, we also need to loop through each dimension of the array.

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

Источник

Проверьте, находится ли значение в массиве или нет с помощью Excel VBA

У меня есть код ниже, который должен проверять, находится ли значение в массиве или нет.

Если ячейка A1 содержит слово Examples , по какой-то причине обе IsInArray обнаруживают ее как существующую для обоих массивов, когда она должна находить ее только в массиве vars1

Что мне нужно изменить, чтобы сделать мою функцию IsInArray для ее точного соответствия?

ОТВЕТЫ

Ответ 1

Вы можете грубо заставить ее так:

Ответ 2

Ответ 3

Используйте функцию Match() в excel VBA, чтобы проверить, существует ли значение в массиве.

Ответ 4

Хотя это, по сути, просто ответ @Brad, я подумал, что, возможно, стоит включить слегка модифицированную функцию, которая будет возвращать индекс искомого элемента, если он существует в массиве. Если элемент отсутствует в массиве, он возвращает -1 .

Вывод этого можно проверить так же, как функцию «in string», If InStr(. ) > 0 Then , поэтому я сделал небольшую тестовую функцию под ней в качестве примера.

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

Он возвращает один вариантный массив измерений только с двумя значениями, два индекса массива используются в качестве входных данных (при условии, что значение найдено). Если значение не найдено, возвращается массив (-1, -1) .

Вот картина данных, которые я настроил для теста, а затем тест:

Ответ 5

Приведенная ниже функция возвращает 0, если совпадения нет, и положительное целое в случае совпадения:

Function IsInArray(stringToBeFound As String, arr As Variant) As Integer IsInArray = InStr(Join(arr, «»), stringToBeFound) End Function ______________________________________________________________________________

Примечание: функция сначала объединяет содержимое всего массива со строкой, используя ‘Join’ (не уверен, использует ли метод join внутреннее или нет циклическое выполнение), а затем проверяет наличие macth внутри этой строки, используя InStr.

Ответ 6

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

• он не использует иногда более медленный Match )
• поддерживает String , Integer , Boolean и т.д. (не String -only)
• возвращает индекс искомого элемента
• поддерживает nth-вхождение

используйте это так:

Ответ 7

Вы хотите проверить, существует ли Примеры в Range ( «A1» ). Значение Если это не удается, проверьте правильность Пример. Я думаю, что mycode будет работать идеально. Пожалуйста, проверьте.

Источник

Check if a value is in an array or not with Excel VBA

I’ve got some code below, that is supposed to be checking if a value is in an Array or not.

If the cell A1 contains the word Examples for some reason both of the IsInArray detects it as existing for both Arrays when it should only find it existing in the vars1 array

What do I need to change to make my IsInArray function to make it an exact match?

8 Answers 8

You can brute force it like this:

arrays through IsInArray , in total all of them added up comes to 501 array items at the moment. It will eventually become bigger/more of them.

I searched for this very question and when I saw the answers I ended up creating something different (because I favor less code over most other things most of the time) that should work in the vast majority of cases. Basically turn the array into a string with array elements separated by some delimiter character, and then wrap the search value in the delimiter character and pass through instr.

And you’d execute the function like this:

Use Match() function in excel VBA to check whether the value exists in an array.

The below function returns ‘0’ if there is no match and a ‘positive integer’ in case of matching:

Note: the function first concatenates the entire array content to a string using ‘Join’ (not sure if the join method uses looping internally or not) and then checks for a match within this string using InStr .

I would like to provide another variant that should be both performant and powerful, because

• it does not use the sometimes slower Match )
• supports String , Integer , Boolean etc. (not String -only)
• returns the index of the searched-for item
• supports nth-occurrence

use it like this:

While this is essentially just @Brad’s answer again, I thought it might be worth including a slightly modified function which will return the index of the item you’re searching for if it exists in the array. If the item is not in the array, it returns -1 instead.

The output of this can be checked just like the «in string» function, If InStr(. ) > 0 Then , so I made a little test function below it as an example.

Then I went a little overboard and fleshed out one for two dimensional arrays because when you generate an array based on a range it’s generally in this form.

It returns a single dimension variant array with just two values, the two indices of the array used as an input (assuming the value is found). If the value is not found, it returns an array of (-1, -1) .

Here’s a picture of the data that I set up for the test, followed by the test:

Источник

Проверка значений массива VBA

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

Предполагается, что массив карт заполняет массив Shoe.

Когда я подсчитываю значения массива, я получаю ожидаемый 104, но когда я вставляю значения в лист excel, заполняется только 13 ячеек.

Есть ли простой способ проверить содержимое массива?

Вы можете использовать Join :

в непосредственном окне. Кроме того, если вы используете отладчик для пошагового выполнения кода, в окне Locals вы можете расширить имя массива и проверить отдельные элементы.

На редактирование: расширение на этом последнем пункте. Если в редакторе VBA вы выбираете View → Locals Window и устанавливаете точку останова (щелкая слева от строки) перед строкой кода, куда вы отправляете shoe на лист, вы должны увидеть что-то вроде:

Если вы запустите сабвуфер, он перейдет в режим прерывания следующим образом:

Тогда, если вы расширите shoe вы увидите:

Этого достаточно, чтобы показать, что вы не инициализируете shoe после индекса 13. Другие опубликовали ответы, показывающие источник этой ошибки – но это действительно важный навык, чтобы иметь возможность, как ваш вопрос, проверить значения массива,

При редактировании Join плохо работает с массивами, которые не являются ни Variant ни String . Если у вас есть массив, который объявлен как, например,

вы могли бы сначала запустить его через следующую функцию:

Тогда Join(ToVariant(Directions), «, «) будет работать как положено.

Вы только заселяете первые 13 значений здесь:

Вы захотите зациклировать это 8 раз, чтобы получить 104

Что ты пытаешься сделать? Заполните ботинок с 104 карточками (по 8 штук)? Если это так, я бы сделал это с помощью метода split/join. Приятно размещать код для этого, если вам нужно. Идея заключается в создании строки в цикле для добавления объединенного массива карт столько раз, сколько вам нужно (в этом случае 8), а затем разделить это на обувь.

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

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

Источник