Πώς να Μεταφορά VB Lines

Ανάπτυξη και ανήκει στην Microsoft , Visual Basic είναι ένα event-driven γλώσσα προγραμματισμού που λειτουργεί με το Excel και άλλες εφαρμογές βάσεων δεδομένων . Ένας από τους πρωταρχικούς χρήσεις της Visual Basic είναι να γράψουν προγράμματα για το Windows λειτουργικό system.Visual Basic θα ελέγξει τις μεταβλητές χρησιμοποιώντας το " IF δηλώσεις . " Ένα « ΑΝ Δήλωση " απαντά στο ερώτημα , " Είναι αυτό αληθές ή ψευδές ; " , τότε εκτελεί μια ενέργεια με βάση αυτό το function.Arguments σε μια δήλωση Εάν είναι: Λογική δοκιμή - τι ζητάμε ; Αξία αν αληθεύει - τι θέλουμε εμφανίζεται? Και αξία , αν ψευδώς - τι θέλουμε εμφανίζεται ; Skipped γραμμές είναι απαραίτητο να πάει από το ένα μακρο - μια συλλογή από εντολές που μπορείτε να εφαρμόσετε με ένα μόνο κλικ - στο επόμενο . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " , και επιλέξτε "Εισαγωγή ". Επιλέξτε ένα χαρακτηριστικό τίτλο " Στοιχεία ελέγχου φόρμας " ή " ελέγχου ActiveX . " Αυτό μετατρέπει το δρομέα στο στόχαστρο . Κάντε κλικ στο κελί όπου θέλετε τη μορφή ή το κουμπί ActiveX για να εμφανιστούν. " . Προβολή κώδικα " κάντε δεξί κλικ στο κουμπί και επιλέξτε 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα :

Λειτουργία SkipLineInFile

Const ForReading = 1 , ForWriting = 2

Δημ. FSO , στ

Ορισμός FSO = CreateObject ( " Scripting.FileSystemObject " )

Σετ f = fso.OpenTextFile ( "c : \\ testfile.txt " , ForWriting , True )

f.Write " Γειά σου Κόσμε ! " & VbCrLf & " VBScript είναι διασκέδαση ! "

Ορισμός f = fso.OpenTextFile ( "c : \\ testfile.txt " , ForReading )

f.SkipLine

SkipLineInFile = f.ReadLine

End Function
εικόνων 3

Κάντε κλικ στο " αρχείο ", " Αποθήκευση Book1 " και το όνομα του αρχείου σας . Κάντε κλικ στο αναπτυσσόμενο βέλος στα δεξιά του " Αποθήκευση ως τύπου ", επιλέξτε " Excel Macro - Enabled βιβλίου εργασίας " και κάντε κλικ στο κουμπί "Αποθήκευση".
Η
εικόνων