Дописи SamDsouza - Сторінка 2 - Безкоштовний довідковий форум ExcelVBA OzGrid

Проблема збереження файлу даних, а також коли файл відкрито

Re: Проблема збереження файлу даних, а також коли файл відкрито

Дружнє нагадування: mad:

Проблема збереження файлу даних, а також коли файл відкрито

Re: Проблема збереження файлу даних, а також коли файл відкрито

Дякуємо за ваш запит та допомагаєте мені покращити те саме. Я вивчу помилки і дізнаюся, що пішло не так

Проект належить до Переліку шкіл району з їх класовим підрозділом та загальною кількістю учнів, які мають право на голоси від кожної школи

1. Буде обирати школу за напрямком (відбір та доповнення)
2. Збережені файли будуть розміщені на Zonal Wise: (Назва файлу буде схожа на Zone1.Dat, ZNorth.Dat тощо. У цьому пункті будуть обрані та додані школи на загальну кількість Площі та Додані
3. Після збереження: щоб переглянути те саме в Sheet3, тобто, коли ви відкриваєте файл .Dat. Також перед збереженням хотіли б переглянути те саме, натиснувши команду Sheet 3 View. це коли ви додаєте записи.

Вперше використовуючи дві форми користувача, я справді заплутався щодо того, які мають бути загальні змінні та масиви

Будемо дуже вдячні за вашу підтримку

Проблема збереження файлу даних, а також коли файл відкрито

Додано наступний файл для довідки
Також нижче наведено вміст файлу Dat у лапках

Не вдалося отримати бажані результати при збереженні файлу від userForm2.
у файлі відображається 0
Що мені потрібно поділитися в усьому світі чи публічно, щоб виправити вищезазначене

Проблема 2: шльопання:
Це під час відкриття файлу з userform2
Проблема, коли двічі клацнуто у списку1 Userform2. Файл відкривається з усіма записами та всіма елементами
у вікні списку userForm1. За винятком 1-го пункту 1-го запису відображається пусте. Я не знаю чому

Проблема 3: у UserForm1: spank:
А.) При натисканні на cmdViewSheet
Не вдалося побачити жодного запису на Sheet3. Я справді не знаю, що пішло не так

Б.) Допомога також потрібна, якщо файл відкрито через. Userform2 із listbox1
Чи зможу я побачити всі записи при натисканні на CmdViewSheet

1. Зміст файлу даних:

2
1, "Чембур", "Чембур", 2
"Чембур", "Райан Інтернешнл", "50", "3127"
"Чембур", "Св. Антойс", "30", "3999"
2, "Вікторія Термінал", "Вікторія Термінал", 2
"Вікторія Термінус", "Школа собору та Джона Конона", "30", "2100"
"Victoria Terminus", "JB Petit High School", "40", "3999"

Зміст файлу 2.dat, коли я намагався зберегти

Дійсно оціню Ваші зусилля щодо їх вирішення

Файли

(60,48 кБ, завантажено 35 раз, останній: 8 грудня 2020 р.)

Повторення рядка заголовка, якщо дані в діапазоні перевищують

Re: Повторення рядка заголовка, якщо дані в діапазоні перевищують

Ставши зовсім відчайдушним, щоб отримати логіку кодування.: mad: mad: mad:
Якби вищезазначені два пости заплутали. Я думаю, що вони є, вибачте за невміння, і я кажу, будь ласка, забудьте кодування, як показано, яке я згадував у двох повідомленнях з посиланням на раніше опубліковану тему 196314.

Почніть нове: відповідно до файлу, що додається до публікації 1
1. У аркуші1 Від рядків 1 до рядків 16: Дані залишаються фіксованими
2. Рядок 17, якщо ви бачите, це RowHeader (Не вкажіть, як визначити це ім'я або як хтось буде це розглядати)
3. З рядків 18 до рядка 50 дані можуть відрізнятися. Якщо дані закінчуються на 49-му рядку або 48 рядку, це кінець сторінки 1
4. якщо дані перевищують більше 50 рядків, скажімо, 51-й рядок або 75-й рядок, тоді рядок 17 слід повторити на 2-й сторінці, а якщо все більше даних перевищує, рядок 17 слід повторити на сторінках 3,4, 5 тощо

Просто вимагайте вашої великої допомоги
Спасибі заздалегідь
SamD

Повторення рядка заголовка, якщо дані в діапазоні перевищують

Re: Повторення рядка заголовка, якщо дані в діапазоні перевищують

Чи може хтось допомогти мені щодо вищезазначеної проблеми, або будь-яке посилання на тему, яке ви можете мені дати для вищезазначеної проблеми, буде чудовою допомогою.
Вищезазначене кодування взято з потоку 196314, пост 20
В основному акуратне представлення робочих аркушів, які мені потрібні.

Я хочу повторити рядок із визначеним заголовком № 17 темно-синього кольору на різних сторінках, якщо дані перевищують 50 рядків.

Наприклад,
Дані починаються з рядка 18 на сторінці 1, а рядок для розриву сторінки закінчується в рядку 50 (при попередньому перегляді), наприклад, якщо дані перевищують рядки 50
то на наступній сторінці слід повторити визначений рядок заголовка кольору Darkblue, бажано після заголовка Excel.

Сподіваюся, це пояснить.

Повторення рядка заголовка, якщо дані в діапазоні перевищують

Вітаю вас з Новим 2016 роком

Додано файл ".Xlsx" для довідки. Будь ласка, розгляньте Color Backgorund як заповнені дані. Зверніть увагу, що у цьому файлі немає коду макросу

В основному я хочу повторити рядок 17, якщо Дані перевищують діапазон. які в даний час не можуть передбачити і не можуть визначити точний діапазон даних
Я пофарбував світло-зелений від рядків 1 до рядків 16, які будуть закріплені на сторінці 1.
Бежевий колір для непередбачуваних даних, який починається з рядка 18
Білі рядки - це Пусті рядки в асортименті бежевого кольору.

Чи потрібен розрив сторінки? Я справді не знаю, але коли попередньо переглянуто згідно з файлом, він знаходиться в рядку 50 на сторінці 1

Будь-яка ідея, як я можу кодувати вище та нижче код.
Нижче наведено код даних, відображених у бежевому кольорі

sw = 18 'Дані починаються з рядка 18
Якщо lngCount> 0 Тоді
RecordSet = True
ReDim SelectedArray (1 To lngCount + (mylist.Count * 2), 1 To 7)
ReDim SelectedArrayDisplay (1 To lngCount, 1 To 7)
Для lngRecord = 1 До мого списку
Якщо мій список (lngRecord). Count> 0 Тоді
arrayCount = arrayCount + 1
arrayCount = sw
Для lngSet = 1 До мого списку (lngRecord)
arrayCountDisplay = arrayCountDisplay + 1
arrayCount = arrayCount + 1
Для intItem = від 1 до 7
SelectedArray (arrayCount, intItem) = mylist (lngRecord) .Item (lngSet) (intItem)
SelectedArrayDisplay (arrayCountDisplay, intItem) = mylist (lngRecord) .Item (lngSet) (intItem - 1)
rowum = sw + lngSet
Наступний intItem
Далі lngSet
arrayCount = arrayCount + 1 'Пустий рядок
arrayCount = arrayCount + 1 'Пустий рядок
закінчити, якщо
sw = рахунок масивів + 1
Далі LngRecord
Аркуш1.Range ("A18"). Змінити розмір (lngCount + (mylist.Count * 2) + 3, 8). Borders (xlEdgeLeft) .LineStyle = xlContinuous
Аркуш1.Range ("A18"). Змінити розмір (lngCount + (mylist.Count * 2) + 3, 8). Borders (xlEdgeRight) .LineStyle = xlContinuous
Аркуш1.Range ("A18"). Змінити розмір (lngCount + (mylist.Count * 2) + 3, 8). Borders (xlInsideVertical) .LineStyle = xlContinuous
Аркуш 1. Діапазон ("A18"). Змінення розміру (lngCount + (mylist.Count * 2) + 3, 8). BorderAround Weight: = xlThin
Кінець суб