Results 1 to 2 of 2
Thread: ÂÚïðîñ çà Macros â Excel 2003
Hybrid View
-
17th August 2008 23:00 #1
ÂÚïðîñ çà Macros â Excel 2003
Èìàì åäèí ïðîáëåì ñ åäèí Ìàêðîñ â Åêñåë 2003. Íàïðàâèë ñúì ãî äà ïðåõâúðëÿ(êîïèðà) äàííè îò åäíà êëåòêà â äðóãà êëåòêà â äðóã Sheet, íî íå ìîãà äà ãî íàïðàâÿ âñåêè ïúò äà ñëàãà äàííèòå íà íîâ ðåä. Ïðîáâàõ ñ êîìáèíàöèÿòà Ctrl+Íàäîëó(ñòðåëêàòà íàäîëó) è ïàê íàäîëó(òîåñò ïúðâàòà ñâîáîäíà êëåòêà) äîêàòî çàïèñâàì Ìàêðîñà, íî âèíàãè ìè îñòàâà â ïîñëåäíàòà ìàðêèðàíà êëåòêà. Åòî òàêà èçãëåæäà ìàêðîñà:
ActiveWindow.Panes(1).Activate
Range("C2").Select
Selection.Copy
Sheets("Mesechni").Select
Columns("F:F").Select
Selection.End(xlDown).Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Êîïèðàì îò åäèíèÿ Sheet, îòèâàì â âòîðèÿ è ìàðêèðàì ðåäà, äàâàì Ctrl+íàäîëó è ïàê íàäîëó è äàâàì Paste Values. Íî ìàêðîñà íå òúðñè ïîñëåäíèÿ ïðàçåí ðåä, à âèíàãè ñëàãà äàííèòå â êëåòêà F4, à àç èñêàì âèíàãè äà õîäè íàäîëó(F5, F6, F7,...).
Ìîëÿ àêî íÿêîé ìîæå äà ìè ïîìîãíå ñ äèëåìàòà ìè. Ìåðñè ïðåäâàðèòåëíî.Asus ROG STRIX Z270F :: i7-7700K+Corsair H100i v2 :: 16GB TG DarkPro Red DDR4@3200MHz :: Asus ROG STRIX RTX2080Ti 11GB :: 970EVO 256GB NVMe+ADATA S11P 1TB NVMe+2TB HDD :: CM HAF932+SS-650W :: Logitech G915+G903 :: Asus VG279Q 27"
-
21st August 2008 22:33 #2
Áëàãîäàðÿ íà âñè÷êè, îïðàâèõ ñå.
Asus ROG STRIX Z270F :: i7-7700K+Corsair H100i v2 :: 16GB TG DarkPro Red DDR4@3200MHz :: Asus ROG STRIX RTX2080Ti 11GB :: 970EVO 256GB NVMe+ADATA S11P 1TB NVMe+2TB HDD :: CM HAF932+SS-650W :: Logitech G915+G903 :: Asus VG279Q 27"




Reply With Quote
Ïðîáëåìíà R9 280, àðòåôàêòè
07.05.23 ã., 21:28 in Âèäåîêàðòè