ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в екцель вписать данные (типа чтобы табличка получилась) ?
25 сообщений из 34, страница 1 из 2
  1  все
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34542355
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Подскажите похалуйста, чего тама (где жёлтая строчка) мне написать, чтобы всеми полученными данными сделать красивую (ну можно и не очень:) табличку в A1 ?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub cmdGetData_Click()
On Error GoTo Err_cmdGetData_Click

With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
  .Connection = "OLEDB;Provider=sqloledb;Data Source=BAZE\BAZE;Initial Catalog=ля-ля-ля;Integrated Security=SSPI"
  .CommandType = xlCmdSql
  .CommandText = "dbo.SP_Trapecija '" & Me.txtOrderNo & "'"
  .MaintainConnection = True
   Шо дальше то, а?  
End With

Exit_cmdGetData_Click:
    Exit Sub

Err_cmdGetData_Click:
    MsgBox "Случилось что-то ужасное. Программа очень удивлена и дальше работать не может.", vbCritical, "Trapecija"
    Resume Exit_cmdGetData_Click

End Sub
...
Рейтинг: 0 / 0
22.05.2007, 14:20:33
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34542365
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
ЗЫ: Там был пивот, но он всем разонрависля. Надо просто построчно записать все полученные данные из хп.
ЗЫЫ: Теперь вроде всё сказал =)
...
Рейтинг: 0 / 0
22.05.2007, 14:23:53
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34542758
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Ну шож - раз нихто не помог - буду делать как-то не так :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    n =  2     
    Do While Not rs.EOF
    Range("A" & n).Value = rs("OrderNo")
....
    Range("J" & n).Value = rs("Issikisimas")
    n = n +  1 
    rs.MoveNext
    Loop

А скажите, пожалуйста, господа екцеля специалисты. Как узнать в каком ряду я стою?

Например такая таблица как на картинке. Елсли пользователь стоит на второй сторке, то как-то надо скопировать A2, B2 в A15, B15. Если на третей строке, то копировать надо A3, B3 в теже A15, B15.

Как это сделать? Вы уж похите дураку - я с екцелем не умею... ;)
...
Рейтинг: 0 / 0
22.05.2007, 15:48:11
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34543830
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
ByKiSПодскажите похалуйста, чего тама (где жёлтая строчка) мне написать, чтобы всеми полученными данными сделать красивую (ну можно и не очень:) табличку в A1 ? А дальше, ты на созданом PivotCache создаешь PivotTable.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim pc as PivotCache, pt as PivotTable
Set pc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
With pc
     ' твой код определения кеша
End With
Set pt = ActiveSheet.PivotTables.Add(PivotCache:=pc, TableDestination:=ActiveSheet.Range("A1"))
With pt
     ' определяешь параметры отображаемой таблицы. Набиваешь ее полями, форматируешь их и тд
End With
PivotCache это внутренняя вещь, принадлежит книге и не имеет внешнего отображения. Для отображения используется PivotTable. И да, на одном PivotCache ты можешь построить несколько PivotTable с разной группировкой, на разных листах.

ByKiSА скажите, пожалуйста, господа екцеля специалисты. Как узнать в каком ряду я стою?

Например такая таблица как на картинке. Елсли пользователь стоит на второй сторке, то как-то надо скопировать A2, B2 в A15, B15. Если на третей строке, то копировать надо A3, B3 в теже A15, B15.В смысле где был курсор на момент старта макроса? Хм... обычно люди обнаруживают это на первом занятии макросами Экселя. Сводные таблицы намного более серьезная вещь... Ну ладно:
Код: plaintext
1.
y = ActiveCell.Row
x = ActiveCell.Column
...
Рейтинг: 0 / 0
22.05.2007, 21:19:56
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34544360
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Спасибо за ответ!
White OwlХм... обычно люди обнаруживают это на первом занятии макросами Экселя.У меня времени мало, да и с екцелем я не работаю - первые занятия пришлось пропустить :)
...
Рейтинг: 0 / 0
23.05.2007, 09:15:59
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34544386
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
PS: Ещё вопросик (тоже видать из-за пропущенных первых занятий:)
Listbox с нескольеими колонками и с заголовкоми колонок - КАК вбить заголовки используя AddItem? Я и так и так бился и всё никак... Может вообще нельзя?
Заполняю я его так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    n =  0 
    Do While Not rs.EOF
    With Me.lstMyList
    .AddItem rs("OrderNo")
    .List(n,  1 ) = rs("TipoPavadinimas")
    .List(n,  2 ) = rs("Бла-бла-бла и так далее")
    n = n +  1 
    rs.MoveNext
    Loop
А вот как в него заголовки засунуть?
...
Рейтинг: 0 / 0
23.05.2007, 09:24:53
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34544396
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
ЗЫЫ: И ворос 2 (если не затруднит) как закрывать воркбук, что бы он не спрашивал сохранять ли изменения, а просто закрывался ничего не сохраняя (желательно, когда пользователь нажимает крестик) :) ???
...
Рейтинг: 0 / 0
23.05.2007, 09:28:30
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34544494
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ByKiSЗЫЫ: И ворос 2 (если не затруднит) как закрывать воркбук, что бы он не спрашивал сохранять ли изменения, а просто закрывался ничего не сохраняя (желательно, когда пользователь нажимает крестик) :) ???

Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Saved = True
End Sub
...
Рейтинг: 0 / 0
23.05.2007, 10:03:07
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34544726
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ByKiSPS: Ещё вопросик (тоже видать из-за пропущенных первых занятий:)
Listbox с нескольеими колонками и с заголовкоми колонок - КАК вбить заголовки используя AddItem? Я и так и так бился и всё никак... Может вообще нельзя?
Заполняю я его так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    n =  0 
    Do While Not rs.EOF
    With Me.lstMyList
    .AddItem rs("OrderNo")
    .List(n,  1 ) = rs("TipoPavadinimas")
    .List(n,  2 ) = rs("Бла-бла-бла и так далее")
    n = n +  1 
    rs.MoveNext
    Loop
А вот как в него заголовки засунуть?

Я точно не знаю, но по-моему заголовки можно только когда с листа диапазон указываешь!
Код: plaintext
1.
2.
3.
4.
Private Sub UserForm_Initialize()
 ListBox1.ColumnCount =  2 
 ListBox1.ColumnHeads = True
 ListBox1.RowSource = "A2:B5" 'çàãîëêè âîçìóòñÿ èç "A1:B1"
End Sub
...
Рейтинг: 0 / 0
23.05.2007, 11:01:23
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34544730
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
1.
2.
3.
4.
Private Sub UserForm_Initialize()
 ListBox1.ColumnCount =  2 
 ListBox1.ColumnHeads = True
 ListBox1.RowSource = "A2:B5" 'заголки возмутся из "A1:B1"
End Sub
...
Рейтинг: 0 / 0
23.05.2007, 11:01:54
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34544957
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
C листа - да, всё нормально. А рекордесетом забить нельзя никак?
...
Рейтинг: 0 / 0
23.05.2007, 11:50:31
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34545007
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ByKiSC листа - да, всё нормально. А рекордесетом забить нельзя никак?
Я не знаю
...
Рейтинг: 0 / 0
23.05.2007, 12:02:01
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34545041
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
ByKiSНу шож - раз нихто не помог - буду делать как-то не так :)
Код: plaintext
    n =  2     \n    Do While Not rs.EOF\n    Range("A" & n).Value = rs("OrderNo")\n....\n    Range("J" & n).Value = rs("Issikisimas")\n    n = n +  1 \n    rs.MoveNext\n    Loop

А скажите, пожалуйста, господа екцеля специалисты. Как узнать в каком ряду я стою?

Например такая таблица как на картинке. Елсли пользователь стоит на второй сторке, то как-то надо скопировать A2, B2 в A15, B15. Если на третей строке, то копировать надо A3, B3 в теже A15, B15.

Как это сделать? Вы уж похите дураку - я с екцелем не умею... ;)

Можешь тут почитать:

/topic/399289&hl=rs+index

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
23.05.2007, 12:09:04
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34547562
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
DeggasadЯ точно не знаю, но по-моему заголовки можно только когда с листа диапазон указываешь!Да. Жалко:( пришлось лист заполнять, а уже потом с него листбокс...
http://support.microsoft.com/kb/q164343/
...
Рейтинг: 0 / 0
24.05.2007, 09:53:34
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34548463
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Deggasad ByKiSЗЫЫ: И ворос 2 (если не затруднит) как закрывать воркбук, что бы он не спрашивал сохранять ли изменения, а просто закрывался ничего не сохраняя (желательно, когда пользователь нажимает крестик) :) ???

Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Saved = True
End Sub
Вы не понялт (или не понял я). Как сделать
...
Рейтинг: 0 / 0
24.05.2007, 13:59:55
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34548652
mari_karo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mari_karo
Гость
авторВы не понялт (или не понял я). Как сделать
А вы код куда вставили?
Вам нужно этот код добавить в код объекта ЭтаКнига (ThisWorkbook)
...
Рейтинг: 0 / 0
24.05.2007, 14:44:14
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34548663
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Вроде как да...
...
Рейтинг: 0 / 0
24.05.2007, 14:48:04
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34548670
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
А кстати, это не мешает ему?
Код: plaintext
1.
2.
Sub Auto_Close()
 Разные тулбарчики там = что-то да, а что-то нет
End Sub
...
Рейтинг: 0 / 0
24.05.2007, 14:50:12
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34548683
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ByKiSВроде как да...
Должно всё работать! Хотите файл выложите!
А может макросы отключены (глупо конечно!!!)
...
Рейтинг: 0 / 0
24.05.2007, 14:53:05
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34548717
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Всё-тфки это мой автоклоз - клозёл :)
Тама если сначала на канцел тыкаешь, а потом опять на крестик - то закрывается и не спрашивает. А хотелось бы шоб он сразу не спрашивал.
...
Рейтинг: 0 / 0
24.05.2007, 15:02:12
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34548724
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Скромно и так стыдливо
Вы только над моей мотодой расчёта жалюзей в виде трапеций не смейтеся..
...
Рейтинг: 0 / 0
24.05.2007, 15:05:01
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34549120
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Значит так это
Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Saved = True
End Sub
УБИВАЕМ

А в ваш Auto_Close()

пишем в конце

Код: plaintext
1.
2.
3.
Sub Auto_Close()
...
ThisWorkbook.Saved = True
End Sub
...
Рейтинг: 0 / 0
24.05.2007, 16:35:53
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34549124
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
DeggasadЗначит так это
Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Saved = True
End Sub
УБИВАЕМ

А в ваш Auto_Close()

пишем в конце

Код: plaintext
1.
2.
3.
Sub Auto_Close()
...
ThisWorkbook.Saved = True
End Sub


Или наоборот, стобы всё в одном месте было!
...
Рейтинг: 0 / 0
24.05.2007, 16:36:37
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34549132
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Кстате вопрос ко всем я не знал про такую возможность как
Модули
Sub Auto_Close()
...
End Sub

Чё-то в справке ничего не нашёл. Где можно почитать не подскажите?
...
Рейтинг: 0 / 0
24.05.2007, 16:39:51
| Ответить | Цитировать | Написать  
Как в екцель вписать данные (типа чтобы табличка получилась) ?
    #34549150
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Granata005
Участник
и про Auto_Open не знал что-ли... не верю...
...
Рейтинг: 0 / 0
24.05.2007, 16:44:57
| Ответить | Цитировать | Написать  
25 сообщений из 34, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в екцель вписать данные (типа чтобы табличка получилась) ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2182874]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 75ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 79ms
get tp. blocked users:
 1ms
others: 232ms
total:  435ms
созд. / загр.: 435ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]