Метод Chord в Excel

Обновлено: 04.07.2024

Мой сын попросил таблицу Excel, чтобы он мог писать тексты песен, а также над каждой строкой ему нужен аккорд.

Это было достаточно просто, но затем он добавил, что если музыка должна быть в другом аккорде, он может сделать изменение динамически.

Поскольку существует несколько разных аккордов, при подъеме на одну ноту их все нужно изменить. Все аккорды должны быть идентифицированы и увеличены в любом месте листа.
Возможно ли это вообще в Excel. Мне не удалось коснуться поверхности этой проблемы, но мои знания Excel являются базовыми.

Факты об Excel

ПОИСКПОЗ использует -1, чтобы найти большее значение (таблица поиска должна быть отсортирована ZA). XLOOKUP использует 1, чтобы найти значения больше, и не требует сортировки.

БрайанJN1

Известный участник

Давайте начнем. Это не полное решение, но оно имеет некоторые перспективы.
Я дам некоторое представление о том, о чем идет речь, а затем, если вы хотите следовать этому дальше, я или кто-то другой могу продолжить.

В строке 2 я ввел аккорды из ноты.
В строке 6, B6, я ввел формулу, которая появляется в B5. При копировании/перетаскивании появляется идентификатор аккорда.
В строке 7 была введена и аналогичным образом скопирована/перетащена формула из D5.
В строке 8 формула в B9 обработана аналогичным образом.

В этот момент я отдыхаю. Обратите внимание, что в A1 есть ноль. Я намерен использовать это изменение, чтобы повлиять на то, как я изменяю значения в строке 6; обратите внимание на таблицу LookUp справа от изображения. Честно говоря, мне еще нужно подумать об этом, но, отвечая на ваш БОЛЬШОЙ вопрос, да, можно сделать так, как вы просите.

Ученик

Новый участник

Привет, Брайан!
Я не совсем понимаю. но я ценю ваши усилия. Пожалуйста, продвиньтесь немного дальше, тогда, может быть, я смогу понять это.
Спасибо, Крис

БрайанJN1

Известный участник

Я отказался от идеи функции ВПР. Вместо этого я использовал несколько операторов IF.
Я потрачу немного времени, чтобы объяснить, что происходит.

В нижней части этого изображения находится довольно сложная формула ЕСЛИ, которую нужно ввести в ячейку B6. Затем эта формула копируется в строку.

MID(B2,2,3) начинается со 2-го места Dm, т.е. m, ищет до 3-х символов и возвращает их в B7. Конкатенация просматривает два разделенных значения выше B8 и повторно соединяет их. Это кажется немного излишним, если вернуться к нашему оригинальному Dm. Однако, если мы введем другое имя аккорда в B1, A1 ответит разницей в кодовом значении исходного имени аккорда и того, на которое мы меняемся. Затем оператор IF пытается использовать значение A1. Если значение кода выходит за пределы диапазона 65-71, вносятся исправления.

Есть одна очень важная вещь, которую следует учитывать при использовании этого оператора IF: A1 должен иметь "$" перед A для каждого вхождения A1 в формулу. Я дал вам этот код ниже.

Создание длины хорды с помощью тригонометрической функции — Excel

Я пытался создать функцию, которая дополнит это уравнение, но не могу понять, есть идеи?

Sin 1/2 Угол x R X 2

Пример:
угол 72 градуса. Радиус 251 мм

Sin 36 x 251 x 2 = 295,068

(Распродажа 40% скоро заканчивается)

Курс Excel VBA — от новичка до эксперта

200+ видеоуроков 50+ часов обучения 200+ руководств Excel

С помощью этого онлайн-курса станьте мастером VBA и макросов в Excel и узнайте, как автоматизировать все свои задачи в Excel. (Опыт работы с VBA не требуется.)

(Скидка 40% скоро закончится!)

Похожие темы

Как создать орфограмму в валюте моей страны — Excel

Я использую приведенный ниже код, но только до 19 999. Сумма от 20 000 и выше показывать только тысячу? Пожалуйста, помогите!

Для 19 999 это показывает
ринггит Малайзии: только девятнадцать тысяч девятьсот девяносто девять

Для 20 000 и выше отображается
Малайзийский ринггит: только тысяча

Function SpellNumber(amt As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim WORDs(19) As String
>Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs( 4) = "Четыре"
СЛОВА(5) = "Пять"
СЛОВ(6) = "Шесть"
СЛОВ(7) = "Семь"
СЛОВ(8) = "Восемь"
СЛОВ(9) = "Девять"
СЛОВ(10) = "Десять"
СЛОВ(11) = "Одиннадцать"
СЛОВ(12) = " Двенадцать"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
СЛОВА(17) = "Семнадцать"
СЛОВА(18) = "Восемнадцать"
СЛОВА(19) = "Девятнадцать"

десятки(2) = "Двадцать"
десятки(3) = "Тридцать"
десятки(4) ​​= "Сорок"
десятки(5) = "Пятьдесят"
десятки(6) = "шестьдесят"
десятки(7) = "семьдесят"
десятки(8) = "восемьдесят"
десятки(9) = "девяносто"

FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)

If FIGLEN 1 Then
SpellNumber = "Ringgit Malaysia : "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SpellNumber = "Ringgit Malaysia"
End Если

For i = 1 To 3
If Val(Left(FIGURE, 2)) 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Затем
Ntow = Ntow & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
Конец, если

Если i = 1 И Val(Left(РИСУНОК, 2)) > 0 Тогда
ЧислоЗаклинания = ЧислоЗаклинания & "крор"
ElseIf i = 2 И Val(Left(РИСУНОК, 2)) > 0 Тогда
ЧислоЗаписания = ЧислоЗаписания & "Сотня"
ИначеЕсли i = 3 И Val(Left(РИСУНОК, 2)) > 0 Тогда
ЧислоЗаписания = ЧислоЧислоЗаписания & "Тысяча"
Конец Если
РИСУНОК = Середина(РИСУНОК, 3),
Следующий i

If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + "Hundred"
End If

РИСУНОК = Середина(РИСУНОК, 2)

Если Val(Left(РИСУНОК, 2)) 0 Тогда
ЧислоПроизведения = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(РИСУНОК, 2)) > 19 Тогда
ЧислоЗаписания = ЧислоЗаписания & десятки(Значение(Левое(Левое(РИСУНОК, 1)))
ЧислоЗаписания = ЧислоЗаписания & СЛОВА(Значение(Право(Левое(РИСУНОК, 2), 1)))
Конец, если


РИСУНОК = Середина(РИСУНОК, 4)


Если Val(РИСУНОК) > 0, То
Числовое Правописание = Числовое Правописание & " И Центы "
Если Val(Левое(РИСУНОК, 2)) 0 Тогда
Числовое Правописание = Числовое Правописание & СЛОВА(Значение(Левое(РИСУНОК, 2)))
ЕщеЕсли Вал(Левое(РИСУНОК, 2)) > 19 Тогда
ЧислоЗаписания = ЧислоЗаписания & десятки(Значение(Левое(РИСУНОК, 1)))
ЧислоЗаклинания = ЧислоЗаписания и СЛОВА(Значение(Право(Левое(РИСУНОК, 2), 1)))
Конец, если
Конец, если
РИСУНОК = amt
РИСУНОК = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Only "
End If
End Function

Рисунок 2: Модель элемента лезвия.

Рисунок 4: Распределение давления на лезвие а) Плоскость параллельно.

+3

Производство гидрокинетической турбины зависит от взаимодействия между ротором и водой. Следовательно, оптимальная геометрия ротора должна быть спроектирована и изготовлена ​​таким образом, чтобы захватывать максимальную энергию воды и преобразовывать ее в полезную энергию. Этапы проектирования и численного моделирования небольшой гидрокинетической турбины с горизонтальной осью.

Контекст в исходной публикации

<р>. сечения были представлены от r 1 до r 10 , где r 1 было сечением, ближайшим к основанию, и r 10 , кончиком лезвия. Электронная таблица Excel, показанная в таблице 1, использовалась для получения значений C и β для каждого раздела. Обратите внимание, что значение C увеличивается от кончика к корню. .

Похожие публикации

Рисунок 6: КПД гидротурбины и состав потерь при BEP ( =.

Рисунок 8: Экспериментально измеренная и рассчитанная численно.

Рисунок 9: Визуализация объемной доли паров на крыльчатке.

Рисунок 10: Визуализация кавитации при BEP для различных значений . < бр />

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

Рисунок 6: КПД гидротурбины и состав потерь при BEP ( =.

Рисунок 8: Экспериментально измеренная и рассчитанная численно.

Рисунок 9: Визуализация объемной доли паров на крыльчатке.

Рисунок 10: Визуализация кавитации при BEP для различных значений . < бр />

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

Рисунок 2. Независимость от сети в зависимости от производительности модели турбины 3,4 миллиона.

Таблица 2. Оценочные характеристики при различных массовых расходах

Рисунок 8. Места регистрации давления в отсасывающей трубе Амплитуда.

Рис. 9. Амплитудные спектры в отводной трубе на ДТ1 и ДТ2

Рисунок 10. Область давления в средней части отсасывающей трубы 3.4. Влияние.

+3

Гидроэнергетика — крупнейший источник возобновляемой энергии. Гидротурбины Фрэнсиса являются наиболее широко используемыми гидротурбинами в мире. В этой статье программное обеспечение CFD использовалось для моделирования и анализа производительности гидротурбины Фрэнсиса микрокласса. Отсасывающая труба — одна из важнейших частей турбины Фрэнсиса, которая соединяет выход рабочего колеса с отводящим патрубком.

Цитаты

Речь идет об анализе производительности гидротурбины Савониуса на основе рассмотрения различных рек Бангладеш с анализом CAD и CFD

Одним из лучших возобновляемых источников является речная гидроэнергетика. По сравнению с ветровой или солнечной энергией гидроэнергетика более предсказуема. Бангладеш был благословлен многими реками со скоростью потока воды. Ротор Савониуса — одна из лучших форм турбины для выработки электроэнергии с использованием кинетической энергии природных водных ресурсов. В настоящее время проводится множество исследований по использованию водяной турбины Савониуса в качестве турбины тока. В этом исследовании производительность гидротурбины Савониуса была проанализирована применительно к Бангладеш. Для анализа производительности была принята во внимание скорость воды в Падме, Ганге, Брахмапутре, Мегхе и Карнапхули. Модель автоматизированного проектирования (САПР) двух лопастей водяной турбины Савониуса была разработана в SOLIDWORKS и проанализирована с помощью вычислительной гидродинамики (CFD) в программном обеспечении для моделирования ANSYS. Производительность была проанализирована путем сравнения скорости потока, генерируемого крутящего момента, коэффициента скорости наконечника (TSR), скорости и числа оборотов в минуту. Скорость была получена для Падмы, Ганги, Брахмапутры, Мегхны и Карнапхули как 4,86 ​​мс-1, 4.50 мс-1, 3,5 мс-1, 1,5 мс-1 и 0,44 мс-1 соответственно.

<р>. En A08 Чика и др. [19] Реализовать эль-diseño де уна turbina hidrocinética де Eje горизонтальный, пункт эль анализ дель comportamiento дель жидкости utilizan herramientas CFD acompañadas де ла aplicación де ла теория дель момент дель элемент типо álabe Mientras дие для пункта эль анализ estructural hacen uso де Herramientas FEM. En el diseño, utilizan el modelo de turbulencia k-ε estándar y el dominio computacional estuvo compuesto por 10 529 801 узлов. .

<р>. Se pudo observar en el estudio Que el maximo coeficiente de potencia se obtiene cuando el ángulo de ataque es 0° y la TSR es la que se menciona. La validación estructural para garantizar que el perfil del álabe soporta las cargas debidas a la interacción con el fludo se realizó por medio de herramientas FEM y usando un mallado de 35,724; los materiales para los que se encontró que el álabe se desempeñaba bien son Fibra de vidrio tipo E o fibra de vidrio epóxica [19] . .

Actualmente, a nivel mundial las energías alternativas han tomado gran importancia en las diversas relacionadas con el desarrollo del сектор energético, entre las cuales podemos mencionar la energía Solar, eólica, hidráulica, geotérmica y mareomotriz. Una nueva tecnología Que aprovecha la energía cinética de la corriente de agua en canales naturales y/o Artificiales e inclusivede las corrientes marinas son las turbinas hidrocinéticas. En este trabajo, se presenta un estudio de los diferentes métodos numéricos que pueden ser de utilidad para diseñar, analizar y optimizar sistemas de generateración energética a partir de turbinas hidrocinéticas.

<р>. Традиционные методы оптимизации на основе градиента, например метод Ньютона, обеспечивают высокую скорость сходимости; однако они могут потерпеть неудачу, когда доступно несколько оптимальных решений. Хотя генетические алгоритмы требуют больше вычислительного времени, они могут эффективно определять глобальные оптимальные решения и выбирать наилучшие локальные оптимумы (Person 2009). .

<р>. Оптимизация проводится в предположении, что ротор находится в стационарном и однородном потоке. Идеальная кривая мощности была получена путем предотвращения кавитации с подходящим запасом прочности (Person 2009). Принимаются во внимание потери на наконечнике и ступице, задержка срыва и эффект вращательного следа. .

Гидрокинетические турбины приобрели важное значение в связи с быстрым развитием возобновляемых источников энергии. Есть несколько применений крупномасштабных гидрокинетических турбин в морской среде; однако количество мелкомасштабных проектов рек и каналов ограничено. В настоящем исследовании ротор речной гидрокинетической турбины с фиксированной скоростью и регулируемым срывом был спроектирован с помощью процесса оптимизации и смоделирован с использованием методов анализа вычислительной гидродинамики (CFD). Лопасти и ротор были оптимизированы методами генетического алгоритма. Моделирование проводилось с использованием коммерчески доступного программного обеспечения с моделью замыкания турбулентности k-ω переноса напряжения сдвига (SST). При моделировании было обнаружено, что характеристики по мощности, крутящему моменту и тяге хорошо согласуются с параметрами оптимизации. Оптимизированная гидрокинетическая турбина получила название TIGRIS-27 H и представляет собой трехлопастный горизонтально-осевой преобразователь энергии, вращающийся со скоростью 45 оборотов в минуту (об/мин) и развивающий мощность до 27 кВт при номинальной скорости 2,7 м/с при средней коэффициент мощности 0,43.

Представлены характеристики вертикально-осевой гидрокинетической турбины Н-типа (ВАХКТ). Для изучения гидродинамики VAHKT был использован аналитический метод с использованием модели двойной многопоточной трубы (DMST), а для проверки результатов DMST было проведено экспериментальное исследование. Ключевой сложностью в разработке технологий ВАХЦ является ограниченное количество исследований, показывающих реальную работоспособность при различных скоростях движения воды. Мы разработали код Matlab для прогнозирования производительности, и для проверки были проведены экспериментальные исследования. Эксплуатационные параметры коэффициента мощности \((C_P)\) и коэффициента крутящего момента \((C_Q)\) использовались с коэффициентом скорости наконечников (TSR). Для проверки DMST и экспериментальных результатов мы использовали эталонную турбину (RM2), разработанную Министерством энергетики США (DOE). Было обнаружено хорошее соответствие между аналитическими и экспериментальными результатами для эталонной турбины. В результате исследования было обнаружено, что \(C_P\) VAHKT увеличивается, а затем уменьшается по мере увеличения TSR. Рабочий диапазон для ВАХКТ находится между \(1.2\le TSR\le 3.8\). Исследование показало, что при \(ТСР \гэ 4\) установлено, что выработка электроэнергии от ВАХКТ отсутствует. В результате код Matlab, который мы разработали на основе DMST, можно использовать в качестве экономичного и надежного инструмента для проектирования и прогнозирования производительности VAHKT.

Энергетический кризис современности может быть преодолен с помощью гидрокинетической энергии, наиболее легкодоступного и бесплатного источника энергии, позволяющего обеспечить основные потребности в электроэнергии в отдаленных и городских районах по низкой цене. Кинетическая энергия воды, протекающей на низкой скорости, может быть эффективно извлечена за счет разработки соответствующей конструкции лопасти, поскольку производительность турбины зависит от формы ее лопасти. В данном исследовании модель ветряной турбины с некоторыми модификациями использовалась для проектирования лопасти гидрокинетической турбины. Модель турбины с горизонтальной осью и конфигурацией пропеллерного типа была выбрана для получения более высокой эффективности. Было выбрано и спроектировано оптимальное судно на подводных крыльях с оптимальным углом закручивания для максимального извлечения энергии. Модель была разработана в программе трехмерного (3D) моделирования Solidworks, а затем был проведен анализ мощности посредством численного моделирования с использованием коммерческого пакета вычислительной гидродинамики ansys fluent. Выходная мощность была проанализирована с различным количеством лопастей, и были построены кривые производительности для наиболее эффективной системы. Расчеты показали, что при номинальной скорости воды 1,5 м/с при диаметре ротора 0,6096 м обеспечивает номинальную мощность около 150 Вт при 110 об/мин. Кривая мощности турбины была проанализирована для выбора эффективного синхронного генератора с постоянными магнитами, и система прямого привода была выбрана для снижения веса и потерь. Модель турбины была напечатана на 3D-принтере для испытаний и экспериментов. Расчетная аналитическая эффективность составила 30,52%, а достигнутая экспериментальная эффективность составила 28,24%. Это исследование показывает, что оптимальная конструкция гидрокинетических турбин может быть интегрирована в серию для обеспечения энергией отдаленных районов, где строительство плотин и другие ресурсы недоступны.

Я делаю средство поиска аккордов, в котором вы вводите патерн и базовую ноту, например, для до мажор вы вводите C 1 3 5, и это выделяет CEG на моих диаграммах. Я пробовал кое-что, но ничего не работает, и я думаю, что спросить здесь будет намного быстрее, чем искать все это, особенно когда я не уверен, что искать.

Затем у меня есть таблица для гитары. Если C является одной из выбранных нот, то я хотел бы, чтобы все C на гитарной диаграмме были выделены.

Я не музыкант. но прежде чем мы начнем изобретать велосипед, возможно, вам стоит взглянуть на книгу «Гитарные лады и лады», которую J-Walk уже сделал.

Редактировать:
Если это не совсем то, что вы хотите, отправьте ответ.

[SIZE="1"]Sub All_Macros(необязательное управление как вариант)[/SIZE]

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

Вот короткая и грязная форма пользователя.
Нажмите на музыкальную ноту.
На данный момент я закончил только три аккорда. A, Bb и B
Нажмите кнопки A maj, Bb или B.
Я не уверен, что это то, что вы хотели.
Если да, вы можете просмотреть код (s), добавьте минор, 7-й, 9-й и т. д. и отрегулируйте соответствующим образом.

Файлы

Это близко, но я хочу иметь возможность нажимать на D и вводить числа, такие как 12357 для d7add9, и отображать на грифе все ноты, составляющие этот аккорд, во всех возможных позициях.
Или введите гамму, например A 12b345b6b7, и она отобразится на грифе.

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

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

Файлы

Я нарисовал несколько сценариев, более 3000. Проблема в том, что скопировать всю эту работу на мой компьютер гораздо труднее, чем написать программу, которая вычислит шаблон. У меня есть аккорды, основанные на нескольких ладах. Вот почему я хочу просто иметь возможность нажимать на цифры. Если вы загрузите мой рабочий лист, http://www.preciousv.com/chord_scale_chart.xls, вы поймете, о чем я говорю. Также загрузите файл XLGuitar с http://j-walk.com/ss/excel/files/general.htm, и вы увидите некоторые из множества гамм, с которыми я буду работать. Ваш гриф для гитары намного ближе к тому, что я ищу, за исключением того, что рисунок не делается вручную, а основывается на проверенном числе. Таким образом, если у вас есть G, на который нужно нажать, у него также будут флажки с цифрами. Когда вы нажимаете G, при этом 1, 3, 5 отмечены. Он будет использовать мою строку таблицы данных G (строка 9), затем он перейдет к 1, 3 и 5 (B9, F9 и I9 в моей таблице данных). Затем он выдаст эту информацию под вашим «Range("").Select', но вместо того, чтобы просто выделить позицию на грифе, как у вас, он также отобразит название ноты. К сожалению, для этого мне не хватает возможностей кодирования VB/Excel.

Я здесь впервые за несколько месяцев и обнаружил интересную проблему!

Пришлось заархивировать, так как превышен лимит. Если это проблема, дайте мне знать, и я опубликую ее где-нибудь на w3.

Файлы

"Вопросы, помощь и советы бесплатно, небольшие проекты за пожертвование. Большие проекты за счет"

Просто запустил код на другом компьютере и обнаружил ошибку в файле. Вот версия без ошибок.

К вашему сведению: ошибка заключается в подпрограмме "fimd" в конце макроса: она просто дважды перечисляет "Lookin xlvalues". опечатка.

Похоже, этот работает! *

Файлы

"Вопросы, помощь и советы бесплатно, небольшие проекты за пожертвование. Большие проекты за счет"

Хорошо, проблема с острыми предметами решена. Все работало, однако я решил пойти еще дальше и сделать корень другого цвета, но я как-то накосячил. Работает до сих пор но рут цвета не менял. Вот код, который я использовал, чтобы попытаться изменить цвет.
[vba]
Для x = от 1 до 12
С рабочими листами(1).Range("b18:n23")
Set c = .Find(обратите внимание, LookIn:= xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True)
If Not c Is Nothing Then
>firstAddress = c.Address
Выполнить
Выбрать вариант c
Case Is = "b28"
С c.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
Case Else
C.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Select Установите c = .FindNext(c)
Цикл, пока Not c не является ничем и c.Address <> firstAddress
End If
End With
findnote = Range(findnote).Offset( 0, 1).Address
note = Range(findnote).Value
Next x
[/vba]
Жирным шрифтом выделено то место, где я ошибся. Что я сделал не так? Кроме того, я не уверен, какой цвет красный, поэтому я собирался угадывать, пока он не будет правильным, поэтому, если вы знаете индекс цвета для красного, это тоже поможет.

В исходной версии было так:
[vba]
С c.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
[/vba]
Где у меня был жирный шрифт.

Две вещи: Когда вы размещаете код здесь, вы ДОЛЖНЫ использовать теги кода HTML. Над этим полем есть объяснение, которое я печатаю, и я добавлю его. Вы вводите

<р>. вставьте сюда свой код.

В этом примере между [ ] и словом "код" есть пробелы, чтобы теги отображались. Когда вы публикуете код, не используйте пробелы, просто поместите квадратную скобкуCODEквадратная скобка в начале и квадратная скобкаforwardslashCODEквадратная скобка в конце вашего кода!

Вот вам исправленный код: просто найдите место в вашей версии макроса, которое соответствует этому разделу, удалите эту часть и вставьте это. (только будьте осторожны, не удаляйте слишком много или слишком мало!)

Это приводит к отдельному поиску корня, а затем продолжается к остальным заметкам. Я использовал встроенный цвет для корня (vbRed).

Читайте также: