Results 1 to 16 of 16
Thread: Excel è VBA çà copy/paste
Hybrid View
-
11th August 2010 16:49 #1
Excel è VBA çà copy/paste
Ñåãà ñå ó÷à íà ìàêðîñè îò íÿêâè òóòîðèàëè â íåòà, íî íå ñà ìè îñîáåíî ïîëåçíè çà òîâà, êîåòî ñå îïèòâàì äà íàïðàâÿ.
Öåëòà ìè å äà ñúçäàì ôàéë1.xls, â êîéòî äà èìà ìàêðîñ, êîéòî ïðè ñòàðòèðàíå äà êîïèðà öÿëàòà èíôîðìàöèÿ îò ôàéë2.xls(ôàéë2 âèíàãè ùå å ñúñ ñúùîòî èìå, íî ùå å ðàçëè÷åí ïî ñúäúðæàíèå). Òà èäåÿòà ìè áåøå äà íàïðàâÿ íÿêàêúâ öèêúë :conf, êîéòî äà êîïèðà ðåä ïî ðåä öÿëàòà èíôîðìàöèÿ âúâ ôàéë1, òà ôàéë1 äà ìè å íÿêàêúâ óíèâåðñàëåí áóôåð çà îáðàáîòêà íà äàííèòå. Íî íå ìîãà äà íàìåðÿ êîïèðàùà ôóíêöèÿ è êàêúâ äà ìè å endloop statement-a. Ïîñëå, ÷ðåç äðóã ìàêðîñ âúâ ôàéë1, èñêàì â íîâà êîëîíà êëåòêèòå äà ñå çàïúëíÿò ñ òî÷íî òîëêîâà vlookup ôóíêöèè, êîëêîòî ðåäîâå èìà.
Âúçìîæíî ëè å òîâà âúîáùå äà ñòàíå è ìîæå ëè íÿêàêâè íàñîêè/÷åòèâà. Íå î÷àêâàì íÿêîé äà ìè ãî íàïèøå, ïðîñòî äà äîáèÿ íÿêàêâà ïðåäñòàâà êàêâî òðÿáâà äà ïðî÷åòà/ïðåãëåäàì/íàïðàâÿ çà öåëèòå ìè, à íå äà èç÷èòàì öåëÿòà âúçìîæíà äîêóìåíòàöèÿ.
Áëàãîäàðÿ ïðåäâàðèòåëíî.
believing
-
11th August 2010 18:58 #2Registered User
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 4,317
Çà êîïèðàíåòî íÿìà íóæäà äà îáõîæäàø âñè÷êî ñ öèêúë. Èìàø îáåêò Sheet, êîéòî ïúê ñúäúðæà property Range, âúðõó êîéòî ìîæå äèðåêòíî äà ñå èçïúëíè Copy.
Çà ïîïúëâàíåòî íà êëåòêè ñàìî â èçïîëçâàíè ðåäîâå - ïðèíöèïíî Sheet èìà End èëè íåùî ïîäîáíî. (Âåðîÿòíî áúðêàì òî÷íî â êîé îáåêò áåøå, íî ëåñíî ìîæå äà ñå íàìåðè â ïîìîùòà.) Óæ òðÿáâà äà òè ïîêàçâà äîêúäå ñå ïðîñòèðà èçïîëçâàíàòà îáëàñò â ëèñòà. Íà ïðàêòèêà îáà÷å êîîðäèíàòèòå íà òàçè êëåòêà ñà ïî-ãîëåìè èëè ðàâíè íà ïîñëåäíàòà êëåòêà â ðàáîòíàòà îáëàñò. Òàêà è íå ñõâàíàõ êàê òî÷íî ñå îïðåäåëÿ êðàéíàòà òî÷êà.
Àêî íå òå ñìóùàâà òîâà, ìîæåø äà ïðîáâàø äàííèòå îò òîâà property êàòî óñëîâèå çà èçëèçàíå îò öèêúëà.
Èìàé ïðåäâèä, ÷å lookup ñà ñðàâíèòåëíî òåæêè ôóíêöèè. Àêî âúçíàìåðÿâàø ñåðèîçíî äà ïîëçâàø Excel âìåñòî áàçà îò äàííè, ïî-äîáðå íåäåé, àìè îòñåãà ñè ðàáîòè ñúñ ñîôòóåð çà òàçè öåë. Äîðè è äà å MS Access.
-
12th August 2010 00:40 #3
Çà ïîñëåäíàòà çàáåëåæêà, íÿìà äà ñòàâà âúïðîñ çà ïîâå÷å îò 500 çàïèñà ðàçïîëîæåíè íà ðàçëè÷íè øèéòîâå, òà ñå íàäÿâàâàì äàíÿìàì ïðîáëåìè. Âñå ïàê ñè ïðàâ, ÷å å äîáðà èäåÿ îò ñåãà äà ãî ïîäõâàíà, à íå ïîñëå ïàê äà ïèòàì âúâ ôîðóìà íåùî ñâúðçàíî ñ áàçà äàííè.

Òîâà ñ Range() çâó÷è åôåêòèâíî. Çíà÷è ùå êîïèðàì sheet.range(a1:g100)(ïðèìåðíî) è ùå ìè êîïèðà âñè÷êèòå êëåòêè, îò a1 äî g100, òàêà ëè? Ñóïåð!
Copy ôóíêöèÿòà ÿ íàìåðèõ â íåòà êàê ðàáîòè, ùå ñå ïðîáâàì óòðå äà âèäèì êàêâî ùå èçìàéñòîðÿ. 
Ïî âòîðèÿ ïðîáëåì, çàòðóäíåíèåòî ìè å, ÷å äàííèòå ìè èäâàò ïî ìíîãî òúï íà÷èí - èçïîëçâàíàòà îáëàñò â ëèñòà íå å åäíà, àìè ñà ìíîãî. Íàïðèìåð, ðåäîâåòå îò 1 äî 10 ñà çàåòè, ïîñëå îò 12 äî 22 è ò.í.
È âñå ïàê, äà îáîáùÿ èäåÿòà - ïóñêàì öèêúë, êîéòî çàïúëâà ñ vlookup ôóíêöèè êîëîíêàòà J, è òîâà ïðîïúðòè, çà êîåòî ãîâîðèø áè òðÿáâàëî äà âðúùà êàòî ñòîéíîñò íåùî îò ñîðòà íà g100, àêî range-a å (à1:g100), òàêà ëè äà ðàçáèðàì? À êàê äà èçïîëçâàì âúðíàòàòà ñòîéíîñò (g100) êàòî end statement?
Óòðå ñóòðèíòà ùå ïðåãëåäàì íåòà è õåëïà è äîêëàäâàì äîêúäå ñúì ÿ äîêàðàë.
Ìåðñè çà ïîìîùòà!
believing
-
12th August 2010 08:13 #4Registered User
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 4,317
Ïðèìåðíî ìîæåø äà èçâúðòèø öèêúë, êîéòî îáõîæäà ðåäîâåòå, äîêàòî ñòèãíå ðåäà, çàïèñàí êàòî ïîñëåäåí çà èçõîäíèÿ ëèñò. Íî äà ïîâòîðÿ, ÷å âúïðîñíîòî property End ÷åñòî ñúäúðæà ïîâå÷å îò íóæíîòî. Êàê òî÷íî äà ãî èçïîëçâàø - ðàçãëåäàé ðàçëè÷íèòå properties íà îáåêòà Range.
Àêî íå ñè ãî íàïðàâèë, èíñòàëèðàé êúì MS Office ïîìîùòà çà VBA. ×åñòî å ïî-óäîáíî äà ñå ïîëçâà íàïðàâî îò ðåäàêòîðà çà VB, îòêîëêîòî äà ñå òúðñè â ìðåæàòà. Åñòåñòâåíî, â ìðåæàòà ïúê îáèêíîâåíî ïî-ìúòíèòå ìîìåíòè ñà îáÿñíåíè ïî-äîáðå.
-
12th August 2010 08:16 #5Registered User
Join Date: Aug:2009
Location: Ñîôèÿ
Posts: 265
ùå êîïèðà îò åäíàòà ñòðàíèöà íà äðóãàòà, à áåç Destination ÷àñòòà - â êëèïáîðäà.Code:Sheet1.Range("A1:G100").Copy Destination:=Sheet2.Range("A1")
âðúùà èçïîëçâàíàòà îáëàñò (ñïîðåä Excel) íà Sheet1, ñúîòâåòíî ñâîéñòâà êàòî Rows, Address è ò.í. ñè ðàáîòÿò.Code:Sheet1.UsedRange
âúðøè ãîðå-äîëó ñúùàòà ðàáîòà - âðúùà ïîñëåäíàòà èçïîëçâàíà êëåòêà, ò.å. ìÿñòîòî, êúäåòî îòèâàø, êàòî íàòèñíåø Ctrl-End.Code:Sheet1.Cells.SpecialCells(xlCellTypeLastCell)
Ñúâñåì îòäåëåí å âúïðîñà, ÷å âñè÷êî òîâà ìîæåø äà ãî ñâúðøèø è ñàìî ñ ôîðìóëè, íå å íóæíî äà å VBA.
-
13th August 2010 13:32 #6
Çíà÷è ñ âàøà ïîìîù óñïÿõ äà ñè íàïðàâÿ copy ôóíêöèÿ, îáà÷å èìàì ìàëêî ïðîáëåìè.
Âúïðîñúò ìè å ìîæå ëè äà âìåñòî Sheets("Min_max_planning_report2007") äà ñå èçïîëçâà êîäîâîòî(íå çíàì êàê ñå íàðè÷à) èìå íà øèéòà, êîåòî â ñëó÷àÿ å sheet1. Ñèãóðíî ñå ñåùàòå êàêâî èìàì ïðåäâèä - êàòî îòâîðÿ VBE è òàì â project window-a èìà Sheet1(Min_max_planning_report2007), êàòî èñêàì ïî íÿêàêúâ íà÷èí äà èçïîëçâàì "Sheet1", à íå "Min_max_planning_report2007", çàùîòî âòîðîòî âñåêè ïúò ùå å ñ ðàçëè÷íî èìå, à êîäîâîòî èìå (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
), äåìåê sheet1 âèíàãè ùå å sheet1.
Òîâà å ça copy ôóíêöèÿòà, ïðèåìàì âñÿêàêâè ñúâåòè è çàáåëåæêè.
Çà vlookup_adder ñè èçìèñëèõ ñëåäíèÿ öèêúë, íî ñè íÿìàì íà èäåÿ êàê äà ãî îïèøà.
Çíà÷è ïóñêàì Do...loop until ïî ñëåäíèÿ íà÷èí
Èñêàì îáà÷å Loop until äà ïðîâåðÿâà äâà èçðàçà - IsEmpty(ActiveCell.Offset(1, 0)) è IsEmpty(ActiveCell.Offset(2, 0)) - â c++ íàïðèìåð å ìíîãî ïðîñòî êàòî ñå äîáàâè åäíî ëîãè÷åñêî È(&&) ìåæäó äâåòå.Code:Do ActiveCell.Formula = "=íÿêàêâà-vlookup-ôóíêöèÿ" ActiveCell.Offset(1, 0).Select Loop Until IsEmpty(ActiveCell.Offset(1, 0))
Òîåñò íåùî îò ñîðòà íà:
È ïîñëåäåí âúïðîñ:Code:Loop Until (IsEmpty(ActiveCell.Offset(1, 0)) && IsEmpty(ActiveCell.Offset(2, 0)))
Êàê äà íàïðàâÿ òàêà, ÷å vlookup ïàðàìåòðèòå äà ñå ïðîìåíÿò ñïîðåä ñåãàøíàòà active cell. Òîåñò, çà äà çàïúëíÿ êîëîíàòà ñ vlookup ôóíêöèè, âñÿêà îò êîèòî îòãîâàðÿ íà ñúîòâåòíà ñòîéíîñò â ðåäà.believing
-
13th August 2010 14:18 #7Registered User
Join Date: Aug:2009
Location: Ñîôèÿ
Posts: 265
Äà. Ïðèìåðèòå ìè ïî-ãîðå ñà ðàáîòåùè.
Êàòî ñå îòâîðè ôàéë, òîé ñòàâà àêòèâåí è ìîæåø äà ñå îáðúùàø êúì íåãî ñ ActiveWorkbook. Ôàéëúò, îò êîéòî å èçïúëíåí ìàêðîñà, å ThisWorkbook.
Èçíåñè ñè êîíñòàíòèòå â const, ïî-ëåñíî å çà ïîïðàâÿíå ïîñëå.
Çàïèøè ñè ôàéëà, ïðåäè äà ãî çàòâîðèø.
Âúâ VBA å îùå ïî-ïðîñòî, ñàìî ÷å å âìåñòî && å and.
Âèæ êàêâî ïðàâè FormulaR1C1, ìîæå äà òè ñâúðøè ïî-äîáðà ðàáîòà îò Formula.
-
14th August 2010 13:19 #8
Ãîòîâ ñúì ñ copy ôóíêöèÿòà, ðàáîòè òî÷íî êàêòî èñêàì.
Ñåãà ñè èãðàÿ ñ äðóãàòà, êîÿòî îáà÷å íå ïðàâè òî÷íî êàêâîòî ìè ñå èñêà è ñè íÿìàì èäåÿ êàê äà ñòàíå.
Èäåÿòà íà Counter å äà ïðîâåðÿâà â êîëîíà À äàëè ñúîòâåòíàòà êëåòêà å ïðàçíà, èëè ïúëíà. Ñàìî ÷å ÿâíî ïðèñâîÿâàíåòî Counter = Counter.Offset(1, 0) íå å âàëèäíî, çàùîòî Counter ñè îñòàâà â A5. Èìà ëè íÿêàêúâ íà÷èí äà èçïîëçâàì counter ïî òàêúâ íà÷èí, êàòî íå èçïîëçâàì select, ùîòî àêòèâíàòà êëåòêà ÿ çàïúëâàì ñ ôîðìóëà è ÿ ìåñòÿ îòäåëíî.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
believing
-
14th August 2010 13:22 #9
Íÿìà çàùî äà ñå çàíèìàâàø ñ îôñåòè.
Ïîëçâàé .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
-
14th August 2010 16:43 #10
Åòî êàêâî ñå ïîëó÷è ñ âàøà ïîìîù, ðàáîòè òî÷íî êàêòî èñêàì.

Ïîñëåäíèÿò ïðîáëåì, êîéòî èçíèêâà å, ÷å êàòî äîáàâÿ vlookup ôóíêöèÿòà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
èçïîëçâàì ñëåäíèÿ ðåä êîä:
(Òúðñè â 3 ðàçëè÷íè øèéòîâå, çàòîâà ñà IF è ISNA)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))"
âìåñòî
È êàòî ïóñíà ìàêðîñà ñå ïîëó÷àâà ñëåäíàòà ãðåøêà:Code:ActiveCell.Formula = "=100"
Run-time Error '1004':
Application-defined or object-defined error
Èñêàì êàòî ïî÷íà îò A5 äà ñòèãíà äî A100 íàïðèìåð, êàòî ðîëÿòà íà òîâà ñå èãðàå îò (R[i]C). Êúäå å ïðîáëåìúò?
believing
-
14th August 2010 14:13 #11Registered User
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 4,317
Ìîæåø äà ïîëçâàø ìåòîäèòå IncrementOffsetX è IncrementOffsetY . À ìîæåø äà èçïîëçâàø è êëþ÷îâàòà äóìà Set, êîãàòî ðàáîòèø ñ îáåêòà Counter

Âÿðíî, ÷å ìàé RAnge.Cells áåøå îòíîñèòåëíî - ò.å. Range.Cells(1,1) îòãîâàðÿ íà ïúðâàòà êëåòêà îò äàäåíèÿ range, à íå îò ëèñòà/òàáëèöàòà. Êîåòî â ñëó÷àÿ áè òðÿáâàëî äà ñâúðøè ðàáîòà.
-
14th August 2010 14:18 #12
À äîðè íå ìó å íóæíî äà ïîëçâà 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
-
14th August 2010 19:04 #13
 ãðåøíî íàïèñàíàòà ôîðìóëà:
- èìàø èçëèøíà çàòâàðÿùà ñêîáà âúâ âñè÷êè 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
-
15th August 2010 01:15 #14
Âÿðî èìàøå äîñòà ãðåøêè, îïðàâèõ ÿ, íî ïàê èìà ïðîáëåì.
Ñëåäíàòà ôîðìóëà ðàáîòè êàòî ÿ äîáàâÿ íà êëåòêà À5 áåç íèêàêâè ïðîáëåìè:
Âúïðåêè òîâà êàòî íàïèøà "ActiveCell.Formula = ñúùîòî êàòî ãîðå", ïàê ìè äàâà ãðåøêà, íî òîçè ïúò Compile Error: Expected: end of statementCode:=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))
Ñèãóðíî ñå áúðêàì, íî íÿêîëêî ïúòè íàïèñàõ ôîðìóëàòà íàíîâî è âèíàãè ñè ñòèãàò 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:
Òîâà âå÷å ðàáîòè:Îñòàâà äà ãî íàïðàâÿ íà R1C1Code: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))"
Last edited by 0wn3r; 15th August 2010 at 01:36.
believing
-
15th August 2010 01:39 #15
Íå èçïóñêàø ñêîáè, íî èçïóñêàø êàâè÷êèòå - îêîëî 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
-
15th August 2010 01:44 #16
Äà, ïðàâ ñè, ìåðñè.
Åòî òîâà ïî÷òè ìè ñâúðøè ðàáîòà:
Åäèíñòâåíèÿò ïðîáëåì, êîéòî îñòàíà å, ÷å âúâ êëåòêàòà, íà ìÿñòîòî íà RC[-7]:RC[-4] ñå çàïèñâà C18:F18, à íà ìåí ìè òðÿáâà C:FCode: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))"
Îïðàâèõ ñå, èçïîëçâàõ R1C[-7]:R1000[-4]
Áëàãîäàðÿ îòíîâî íà âñè÷êè!
Last edited by 0wn3r; 15th August 2010 at 02:26.
believing




Reply With Quote

Ïðîáëåìíà R9 280, àðòåôàêòè
7th May 2023, 21:28 in Âèäåîêàðòè