Results 1 to 1 of 1

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Wolfdale te0o's Avatar
    Join Date: Jan:2010
    Location: UK
    Posts: 2,645

    Excel VBA - äèíàìè÷íî ñåëåêòèðàíå íà êëåòêè?

    Çäðàâåéòå!

    Ïúðâî èñêàì äà êàæà, ÷å ñúì òîòàëíî íåçàïîçíàò ñ ïðîãðàìèðàíåòî è èìàì ìèíèìàëíè çíàíèÿ ïî VBA. Âúïðåêè òîâà ìè ñå íàëàãà äà ïîñòðîÿ íÿêîëêî ìàêðîòà â ñðàâíèòåëíî ïðîñòà òàáëèöà. Òàáëèöàòà ñå ñúñòîè îò öåíèòå íà ðàçëè÷íè ôèíàíñîâè èíñòðóìåíòè çà ðàçëè÷åí ïåðèîä îò âðåìå, êîéòî ñå ïðîìåíÿ îò ïîòðåáèòåëÿ. Öåëòà å, ÷ðåç ìàêðîòà, äà ñå ïîñòðîÿò àâòîìàòè÷íî ãðàôèêè íà áàçàòà íà òàçè èíôîðìàöèÿ, êîÿòî å ïðîìåíëèâà è ìîæå äà å ñ ðàçëè÷íà äúëæèíà (äà êàæåì îò C9 äî Ñ*, êúäåòî * å ïîñëåäíàòà êëåòêà â êîÿòî èìà èíôîðìàöèÿ).

    ×ðåç çàïèñâàíå íà ìàêðîòà è ÷ðåç ìàëêî ïðîìåíè îò ìîÿ ñòðàíà ñ ïîìîùòà íà Googlå, ñå ñïðàâèõ ñ åäèí åòàï îò çàäà÷àòà, à èìåííî ïîñòðîÿâàíåòî íà ãðàôèêè çà öåíàòà íà äâà èíñòðóìåíòà â îïðåäåëåí ïåðèîä îò âðåìå, ïîîòäåëíî. Êîäúò è çà äâåòå å ìíîãî áëèçúê, åòî ïðèìåð:

    Code:
        Dim ch As Shape
        lastrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
        ActiveSheet.Range("B9:C" & lastrow).Select
        ActiveSheet.Shapes.AddChart.Select
        Set ch = ActiveSheet.Shapes(1)
        ch.Name = "Security 1"
        ActiveChart.ChartType = xlLine
        ActiveChart.SetSourceData Source:=Range("Model!$B$9:$C$" & lastrow)
    Ñëåä òîâà ñå ïðîäúëæàâà ñ ôîðìàòèðàíå íà ñàìàòà ãðàôèêà, ñ êîåòî ïðîáëåìè íÿìà.

    Öåëòà ìè å äà êîìáèíèðàì èíôîðìàöèÿòà çà äâàòà èíñòðóìåíòà è äà ìîãà äà ÿ ïðåäñòàâÿ â åäíà ãðàôèêà ñ äâå ëèíèè, çà åäèí è ñúùè ïåðèîä îò âðåìå, eòî òàêà:


    Ñ äðóãè äóìè êàê ìîãà äà íàêðàì êîäúò ìè äà ïîñòðîè ãðàôèêà íà áàçà ïðîìåíëèâà èíôîðìàöèÿ â òðè êîëîíè: ïúðâàòà çà öåíèòå íà ïúðâèÿ èíñòðóìåíò, âòîðàòà çà öåíèòå íà âòîðèÿ è òðåòàòà çà âðåìåâèÿ ïåðèîä. Ñ äðóãè äóìè - êàê äà íàêàðàì êîäúò ìè äà ñåëåêòèðà âñè÷êè êëåòêè â òåçè òðè êîëîíè (êîèòî ñà ñ ïðîìåíëèâ áðîé, â çàâèñèìîñò îò íà÷àëíàòà è êðàéíàòà äàòà, êîÿòî ïîòðåáèòåëÿò ùå âúâåäå) è äà ãè èçïîëçâà çà íàïðàâàòà íà ãðàôèêàòà?

    Òîåñò, êàêâî äà èìà òóê (íà ìÿñòîòî íà æúëòîòî)?
    Code:
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(1).Name = "=Èìå íà òàáà!$B$8"
        ActiveChart.SeriesCollection(1).Values = *******
        ActiveChart.SeriesCollection(2).Name = "=Èìå íà òàáà!$E$8"
        ActiveChart.SeriesCollection(2).Values = *******
        ActiveChart.SeriesCollection(2).XValues = *******
    Áëàãîäàðÿ âè!

    EDIT: Ñïðàâèõ ñå ñàì, áëàãîäàðÿ.
    Last edited by te0o; 26th October 2017 at 18:25.
    Dell XPS 13 9300 | i7-1065G7 | 16GB 3733MHz LPDDR4x | 512GB M.2 PCIe NVMe SSD

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè