Results 1 to 16 of 16

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165

    Excel è VBA çà copy/paste

    Ñåãà ñå ó÷à íà ìàêðîñè îò íÿêâè òóòîðèàëè â íåòà, íî íå ñà ìè îñîáåíî ïîëåçíè çà òîâà, êîåòî ñå îïèòâàì äà íàïðàâÿ.
    Öåëòà ìè å äà ñúçäàì ôàéë1.xls, â êîéòî äà èìà ìàêðîñ, êîéòî ïðè ñòàðòèðàíå äà êîïèðà öÿëàòà èíôîðìàöèÿ îò ôàéë2.xls(ôàéë2 âèíàãè ùå å ñúñ ñúùîòî èìå, íî ùå å ðàçëè÷åí ïî ñúäúðæàíèå). Òà èäåÿòà ìè áåøå äà íàïðàâÿ íÿêàêúâ öèêúë :conf, êîéòî äà êîïèðà ðåä ïî ðåä öÿëàòà èíôîðìàöèÿ âúâ ôàéë1, òà ôàéë1 äà ìè å íÿêàêúâ óíèâåðñàëåí áóôåð çà îáðàáîòêà íà äàííèòå. Íî íå ìîãà äà íàìåðÿ êîïèðàùà ôóíêöèÿ è êàêúâ äà ìè å endloop statement-a. Ïîñëå, ÷ðåç äðóã ìàêðîñ âúâ ôàéë1, èñêàì â íîâà êîëîíà êëåòêèòå äà ñå çàïúëíÿò ñ òî÷íî òîëêîâà vlookup ôóíêöèè, êîëêîòî ðåäîâå èìà.

    Âúçìîæíî ëè å òîâà âúîáùå äà ñòàíå è ìîæå ëè íÿêàêâè íàñîêè/÷åòèâà. Íå î÷àêâàì íÿêîé äà ìè ãî íàïèøå, ïðîñòî äà äîáèÿ íÿêàêâà ïðåäñòàâà êàêâî òðÿáâà äà ïðî÷åòà/ïðåãëåäàì/íàïðàâÿ çà öåëèòå ìè, à íå äà èç÷èòàì öåëÿòà âúçìîæíà äîêóìåíòàöèÿ.

    Áëàãîäàðÿ ïðåäâàðèòåëíî.
    believing

  2. #2
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Çà êîïèðàíåòî íÿìà íóæäà äà îáõîæäàø âñè÷êî ñ öèêúë. Èìàø îáåêò Sheet, êîéòî ïúê ñúäúðæà property Range, âúðõó êîéòî ìîæå äèðåêòíî äà ñå èçïúëíè Copy.
    Çà ïîïúëâàíåòî íà êëåòêè ñàìî â èçïîëçâàíè ðåäîâå - ïðèíöèïíî Sheet èìà End èëè íåùî ïîäîáíî. (Âåðîÿòíî áúðêàì òî÷íî â êîé îáåêò áåøå, íî ëåñíî ìîæå äà ñå íàìåðè â ïîìîùòà.) Óæ òðÿáâà äà òè ïîêàçâà äîêúäå ñå ïðîñòèðà èçïîëçâàíàòà îáëàñò â ëèñòà. Íà ïðàêòèêà îáà÷å êîîðäèíàòèòå íà òàçè êëåòêà ñà ïî-ãîëåìè èëè ðàâíè íà ïîñëåäíàòà êëåòêà â ðàáîòíàòà îáëàñò. Òàêà è íå ñõâàíàõ êàê òî÷íî ñå îïðåäåëÿ êðàéíàòà òî÷êà.
    Àêî íå òå ñìóùàâà òîâà, ìîæåø äà ïðîáâàø äàííèòå îò òîâà property êàòî óñëîâèå çà èçëèçàíå îò öèêúëà.

    Èìàé ïðåäâèä, ÷å lookup ñà ñðàâíèòåëíî òåæêè ôóíêöèè. Àêî âúçíàìåðÿâàø ñåðèîçíî äà ïîëçâàø Excel âìåñòî áàçà îò äàííè, ïî-äîáðå íåäåé, àìè îòñåãà ñè ðàáîòè ñúñ ñîôòóåð çà òàçè öåë. Äîðè è äà å MS Access.

  3. #3
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165
    Quote Originally Posted by bsb View Post
    Çà êîïèðàíåòî íÿìà íóæäà äà îáõîæäàø âñè÷êî ñ öèêúë. Èìàø îáåêò Sheet, êîéòî ïúê ñúäúðæà property Range, âúðõó êîéòî ìîæå äèðåêòíî äà ñå èçïúëíè Copy.
    Çà ïîïúëâàíåòî íà êëåòêè ñàìî â èçïîëçâàíè ðåäîâå - ïðèíöèïíî Sheet èìà End èëè íåùî ïîäîáíî. (Âåðîÿòíî áúðêàì òî÷íî â êîé îáåêò áåøå, íî ëåñíî ìîæå äà ñå íàìåðè â ïîìîùòà.) Óæ òðÿáâà äà òè ïîêàçâà äîêúäå ñå ïðîñòèðà èçïîëçâàíàòà îáëàñò â ëèñòà. Íà ïðàêòèêà îáà÷å êîîðäèíàòèòå íà òàçè êëåòêà ñà ïî-ãîëåìè èëè ðàâíè íà ïîñëåäíàòà êëåòêà â ðàáîòíàòà îáëàñò. Òàêà è íå ñõâàíàõ êàê òî÷íî ñå îïðåäåëÿ êðàéíàòà òî÷êà.
    Àêî íå òå ñìóùàâà òîâà, ìîæåø äà ïðîáâàø äàííèòå îò òîâà property êàòî óñëîâèå çà èçëèçàíå îò öèêúëà.

    Èìàé ïðåäâèä, ÷å lookup ñà ñðàâíèòåëíî òåæêè ôóíêöèè. Àêî âúçíàìåðÿâàø ñåðèîçíî äà ïîëçâàø Excel âìåñòî áàçà îò äàííè, ïî-äîáðå íåäåé, àìè îòñåãà ñè ðàáîòè ñúñ ñîôòóåð çà òàçè öåë. Äîðè è äà å MS Access.
    Çà ïîñëåäíàòà çàáåëåæêà, íÿìà äà ñòàâà âúïðîñ çà ïîâå÷å îò 500 çàïèñà ðàçïîëîæåíè íà ðàçëè÷íè øèéòîâå, òà ñå íàäÿâàâàì äàíÿìàì ïðîáëåìè. Âñå ïàê ñè ïðàâ, ÷å å äîáðà èäåÿ îò ñåãà äà ãî ïîäõâàíà, à íå ïîñëå ïàê äà ïèòàì âúâ ôîðóìà íåùî ñâúðçàíî ñ áàçà äàííè.

    Òîâà ñ Range() çâó÷è åôåêòèâíî. Çíà÷è ùå êîïèðàì sheet.range(a1:g100)(ïðèìåðíî) è ùå ìè êîïèðà âñè÷êèòå êëåòêè, îò a1 äî g100, òàêà ëè? Ñóïåð! Copy ôóíêöèÿòà ÿ íàìåðèõ â íåòà êàê ðàáîòè, ùå ñå ïðîáâàì óòðå äà âèäèì êàêâî ùå èçìàéñòîðÿ.

    Ïî âòîðèÿ ïðîáëåì, çàòðóäíåíèåòî ìè å, ÷å äàííèòå ìè èäâàò ïî ìíîãî òúï íà÷èí - èçïîëçâàíàòà îáëàñò â ëèñòà íå å åäíà, àìè ñà ìíîãî. Íàïðèìåð, ðåäîâåòå îò 1 äî 10 ñà çàåòè, ïîñëå îò 12 äî 22 è ò.í.

    È âñå ïàê, äà îáîáùÿ èäåÿòà - ïóñêàì öèêúë, êîéòî çàïúëâà ñ vlookup ôóíêöèè êîëîíêàòà J, è òîâà ïðîïúðòè, çà êîåòî ãîâîðèø áè òðÿáâàëî äà âðúùà êàòî ñòîéíîñò íåùî îò ñîðòà íà g100, àêî range-a å (à1:g100), òàêà ëè äà ðàçáèðàì? À êàê äà èçïîëçâàì âúðíàòàòà ñòîéíîñò (g100) êàòî end statement?

    Óòðå ñóòðèíòà ùå ïðåãëåäàì íåòà è õåëïà è äîêëàäâàì äîêúäå ñúì ÿ äîêàðàë. Ìåðñè çà ïîìîùòà!
    believing

  4. #4
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Ïðèìåðíî ìîæåø äà èçâúðòèø öèêúë, êîéòî îáõîæäà ðåäîâåòå, äîêàòî ñòèãíå ðåäà, çàïèñàí êàòî ïîñëåäåí çà èçõîäíèÿ ëèñò. Íî äà ïîâòîðÿ, ÷å âúïðîñíîòî property End ÷åñòî ñúäúðæà ïîâå÷å îò íóæíîòî. Êàê òî÷íî äà ãî èçïîëçâàø - ðàçãëåäàé ðàçëè÷íèòå properties íà îáåêòà Range.
    Àêî íå ñè ãî íàïðàâèë, èíñòàëèðàé êúì MS Office ïîìîùòà çà VBA. ×åñòî å ïî-óäîáíî äà ñå ïîëçâà íàïðàâî îò ðåäàêòîðà çà VB, îòêîëêîòî äà ñå òúðñè â ìðåæàòà. Åñòåñòâåíî, â ìðåæàòà ïúê îáèêíîâåíî ïî-ìúòíèòå ìîìåíòè ñà îáÿñíåíè ïî-äîáðå.

  5. #5
    Registered User
    Join Date: Aug:2009
    Location: Ñîôèÿ
    Posts: 265
    Code:
    Sheet1.Range("A1:G100").Copy Destination:=Sheet2.Range("A1")
    ùå êîïèðà îò åäíàòà ñòðàíèöà íà äðóãàòà, à áåç Destination ÷àñòòà - â êëèïáîðäà.
    Code:
    Sheet1.UsedRange
    âðúùà èçïîëçâàíàòà îáëàñò (ñïîðåä Excel) íà Sheet1, ñúîòâåòíî ñâîéñòâà êàòî Rows, Address è ò.í. ñè ðàáîòÿò.
    Code:
    Sheet1.Cells.SpecialCells(xlCellTypeLastCell)
    âúðøè ãîðå-äîëó ñúùàòà ðàáîòà - âðúùà ïîñëåäíàòà èçïîëçâàíà êëåòêà, ò.å. ìÿñòîòî, êúäåòî îòèâàø, êàòî íàòèñíåø Ctrl-End.

    Ñúâñåì îòäåëåí å âúïðîñà, ÷å âñè÷êî òîâà ìîæåø äà ãî ñâúðøèø è ñàìî ñ ôîðìóëè, íå å íóæíî äà å VBA.

  6. #6
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165
    Çíà÷è ñ âàøà ïîìîù óñïÿõ äà ñè íàïðàâÿ copy ôóíêöèÿ, îáà÷å èìàì ìàëêî ïðîáëåìè.

    Code:
    Sub copy_excel_workbook()
    Workbooks.Open Filename:="C:\Documents and Settings\Nasko\Desktop\nggmh\Min_max_planning_report2007"
    Workbooks("Min_max_planning_report2007").Sheets("Min_max_planning_report2007").Range("A1:M100").copy Workbooks("REPORT").Sheets("Sheet1").Range("A1")
    Workbooks("Min_max_planning_report2007").Close
    End Sub
    Âúïðîñúò ìè å ìîæå ëè äà âìåñòî Sheets("Min_max_planning_report2007") äà ñå èçïîëçâà êîäîâîòî(íå çíàì êàê ñå íàðè÷à) èìå íà øèéòà, êîåòî â ñëó÷àÿ å sheet1. Ñèãóðíî ñå ñåùàòå êàêâî èìàì ïðåäâèä - êàòî îòâîðÿ VBE è òàì â project window-a èìà Sheet1(Min_max_planning_report2007), êàòî èñêàì ïî íÿêàêúâ íà÷èí äà èçïîëçâàì "Sheet1", à íå "Min_max_planning_report2007", çàùîòî âòîðîòî âñåêè ïúò ùå å ñ ðàçëè÷íî èìå, à êîäîâîòî èìå (), äåìåê sheet1 âèíàãè ùå å sheet1.

    Òîâà å ça copy ôóíêöèÿòà, ïðèåìàì âñÿêàêâè ñúâåòè è çàáåëåæêè.

    Çà vlookup_adder ñè èçìèñëèõ ñëåäíèÿ öèêúë, íî ñè íÿìàì íà èäåÿ êàê äà ãî îïèøà.

    Çíà÷è ïóñêàì Do...loop until ïî ñëåäíèÿ íà÷èí
    Code:
        Do
    
        ActiveCell.Formula = "=íÿêàêâà-vlookup-ôóíêöèÿ"
    
        ActiveCell.Offset(1, 0).Select
    
        Loop Until IsEmpty(ActiveCell.Offset(1, 0))
    Èñêàì îáà÷å Loop until äà ïðîâåðÿâà äâà èçðàçà - IsEmpty(ActiveCell.Offset(1, 0)) è IsEmpty(ActiveCell.Offset(2, 0)) - â c++ íàïðèìåð å ìíîãî ïðîñòî êàòî ñå äîáàâè åäíî ëîãè÷åñêî È(&&) ìåæäó äâåòå.


    Òîåñò íåùî îò ñîðòà íà:
    Code:
     Loop Until (IsEmpty(ActiveCell.Offset(1, 0)) && IsEmpty(ActiveCell.Offset(2, 0)))
    È ïîñëåäåí âúïðîñ:
    Êàê äà íàïðàâÿ òàêà, ÷å vlookup ïàðàìåòðèòå äà ñå ïðîìåíÿò ñïîðåä ñåãàøíàòà active cell. Òîåñò, çà äà çàïúëíÿ êîëîíàòà ñ vlookup ôóíêöèè, âñÿêà îò êîèòî îòãîâàðÿ íà ñúîòâåòíà ñòîéíîñò â ðåäà.
    believing

  7. #7
    Registered User
    Join Date: Aug:2009
    Location: Ñîôèÿ
    Posts: 265
    Quote Originally Posted by 0wn3r View Post
    ...
    Âúïðîñúò ìè å ìîæå ëè äà âìåñòî Sheets("Min_max_planning_report2007") äà ñå èçïîëçâà êîäîâîòî(íå çíàì êàê ñå íàðè÷à) èìå íà øèéòà, êîåòî â ñëó÷àÿ å sheet1.
    ...
    Äà. Ïðèìåðèòå ìè ïî-ãîðå ñà ðàáîòåùè.

    Quote Originally Posted by 0wn3r View Post
    ...
    ïðèåìàì âñÿêàêâè ñúâåòè è çàáåëåæêè.
    ...
    Êàòî ñå îòâîðè ôàéë, òîé ñòàâà àêòèâåí è ìîæåø äà ñå îáðúùàø êúì íåãî ñ ActiveWorkbook. Ôàéëúò, îò êîéòî å èçïúëíåí ìàêðîñà, å ThisWorkbook.
    Èçíåñè ñè êîíñòàíòèòå â const, ïî-ëåñíî å çà ïîïðàâÿíå ïîñëå.
    Çàïèøè ñè ôàéëà, ïðåäè äà ãî çàòâîðèø.

    Quote Originally Posted by 0wn3r View Post
    ...
    c++ íàïðèìåð å ìíîãî ïðîñòî êàòî ñå äîáàâè åäíî ëîãè÷åñêî È(&&) ìåæäó äâåòå.
    ...
    Âúâ VBA å îùå ïî-ïðîñòî, ñàìî ÷å å âìåñòî && å and.

    Quote Originally Posted by 0wn3r View Post
    ...
    Êàê äà íàïðàâÿ òàêà, ÷å vlookup ïàðàìåòðèòå äà ñå ïðîìåíÿò ñïîðåä ñåãàøíàòà active cell.
    ...
    Âèæ êàêâî ïðàâè FormulaR1C1, ìîæå äà òè ñâúðøè ïî-äîáðà ðàáîòà îò Formula.

  8. #8
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165
    Ãîòîâ ñúì ñ copy ôóíêöèÿòà, ðàáîòè òî÷íî êàêòî èñêàì.

    Ñåãà ñè èãðàÿ ñ äðóãàòà, êîÿòî îáà÷å íå ïðàâè òî÷íî êàêâîòî ìè ñå èñêà è ñè íÿìàì èäåÿ êàê äà ñòàíå.
    Code:
    Sub fill_vlookup()
        Dim i As Integer
        Dim intRowCount As Integer
        Dim Counter As Range
        Set Counter = Range("A5")
        intRowCount = Sheets("Sheet1").UsedRange.Rows.Count
        ActiveSheet.Range("J5").Select
        For i = 1 To intRowCount
        ActiveCell.Formula = "=íÿêàêâà-vlookup-ôóíêöèÿ"
        If IsEmpty(Counter.Offset(1, 0)) = True Then
        Counter = Counter.Offset(3, 0)
        ActiveCell.Offset(3, 0).Select
        Else:
        Counter = Counter.Offset(1, 0)
        ActiveCell.Offset(1, 0).Select
        End If
        Next i
    End Sub
    Èäåÿòà íà Counter å äà ïðîâåðÿâà â êîëîíà À äàëè ñúîòâåòíàòà êëåòêà å ïðàçíà, èëè ïúëíà. Ñàìî ÷å ÿâíî ïðèñâîÿâàíåòî Counter = Counter.Offset(1, 0) íå å âàëèäíî, çàùîòî Counter ñè îñòàâà â A5. Èìà ëè íÿêàêúâ íà÷èí äà èçïîëçâàì counter ïî òàêúâ íà÷èí, êàòî íå èçïîëçâàì select, ùîòî àêòèâíàòà êëåòêà ÿ çàïúëâàì ñ ôîðìóëà è ÿ ìåñòÿ îòäåëíî.
    believing

  9. #9
    Registered User bpk's Avatar
    Join Date: Feb:2008
    Location: xxx
    Posts: 9,979
    Íÿìà çàùî äà ñå çàíèìàâàø ñ îôñåòè.
    Ïîëçâàé .Cells(i,j) çà äèðåêòíî àäðåñèðàíå íà êëåòêà.
    24/7 Asus P9X79 Deluxe+H2O i7-3930K @4625 MHz+H2O 64 GB Geil DDR3 11-12-12-30/2333 MHz+H2O 2*HD7970 VaporX 6 GB+H2O ROG Phoebus+Onkyo HT-S990 THX RAID0:2*256 GB Samsung 830 SSD+RAID0:4*1TB WD1000DHTZ+..EXTs CM HAF-X Seasonic SS-1250XM Gold 1250W Logitech G15 Gaming+G9x 30" Dell 3007WFP-HC @2560x1600

  10. #10
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165
    Åòî êàêâî ñå ïîëó÷è ñ âàøà ïîìîù, ðàáîòè òî÷íî êàêòî èñêàì.

    Code:
    Sub fill_vlookup()
        Dim i As Integer
        Dim intRowCount As Integer
        intRowCount = Range("A65536").End(xlUp).Row
        ActiveSheet.Range("J5").Select
        For i = 5 To intRowCount
        ActiveCell.Formula = "=100"  'Òóê ñå ñëàãà ïðîèçâîëíà ôóíêöèÿ
        If IsEmpty(Cells(i + 1, 1)) = True Then
        ActiveCell.Offset(3, 0).Select
        i = i + 2
        Else:
        ActiveCell.Offset(1, 0).Select
        End If
        Next i
    End Sub
    Ïîñëåäíèÿò ïðîáëåì, êîéòî èçíèêâà å, ÷å êàòî äîáàâÿ vlookup ôóíêöèÿòà
    èçïîëçâàì ñëåäíèÿ ðåä êîä:

    Code:
    ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(R[i]C),Sheet1!C:F,4,FALSE)), IF(ISNA(VLOOKUP(R[i]C),Sheet2!C:F,4,FALSE)), IF(ISNA(VLOOKUP(R[i]C),Sheet3!C:F,4,FALSE)),,VLOOKUP(R[i]C),Sheet1!C:F,4,FALSE)), VLOOKUP(R[i]C),Sheet2!C:F,4,FALSE)),VLOOKUP(R[i]C),Sheet3!C:F,4,FALSE))"
    (Òúðñè â 3 ðàçëè÷íè øèéòîâå, çàòîâà ñà IF è ISNA)
    âìåñòî

    Code:
    ActiveCell.Formula = "=100"
    È êàòî ïóñíà ìàêðîñà ñå ïîëó÷àâà ñëåäíàòà ãðåøêà:
    Run-time Error '1004':
    Application-defined or object-defined error

    Èñêàì êàòî ïî÷íà îò A5 äà ñòèãíà äî A100 íàïðèìåð, êàòî ðîëÿòà íà òîâà ñå èãðàå îò (R[i]C). Êúäå å ïðîáëåìúò?
    believing

  11. #11
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Ìîæåø äà ïîëçâàø ìåòîäèòå IncrementOffsetX è IncrementOffsetY . À ìîæåø äà èçïîëçâàø è êëþ÷îâàòà äóìà Set, êîãàòî ðàáîòèø ñ îáåêòà Counter

    Âÿðíî, ÷å ìàé RAnge.Cells áåøå îòíîñèòåëíî - ò.å. Range.Cells(1,1) îòãîâàðÿ íà ïúðâàòà êëåòêà îò äàäåíèÿ range, à íå îò ëèñòà/òàáëèöàòà. Êîåòî â ñëó÷àÿ áè òðÿáâàëî äà ñâúðøè ðàáîòà.

  12. #12
    Registered User bpk's Avatar
    Join Date: Feb:2008
    Location: xxx
    Posts: 9,979
    À äîðè íå ìó å íóæíî äà ïîëçâà Range îáåêò ...
    Àêî ìíîãî ìó å ìåðàê, ìîæå è ñúñ ñèíòåêñèñà Range(Cells(i,j))
    24/7 Asus P9X79 Deluxe+H2O i7-3930K @4625 MHz+H2O 64 GB Geil DDR3 11-12-12-30/2333 MHz+H2O 2*HD7970 VaporX 6 GB+H2O ROG Phoebus+Onkyo HT-S990 THX RAID0:2*256 GB Samsung 830 SSD+RAID0:4*1TB WD1000DHTZ+..EXTs CM HAF-X Seasonic SS-1250XM Gold 1250W Logitech G15 Gaming+G9x 30" Dell 3007WFP-HC @2560x1600

  13. #13
    Registered User bpk's Avatar
    Join Date: Feb:2008
    Location: xxx
    Posts: 9,979
    Â ãðåøíî íàïèñàíàòà ôîðìóëà:
    - èìàø èçëèøíà çàòâàðÿùà ñêîáà âúâ âñè÷êè VLOOKUP-è ñëåä ïúðâèÿ àðãóìåíò;
    - ïúðâèòå 2 IF-à ñà ñ ïî äâà àðãóìåíòà, à áè òðÿáâàëî äà ñà ñ ïî 3 (ïðåäïîëàãàì ñè èñêàë äà íàïèøåø ïðè óñïåøåí VLOOKUP äà âçåìà íåãî, à èíà÷å äà ïðîäúëæè è äà ïðîáâà ïîñëåäîâàòåëíî ñ 2-ðèÿ è 3-èÿ ïî ñúùèÿ íà÷èí, íî íå íå ñè ãî íàïèñàë òàêà - à ïðè óñïåøåí VLOOKUP ïðîáâàø ñëåäâàùèÿ);
    - ïîñëåäíèÿ IF èìà 5 àðãóìåíòà, êàòî âòîðèÿò å ïðàçåí (2 ïîñëåäîâàòåëíè çàïåòàè);
    - çàòâàðÿùèòå ñêîáè íàêðàÿ ñà ìàëêî (ïðè ïðàâèëíî íàïèñàíà ôîðìóëà áèõà áèëè 4, à ñà ñàìî 2).
    Íå ñå íàåìàì äà êàæà êîå îò èçáðîåíîòî ïðîäóöèðà ãðàøêàòà.
    24/7 Asus P9X79 Deluxe+H2O i7-3930K @4625 MHz+H2O 64 GB Geil DDR3 11-12-12-30/2333 MHz+H2O 2*HD7970 VaporX 6 GB+H2O ROG Phoebus+Onkyo HT-S990 THX RAID0:2*256 GB Samsung 830 SSD+RAID0:4*1TB WD1000DHTZ+..EXTs CM HAF-X Seasonic SS-1250XM Gold 1250W Logitech G15 Gaming+G9x 30" Dell 3007WFP-HC @2560x1600

  14. #14
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165
    Âÿðî èìàøå äîñòà ãðåøêè, îïðàâèõ ÿ, íî ïàê èìà ïðîáëåì. Ñëåäíàòà ôîðìóëà ðàáîòè êàòî ÿ äîáàâÿ íà êëåòêà À5 áåç íèêàêâè ïðîáëåìè:
    Code:
    =IF(ISNA(VLOOKUP(A5,Sheet1!C:F,4,FALSE)), IF(ISNA(VLOOKUP(A5,Sheet2!C:F,4,FALSE)), IF(ISNA(VLOOKUP(A5,Sheet3!C:F,4,FALSE)),"Not Found",VLOOKUP(A5,Sheet3!C:F,4,FALSE)), VLOOKUP(A5,Sheet2!C:F,4,FALSE)),VLOOKUP(A5,Sheet1!C:F,4,FALSE))
    Âúïðåêè òîâà êàòî íàïèøà "ActiveCell.Formula = ñúùîòî êàòî ãîðå", ïàê ìè äàâà ãðåøêà, íî òîçè ïúò Compile Error: Expected: end of statement Ñèãóðíî ñå áúðêàì, íî íÿêîëêî ïúòè íàïèñàõ ôîðìóëàòà íàíîâî è âèíàãè ñè ñòèãàò 2 ñêîáè íàêðàÿ. Òî íàëè åêñåë ñè ãè îöâåòÿâà è ìè ïîêàçâà äàëè å ïðàâèëíî. Äà íå ãîâîðèì, êàòî ãî íàïðàâÿ R1C1

    EDIT:
    Äîðè íà òîâà ìè äàâà ñúùàòà ãðåøêà:
    Code:
     ActiveCell.Formula = "=IF(ISNA(VLOOKUP(A5,Sheet4!C:F,4,FALSE)),"Not Found",VLOOKUP(A5,Sheet4!C:F,4,FALSE))"
    Òóê âå÷å ñúì ñèãóðåí, ÷å íå èçïóñêàì ñêîáè.

    EDIT2:
    Òîâà âå÷å ðàáîòè:
    Code:
    ActiveCell.Formula = "=IF(ISNA(VLOOKUP(A5,Sheet2!C:F,4,FALSE)),IF(ISNA(VLOOKUP(A5,Sheet3!C:F,4,FALSE)),IF(ISNA(VLOOKUP(A5,Sheet4!C:F,4,FALSE)),,VLOOKUP(A5,Sheet4!C:F,4,FALSE)), VLOOKUP(A5,Sheet3!C:F,4,FALSE)), VLOOKUP(A5,Sheet2!C:F,4,FALSE))"
    Îñòàâà äà ãî íàïðàâÿ íà R1C1
    Last edited by 0wn3r; 15th August 2010 at 01:36.
    believing

  15. #15
    Registered User bpk's Avatar
    Join Date: Feb:2008
    Location: xxx
    Posts: 9,979
    Íå èçïóñêàø ñêîáè, íî èçïóñêàø êàâè÷êèòå - îêîëî Not Found òðÿáâà äà ñå óäâîÿò (""Not Found"").
    Íå å ëîøî äà ìàõíåø è ñïåéñîâåòå, êîèòî ñè âêàðàë âúâ ôîðìóëàòà.
    Êèðèëèøêèòå èìåíà íà øèéòîâåòå âúâ âòîðèÿ ïðèìåð ñúùî íå òè ïîìàãàò îñîáåíî.

    ÏÏ. Àç ñïèðàì äîòóê. Òîâà è ñàì ìîæåøå äà ñè ãî âèäèø.
    24/7 Asus P9X79 Deluxe+H2O i7-3930K @4625 MHz+H2O 64 GB Geil DDR3 11-12-12-30/2333 MHz+H2O 2*HD7970 VaporX 6 GB+H2O ROG Phoebus+Onkyo HT-S990 THX RAID0:2*256 GB Samsung 830 SSD+RAID0:4*1TB WD1000DHTZ+..EXTs CM HAF-X Seasonic SS-1250XM Gold 1250W Logitech G15 Gaming+G9x 30" Dell 3007WFP-HC @2560x1600

  16. #16
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165
    Quote Originally Posted by bpk View Post
    Íå èçïóñêàø ñêîáè, íî èçïóñêàø êàâè÷êèòå - îêîëî Not Found òðÿáâà äà ñå óäâîÿò (""Not Found"").
    Íå å ëîøî äà ìàõíåø è ñïåéñîâåòå, êîèòî ñè âêàðàë âúâ ôîðìóëàòà.
    Êèðèëèøêèòå èìåíà íà øèéòîâåòå âúâ âòîðèÿ ïðèìåð ñúùî íå òè ïîìàãàò îñîáåíî.

    ÏÏ. Àç ñïèðàì äîòóê. Òîâà è ñàì ìîæåøå äà ñè ãî âèäèø.
    Äà, ïðàâ ñè, ìåðñè.


    Åòî òîâà ïî÷òè ìè ñâúðøè ðàáîòà:
    Code:
    ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-9],Sheet2!RC[-7]:RC[-4],4,FALSE)),IF(ISNA(VLOOKUP(RC[-9],Sheet3!RC[-7]:RC[-4],4,FALSE)),IF(ISNA(VLOOKUP(RC[-9],Sheet4!RC[-7]:RC[-4],4,FALSE)),,VLOOKUP(RC[-9],Sheet4!RC[-7]:RC[-4],4,FALSE)), VLOOKUP(RC[-9],Sheet3!RC[-7]:RC[-4],4,FALSE)), VLOOKUP(RC[-9],Sheet2!RC[-7]:RC[-4],4,FALSE))"
    Åäèíñòâåíèÿò ïðîáëåì, êîéòî îñòàíà å, ÷å âúâ êëåòêàòà, íà ìÿñòîòî íà RC[-7]:RC[-4] ñå çàïèñâà C18:F18, à íà ìåí ìè òðÿáâà C:F

    Îïðàâèõ ñå, èçïîëçâàõ R1C[-7]:R1000[-4] Áëàãîäàðÿ îòíîâî íà âñè÷êè!
    Last edited by 0wn3r; 15th August 2010 at 02:26.
    believing

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