1

голосов
0

ответ
25

Просмотры

Установка диапазона с помощью двух ячеек из разных листов

Я пытаюсь пройти через календарь, чтобы установить диапазон перемещение 13 дня для каждого столбца. Если диапазон 13 дня идет за текущий месяц, я хочу, чтобы иметь возможность перейти на следующий лист, и найти меня, где это заканчивается. Я, однако, не в состоянии ссылаться на оба листа одновременно. Установите rng13 = .Range (start13, finish13) Я планирую запустить булеву проверку в этом диапазоне 13 дней, чтобы увидеть, если все 13 дней истинны. Любая помощь или рекомендации будут оценены с ActiveWorkbook.Worksheets (я) Set onePersonLoop = .Cells (RowNum, colNum) .offset (-1) .END (xlToRight) .offset (, -2) Установите onePersonLoop = .Cells (RowNum, colNum) .offset (-1) .END (xlToRight) .offset (, -2) Для RowNum = 6 24 Шаг 6 Установка nameLocation = .Cells (RowNum, colNum) .offset (-2, -1) .EntireRow. Клетки (1, 2) Для colNum = 4 до onePersonLoop. Установите start13 = .Cells (RowNum,
jiwanheo
1

голосов
2

ответ
914

Просмотры

Инициализация всех текстовых полей с для цикла

У меня есть для инициализации пользовательской формы. Он отлично работает, когда я инициализировать с помощью закомментирована части коды, но когда я использую код, как показано ниже, я получаю сообщение об ошибке выполнения 91. Мне нужен способ перебрать или выбрать все текстовые поля, чтобы дать им по умолчанию значения, цвет и т.д ... Private Sub UserForm_Initialize () Dim I As Long Dim CTL в качестве контроля для я = 1 К 4 CTL = "TextBox" и я ctl.Value = "" Далее я 'TextBox1.Value = ""' TextBox2.Value = "" 'TextBox3.Value = ""' TextBox4.Value = "" End Sub
jiwanheo
2

голосов
2

ответ
90

Просмотры

Использование коллекции как свойство в классе (Аргумент обязателен)

Я пытаюсь использовать набор дат как свойство класса, и проблемы с ним. По сути, я хочу, чтобы хранить несколько vacLocation в emp_vacDates, и иметь его подачи в employee.Vaca. У меня нет никаких проблем работы с Employee.Name Ошибка я получаю Ошибка компиляции: Аргумент не факультативной на заявление Вака Пусть Мой код: Sub отпуск () Dim I As Integer Dim RowNum As Long: RowNum = 5 Dim colNum As Long: colNum = 4 Dim onePersonLoop Как Range Dim nameLocation Как Range Dim vacLocation Как Range Dim emp_vacDates В коллекции Dim EMPS Как сотрудник Коллекция Dim As EmployeeClass Для я = 2 К 2 С ActiveWorkbook.Worksheets (I) Набор onePersonLoop = .Cells (RowNum, colNum) .offset (-1) .END (xlToRight) .offset (,
jiwanheo
2

голосов
1

ответ
20

Просмотры

Работа вокруг ошибок в порядке ячеек в диапазоне

У меня есть функция, которая проходит через календарь и устанавливает субботу и воскресенье, в зависимости от их количества столбцов. Я тогда установить диапазон в течение одной недели (воскресенье по субботу). Моя проблема в том, когда цикл попадает в субботу, две ячейки в неделю диапазона установить, кажется, поменялись позиции, таким образом, выбирая в субботу через воскресенье. Как обойти это? Для colNum = 4 К 100 Набор currentCell = .Cells (RowNum, colNum) Set otCell = currentCell.Offset (-1, 0) = Set regCell currentCell.Offset (-2, 0) Если colNum Mod 7 = 4, то солнце = colNum End If Если colNum Mod 7 = 3 Тогда сел = colNum End If Set неделю = .Range (.Cells (RowNum, вс), .Cells (RowNum, сидел)) week.Select Далее colNum
jiwanheo