Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в екцель вписать данные (типа чтобы табличка получилась) ? / 25 сообщений из 34, страница 1 из 2
  1  все
22.05.2007, 14:20:33
    #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:23:53
    #34542365
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
ЗЫ: Там был пивот, но он всем разонрависля. Надо просто построчно записать все полученные данные из хп.
ЗЫЫ: Теперь вроде всё сказал =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 15:48:11
    #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, 21:19:56
    #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
| Ответить | Цитировать | Написать  
23.05.2007, 09:15:59
    #34544360
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
Спасибо за ответ!
White OwlХм... обычно люди обнаруживают это на первом занятии макросами Экселя.У меня времени мало, да и с екцелем я не работаю - первые занятия пришлось пропустить :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2007, 09:24:53
    #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:28:30
    #34544396
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
ЗЫЫ: И ворос 2 (если не затруднит) как закрывать воркбук, что бы он не спрашивал сохранять ли изменения, а просто закрывался ничего не сохраняя (желательно, когда пользователь нажимает крестик) :) ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2007, 10:03:07
    #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, 11:01:23
    #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:54
    #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:50:31
    #34544957
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
C листа - да, всё нормально. А рекордесетом забить нельзя никак?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2007, 12:02:01
    #34545007
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
ByKiSC листа - да, всё нормально. А рекордесетом забить нельзя никак?
Я не знаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2007, 12:09:04
    #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
| Ответить | Цитировать | Написать  
24.05.2007, 09:53:34
    #34547562
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
DeggasadЯ точно не знаю, но по-моему заголовки можно только когда с листа диапазон указываешь!Да. Жалко:( пришлось лист заполнять, а уже потом с него листбокс...
http://support.microsoft.com/kb/q164343/
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2007, 13:59:55
    #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, 14:44:14
    #34548652
mari_karo
mari_karo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
авторВы не понялт (или не понял я). Как сделать
А вы код куда вставили?
Вам нужно этот код добавить в код объекта ЭтаКнига (ThisWorkbook)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2007, 14:48:04
    #34548663
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
Вроде как да...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2007, 14:50:12
    #34548670
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
А кстати, это не мешает ему?
Код: plaintext
1.
2.
Sub Auto_Close()
 Разные тулбарчики там = что-то да, а что-то нет
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2007, 14:53:05
    #34548683
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
ByKiSВроде как да...
Должно всё работать! Хотите файл выложите!
А может макросы отключены (глупо конечно!!!)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2007, 15:02:12
    #34548717
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
Всё-тфки это мой автоклоз - клозёл :)
Тама если сначала на канцел тыкаешь, а потом опять на крестик - то закрывается и не спрашивает. А хотелось бы шоб он сразу не спрашивал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2007, 15:05:01
    #34548724
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
Скромно и так стыдливо
Вы только над моей мотодой расчёта жалюзей в виде трапеций не смейтеся..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2007, 16:35:53
    #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:36:37
    #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:39:51
    #34549132
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в екцель вписать данные (типа чтобы табличка получилась) ?
Кстате вопрос ко всем я не знал про такую возможность как
Модули
Sub Auto_Close()
...
End Sub

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


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