Энэ нийтлэлд бид танд VBA кодоор дамжуулан Word баримт бичигт ирээдүйн болон өнгөрсөн огноог оруулах сонирхолтой аргыг харуулах болно.
Ерөнхийдөө бид Word баримт бичигт одоогийн огноог оруулахад хэцүү байдаггүй. Гэсэн хэдий ч бид ирэх долоо хоног, сар эсвэл бүр дараа нь шаардлагатай бичиг баримтыг бэлтгэхэд бэлдэж магадгүй юм. Тэгвэл эндээс тойрч гарах боломжгүй асуудал байна. Word файлд ирээдүйн огноог хэрхэн оруулах вэ? Тэгээд заримдаа өнгөрсөн үеийг яах вэ?
Тиймээс та ажлын даалгавраа илүү сайн биелүүлэхийн тулд энэ ашигтай аргыг ойлгох ёстой гэж бид бодож байна.
Ирээдүйн огноог оруулах эсвэл буулгахын тулд VBA кодыг ашиглана уу
- Эхлэхийн тулд Word баримтаа нээнэ үү.
- Дараа нь, "Хөгжүүлэгч" таб дээр дарна уу.
- Дараа нь "Visual Basic" дээр дарж VBA засварлагчийг нээнэ үү. Хэрэв "Хөгжүүлэгч" таб таны Word Ribbon дээр байхгүй бол та "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" гэх мэт хасах тэмдэг нэмнэ үү.
- "OK" дээр дарахаа бүү мартаарай.
Тайлбар: “Selection.TypeText Text:=Format(Date + strNumberOfdayys, “dddd, MMMM gg, yyyy”)” кодын “dddd, MMMM gg, yyyy” нь “M” нь “сар” гэсэн утгатай огнооны форматыг илэрхийлнэ. , "өдөр"-ийг "d", "жил"-ийг "y", "долоо хоног"-ыг "dddd" гэж бичвэл та хүссэнээрээ өөрчлөх боломжтой.
Үнэ цэнэтэй файлуудаа сэргээ
Word нь нуралтанд өртөмтгий бөгөөд энэ нь бидний Word файлыг аюулд оруулдаг. Заримдаа бидний үнэлж баршгүй зарим өгөгдөл алга болж байна. Гэхдээ алга болсон зүйл нь бүрмөсөн алга болоогүй. Та чухал файлуудаа алдсандаа гашуудаж суугаад эсвэл чадварлаг хүн сонгож болно гэмтсэн Word сэргээх хэрэгсэл буцааж авах.
Зохиогчийн танилцуулга:
Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. Excel xls файлын асуудлыг засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com