हाय, मैं एक मैक्रो बनाने की कोशिश कर रहा हूं जिसमें एक लूप है जो प्रत्येक स्टेशन के लिए कॉलम 1 (वीओएल) और एक अन्य फ़ंक्शन कॉलम 2 (कैपेसिटी) को कॉपी करता है। यह वही है मैं अब तक है:एक्सेल में पंक्तियों के कॉलम के माध्यम से लूप कैसे करें वीबीए मैक्रो
Sub TieOut()
Dim i As Integer
Dim j As Integer
For i = 1 To 3
For j = 1 To 3
Worksheets("TieOut").Cells(i, j).Value = "'=INDEX('ZaiNet Data'!$A$1:$H$39038,MATCH('INDEX-MATCH'!Z$7&TEXT('INDEX-MATCH'!$A9,"m/dd/yyyy"),'ZaiNet Data'!$C$1:$C$39038,0), 4)"
Next j
Next i
End Sub
जो मैं चाहता की तस्वीर के नीचे है: आप देख सकते हैं कि मैं मैन्युअल रूप से नकल की और प्रत्येक स्तंभ नीचे मेरी दो कार्य चिपकाया है। मुझे सिर्फ एक मैक्रो की आवश्यकता है जो इसके माध्यम से लूप कर सके।
alt text http://i26.tinypic.com/nz4lfn.jpg
समारोह मैं प्रत्येक स्टेशन के लिए वॉल्यूम स्तंभ नीचे लूप में चलाए जा करना चाहते है:
=INDEX('ZaiNet Data'!$A$1:$H$39038,MATCH('INDEX-MATCH'!Z$7&TEXT('INDEX-MATCH'!$A438,"M/DD/YYYY"),'ZaiNet Data'!$C$1:$C$39038,0), 4)
समारोह मैं चाहता हूँ प्रत्येक स्टेशन के लिए क्षमता स्तंभ है नीचे लूप में चलाया जा करने के लिए :
=INDEX('ZaiNet Data'!$A$1:$H$39038,MATCH('INDEX-MATCH'!Z$7&TEXT('INDEX-MATCH'!$A438,"M/DD/YYYY"),'ZaiNet Data'!$C$1:$C$39038,0), 5)
कोई व्यक्ति पी मदद पट्टे? धन्यवाद!
अद्यतन
**** मैं कैसे पाश रन स्वचालित रूप से मैन्युअल रूप से पहले दो कक्षों में सूत्र दर्ज करें और मैक्रो पर क्लिक किए बिना कर सकते हैं?
इसके अलावा मैं कैसे सभी स्तंभों/पंक्तियों के माध्यम से लूप रन बना सकते हैं? (Horizontically) ****
मैं दो स्क्रीन शॉट्स दिखाने के लिए मैं क्या मतलब शामिल थे। नीचे मेरा वर्तमान कोड है। alt text http://i26.tinypic.com/i3gw9g.jpg alt text http://i29.tinypic.com/8izl.jpg धन्यवाद!
Sub Loop3()
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 1).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Select
Dim i As Integer
Dim j As Integer
With Worksheets("Loop")
i = 1
Do Until .Cells(10, i).Value = "blank"
For j = 1 To 10
.Cells(j, i).Formula = "=INDEX('ZAINET DATA'!$A$1:$H$39038,MATCH(Loop!E$7&TEXT(Loop!$A9,""M/D/YYYY""),'ZAINET DATA'!$C$1:$C$39038,0),4)"
.Cells(j, i + 1).Formula = "=INDEX('ZAINET DATA'!$A$1:$H$39038,MATCH(Loop!E$7&TEXT(Loop!$A9,""M/D/YYYY""),'ZAINET DATA'!$C$1:$C$39038,0),5)"
Next j
i = i + 2
Loop
End With
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 1).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Select
End Sub
@ Techgirl09, आप अभी भी इस प्रश्न का अनुसरण कर रहे हैं, मैं वहाँ यह करने के लिए एक आसान तरीका है पता है। 2 प्रश्न: क्या वह सीमा है जो फॉर्मूला की हमेशा एक ही प्रतिलिपि बनाई गई है (यानी क्या आप इसे नामित श्रेणी बना सकते हैं)? और क्या आप इसे शीट सक्रियण, या कुछ और पर ट्रिगर करना चाहते हैं? –
ऐसा लगता है कि केविन ने स्क्रीनशॉट लेते समय आपको एक ईमेल भेजा है, कृपया उसे जवाब दें –