Excel жұмыс парағын VBA арқылы қалай айналдыруға болады

Кейде жұмыс парағын жол бойынша оқып, одан деректерді таңдап алу пайдалы. Төмендегі мысал мұны қалай жасау керектігін көрсетеді.

Мақала оқырманға Әзірлеуші ​​лентасы көрсетілген және VBA редакторымен таныс деп болжайды. Олай болмаса, Google-дің «Excel Developer Tab» немесе «Excel Code Window» сұраймыз.

Келесі мысал электрондық пошта мекенжайларының әрбір жолын қарап, оларды бір мекенжай жолына біріктіру арқылы деректерді өңдейді. Excel бағдарламасында кірістірілген Transpose функциялары болса да, біз кодымызбен кейбір нақты адресаттарды алып тастауды және бөлгіштерді қосуды көздейміз.

Біздің қолданбаға тек бір парақ қажет. Төмендегі ақпаратты A1 ұяшығына көшіріңіз:

Кодты іске қосу үшін пішінге түймені қойыңыз.

Мұндай электрондық пошталар бесеу емес, жүздеген деп есептейік; біз әрқайсысына бірдей хабарламаны және сценарийіміздің бірдей көшірмесін жібергіміз келеді. Мұны істеудің бірнеше жолы бар, ең бастысы, Outlook сияқты электрондық пошта жіберушіні VBA кодынан шақыру арқылы. Дегенмен, бұл жаттығу екі мақсатқа қызмет етеді:

• Жұмыс парағы арқылы оңай айналуды көрсету;
• Excel бағдарламасының әрбір жолды қарап шығу және оған әрекет ету мүмкіндігін бөлектеңіз.

VBA коды

VBA коды барлық мекенжайларды біріктіріп, әрқайсысынан кейін нүктелі үтірді қояды, осылайша оларды электрондық поштаның адресат өрісіне бір жолға қоюға болады. Сіз кодтан жолдарды зерттегеннен кейін француздарды алып тастайтынын байқайсыз.

Модульді енгізіп, келесіні енгізіңіз:

Option Explicit
Dim strEmail As String
Dim strAll As String

Sub Main()
    strAll = ""
    Range("C2") = strAll     'clear previous program results
    Sheets("Sheet1").Select
    Range("A2").Select
    Do While ActiveCell > ""      'loop until row 7
        strEmail = ActiveCell
        If Right(strEmail, 2) <> "fr" Then      'exclude France
            strAll = strAll & strEmail & ";"
        End If
        Range("A" & ActiveCell.Row + 1).Select     'move on a row in the SAME column
    Loop
    Range("C2") = strAll
End Sub

Код белсенді ұяшықты А бағанында сақтайды, тек жолдар ғана қозғалады. Қатардағы басқа жерде ақпаратқа сілтеме жасау үшін біз мыналарды қолданамыз:

Variable = Activecell.offset(offset rows, offset columns)

Белсенді жолдағы B бағанынан мән алу үшін, мысалы, код оқылады Activecell.offset(0, 1). Біз A2 форматында болғанда A3 мәнін алу үшін оқимыз Activecell.offset(-1, 0).

Кодты тексеру үшін түймені «Негізгі» макросқа тағайындаңыз.

Кейбір Интернет провайдерлері спамға қарсы сақтық шарасы ретінде бірден жіберуге болатын электрондық хаттардың санын шектеуі мүмкін. Егер сіз осы әдісті қолдансаңыз, жүздеген электрондық хаттарды бір уақытта жібермес бұрын олармен танысқан дұрыс.

Excel файлының бүлінуін өңдеу

Кейде біз жұмыс кітаптарының бұзылуына Excel бағдарламасының өзі оларды қалпына келтіре алмайтындай дәрежеде кездесеміз. Бұл көптеген Excel пайдаланушылары, соның ішінде сарапшылар үшін апат. Дегенмен, егер сізде тиімді қалпына келтіру құралы болса, қалпына келтіре аласыз зақымдалған xlsx файлдары оңай және тез.

Автордың кіріспесі:

Феликс Хукер - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жөндеу rar жемқорлық және SQL қалпына келтіру бағдарламалық жасақтама өнімдері. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com