Πίνακας περιεχομένων
Αυτό το σεμινάριο θα δείξει πώς να λάβετε τη διεύθυνση ενός κελιού.
Λήψη διεύθυνσης εύρους
Αυτό θα εμφανίσει τη διεύθυνση κελιού χρησιμοποιώντας το αντικείμενο εύρους:
| 1 | MsgBox Range ("A1"). Διεύθυνση |
Λήψη διεύθυνσης κελιών
Αυτό θα εμφανίσει τη διεύθυνση κελιού χρησιμοποιώντας το αντικείμενο Cells:
| 1 | MsgBox Cells (1,1). Διεύθυνση |
Διεύθυνση ActiveCell
Για να λάβετε τη διεύθυνση ActiveCell χρησιμοποιήστε αυτόν τον κωδικό:
| 1 | MsgBox ActiveCell.Address |
Ορισμός μεταβλητής σε διεύθυνση κελιού
Μπορείτε επίσης να εκχωρήσετε τη διεύθυνση κελιού σε μια μεταβλητή συμβολοσειράς για εύκολη χρήση στον κώδικά σας:
| 1234 | Dim str ΔιεύθυνσηstrAddress = Range ("A1"). ΔιεύθυνσηMsgBox strAddress |
Λήψη αριθμού σειράς από τη διεύθυνση κυψέλης
Αυτός ο κωδικός θα εξαγάγει τον αριθμό σειράς από μια διεύθυνση:
| 1234567891011 | Sub GetRowNumberFromCellAddress ()Dim str Διεύθυνση ως συμβολοσειράDim rownum As LongstrAddress = Range ("A1: a10"). Διεύθυνσηrownum = Εύρος (strAddress). ΣειράMsgBox rownumΤέλος υπο |
Ωστόσο, συνήθως μπορείτε να χρησιμοποιήσετε αυτόν τον πολύ απλούστερο κώδικα:
| 1 | MsgBox Range ("A1"). Σειρά |
