Results 1 to 3 of 3

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Nov:2012
    Location: Sofia
    Posts: 2

    Åêñåë - êîìáèíèðàíå è ñóìèðàíå íà îòäåëíè òåêñòîâè ñòîéíîñòè

    Çäðàâåéòå,
    Èìàì íåðàçðåøèì ïðîáëåì â Åêñåë è ñå ÷óäåõ äàëè íÿêîé ìîæå äà ìè ïîìîãíå :///

    Òà - â äâå êîëîíè èìàì ãðàäîâå è äúðæàâè, ðàçäåëåíè ñúñ çàïåòàéêà, íåùî îò ðîäà íà

    D1 Ñîôèÿ, Ñëèâåí, Áóðãàñ, Ñëèâåí, Ñîôèÿ

    E1 Ãåðìàíèÿ, Ôðàíöèÿ, Ãåðìàíèÿ, Àâñòðèÿ, Ãåðìàíèÿ


    èìà ëè ìàêðî èëè ôîðìóëà, ñ êîÿòî äà ïîëó÷à êîìáèíèðàíà ñòîéíîñòòà íà îòäåëíèòå òåêñòîâå. Ïðèìåð: D1: Ñîôèÿ*2 ; Ñëèâåí*2: Áóðãàñ*1 //// Å1 Ãåðìàíèÿ*3 ; Ôðàíöèÿ*1 ; Àâñòðèÿ*1


    Ùå ìå ñïàñèòå îò îãðîìíî çàòðóäíåíèå.

  2. #2
    Registered User hateras's Avatar
    Join Date: Jan:2011
    Location: Kronos III
    Posts: 1,028
    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
    Òîâà òðÿáâà äà ñâúðøè ðàáîòà çà åäíîêðàòíà óïîòðåáà. Âçèìà ñòðèíã îò ñúîòâåòíàòà êëåòêà (â ïðèìåðà À14), ðàçáèâà ãî íà ïîäñòðèíãîâå (split ôóíêöèÿòà) è ïîñëå áðîéêà ïîäñòðèíãîâåòå. Ðåçóëòàòà èçëèçà â êëåòêè îò À15 è íàäîëå, ñïîðåä êîëêîòî ïîäñòðèíãîâå èìà.
    Âñÿêàêâè õâàùàíêè íà ãðåøêè è äðóãà êîçìåòèêà ñà ñè çà äîìàøíî.

    ÏÏ: Ïðîãðàì÷åòî ïðàâè ðàçëèêà ìåæäó "âàðíà" è "Âàðíà". Àêî íå å óäà÷íî - UCase ôóíêöèÿòà å íàðåùà.
    ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1

  3. #3
    Registered User
    Join Date: Nov:2012
    Location: Sofia
    Posts: 2
    ëåëåå, ïè÷, ìíîãî ìè ïîìîãíà. Ñåãà ñå îïèòâàì äà äîíàïðàâÿ ôîðìóëàòà è åâåíòóàëíî àêî ñòèãíà äî êðèâàòà êðóøà, ïàê ùå ïèòàì, íî äà - â îáùè ëèíèè îñíîâàòà å ïîëîæåíà, çà êîåòî ïàê òè áëàãîäàðÿ.

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