Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2009, 10:14   #1
boy24
 
Регистрация: 05.06.2009
Сообщений: 5
По умолчанию Как вывести из диапозона не хватающие числа...

88АВ0001 по 88АВ0010, а есть допустим только первое и последнее... желательно колунку отдельно...
boy24 вне форума Ответить с цитированием
Старый 05.06.2009, 11:08   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Не экономьте слова. Опишите задачу по-подробнее.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 05.06.2009, 11:28   #3
boy24
 
Регистрация: 05.06.2009
Сообщений: 5
По умолчанию

88АВ426001
88АВ426010
88АВ426012
88АВ426013
88АВ426015
88АВ426018
88АВ426020
88АВ426022
88АВ426027
88АВ426034
88АВ426039
88АВ426057
88АВ426059

иМЕЕТСЯ такой массив или диапозон, мне нужно теперь чего нет, если две первые строчки смотреть, то должно вывести
88АВ426002
88АВ426003
88АВ426004 и т.п.
boy24 вне форума Ответить с цитированием
Старый 05.06.2009, 11:29   #4
mc-black
Пользователь
 
Аватар для mc-black
 
Регистрация: 03.06.2009
Сообщений: 26
По умолчанию

Вроде все понятно - перечислить все Hex-значения диапазона, вывести столбцом. Работу делает процедура EnumHex, а используется как пример в процедуре TestIt.
Код:
Option Explicit

Sub TestIt()
    Call EnumHex("88AB0001", "88AB0010")
End Sub

Private Sub EnumHex(StartStr As String, StopStr As String)
    Dim StartValue As Long
    Dim StopValue As Long
    Dim i As Long
    Dim j As Long
    
    StartValue = CLng("&H" & StartStr)
    StopValue = CLng("&H" & StopStr)
    
    j = 1
    For i = StartValue To StopValue
        ThisWorkbook.Worksheets(1).Cells(j, 1).FormulaR1C1 = "'" & Hex(i)
        j = j + 1
    Next i
End Sub
P.S. Этот пример выводит не только числа в промежутке, но и конечные значения. Возможно первый и последний элементы не выводить. Надо чуть поправить.
P.P.S. Вы лучше все-таки определитесь: массив вы имеете или диапазон? Если массив, то строковый или типа Long? И куда (в какое место на листе) выводить пропущенные участки диапазона? Может вообще не париться и выводить в Debug.Print (там сами разберетесь)?

Последний раз редактировалось mc-black; 05.06.2009 в 11:37.
mc-black вне форума Ответить с цитированием
Старый 05.06.2009, 12:15   #5
boy24
 
Регистрация: 05.06.2009
Сообщений: 5
По умолчанию

88АА048001 88АА817024
88АА048003 88АА817034
88АА048004 88АА817042
88АА048005 88АА817047
88АА048005 88АА817051
88АА048006 88АА817054
88АА048007 88АА817055
88АА048008 88АА817059
88АА048009 88АА817060
88АА048010 88АА817068
88АА048011 88АА817101
88АА048012 88АА817104
88АА048013 88АА817123
88АА048014 88АА817128
88АА048015 88АА817129
88АА048016 88АА817130
88АА048017 88АА817131


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

я так себе представляю, задаю диапозон нужный, указываю на столбец с этими данными, получаю чего нет.
boy24 вне форума Ответить с цитированием
Старый 05.06.2009, 14:42   #6
boy24
 
Регистрация: 05.06.2009
Сообщений: 5
По умолчанию

Вот все кинули...
boy24 вне форума Ответить с цитированием
Старый 05.06.2009, 16:58   #7
roplius
Пользователь
 
Регистрация: 06.05.2009
Сообщений: 15
По умолчанию

Фаил приложен
Вложения
Тип файла: zip pvz.zip (15.4 Кб, 26 просмотров)
roplius вне форума Ответить с цитированием
Старый 08.06.2009, 06:08   #8
boy24
 
Регистрация: 05.06.2009
Сообщений: 5
По умолчанию

НЕмного коряво работает, у меня нет на конце букв, а он выводит... Какой фомат ячеек должен быть для работы???
boy24 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести простые числа MAKEDON Общие вопросы C/C++ 4 13.06.2010 14:31
Сложить два числа и вывести результат на экран We1c0m3 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 23.05.2009 11:41
Произвидение диапозона чисел MAKEDON Общие вопросы C/C++ 1 22.02.2009 13:30
Си наити факториал большого числа и вывести в виде массива Владимир #include Помощь студентам 2 28.10.2008 13:13
Как вывести все целые степени числа? riorio07 Паскаль, Turbo Pascal, PascalABC.NET 1 20.05.2008 11:47