Бұл мақалада біз сізге VBA кодтары арқылы Word құжатына болашақ немесе өткен күнді енгізудің қызықты тәсілін көрсетеміз.
Әдетте, біздің Word құжатымызға ағымдағы күнді енгізу қиын емес. Дәл қазір, содан кейін біз келесі аптада немесе айда немесе тіпті кейінірек қажет болатын құжатқа дайындала аламыз. Онда сіз айналып өте алмайтын мәселе бар. Word файлына болашақ күнді қалай енгізуге болады? Ал кейде өткен туралы не деуге болады?
Сондықтан сіздің жұмыс міндеттеріңізді жақсы орындау үшін сіз осы пайдалы әдісті түсінуіңіз керек деп ойлаймыз.
Болашақты енгізу немесе күнді қою үшін VBA кодтарын пайдаланыңыз
- Бастау үшін Word құжатын ашыңыз.
- Содан кейін, «Әзірлеуші» қойындысын нұқыңыз.
- Әрі қарай VBA редакторын ашу үшін «Visual Basic» батырмасын басыңыз. Егер Word таспасында «Әзірлеуші» қойындысы болмаса, оның орнына редакторды ашу үшін «Alt + F11» пернелерін басуға болады.
- Енді редактордың сол жағындағы «Қалыпты» батырмасын басыңыз.
- Содан кейін құралдар тақтасындағы «Кірістіру» батырмасын басыңыз.
- Содан кейін тізім мәзірінен «Модульді» таңдаңыз.
- Енді жаңадан салынған модульді екі рет нұқыңыз, сонда редакциялау аймағы оң жақта қол жетімді болады.
- Тек келесі кодтарды қойыңыз:
Sub InsertFutureOrPastDate()
Dim strNumberOfDays As String
' Input the number of days you want to insert from today to the future or past date.
strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
' Insert the future or past date according to the inputed number of days
If strNumberOfDays <> "" Then
Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
End If
End Sub
- Әрі қарай, «Сақтау» батырмасын басып, VBA редакторын жабыңыз.
- Енді Word құжаттарының экранына қайта оралыңыз және курсорды болашақ немесе өткен күн өтетін жерге қойыңыз.
- Содан кейін «Әзірлеуші» қойындысын қайтадан басыңыз.
- «Макростар» терезесін ашу үшін «Код» тобындағы «Макростарды» басыңыз. Егер «Әзірлеуші» қойындысы көрсетілмесе, сізге «Alt + F8» пернелерін басу жеткілікті.
- Енді «Макростар» терезесінде «InsertFutureOrPastDate» макросын тауып таңдаңыз.
- Әрі қарай «Іске қосу» батырмасын басыңыз.
- Содан кейін сізді хабарлама терезесі қарсы алады. Келесі күнге қалған күндерді көрсету үшін өрістің төменгі жағындағы мәтін жолағына нөмір енгізуге болады. Мысалы, егер сіз ертеңгі күнді енгізгіңіз келсе, онда «1» енгізуіңіз керек. Сол сияқты, егер сізге өткен күн қажет болса, мәннің алдында минус белгісін қосыңыз, мысалы, кешегі үшін «-1».
- «ОК» батырмасын басуды ұмытпаңыз.
Ескерту: «Selection.TypeText Text: = Format (Date + strNumberOfDays,« dddd, MMMM dd, yyyy »)» кодтарында «dddd, MMMM dd, yyyy» «M» «ай» дегенді білдіретін күн пішімін білдіреді. , «D» - «күн», «y» - «жыл» және «dddd» - «апта», сондықтан сіз оны қалағаныңызша өзгерте аласыз.
Құнды файлдарыңызды қалпына келтіріңіз
Сөз құлдырауға ұшырайды, бұл біздің Word файлдарымызды қауіпке тігеді. Қазір, содан кейін біздің кейбір баға жетпес деректеріміз жоғалып кетті. Бірақ кеткен нәрсе толығымен жойылған жоқ. Сіз өзіңіздің сыни файлдарыңыздың жоғалуына байланысты жоқтау айтуға отыра аласыз немесе білікті адамды таңдай аласыз Word қалпына келтіру құралы зақымдалған оларды алу үшін.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel xls файлын жөндеу ақаулығы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com