Премини към съдържанието
Форумът в приложение

По-лесно сърфиране. Научи повече.

Kaldata.com - Форуми

Приложение на форума на цял екран с push известия, значки и други.

За да инсталирате това приложение на iOS и iPadOS
  1. Докоснете Иконата за споделяне в Safari
  2. Превъртете менюто и докоснете Добавяне към началния екран.
  3. Докоснете Добавяне в горния десен ъгъл.
За да инсталирате това приложение на Android
  1. Докоснете менюто с 3 точки (⋮) в горния десен ъгъл на браузъра.
  2. Докоснете Добавяне към началния екран или Инсталиране на приложение.
  3. Потвърдете, като докоснете Инсталиране.

Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

 

Въпрос по visual basic for applications

Featured Replies

Здравейте, разбирам, че не съм на точното място, но тъй като не успявам да намеря полезнатa информация относно Visual Basic for Applications, реших да питам Вас, хората с познания по Visual Basic. Новобранец съм, както вероятно се предполага, и ща не ща се налага да питам, защото сам ми е много трудно... Конкретно ме вълнува начина, по който мога да сравня стойностите в клетките от един голям range с тези от други малки range-ове. По-конкретно, имам procedure, която генерира с NormInv() n - на брой случайни номера и ги изписва едно под друго в една колона. Допълнително генерирам b на брой еднакви отсека, първия откоито започва от най-малкото генерирано число, а последния завършва на най-голямото генерирано число. Последното, което трябва да направя и което ме затруднява е да напиша такъв код, който да проверява всички генерирани числа и според големината им да ги поставя в отделните отсеци. Опитах с много различни варианти подобни на тоя, но винаги ми показва грешка... cnt = 0 For i = 1 To n For j = 1 To b If Range("D1:D" & n) > Cells(j, 7) And Range("D1:D" & n) <= Cells(j, 8) Then cnt = cnt + 1 Cells(j, 9).Value = cnt End If Next j Next i Ще съм благодарен ако споделите мнение. :inlove1:

Регистрирайте се или влезете в профила си за да коментирате

Разглеждащи това в момента 0

  • Няма регистрирани потребители разглеждащи тази страница.

Дарение

  • Подкрепи съществуването на форума - направи дарение
    32%
    Дарени 315 € от нужните 1 000 €

Бюлетин

Получавайте известие, когато има важна промяна или новина свързана с форума.

Профил

Навигация

Търсене

Търсене

Конфигуриране на push известия в браузъра

Chrome (Android)
  1. Докоснете иконата на катинар до адресната лента.
  2. Докоснете Разрешения → Известия.
  3. Променете предпочитанията си.
Chrome (Desktop)
  1. Кликнете върху иконата на катинар в адресната лента.
  2. Изберете Настройки на сайта.
  3. Намерете Известия и коригирайте предпочитанията си.