Results 1 to 11 of 11
Thread: âúïðîñ ñâúðçàí ñ òàáëèöà â excel
Hybrid View
-
18th February 2014 21:33 #1
âúïðîñ ñâúðçàí ñ òàáëèöà â excel
Çäðàâåéòå, òúðñÿ ïîìîù.
Èìàì ñëåäíàòà ñèòóàöèÿ
 êîëîíà À èìàì òðè âèäà ïëîäîâå: êðóøè, ÿáúëêè, ïðàñêîâè ñúñ ñúîòâåòíèòå êîëè÷åñòâà â êîëîíà B: 5, 4, 3 áðîÿ.
Èñêàì äà íàïðàâÿ òàêà, ÷å äà ñúçäàì òàáëèöà â êîÿòî â êîëîíà À íà ïåò ðåäà (êëåòêè À1, À2, À3, À4, À5 ïîíåæå êîëè÷åñòîâî íà êðóøè å 5) äà èçïèñâà êðóøè, à â êîëîíà B, ñðåùó âñåêè ðåä îò êîëîíà À äà ïèøå 1.
È òàêà ñúîòâåòíî è çà äðóãèòå ïëîäîâå - ÿáúëêè íà 4 ðåäà è ïðàñêîâè íà 3 ðåäà.
Òàêà ÷å òàáëèöàòà äà ìè ñòàíå îò 12 ðåäà è äà ñå ïîâòàðÿò òðèòå ïëîäà â ñúîòâåòíèÿ áðîé ïúòè.
Íÿêîé èìà ëè èäåÿ êàê ìîãà äà ñòèãíà äî òîçè ðåçóëòàò.
Ïðèåìàì âñÿêàêâè ïðåäëîæåíèÿ çà ôîðìóëè, ìàêðîñè, pivot table è ò.í.
Áëàãîäàðÿ ïðåäâàðèòåëíî íà îòçîâàëèòå ñå.GA P35-DS3 | Intel Pentium E6500 | Adata Extreme DDR2 2x2gb 4-4-4-12 / 2x1gb Corsair 4-4-4-12 | HITACHI 1TB Seagate 1TB| ATI Radeon HD 4670 | TEGAN 430
-
18th February 2014 23:49 #2
Íå âèæäàì ñìèñúë îò ïóñêàíå íà òåìà çà òîâà, íî êàðàé...
 À1 ïèøåø äóìàòà, íàòèñêàø åíòúð, êóðñîðúò îòèâà íà À2, ïèøåø ïàê ñúùàòà äóìà, íàòèñêàø åíòúð è òàêà íàòàòúê. Åêñåë èìà õóáàâèÿ íàâèê äà ïîìíè ïîñëåäíàòà âúâåäåíà äóìà è å äîñòàòú÷íî âòîðèÿ ïúò ïðîñòî äà íàïèøåø ñàìî ïúðâàòà áóêâà è âåäíàãà ùå òè ïðåäëîæè âå÷å âúâåäåíàòà äóìà, êîÿòî ïðèåìàø ñ åíòúð, êóðñîðúò ñëèçà äîëó è ïîâòàðÿø ïðîöåäóðàòà.
Èìà è äðóã âàðèàíò - ïèøåø äóìàòà â À1, êîïèðàø êëåòêàòà ñ äåñåí áóòîí, "êîïèðàé", ñåëåêòèðàø æåëàíèòå êëåòêè, äåñåí áóòîí âúðõó öÿëàòà ñåëåêöèÿ è èçáèðàø "ïîñòàâè". Òîâà ùå çàïúëíè ñåëåêöèÿòà ñ èçáðàíàòà êëåòêà, â êîÿòî ñè íàïèñàë íåùî.
Åòî òè åäíî êðàòè÷êî âèäåî îò ìåí äà âèäèø êàê ñòàâàò íåùàòà:
https://www.mediafire.com/?tsswlp07nn8hlejAsRock B85M Pro4, Core i7-4770, Palit GTX 1660 Ti 6GB, Corsair CX750 PSU, Corsair 32GB DDR3-1600, Storages 6.1TB, Arch Cinnamon
-
19th February 2014 06:59 #3
Áëàãîäàðÿ çà îïèòà çà ïîìîù, íî ïèòàíåòî íî ñúì äàë ïðîñòî ïðèìåð. Êîãàòî èìàø òàáëèöà îò 1200 ðåäà ñ êîëè÷åñòâà îò 2 äî 20 ïèñàíåòî è íàòèñêàíåòî íà enter å îò ïîðÿäúêà íà íÿêîëêî äåñåòêè õèëÿäè ïúòè, âðåìåòî å íÿêîëêî ÷àñà è âúçìîæíîñòòà çà ãðåøêè å îãðîìíà. À êîãàòî òàçè ïðîöåäóðà òðÿáâà äà ñå èçâúðøâà åæåñåäìè÷íî ....
Ïðèåìàì âñÿêàêâè ïðåäëîæåíèÿ çà ôîðìóëè, ìàêðîñè, pivot table è ò.í.GA P35-DS3 | Intel Pentium E6500 | Adata Extreme DDR2 2x2gb 4-4-4-12 / 2x1gb Corsair 4-4-4-12 | HITACHI 1TB Seagate 1TB| ATI Radeon HD 4670 | TEGAN 430
-
19th February 2014 09:30 #4Web Crocodile
Join Date: Sep:2003
Location: Âàðíà
Posts: 323
Ïðîáâàé ñ òîçè ìàêðîñ
Option Explicit
Sub ExpandData()
Dim a As Variant, b As Variant
Dim n As Long, r As Long, rr As Long, nr As Long
a = Range("A1").CurrentRegion
n = Application.Sum(Columns(4))
Redim b(1 To n, 1 To UBound(a, 2))
For r = LBound(a, 1) To UBound(a, 1)
For rr = 1 To a(r, 4)
nr = nr + 1
b(nr, 1) = a(r, 1)
b(nr, 2) = a(r, 2)
b(nr, 3) = a(r, 3)
b(nr, 4) = a(r, 4)
Next rr
Next r
Range("A1").Resize(UBound(b, 1), UBound(b, 2)) = b
End Sub
-
19th February 2014 10:24 #5Registered User
Join Date: Aug:2009
Location: Ñîôèÿ
Posts: 265
Âàðèàíòè:
1. Àêî ìîæå äà ñå äîáàâè ñêðèòà êîëîíà ïðåäè äàííèòå, êîÿòî äà ïîêàçâà îò êîé ðåä çàïî÷âà íîâèÿ ïëîä:
À1: 1
À2: =À1+C1
A3: =A2+C2
...
 äðóãàòà ñòðàíèöà:
À1: =VLOOKUP(ROW();Sheet1!$A$1:$C$3;2)
À2: =VLOOKUP(ROW();Sheet1!$A$1:$C$3;2)
...
2. Àêî ìîæå äà ñå äîáàâè ñêðèòà êîëîíà ñëåä äàííèòå, àíàëîãè÷íî íà ïðåäèøíèÿ âàðèàíò:
À1: =INDEX(Sheet1!$A$1:$C$3;MATCH(ROW();INDE X(Sheet1!$A$1:$C$3;;3);1);1)
...
3. Ìîæå è áåç äîïúëíèòåëíà êîëîíà:
À1: êðóøè
A2: =IF(COUNTIF(A$1:A1;A1)<VLOOKUP(A1;Sheet1 !$A$1:$B$3;2;0);A1;INDEX(Sheet1!$A$1:$B$ 3;MATCH(A1;INDEX(Sheet1!$A$1:$B$3;;1);0) +1;1))
Òîâà å èëþñòðàòèâíî íà áàçàòà íà ïðèìåðà. Íàé-äîáðå å äàííèòå îò ïúðâîíà÷àëíèÿ ñïèñúê äà ñå íàèìåíóâàò (ôîðìóëèòå óìèøëåíî ñà ïîäãîòâåíè çà òîâà).
Íÿìà ïðîâåðêà çà êðàé íà ñïèñúêà. Àêî ðåçóëòàòíèÿò ñïèñúê íå çàïî÷âà îò ðåä 1, ùå å íåîáõîäèìà êîðåêöèÿ - "row()" äà ñå ñìåíè ñ íåùî ïîäõîäÿùî.Last edited by Avis; 19th February 2014 at 10:30. Reason: ïðàâîïèñ
-
19th February 2014 12:12 #6
Ìè ñ êîïè-ïåéñò êàêòî òè ïîêàçàõ íà êëèïà ìîæåø äà çàïúëíèø õèëÿäè êëåòêè ñ åäíà è ñúùà äóìà è âñè÷êî å âúïðîñ íà íÿêîëêî ñåêóíäè. Êîïèðàø êëåòêàòà ñ äóìàòà, çàäúðæàø ëåâèÿ áóòîí íà ìèøêàòà è âëà÷èø äî æåëàíèÿ ðåä, ñëåä êîåòî ïåéñòâàø êîïèðàíàòà êëåòêà.
Àç ëè÷íî òàêà ïðàâÿ íåùàòà, çàùîòî òàêà ñúì ñâèêíàë, à è íå âÿðâàì íà ôîðìóëè è ìàêðîñè, çàùîòî íå âèíàãè ðàáîòÿò ñïîðåä î÷àêâàíèÿòà. Äà íå ãîâîðèì, ÷å ùå òè îòíåìå ïîâå÷å âðåìå äà íàãëàñèø ìàêðîñà äà ðàáîòè êàêòî òè èñêàø, îòêîëêîòî äà çàâëà÷èø êóðñîðà 1200 ðåäà íàäîëó - íåùî, êîåòî Åêñåë ïðàâè àäñêè áúðçî.
https://www.mediafire.com/?yokcpngmfejuoauAsRock B85M Pro4, Core i7-4770, Palit GTX 1660 Ti 6GB, Corsair CX750 PSU, Corsair 32GB DDR3-1600, Storages 6.1TB, Arch Cinnamon
-
19th February 2014 13:15 #7Web Crocodile
Join Date: Sep:2003
Location: Âàðíà
Posts: 323
-
19th February 2014 14:42 #8
Ïðàâèø ñè åäèí VBA ìîäóë, è íàëèâàø òîçè êîä:
Äàííèòå ñå âçåìàò îò Sheet1 /ïúðâèÿ sheet íà àêòèâíèÿ workbook/ è îò òÿõ ñå ïîïúëâà Sheet2 /âòîðèÿ sheet íà àêòèâíèÿ workbook/Code:Const FruitNameCol = 1 'column "A" Const FruitCountCol = 2 'column "B" Sub FruitsDistribution() Dim WB As Workbook Dim SrcSheet As Worksheet Dim DestSheet As Worksheet Set WB = Application.ActiveWorkbook Set SrcSheet = WB.Sheets(1) 'workbook's first sheet ("Sheet1") Set DestSheet = WB.Sheets(2) 'workbook's second sheet ("Sheet2") Dim FruitName As String 'fruit label Dim FruitCount As Integer 'fruit count Dim SrcRow As Integer 'current source row Dim DestRow As Integer 'current destination row SrcRow = 1 'start row on source sheet DestRow = 1 'start row on destination sheet FruitName = Trim(SrcSheet.Cells(SrcRow, FruitNameCol)) 'read source's column A until first emty cell While FruitName <> "" FruitCount = CInt(Trim(SrcSheet.Cells(SrcRow, FruitCountCol))) 'fill destination For i = 1 To FruitCount DestSheet.Cells(DestRow, FruitNameCol) = FruitName DestSheet.Cells(DestRow, FruitCountCol) = 1 DestRow = DestRow + 1 Next SrcRow = SrcRow + 1 FruitName = SrcSheet.Cells(SrcRow, FruitNameCol) Wend End Sub
Ñêðèïòà îáõîæäà êîëîíà "À" äî äîñòèãàíå íà ïðàçíà êëåòêà
×åòå èìåòî îò êîëîíà "À" è áðîéêàòà îò êîëîíà "B"ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1
-
19th February 2014 17:04 #9




Reply With Quote

Íå âúçìîæíîñò äà èçêëþ÷à êîìïþòúðà
7th May 2023, 16:02 in Îáù ôîðóì çà PC õàðäóåð