С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Удаление столбцов с пустыми или ошибочными значениями Sheets("CBR").select For i = 4 To 59 Step 1 If Cells(17, i) = "" Or Cells(17, i) = "#VALUE!" Then Sheets("CBR").Columns(i).Delete End If Next i Выдает ошибку на валью, как написать код грамматически правильно чтоб он удалял столбцы если в соответствующих ячейках пустые или ошибочные значения https://www.cyberforum.ru/ vba/ thread537584.html Решение уравнения 4-го порядка комбинированным методом VBA
Здравствуйте! Помогите решить такую задачу: Найти приближенное алгебраическое решение уравнения 4-го порядка комбинированным методом.
VBA Доступ к переменным и процедурам из разных модулей можно ли создать переменную в одном модуле, вызвать процедуру из этого модуля , находящуюся во втором модуле, изменяющую эту переменную, и в первом модуле значение этой переменной уже было присвоено? https://www.cyberforum.ru/ vba/ thread537194.html VBA При вызове функции из ячейки ошибка #ЗНАЧ https://www.cyberforum.ru/ vba/ thread537175.html
Здравствуйте! Помогите, пожалуйста, понять, почему не работает функция при вызове из ячейки Есть функция, которая ищет в столбце определенные строковые значения и возвращает сумму целочисленных значений из столбца справа. Опциональные значения заданы для отладки. Она работает, если ее вызывать из тестовой процедуры VBA, но выдает #ЗНАЧ, если вызвать ее из ячейки листа Когда...
VBA Сложить таблицу доходов. Сколько лет доходы были в пределах от 200 до 700 у.о
Дана задача: Финансовая деятельность фирмы (её доход) за k-той год рассчитывается по такой ф-ле уk=100fi(k) y.o., y = 100 * ((7.5 * x - 8 * Cos(2 * x)) / (3 * (2 * x + 3.2)) + 5 * Exp(-3 * x)) Сложить таблицу доходов. Сколько лет доходы были в пределах от 200 до 700 у.о.. И какие это были года? Вот что у меня вышло в VBA Dim k, y, Yk, KYk As Variant Dim i As Integer KYk = 0 For i = 1 To...
VBA Копирование ячеек с сохранением форматирования https://www.cyberforum.ru/ vba/ thread536821.html
Привет. Проблема такая....у меня в таблице есть много полей,и одно из них индикатор. В роли индикатора выступает цвет ячейки. Как мне скопировать на другой лист сохраняя цвет этой ячейки!? У меня организованная связь с другим файлом в котором хранятся эти цвета.как через связи передать цвет ячейки в другой файл..Пожалуйсто очень нужно :)
VBA Макрос в outlook 2003, который создает несколько кнопок "новое сообщение" https://www.cyberforum.ru/ vba/ thread536803.html
Господа, помогите мне решить такую проблему с помощью VBA, пожалуйста: Необходим макрос в outlook 2003, который создает несколько кнопок "новое сообщение" с названиями "1", "2" и "3" на панели управления и присваивает им соответствующие пути шаблонов писем: "c:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\1.oft" "c:\Documents and...
Как добавить макрос в Excel VBA
Function LineChart(Points As Range, Color As Long) As String Const cMargin = 2 Dim rng As Range, arr() As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape Set rng = Application.Caller ShapeDelete rng For i = 1 To Points.Count
VBA Передать массив из класса в головную программу https://www.cyberforum.ru/ vba/ thread536679.html
В программе используется класс. Как внутри класса создать массив данных - доступный в головной программе? Здесь в классе создается массив mass1 и наполняется данными myClass Dim mass1() as Integer Public Sub ClassSub() Redim mass1(0) For i=0 to 10
VBA Заставить Worksheet_Change отслеживать изменения в ячейках, загружаемые c DDE-сервера https://www.cyberforum.ru/ vba/ thread536569.html
Может кто сталкивался с проблемой: задача заставить Worksheet_Change отслеживать изменения в ячейках, загружаемые c DDE-сервера, на которые он почему-то не реагирует. Выгружать в другую ячейку (лист) и делать ссылку вида =Лист2!А1 - не помогает.
VBA Error 1004 при обращении к ячейкам другого листа
Помогите найти косяк: Код написан на Листе 1, при изменениях на листе 1 должен записывать изменения в определенных ячейках в ячейки листа 2. Но при измнениях выскакивает ошибка "Error 1004 Application-defined or object-defined error" в 12-й строке Public Count As Integer Sub Counter() Count = 1 End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim A As Double, B As Double
VBA Задать двумерный массив М1 и одномерный М2, задать значение элементов, и получить одномерный массив Microsoft Access 2010 Запрограммировать модуль, в котором нужно задать двумерный массив М1 и одномерный М2, задать значение элементов, и получить одномерный массив. М3=М1 divide by М2 (операция реляционной алгебры "деление"). Option Compare Database Sub matr() Dim res(1) As String https://www.cyberforum.ru/ vba/ thread536478.html
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
04.04.2012, 10:28 0

Кто-нибудь рисовал в VBA Лемнискату Бернулли - VBA - Ответ 2871426

04.04.2012, 10:28. Показов 1974. Ответов 7
Метки (Все метки)

Ответ

Почему то в форме VBA не хочет ни чего рисовать((
А в VB рисует:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim x!, y1!, y2!, c!, col As Variant
Scale (0, 100)-(100, 0)
c = 30
For x = -100 To 100 Step 0.01
If Sqr(c ^ 4 + 4 * x ^ 2 * c ^ 2) - x ^ 2 - c ^ 2 > 0 Then
  y1 = Sqr(Sqr(c ^ 4 + 4 * x ^ 2 * c ^ 2) - x ^ 2 - c ^ 2) + 50
  y2 = -Sqr(Sqr(c ^ 4 + 4 * x ^ 2 * c ^ 2) - x ^ 2 - c ^ 2) + 50
  If x < 0 Then
    col = vbBlue
   Else
    col = vbRed
  End If
  DrawWidth = 1
  Line (x + 50, y1)-(x + 50, y2), col
  DrawWidth = 5
  PSet (x + 50, y2), 13
  PSet (x + 50, y1), 13
  End If
Next x


Вернуться к обсуждению:
Кто-нибудь рисовал в VBA Лемнискату Бернулли VBA
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.04.2012, 10:28
Готовые ответы и решения:

Построить лемнискату Бернулли
Как построить лемнискату Бернулли в полярных координатах через implicitplot?

Построить график лемнискату Бернулли r^2 = a^2 *cos(2u)
Помогите построить график лемнискату Бернулли r^2 = a^2 *cos(2u) с возможностью изменения координат...

Кто-нибудь писал на VBA программу по бухотчетности?
Если да, то поделитесь, пожалуйста, опытом. А то у меня что-то не клеится...

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

7
04.04.2012, 10:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2012, 10:28
Помогаю со студенческими работами здесь

Help me, кто-нибудь подскажите какую-нибудь бесплатную оболочку для MySQL
Я раньше никогда не занималась Web-программированием,но вот пришлось. Мне нужно администрировать...

Пожалуйста кто-нибудь киньте ссылку на хотя бы какие нибудь знания о HTML,CSS,ВВ кодах.
Пожалуйста кто-нибудь киньте ссылку на хотя бы какие нибудь знания о HTML,CSS,ВВ кодах.-)

кто нибудь встречался с чем нибудь похожим
Привет всем. Недавно наткнулся на очень интересный вариант оформления заказа вот ссылка на него...

Кто нибудь, когда нибудь встречал Шрёдинбаг?
Шрёдинбаг (англ. Schroedinbug) — термин, используемый в программировании для описания программной...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru