Results 1 to 5 of 5
Thread: Ìàêðîñ÷å çà åêñåë
Hybrid View
-
9th April 2013 17:03 #1Registered 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
-
9th April 2013 18:40 #2
Çäðàñòè,
Íàáúðçî ñúì íàõâúðëÿë àëãîðèòúì çà ðàçäåëÿíåòî íà öèôðèòå. Âðúçêèòå, êëåòêèòå, ëèñòîâåòå è ïðîìåíëèâèòå ñàì ùå ñè ãè íàãëàñèø.
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Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì
-
10th April 2013 10:45 #3Modderhead
Join Date: Nov:2005
Location: Ñîôèÿ
Posts: 4,469
Íå å íóæíî äà å ìàêðîñ. Ìîæå äà ñå ïîëçâà ñëåäíàòà ôîðìóëà äèðåêòíî
Ôîðìóëàòà ñå ñëàãà â A1, #REF! ñå çàìåñòâà ñ èçòî÷íèêà íà îðèãèíàëíàòà ñóìà, íàòèñêà ñå F4, çà äà ñå ôèêñèðà, ñëåä êîåòî ôîðìóëàòà ñå òåãëè äî H1.Code:=MID(REPT("*";8-LEN(TEXT(#REF!*100;"#")))&TEXT(#REF!*100;"#");COLUMN();1)
-
10th April 2013 11:31 #4Registered User
Join Date: Nov:2009
Location: Âàðíà
Posts: 783
Àëãîðèòúì÷åòî íà Ñâåòëüî ìè õàðåñà... íî èìàì äâå âúïðîñ÷åòà:
1. ïî êàêúâ íà÷èí ìîãà äà ïðèñâîÿâàì ñòîéíîñò íà "õ" (âìåñòî ïîñî÷åíàòà ïðèìåðíà 1350.65) âúâåäåíà â ïðèìåðíî textbox1?
2. Íà÷àëîòî íà ðàçäåëåíèòå öèôðè äà çàïî÷âà îò êîëîíà ðàçëè÷íà îò À (â ñëó÷àÿ 1 - D3; 3-E3; 5-F3 ...)
Áëàãîäàðÿ çà ñúäåéñòâèåòî
-
10th April 2013 12:03 #5
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 ðåøåíèåòî å ãîòèíî.Ñïàì, ñïàì, ñïàì, áàì, áàì áà áàì




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè