Results 1 to 5 of 5

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Nov:2009
    Location: Âàðíà
    Posts: 783

    Ìàêðîñ÷å çà åêñåë

    Íåêà çàïî÷íà ñ åäíà ìàëêà óãîâîðêà: íà÷èíàåù ñúì â íåîáÿòíàòà îáëàñò íà ïðîãðàìèðàíåòî è ïî ñïåöèàëíî âúâ VBA, íî òàêà ñå ñòè÷àò íåùàòà ÷å ïîíÿêîãà ñå íàëàãà äà ñå ïîíàó÷è íåùî íîâî.
    Òà íàïðàâî êúì âúïðîñ÷åòî: ðàáîòÿ ïî åäíî ëè÷íî ïðîåêò÷å-ìàëêà ôóíêöèîíàëíà òàáëè÷êà â åêñåë, êîÿòî áè òðÿáâàëî äà ìè îëåñíè ìàëêî èëè ìíîãî åæåäíåâèåòî, íî çàöèêëèõ òî÷íî íà ôèíàëà. Èìàì ôîðìà çà âúâåæäàíå íà äàííè â êîÿòî òðÿáâà äà âúâåäà ÷èñëî âúâ âèäà 125.65 êîåòî îò ñâîÿ ñòðàíà òðÿáâà äà ãî "ðàçäåëÿ" íà ñúñòàâíèòå öèôðè÷êè è âñÿêà åäíà îò òÿõ äà çàïèøà â îòäåëíà êëåòêà (À1:I1) îò ëèñò1.  ñëó÷àÿ 1-D1; 2-E1; 5-F1; 6-G1; 5-H1, êàòî îñòàíàëèòå ïðàçíè êëåòêè A1:C1 òðÿáâà äà áúäàò çàïúëíåíè ñ "*" çâåçäè÷êà(ïðèìåðíî) èëè íÿêàêúâ äðóã ñèìâîë. Èëè íàãëåäíî êàê áè èçãëåæäàë êðàéíèÿ ðåçóëòàò: * * * 1 2 5 6 5

  2. #2
    Ðåãèñòúðä Þçúð Ñâåòëüî's Avatar
    Join Date: Mar:2005
    Location: Ñîôèÿ
    Posts: 379
    Çäðàñòè,
    Íàáúðçî ñúì íàõâúðëÿë àëãîðèòúì çà ðàçäåëÿíåòî íà öèôðèòå. Âðúçêèòå, êëåòêèòå, ëèñòîâåòå è ïðîìåíëèâèòå ñàì ùå ñè ãè íàãëàñèø.
    Sub qwerty()
    x = 1350.65
    x = x * 100
    b = True
    For i = 7 To 0 Step -1
    y = x \ (10 ^ i)
    x = x Mod (10 ^ i)
    If y <> 0 And b Then
    b = False
    End If
    If b Then
    y = "*"
    End If
    Cells(1, 8 - i) = y
    Next
    End Sub
    Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì

  3. #3
    Modderhead
    Join Date: Nov:2005
    Location: Ñîôèÿ
    Posts: 4,469
    Íå å íóæíî äà å ìàêðîñ. Ìîæå äà ñå ïîëçâà ñëåäíàòà ôîðìóëà äèðåêòíî
    Code:
    =MID(REPT("*";8-LEN(TEXT(#REF!*100;"#")))&TEXT(#REF!*100;"#");COLUMN();1)
    Ôîðìóëàòà ñå ñëàãà â A1, #REF! ñå çàìåñòâà ñ èçòî÷íèêà íà îðèãèíàëíàòà ñóìà, íàòèñêà ñå F4, çà äà ñå ôèêñèðà, ñëåä êîåòî ôîðìóëàòà ñå òåãëè äî H1.

  4. #4
    Registered User
    Join Date: Nov:2009
    Location: Âàðíà
    Posts: 783
    Àëãîðèòúì÷åòî íà Ñâåòëüî ìè õàðåñà... íî èìàì äâå âúïðîñ÷åòà:
    1. ïî êàêúâ íà÷èí ìîãà äà ïðèñâîÿâàì ñòîéíîñò íà "õ" (âìåñòî ïîñî÷åíàòà ïðèìåðíà 1350.65) âúâåäåíà â ïðèìåðíî textbox1?
    2. Íà÷àëîòî íà ðàçäåëåíèòå öèôðè äà çàïî÷âà îò êîëîíà ðàçëè÷íà îò À (â ñëó÷àÿ 1 - D3; 3-E3; 5-F3 ...)
    Áëàãîäàðÿ çà ñúäåéñòâèåòî

  5. #5
    Ðåãèñòúðä Þçúð Ñâåòëüî's Avatar
    Join Date: Mar:2005
    Location: Ñîôèÿ
    Posts: 379
    1. x = Worksheets("Sheet1").TextBox1.Value (íàïðàâè Text box-à - ActivX Control)
    2. â ðåäà Cells(1, 8 - i) = y - 1 óêàçâà ðåäà, â êîéòî ùå ñå ñëàãàò ñòîéíîñòèòå, à 8-i - êîëîíàòà. Àêî èñêàø äà ïî÷âàò îò Ä3, ôîðìóëàòà å Cells(3, 11 - i) = y.

    Íà knobel ðåøåíèåòî å ãîòèíî.
    Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè