Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Japan
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
ЕКСЕЛЬ ПУТЬ В НИКУДА
 
#
09.09.2017 15:23:57
ИДИТЕ НАудалено... ХАХАХАХА
 
Перейти    
Формирование конечной стоимости
 
#
09.09.2017 12:13:17
Всем привет! Взяли экономиста на работу, короче работаю в итоге за него... Директор дуреет, с меня требует... Как сделать ту работу, что он хочет я не знаю и прошу у вас помощи. Есть разные конфигурации проектов с которых в итоге необходимо конфигурировать квитанцию(расчет стоимости конечного решения). Как это будет работать сам не понимаю. Кто поможет?
Изменено: Japanese - 09.09.2017 13:01:45
 
Перейти    
Найти значение среди пустых ячеек
 
#
04.09.2017 23:50:47
Здравствуйте, помогите пожалуйста найти отметку(это может быть цифра либо текст) в отведенном месте листа и вывести найденное в одну ячейку. Желательно формулами. Пример во вложении.
 
Перейти    
Нумерация строк по порядку при их скрытии
 
#
04.09.2017 19:42:12
Добрый вечер, помогите пожалуйста сделать правильную нумерацию строк при их скрытии. Речь идет о номере по порядку. Пример во вложении. PS макрос писал сам, подправьте если можете, что называется шедевральней ;)  
 
Перейти    
Работа с нефтепродуктами
 
#
22.08.2017 11:40:17
Добрый день, Господа!

Приму в дар различные таблицы по метрологии связанные с расчетами плотности, вязкости. Интересует нефтяная расходометрия - узлы учета нефти.
Интересует:

*Калькулятор плотности с 20 градусов в 15
*Калькулятор кинематической вязкости с 20 градусов в 15

У кого, что есть? :)  
 
Перейти    
Градуировка точек в таблице с выбором шага
 
#
22.08.2017 11:33:51
Здравствуйте, стоит задача равномерно разбивать значения от минимума до максимума задавая при этом количество точек(шаг).

Например есть нижнее значение 200 и верхнее 1400, в моей таблице. Нужно построить градуировку выбирая количество точек, например 6 или 8. Помогите пожалуйста сделать это. Просто нужно равномерно градуировать значения с выбором точек. Пример во вложении.

PS Минимальное значение это неизменная константа т.е. то меньше чего не уйдешь, а верхушка может быть ниже, но не выше
Изменено: Japanese - 22.08.2017 11:35:15
 
Перейти    
Прибавить +1 к значению в ячейке
 
#
12.08.2017 19:14:06
Привет, есть форумлы вида:

=AH5 и =ЕСЛИ(AH5>0,01;B5;"")

как выделить и макросом прибавить +1 к номеру ячейки?
 
Перейти    
Табель выходов: сравнение времени работы в проектах
 
#
11.08.2017 20:27:08
Добрый вечер!

Прошу вашей помощи. Попытаюсь изложить в посте, то чего до сих пор сам не понимаю. Вообщем дали задачу построить инфографику: В каком проекте каждый из сотрудников участвовал, дабы анализировать их время, кто больше, а кто меньше. У одного это 168 часов, а у другого 145, у третего 120. Это должна быт какай то диаграмма со сравнением. Всего 13 сотрудников и 15 возможных проектов. Как и что с этим делать вообще не понимаю. Табель во вложении.
 
Перейти    
Посчитать количество рабочих дней в месяце
 
#
10.08.2017 22:51:15
Господа, помогите пожалуйста посчитать количество рабочих дней в табеле учета рабочего времени. Задумка нужна для расчета переработки в табеле выходов. Как реализовать? Собственно как посчитать сколько часов человек переработал не устанавливая количество рабочих дней? Пример во вложении.
 
Перейти    
Подсветить выходные в табеле выходов
 
#
10.08.2017 19:43:02
Здравствуйте, есть табель выходов который очень хотелось бы доработать.

Синие и красные полоски это суббота и воскресенье. Как можно сделать так, что бы меня дату EXCEL сам помечал выходные дни? Еще лучше, что бы я как то мог выбрать месяц и он разбил мне даты, расставив пометки выходных. Наверное вообще из области фантастики, но может кто то поможет. Пример во вложении.
 
Перейти    
Выборка данных в таблицу
 
#
07.08.2017 17:51:26
Здравствуйте помогите пожалуйста выбрать данные в таблицу:



Посчитать сколько каждый сотрудник трудился над каждым из проектов, кто поможет сделать? Если один и тот же сотрудник трудился над разными проэктами, как вывести в таблицу? Помогите пожалуйста, пример во вложении.
Изменено: JonnyDeep - 07.08.2017 20:41:06
 
Перейти    
Вывести из списка максимальную и минимальную дату-время
 
#
22.06.2017 09:32:52
Здравствуйте,

Подскажите пожалуйста как можно вывести из списка максимальную и минимальную дату, время? Мин-Макс почему то не работает.
 
Перейти    
Сортировка ячеек в произвольной форме
 
#
20.06.2017 15:50:38
Господа, приношу извинения за беспорядок на форуме. В мире программирования тоже все не так просто как в жизни. Есть у меня табличка с B по I из 32 ячеек с некими данными, а точнее в них ссылки на другие области страницы. На эти ячейки проброшены диаграммы окружности, попросту говоря инфографика. Есть у меня 3 кнопки, это:

Нормальный режим:
Цитата
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Режим геометрической сортировки, где должен быть таков порядок:
Цитата
7 11 8 12 1 13 2 14 3 15 4 16 5 9 6 10 23 26 24 27 17 28 18 29 19 30 20 31 21 32 22 25

Режим вида сверху:
Цитата
9 1 17 26 10 2 18 27 11 3 19 28 12 4 20 29 13 5 21 30 14 6 22 31 15 7 23 32 16 8 24 25

Как можно заставить ячейки двигатся, местами? Но что бы данные в них сохранялись

Изображение http://www.picshare.ru/view/8144348/



Прошу помощи.
Изменено: JonnyDeep - 20.06.2017 20:20:07
 
Перейти    
Как использовать For для констант
 
#
20.06.2017 15:15:04
Подскажите пожалуйста как использовать For для констант. Тоесть посути надо задействовать каждую B от 1 до 32. Подскажите синтакс.

Код
Public B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20, B21, B22, B23, B24, B25, B26, B27, B28, B29, B30, B31, B32, As String

C = 3
For i = 38 To 3 Step -1
B & C= Range("B" & MinValue - i, "I" & MinValue - i).Value
C = C + 1
Next i
Спасибо
 
Перейти    
Указать счетчик букв ячеек
 
#
19.06.2017 10:17:40
Здравствуйте,

Можно ли каким то образом, мне не мучатся и указать счетчик для букв ячеек?
Код
    Range("L" & MinValue - 5).Value = "MY 1"
    Range("M" & MinValue - 5).Value = "MY 2"
    Range("N" & MinValue - 5).Value = "MY 3"
    Range("O" & MinValue - 5).Value = "MY 4"
    Range("P" & MinValue - 5).Value = "MY 5"
    Range("Q" & MinValue - 5).Value = "MY 6"
Ячеек очень много... Подскажите пожалуйста
Изменено: JonnyDeep - 19.06.2017 10:17:53
 
Перейти    
Обратится к переменной в функции
 
#
17.06.2017 15:46:53
Здравствуйте,

Хочу обратится к моим "глобальным переменным" в различных циклах For
Код
Public MinValue As Integer
Public MaxValue As Long
Function Value()
    MinValue = 30
    MaxValue = 100000
End Function
Как к ним обратится? Такой вариант не работает:
Код
    For i = MinValue To MaxValue Step 1
    If Not IsEmpty(Range("B" & i).Value) Then
        Range("B" & i, "IA" & i).NumberFormat = "General"
        Range("B" & i, "IA" & i).Value = Range("B" & i, "IA" & i).Value
    End If
 
Перейти    
Преобразование импортируемого текста в числовой
 
#
16.06.2017 16:04:57
Добрый вечер,

Господа, хотел обратится к вам наверное уже с наболевшей просьбой. Этим кодом я получаю данные из ТХТ файла, которые космические по длине и объему. Все работает отлично, после вчерашних мероприятий на форуме, но одну проблему так и не смог решить - данные сохраняются как текст. Соответственно обработать в графиках я их не могу. Никогда не знаешь каков именно будет обьем данных, поэтому не могу использовать какийто фиксированные адреса для обработки. Вопрос как можно перевести имеющийся данные в числа? Приемлем будет любой вариант, руками это непосильно делать.

Вот такая матрица, аж до ячейки IA и в низ от 100 до 1500 строк, может быть и больше т.к. это сервисная информация с приборов.

Скриншот: http://www.picshare.ru/view/8137200/
Код
If PatchTextBox.Value <> "" Then
    Open File For Input As #1
    k = 1
    Do Until EOF(1)
        Line Input #1, strTextLine
        If Len(strTextLine) >= 10 Then
            strTextLine = Replace(strTextLine, ",", "#")
            strTextLine = Replace(strTextLine, " ", "#")
            strTextLine = Replace(strTextLine, ".", ",")
            strTextLine = Replace(strTextLine, "/", ".")
            arr = Split(strTextLine, "#")
            Range("B30").Cells(k, 1).Resize(, UBound(arr) + 1) = arr
            k = k + 1
        End If
    Loop
    Close #1
End If
Прошу помощи. Ну хотя бы за лицензионный офис печеньку дайте :)
 
Перейти    
Выбрать только один OptionButton
 
#
16.06.2017 12:10:12
Здравствуйте,

Подскажите пожалуйста как сделать что бы я мог выбрать только один OptionButton. На данный момент могу выбрать два.
 
Перейти    
Доработка макроса импорта TXT Кавка ©
 
#
15.06.2017 20:46:08
Добрый вечер,

Уважаемые господа, подскажите как в этот, чудесный код, предоставленный Кавкой, дописать разделители это запятая и пробел и указать стартовую ячейку A10? Как могу не вставлять первое число 32767 в таблицу?
Код
Sub asd()
    Dim File
    Dim strTextLine As String
    Dim k As Integer
     
    File = Application.GetOpenFilename()
     
    Open File For Input As #1
    k = 1
    Do Until EOF(1)
        Line Input #1, strTextLine
        ActiveSheet.Cells(k, 1) = strTextLine
        k = k + 1
    Loop
     
    Close #1
End Sub
Еще раз напомню, что c именующегося TXT мне нужно вставлять строки такого типа:
Код
32767
14/06/2017 15:12:54,0,1494.059,1,31.06562,1,2,3.125,0,1494.059,1494.02,1494.019,1494.019,1494.019,1494.019,1494.018,1494.018,1494.017,1494.017,1494.017,1494.016,1494.016,1494.016,1494.016,1494.015,1494.015,1494.014,1494.014,1494.014,1494.013,1494.013,1494.013,1494.013,1494.012,1494.012,1494.011,1494.011,1494.011,1494.01,1494.01,1494.01,-11.11283,-10.99662,-10.99476,-11.01927,-11.00978,-11.02069,-11.01594,-11.00807,-10.999,-10.9956,-11.0059,-11.00783,-11.00428,-11.01695,-10.99177,-11.00685,-9.004766,-8.997168,-8.996996,-8.997286,-8.99951,-8.999053,-8.993373,-8.992548,-8.999311,-8.997837,-8.991871,-8.985992,-8.984473,-8.995813,-8.987615,-8.981664,25.10469,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.443688E-06,-1.429209E-06,-1.428666E-06,-1.431937E-06,-1.430167E-06,-1.432075E-06,-1.431448E-06,-1.430503E-06,-1.429293E-06,-1.430244E-06,-1.432139E-06,-1.431655E-06,-1.430766E-06,-1.431328E-06,-1.428798E-06,-1.429714E-06,-1.365671E-06,-1.367653E-06,-1.365846E-06,-1.365584E-06,-1.369556E-06,-1.367157E-06,-1.365412E-06,-1.367294E-06,-1.368919E-06,-1.367529E-06,-1.366797E-06,-1.365377E-06,-1.364223E-06,-1.367029E-06,-1.364512E-06,-1.362272E-06,1.432316E-12,1.442691E-12,1.44259E-12,1.442459E-12,1.442342E-12,1.442197E-12,1.44208E-12,1.441964E-12,1.441847E-12,1.441687E-12,1.441585E-12,1.44144E-12,1.441309E-12,1.441163E-12,1.441033E-12,1.440872E-12,1.381224E-12,1.381049E-12,1.38086E-12,1.3807E-12,1.38054E-12,1.380351E-12,1.380191E-12,1.379987E-12,1.379798E-12,1.379667E-12,1.379478E-12,1.379274E-12,1.379114E-12,1.378881E-12,1.378692E-12,1.378503E-12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
14/06/2017 15:12:54,0,1494.059,1,31.06562,1,2,3.125,0,1494.059,1494.02,1494.019,1494.019,1494.019,1494.019,1494.018,1494.018,1494.017,1494.017,1494.017,1494.016,1494.016,1494.016,1494.016,1494.015,1494.015,1494.014,1494.014,1494.014,1494.013,1494.013,1494.013,1494.013,1494.012,1494.012,1494.011,1494.011,1494.011,1494.01,1494.01,1494.01,-11.11283,-10.99662,-10.99476,-11.01927,-11.00978,-11.02069,-11.01594,-11.00807,-10.999,-10.9956,-11.0059,-11.00783,-11.00428,-11.01695,-10.99177,-11.00685,-9.004766,-8.997168,-8.996996,-8.997286,-8.99951,-8.999053,-8.993373,-8.992548,-8.999311,-8.997837,-8.991871,-8.985992,-8.984473,-8.995813,-8.987615,-8.981664,25.10469,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.443688E-06,-1.429209E-06,-1.428666E-06,-1.431937E-06,-1.430167E-06,-1.432075E-06,-1.431448E-06,-1.430503E-06,-1.429293E-06,-1.430244E-06,-1.432139E-06,-1.431655E-06,-1.430766E-06,-1.431328E-06,-1.428798E-06,-1.429714E-06,-1.365671E-06,-1.367653E-06,-1.365846E-06,-1.365584E-06,-1.369556E-06,-1.367157E-06,-1.365412E-06,-1.367294E-06,-1.368919E-06,-1.367529E-06,-1.366797E-06,-1.365377E-06,-1.364223E-06,-1.367029E-06,-1.364512E-06,-1.362272E-06,1.432316E-12,1.442691E-12,1.44259E-12,1.442459E-12,1.442342E-12,1.442197E-12,1.44208E-12,1.441964E-12,1.441847E-12,1.441687E-12,1.441585E-12,1.44144E-12,1.441309E-12,1.441163E-12,1.441033E-12,1.440872E-12,1.381224E-12,1.381049E-12,1.38086E-12,1.3807E-12,1.38054E-12,1.380351E-12,1.380191E-12,1.379987E-12,1.379798E-12,1.379667E-12,1.379478E-12,1.379274E-12,1.379114E-12,1.378881E-12,1.378692E-12,1.378503E-12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
14/06/2017 15:12:54,0,1494.059,1,31.06562,1,2,3.125,0,1494.059,1494.02,1494.019,1494.019,1494.019,1494.019,1494.018,1494.018,1494.017,1494.017,1494.017,1494.016,1494.016,1494.016,1494.016,1494.015,1494.015,1494.014,1494.014,1494.014,1494.013,1494.013,1494.013,1494.013,1494.012,1494.012,1494.011,1494.011,1494.011,1494.01,1494.01,1494.01,-11.11283,-10.99662,-10.99476,-11.01927,-11.00978,-11.02069,-11.01594,-11.00807,-10.999,-10.9956,-11.0059,-11.00783,-11.00428,-11.01695,-10.99177,-11.00685,-9.004766,-8.997168,-8.996996,-8.997286,-8.99951,-8.999053,-8.993373,-8.992548,-8.999311,-8.997837,-8.991871,-8.985992,-8.984473,-8.995813,-8.987615,-8.981664,25.10469,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.443688E-06,-1.429209E-06,-1.428666E-06,-1.431937E-06,-1.430167E-06,-1.432075E-06,-1.431448E-06,-1.430503E-06,-1.429293E-06,-1.430244E-06,-1.432139E-06,-1.431655E-06,-1.430766E-06,-1.431328E-06,-1.428798E-06,-1.429714E-06,-1.365671E-06,-1.367653E-06,-1.365846E-06,-1.365584E-06,-1.369556E-06,-1.367157E-06,-1.365412E-06,-1.367294E-06,-1.368919E-06,-1.367529E-06,-1.366797E-06,-1.365377E-06,-1.364223E-06,-1.367029E-06,-1.364512E-06,-1.362272E-06,1.432316E-12,1.442691E-12,1.44259E-12,1.442459E-12,1.442342E-12,1.442197E-12,1.44208E-12,1.441964E-12,1.441847E-12,1.441687E-12,1.441585E-12,1.44144E-12,1.441309E-12,1.441163E-12,1.441033E-12,1.440872E-12,1.381224E-12,1.381049E-12,1.38086E-12,1.3807E-12,1.38054E-12,1.380351E-12,1.380191E-12,1.379987E-12,1.379798E-12,1.379667E-12,1.379478E-12,1.379274E-12,1.379114E-12,1.378881E-12,1.378692E-12,1.378503E-12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
14/06/2017 15:12:54,0,1494.059,1,31.06562,1,2,3.125,0,1494.059,1494.02,1494.019,1494.019,1494.019,1494.019,1494.018,1494.018,1494.017,1494.017,1494.017,1494.016,1494.016,1494.016,1494.016,1494.015,1494.015,1494.014,1494.014,1494.014,1494.013,1494.013,1494.013,1494.013,1494.012,1494.012,1494.011,1494.011,1494.011,1494.01,1494.01,1494.01,-11.11283,-10.99662,-10.99476,-11.01927,-11.00978,-11.02069,-11.01594,-11.00807,-10.999,-10.9956,-11.0059,-11.00783,-11.00428,-11.01695,-10.99177,-11.00685,-9.004766,-8.997168,-8.996996,-8.997286,-8.99951,-8.999053,-8.993373,-8.992548,-8.999311,-8.997837,-8.991871,-8.985992,-8.984473,-8.995813,-8.987615,-8.981664,25.10469,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.443688E-06,-1.429209E-06,-1.428666E-06,-1.431937E-06,-1.430167E-06,-1.432075E-06,-1.431448E-06,-1.430503E-06,-1.429293E-06,-1.430244E-06,-1.432139E-06,-1.431655E-06,-1.430766E-06,-1.431328E-06,-1.428798E-06,-1.429714E-06,-1.365671E-06,-1.367653E-06,-1.365846E-06,-1.365584E-06,-1.369556E-06,-1.367157E-06,-1.365412E-06,-1.367294E-06,-1.368919E-06,-1.367529E-06,-1.366797E-06,-1.365377E-06,-1.364223E-06,-1.367029E-06,-1.364512E-06,-1.362272E-06,1.432316E-12,1.442691E-12,1.44259E-12,1.442459E-12,1.442342E-12,1.442197E-12,1.44208E-12,1.441964E-12,1.441847E-12,1.441687E-12,1.441585E-12,1.44144E-12,1.441309E-12,1.441163E-12,1.441033E-12,1.440872E-12,1.381224E-12,1.381049E-12,1.38086E-12,1.3807E-12,1.38054E-12,1.380351E-12,1.380191E-12,1.379987E-12,1.379798E-12,1.379667E-12,1.379478E-12,1.379274E-12,1.379114E-12,1.378881E-12,1.378692E-12,1.378503E-12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Их будет очень много, и разные файлы. Поэтому нужен хороший макрос, ну помогите мне что уж тут поделать то.
 
Перейти    
Ошибка при использовании цикла For/Next
 
#
15.06.2017 11:42:32
Здравствуйте,

Помогите поправить, ругается на Next i. Что делаю не так?
Код
If EraseOptionButton.Value = True Then
    For i = 10 To 1048576 Step 1
    If IsEmpty(Range("B" & i).Value) Then
    Next i
    End If
    Range("B" & i).Value = ""
    StatusLabel.Caption = Count + i
    Next i
End If
 
Перейти    
Импорт данных из TXT файла
 
#
14.06.2017 15:56:20
Здравствуйте,

Заставила меня жизнь столкнутся с подобного рода ситуацией, когда есть текстовые файлы со строками такого содержания:
Код
32767
14/06/2017 15:12:54,0,1494.059,1,31.06562,1,2,3.125,0,1494.059,1494.02,1494.019,1494.019,1494.019,1494.019,1494.018,1494.018,1494.017,1494.017,1494.017,1494.016,1494.016,1494.016,1494.016,1494.015,1494.015,1494.014,1494.014,1494.014,1494.013,1494.013,1494.013,1494.013,1494.012,1494.012,1494.011,1494.011,1494.011,1494.01,1494.01,1494.01,-11.11283,-10.99662,-10.99476,-11.01927,-11.00978,-11.02069,-11.01594,-11.00807,-10.999,-10.9956,-11.0059,-11.00783,-11.00428,-11.01695,-10.99177,-11.00685,-9.004766,-8.997168,-8.996996,-8.997286,-8.99951,-8.999053,-8.993373,-8.992548,-8.999311,-8.997837,-8.991871,-8.985992,-8.984473,-8.995813,-8.987615,-8.981664,25.10469,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.443688E-06,-1.429209E-06,-1.428666E-06,-1.431937E-06,-1.430167E-06,-1.432075E-06,-1.431448E-06,-1.430503E-06,-1.429293E-06,-1.430244E-06,-1.432139E-06,-1.431655E-06,-1.430766E-06,-1.431328E-06,-1.428798E-06,-1.429714E-06,-1.365671E-06,-1.367653E-06,-1.365846E-06,-1.365584E-06,-1.369556E-06,-1.367157E-06,-1.365412E-06,-1.367294E-06,-1.368919E-06,-1.367529E-06,-1.366797E-06,-1.365377E-06,-1.364223E-06,-1.367029E-06,-1.364512E-06,-1.362272E-06,1.432316E-12,1.442691E-12,1.44259E-12,1.442459E-12,1.442342E-12,1.442197E-12,1.44208E-12,1.441964E-12,1.441847E-12,1.441687E-12,1.441585E-12,1.44144E-12,1.441309E-12,1.441163E-12,1.441033E-12,1.440872E-12,1.381224E-12,1.381049E-12,1.38086E-12,1.3807E-12,1.38054E-12,1.380351E-12,1.380191E-12,1.379987E-12,1.379798E-12,1.379667E-12,1.379478E-12,1.379274E-12,1.379114E-12,1.378881E-12,1.378692E-12,1.378503E-12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Где первая строка, недорозумение ,а вторая данные для обработки в EXCEL. Вооброс вот в чем, как можно вызвать окно "Открыть файл как" и указавши путь к нему, перенести содержимое в ячейки. Дайте пожалуйста рабочий кусок кода, что бы мог лепить дальше сам, как пластеин.:oops:  
Изменено: JonnyDeep - 14.06.2017 15:56:43
 
Перейти    
Замена точки на запятую с texbox в ячейку
 
#
03.05.2017 09:14:56
Доброе утро! С толкнулся с тем  что необходимо заменить точку на запятую при вводе значения с texbox в ячейку. Подскажите как это сделать? Пока все происходит вот так:
Код
K1TextBox.Value = Range("R15").Value
 
Перейти    
Очистка объединенной ячейки
 
#
02.05.2017 15:53:00
Как очистить оледененную ячейку?
Код
For i = 6 To 9 Step 1
        Range("D" & i:"E" & i).ClearContents
Next i
Не работает
 
Перейти    
Отрицательное число в положительное VBA
 
#
01.05.2017 21:02:57
Здравствуйте, помогите на выходе изменить отрицательное число при любых условиях в положительное:
Код
Range("H86").Value = Round(Oa, 3)
 
Перейти    
Уйти от округления чисел VBA
 
#
28.04.2017 18:51:53
Всем добрый вечер и с наступающими праздниками!

Столкнулся с необходимостью убрать округление, т.е. имея число 1206,03500000000 я Round отрезаю до двух разрядов после запятой и у меня получается значение 1206,04. Как решить проблему? Расчеты делаю очень точные и округлять нельзя. Помогите пожалуйста...
Код
        Qji1 = WorksheetFunction.Sum(Range("C22:C23").Value)
        Qji2 = WorksheetFunction.Sum(Range("C24:C25").Value)
        Qji3 = WorksheetFunction.Sum(Range("C26:C27").Value)
        Qji4 = WorksheetFunction.Sum(Range("C28:C29").Value)
        Qji5 = WorksheetFunction.Sum(Range("C30:C31").Value)
        Qji6 = WorksheetFunction.Sum(Range("C32:C33").Value)
        
        Range("C75").Value = Round(Qji1 / 2, 2)
        Range("C76").Value = Round(Qji2 / 2, 2)
        Range("C77").Value = Round(Qji3 / 2, 2)
        Range("C78").Value = Round(Qji4 / 2, 2)
        Range("C79").Value = Round(Qji5 / 2, 2)
        Range("C80").Value = Round(Qji6 / 2, 2)
Изменено: Zimba - 28.04.2017 18:52:29
 
Перейти    
Как проверить скрыт ли столбец VBA
 
#
27.04.2017 16:26:14
Помогите проверить скрытность столбцов, мой код не работает:
Код
    For i = 18 To 30 Step 1
    If Application.ActiveSheet.Columns(i).EntireColumn.Hidden = True Then
        HideExtFormulaCheckBox.Value = True
    Else
        HideExtFormulaCheckBox.Value = False
    End If
    Next i
 
Перейти    
Как заменить последовательное указание адресов ячеек циклом For-Next?
 
#
26.04.2017 20:39:20
Прошу помощи господа!

Помогите сделать с этого:
Код
        Range("B22").Value = "1/1"
        Range("B23").Value = "1/2"
        Range("B24").Value = "2/1"
        Range("B25").Value = "2/2"
        Range("B26").Value = "3/1"
        Range("B27").Value = "3/2"
        Range("B28").Value = "4/1"
        Range("B29").Value = "4/2"
        Range("B30").Value = "5/1"
        Range("B31").Value = "5/2"
        Range("B32").Value = "6/1"
        Range("B33").Value = "6/2"
        
        Range("D22").Value = "1-3-1"
        Range("D23").Value = "2-4-2"
        Range("D24").Value = "1-3-1"
        Range("D25").Value = "2-4-2"
        Range("D26").Value = "1-3-1"
        Range("D27").Value = "2-4-2"
        Range("D28").Value = "1-3-1"
        Range("D29").Value = "2-4-2"
        Range("D30").Value = "1-3-1"
        Range("D31").Value = "2-4-2"
        Range("D32").Value = "1-3-1"
        Range("D33").Value = "2-4-2"
Нечто похожее на это:
Код
For c = 1 to 6 step 2
For i = 22 to 33 step 1
Range("B" & i).Value = c
Вообщем даже голова не работает))))
 
Перейти    
Нахождение плотности с подбором значения в цикле
 
#
26.04.2017 12:02:16
Помогите пожалуйста с петлей. Честно уже нечего не пойму.

Задача:

Мне нужно найти плотность вещества. Формула очень хитрая и просто так не сделаешь, только методом обратного подбора. Поэтому есть диапазон ячеек с плотностью от 22 до 69. Значение которых по умолчанию должно быть ~300, что бы заработал диапазон определения коэффициентов расширения и т.д. опять таки который нужен для работы моей формулы. Вообщем к числу 300 нужно прибавлять числа примерно вот такие + 0.0000001 до тех пор пока формула "zero" не станет максимально возможным нулем т.е. хотябы так 0.0000001. Помогите пожалуйста, я набросал но в программировании не очень силен. Кто может помочь?
Код
        Dim zero As Double
        For i = 22 To 69 Step 1
        Range("AA" & i).Value = 300
Line1:
        zero = Range("AA" & i).Value - (Range("I" & i).Value * (1 - Range("AC" & i).Value * Range("K" & i).Value)) / Exp((-Range("AB" & i).Value * (Range("J" & i).Value - 15) * (1 + 0.8 * Range("AB" & i).Value * (Range("J" & i).Value - 15))))
        If zero > 0 Then
        Range("AA" & i).Value = Range("AA" & i).Value + 0.0000001
        Else
        GoTo Line1
        End If
        On Error Resume Next
        Next i
 
Перейти    
Проверка ячеек на ноль, ошибки и текст
 
#
25.04.2017 09:28:53
Доброе утро помогите пожалуйста проверить ячейки на ошибки, пустоту и ноль. Что бы при общте не было ошибок если например в ячейках текст или еще что то. Функцией if numeretic у меня что то не получается. Помогите пожалуйста.
Код
        SjDev = WorksheetFunction.StDev(Range("R22:R25"))
        SjAvr = WorksheetFunction.Average(Range("R22:R25"))
        Diesel.Range("H75").Value = SjDev * 100 / SjAvr

        SjDev = WorksheetFunction.StDev(Range("R26:R29"))
        SjAvr = WorksheetFunction.Average(Range("R26:R29"))
        Diesel.Range("H76").Value = SjDev * 100 / SjAvr
        
        SjDev = WorksheetFunction.StDev(Range("R30:R33"))
        SjAvr = WorksheetFunction.Average(Range("R22:R23"))
        Diesel.Range("H77").Value = SjDev * 100 / SjAvr
        
        SjDev = WorksheetFunction.StDev(Range("R34:R37"))
        SjAvr = WorksheetFunction.Average(Range("R34:R37"))
        Diesel.Range("H78").Value = SjDev * 100 / SjAvr
 
        SjDev = WorksheetFunction.StDev(Range("R38:R41"))
        SjAvr = WorksheetFunction.Average(Range("R38:R41"))
        Diesel.Range("H79").Value = SjDev * 100 / SjAvr

        SjDev = WorksheetFunction.StDev(Range("R42:R45"))
        SjAvr = WorksheetFunction.Average(Range("R42:R45"))
        Diesel.Range("H80").Value = SjDev * 100 / SjAvr
 
Перейти    
VBA: арифметические операциии в цикле
 
#
24.04.2017 15:23:23
Добрый вечер!

Помогите сделать арифметические операциии в петле:
Код
    For i = 22 To 69 Step 2
    If DieselProcessGroupBox1.Value = True Then
    Diesel.Range("Q" & i).Value * Diesel.Range("X" & i).Value * Diesel.Range("Y" & i).Value / C15 / Diesel.Range("T" & i).Value / Diesel.Range("U" & i).Value / Diesel.Range("V" & i).Value / Diesel.Range("W" & i).Value
    End If
    Next i
Ругается на синтакс, что может быть не так?
 
Перейти    
Страницы: 1 2 3 След.
Наверх