किसी डेटाबेस से डेटा देखने और उसे दूसरी एक्सेल फ़ाइल या शीट पर कॉपी करने के लिए एक्सेल मैक्रो

Question

मेरे पास एक एक्सेल फाइल है जो दी गई तारीख के डेटा को देखती है और उसकी गणना करती है। यह निम्नानुसार काम करता है: आप एक विशिष्ट सेल (इनपुट) में तारीख दर्ज करते हैं और एक ही शीट में आवश्यक डेटा प्रकट होता है (20 सेल)। (गणना आदि ... एक अन्य पत्रक में की गई है)

अब मैं एक एक्सेल फाइल बनाना चाहता हूँ, जो बिना तिथि के स्वयं इनपुट किए बिना और मैन्युअल रूप से डेटा कॉपी करने के लिए इस सारे डेटा को सारांशित करता है।

मैक्रो को क्या करना चाहिए: प्रत्येक तिथि के लिए उस विशिष्ट इनपुट सेल के मूल्य को बदल दें, आउटपुट डेटा की प्रतिलिपि बनाएँ और इसे एक नई शीट (तिथि के बगल में) में पेस्ट करें।

किसी भी विचार यह कैसे किया जा सकता है? मैंने बहुत समय पहले मैक्रों के साथ काम किया और अधिकांश सिंटैक्स को भूल गया।

Answer 1

जैसा कि मैंने इसे देखा है, आपको इनपुट डेटा का एक सरणी मिला है
dim my_array(10)यह आपका सरणी है, जो 10 मानों को संग्रहीत करता है मान
लीजिए, आपके पास 3 कार्यपत्रक हैं, पहला वह है जहां आप डेटा "शीट 1" इनपुट करते हैं, दूसरा वह है जहां आप आउटपुट "शीट 2" को सहेजना चाहते हैं , और तीसरा, जहाँ सभी गणनाएँ की जाती हैं, हम इसे स्पर्श नहीं करेंगे।
आइए अपने सरणी को मूल्यों के साथ भरने के साथ शुरू करें:
my_array = Array(1, 2, 3, ..., 9)
अब हम सभी इनपुट मूल्यों के माध्यम से जाने और आउटपुट मानों को सहेजने के लिए एक लूप बनाएंगे: जहां "A1" पहली शीट पर सेल है, जहां आप अपना इनपुट पेस्ट करते हैं। चलो मान लेते हैं, कि आपको शीट 1 पर सेल "ए 2" में आउटपुट मिलता है और आप इसे शीट 2 में "ए" के रूप में संग्रहित करना चाहते हैं: लूप को बंद करना न भूलें: इसलिए हमें कोड मिलता है, जिसमें 10 हार्डकोड मान होते हैं और शीट 2 पर "ए" को पूरा करने के लिए आउटपुट बचाता है, पूर्ण पाठ:
for i = 1 to 10
Worksheets(1).Range("A1").Value = my_array(i)

Worksheets(2).Cells(i, 1).Value = Worksheets(1).Range("A2").Value

Next

dim my_array(10)
Private Sub macro1()
my_array = Array(1, 2, 3, ..., 9)
for i = 1 to 10
Worksheets(1).Range("A1").Value = my_array(i)
Worksheets(2).Cells(i, 1).Value = Worksheets(1).Range("A2").Value
Next
End sub