Πώς να λάβετε την τιμή κελιού ανά γραμμή και στήλη στο Excel VBA

  • Μοιραστείτε Αυτό
Hugh West

Σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να λάβετε την τιμή του κελιού ανά γραμμή και στήλη από ένα φύλλο εργασίας στο Excel. VBA Θα μάθετε να λαμβάνετε την τιμή κελιού από ολόκληρο το φύλλο εργασίας, καθώς και από τη χρησιμοποιούμενη περιοχή του φύλλου εργασίας και μια επιλεγμένη περιοχή.

Λάβετε την τιμή κελιού ανά γραμμή και στήλη στο Excel VBA (Γρήγορη προβολή)

 Sub Cell_Value_from_Whole_Worksheet() Value = Worksheets("Sheet1").Cells(7, 3) MsgBox Value End Sub 

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

Λάβετε την τιμή κελιού ανά γραμμή και στήλη.xlsm

3 μέθοδοι για να λάβετε την τιμή κελιού ανά γραμμή και στήλη στο Excel VBA

Επομένως, χωρίς άλλη καθυστέρηση, ας πάμε στην κύρια συζήτησή μας σήμερα. Θα μάθουμε να παίρνουμε την τιμή του κελιού με το 3 μέθοδοι σήμερα: από ολόκληρο το φύλλο εργασίας, από τη χρησιμοποιούμενη περιοχή του φύλλου εργασίας και από μια επιλεγμένη περιοχή.

1. Αποκτήστε την τιμή κελιού ανά γραμμή και στήλη από ολόκληρο το φύλλο εργασίας στο Excel VBA

Πρώτα απ' όλα, θα πάρουμε την τιμή του κελιού ανά γραμμή και στήλη από ολόκληρο το φύλλο εργασίας.

Για να λάβετε την τιμή του κελιού ανά γραμμή και στήλη από ολόκληρο το φύλλο εργασίας, μπορείτε να χρησιμοποιήσετε την εντολή Μέθοδος κυττάρων του VBA .

Για παράδειγμα, για να λάβετε την τιμή από το κελί στο σειρά και το στήλη του φύλλου εργασίας που ονομάζεται Φύλλο1 , μπορείτε να χρησιμοποιήσετε:

 Value = Φύλλα εργασίας("Sheet1").Cells(4, 6) 

⧭ Παράδειγμα:

Εδώ έχουμε ένα φύλλο εργασίας που ονομάζεται Φύλλο1 με το ονόματα ορισμένων μαθητών και τα σημάδια τους σε Φυσική, Χημεία, και Μαθηματικά Το σύνολο των δεδομένων αρχίζει ακριβώς από το κελί A1 του φύλλου εργασίας.

Τώρα, για να πάρετε τα σημάδια του μαθητής σε Χημεία , θα πρέπει να πάρετε την τιμή του κελιού από το σειρά και στήλη του φύλλου εργασίας.

Το VBA ο κωδικός θα είναι:

⧭ Κώδικας VBA:

 Sub Cell_Value_from_Whole_Worksheet() Value = Worksheets("Sheet1").Cells(7, 3) MsgBox Value End Sub 

⧭ Έξοδος:

Εκτελέστε τον κώδικα. Θα εμφανίσει την τιμή του κελιού από το σειρά και στήλη της Φύλλο1 , το οποίο είναι 78 .

Διαβάστε περισσότερα: Πώς να βρείτε την τιμή στη στήλη χρησιμοποιώντας το VBA στο Excel (4 τρόποι)

2. Αποκτήστε την τιμή κελιού ανά γραμμή και στήλη από τη χρησιμοποιούμενη περιοχή στο Excel VBA

Στη συνέχεια, θα πάρουμε την τιμή του κελιού ανά γραμμή και στήλη από τη χρησιμοποιούμενη περιοχή του φύλλου εργασίας.

Για να λάβετε την τιμή του κελιού ανά γραμμή και στήλη από τη χρησιμοποιούμενη περιοχή του φύλλου εργασίας, μπορείτε να χρησιμοποιήσετε και πάλι την εντολή Μέθοδος κυττάρων του VBA , αλλά κατά μήκος της UsedRange αντικείμενο.

Για παράδειγμα, για να λάβετε την τιμή από το κελί στο σειρά και το στήλη της χρησιμοποιούμενης περιοχής του φύλλου εργασίας που ονομάζεται Φύλλο2 , μπορείτε να χρησιμοποιήσετε:

 Value = Worksheets("Sheet2").UsedRange.Cells(4, 6) 

⧭ Παράδειγμα:

Εδώ έχουμε ένα άλλο φύλλο εργασίας που ονομάζεται Φύλλο2 με το ίδιο σύνολο δεδομένων, η ονόματα ορισμένων μαθητών και τα σημάδια τους σε Φυσική, Χημεία, και Μαθηματικά ενός Σχολείου. Αλλά αυτή τη φορά το σύνολο δεδομένων ξεκινά από το κελί B2 του φύλλου εργασίας.

Τώρα, για να πάρετε τα σημάδια του μαθητής σε Χημεία και πάλι, πρέπει να πάρετε την τιμή από το γραμμή και το στήλη της χρησιμοποιούμενης περιοχής.

Το VBA ο κωδικός θα είναι:

⧭ Κώδικας VBA:

 Sub Cell_Value_from_Used_Ranget() Value = Worksheets("Sheet1").UsedRange.Cells(7, 3) MsgBox Value End Sub 

⧭ Έξοδος:

Εκτελέστε τον κώδικα. Θα εμφανίσει την τιμή του κελιού από το σειρά και στήλη του χρησιμοποιούμενου εύρους των Φύλλο2 , το οποίο είναι 78 .

Διαβάστε περισσότερα: Πώς να βρείτε την τιμή στη στήλη στο Excel (4 μέθοδοι)

Παρόμοιες αναγνώσεις

  • Πώς να βρείτε την πρώτη εμφάνιση μιας τιμής σε μια στήλη στο Excel (5 τρόποι)
  • Πώς να βρείτε την τελευταία εμφάνιση μιας τιμής σε μια στήλη στο Excel (5 μέθοδοι)

3. Λάβετε την τιμή κελιού ανά γραμμή και στήλη από μια συγκεκριμένη περιοχή στο Excel VBA

Τέλος, θα λάβουμε την τιμή κελιού ανά γραμμή και στήλη από μια επιλεγμένη περιοχή ενός φύλλου εργασίας.

Για να λάβετε την τιμή κελιού ανά γραμμή και στήλη από μια συγκεκριμένη περιοχή ενός φύλλου εργασίας, μπορείτε να χρησιμοποιήσετε την εντολή Μέθοδος κυττάρων του VBA , αλλά κατά μήκος της Εύρος αντικείμενο.

Για παράδειγμα, για να λάβετε την τιμή από το κελί στο σειρά και το στήλη του εύρους E2:H14 του φύλλου εργασίας που ονομάζεται Φύλλο3 , μπορείτε να χρησιμοποιήσετε:

 Value = Worksheets("Sheet3").Range("E2:H14").Cells(4, 6) 

⧭ Παράδειγμα:

Εδώ έχουμε ένα άλλο φύλλο εργασίας που ονομάζεται Φύλλο3 με δύο σύνολα δεδομένων. Το ένα με το ονόματα και Ταυτότητες των μαθητών ( B2:C14 ) μιας Σχολής, και το άλλο με το ονόματα ορισμένων μαθητών και τα σημάδια τους σε Φυσική, Χημεία, και Μαθηματικά (E2:H14) .

Τώρα, για να πάρετε τα σημάδια του φοιτητής σε Χημεία και πάλι, πρέπει να πάρετε την τιμή από το σειρά και το στήλη του εύρους E2:H14 του φύλλου εργασίας.

Το VBA ο κωδικός θα είναι:

⧭ Κώδικας VBA:

 Sub Cell_Value_from_Selected_Range() Value = Worksheets("Sheet3").Range("E2:H14").Cells(7, 3) MsgBox Value End Sub 

⧭ Έξοδος:

Εκτελέστε τον κώδικα. Θα εμφανίσει την τιμή του κελιού από το σειρά και στήλη του εύρους E3:G13 του Φύλλο3 , το οποίο είναι 78 .

Διαβάστε περισσότερα: Πώς να βρείτε τις 5 κορυφαίες τιμές και ονόματα στο Excel (8 χρήσιμοι τρόποι)

Πράγματα που πρέπει να θυμάστε

Εδώ χρησιμοποίησα το UsedRange και Αντικείμενο Range του VBA στο Excel. Για να τα γνωρίσετε λεπτομερώς, μπορείτε να επισκεφθείτε αυτόν τον σύνδεσμο.

Συμπέρασμα

Έτσι, εδώ είναι οι τρόποι για να πάρετε οποιαδήποτε τιμή κελιού ανά γραμμή και στήλη με το VBA στο Excel. Έχετε οποιεσδήποτε ερωτήσεις; Μη διστάσετε να μας ρωτήσετε. Και μην ξεχάσετε να επισκεφθείτε τον ιστότοπό μας ExcelWIKI για περισσότερες αναρτήσεις και ενημερώσεις.

Ο Hugh West είναι ένας εξαιρετικά έμπειρος εκπαιδευτής και αναλυτής του Excel με πάνω από 10 χρόνια εμπειρίας στον κλάδο. Είναι κάτοχος πτυχίου Λογιστικής και Χρηματοοικονομικής και μεταπτυχιακού στη Διοίκηση Επιχειρήσεων. Ο Hugh έχει πάθος για τη διδασκαλία και έχει αναπτύξει μια μοναδική προσέγγιση διδασκαλίας που είναι εύκολο να ακολουθηθεί και να κατανοηθεί. Οι εξειδικευμένες γνώσεις του στο Excel έχουν βοηθήσει χιλιάδες φοιτητές και επαγγελματίες παγκοσμίως να βελτιώσουν τις δεξιότητές τους και να διαπρέψουν στην καριέρα τους. Μέσω του ιστολογίου του, ο Hugh μοιράζεται τις γνώσεις του με τον κόσμο, προσφέροντας δωρεάν μαθήματα Excel και διαδικτυακή εκπαίδευση για να βοηθήσει άτομα και επιχειρήσεις να αξιοποιήσουν πλήρως τις δυνατότητές τους.