Results 1 to 3 of 3
Hybrid View
-
8th November 2012 11:09 #1Registered User
Join Date: Nov:2012
Location: Sofia
Posts: 2
Åêñåë - êîìáèíèðàíå è ñóìèðàíå íà îòäåëíè òåêñòîâè ñòîéíîñòè
Çäðàâåéòå,
Èìàì íåðàçðåøèì ïðîáëåì â Åêñåë è ñå ÷óäåõ äàëè íÿêîé ìîæå äà ìè ïîìîãíå :///
Òà - â äâå êîëîíè èìàì ãðàäîâå è äúðæàâè, ðàçäåëåíè ñúñ çàïåòàéêà, íåùî îò ðîäà íà
D1 Ñîôèÿ, Ñëèâåí, Áóðãàñ, Ñëèâåí, Ñîôèÿ
E1 Ãåðìàíèÿ, Ôðàíöèÿ, Ãåðìàíèÿ, Àâñòðèÿ, Ãåðìàíèÿ
èìà ëè ìàêðî èëè ôîðìóëà, ñ êîÿòî äà ïîëó÷à êîìáèíèðàíà ñòîéíîñòòà íà îòäåëíèòå òåêñòîâå. Ïðèìåð: D1: Ñîôèÿ*2 ; Ñëèâåí*2: Áóðãàñ*1 //// Å1 Ãåðìàíèÿ*3 ; Ôðàíöèÿ*1 ; Àâñòðèÿ*1
Ùå ìå ñïàñèòå îò îãðîìíî çàòðóäíåíèå.
-
8th November 2012 12:06 #2Òîâà òðÿáâà äà ñâúðøè ðàáîòà çà åäíîêðàòíà óïîòðåáà. Âçèìà ñòðèíã îò ñúîòâåòíàòà êëåòêà (â ïðèìåðà À14), ðàçáèâà ãî íà ïîäñòðèíãîâå (split ôóíêöèÿòà) è ïîñëå áðîéêà ïîäñòðèíãîâåòå. Ðåçóëòàòà èçëèçà â êëåòêè îò À15 è íàäîëå, ñïîðåä êîëêîòî ïîäñòðèíãîâå èìà.Code:
Sub splitdemo() 'read input form A14 (column=1, row=14) s = CStr(Worksheets("Sheet2").Cells(14, 1)) 'split the string anarray = Split(s, ",") l = UBound(anarray) ReDim cntrarray(l) For i = 0 To l 'init cntrarray(i) = 1 'debug Worksheets("Sheet2").Cells(15 + i, 1) = anarray(i) Worksheets("Sheet2").Cells(15 + i, 2) = CStr(i) Next For i = 0 To l If cntrarray(i) <> -1 Then For j = i + 1 To l If Trim(anarray(j)) = Trim(anarray(i)) Then cntrarray(i) = cntrarray(i) + 1 cntrarray(j) = -1 End If Next End If Next 'show counts into cells A15, A16... For i = 0 To l If cntrarray(i) <> -1 Then Worksheets("Sheet2").Cells(15 + i, 3) = Trim(CStr(anarray(i))) + "*" + CStr(cntrarray(i)) End If Next End Sub
Âñÿêàêâè õâàùàíêè íà ãðåøêè è äðóãà êîçìåòèêà ñà ñè çà äîìàøíî.
ÏÏ: Ïðîãðàì÷åòî ïðàâè ðàçëèêà ìåæäó "âàðíà" è "Âàðíà". Àêî íå å óäà÷íî - UCase ôóíêöèÿòà å íàðåùà.ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1
-
9th November 2012 18:47 #3Registered User
Join Date: Nov:2012
Location: Sofia
Posts: 2
ëåëåå, ïè÷, ìíîãî ìè ïîìîãíà. Ñåãà ñå îïèòâàì äà äîíàïðàâÿ ôîðìóëàòà è åâåíòóàëíî àêî ñòèãíà äî êðèâàòà êðóøà, ïàê ùå ïèòàì, íî äà - â îáùè ëèíèè îñíîâàòà å ïîëîæåíà, çà êîåòî ïàê òè áëàãîäàðÿ.




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