Sa artikulong ngayon, ipapakita namin sa iyo ang 2 mabilis na paraan upang maipasok ang mga araw o oras na natitira bago ang isang deadline sa iyong dokumento sa Word.
Tuwing paminsan-minsan, kapag nagtatrabaho ka sa isang mahalagang proyekto, malalaman mong kailangan mong tandaan ang eksaktong mga araw o oras na natitira bago ang deadline upang maiayos ang iyong bilis ng pagtatrabaho. Pagkatapos ito ay magiging isang magandang ideya upang isingit ang mga araw o oras na natitira bago ang deadline sa iyong dokumento ng Word, upang maalalahanan ka nila sa pinakabagong oras na natitira.
Sa sumusunod na teksto, nais naming ipakilala sa iyo ang 2 mga pamamaraan kung paano gamitin ang macros upang makalkula at makuha ang halaga.
Kalkulahin ang Mga Araw na Kaliwa bago ang Deadline
- Una sa lahat, ilagay ang iyong cursor sa posisyon kung saan mo gustong ilagay ang numero.
- Pagkatapos, i-click ang tab na "Developer".
- Susunod na pag-click sa "Visual Basic" sa pangkat na "Code" upang buksan ang VBA editor. Gayundin, maaari mong pindutin ang "Alt + F11" sa halip kung sakaling ang tab na "Developer" ay hindi magagamit sa iyong Salita.
- Ngayon i-click ang "Normal" at pagkatapos ay "Ipasok".
- Susunod, piliin ang "Modyul".
- I-double click ang bagong module upang buksan ang lugar ng pag-edit sa kanang bahagi.
- Pagkatapos i-paste ang mga sumusunod na code doon:
Sub CountDownfromTodayToDeadlineDate()
Dim dtDeadlineDate As Date
Dim lDaysLeft As Long
' Input the deadline date to calculate the date difference.
dtDeadlineDate = InputBox("Enter the deadline date", "Deadline Date", "For example:2017/2/14")
lDaysLeft = DateDiff("d", Now, dtDeadlineDate)
' Output the date difference from today to the deadline date in word document.
Selection.Text = "There are " & lDaysLeft & " days left from today to " & dtDeadlineDate & vbCrLf
End Sub
- Susunod, i-click ang pindutang "Run".
- Sasalubungin ka ng isang kahon ng dayalogo, tulad ng sa ibaba:
Ipasok ang deadline date sa text box at i-click ang "OK".
Para sa madaling paggamit sa hinaharap, maaari mong i-click ang "Macros" sa ilalim ng tab na "Developer" at piliin ang tamang macro pagkatapos ay i-click ang "Run". Ito ay magpapalitaw sa dialog box.
Kalkulahin ang Kaliwang Oras bago ang Deadline
Minsan, bukod sa pagkuha ng natitirang araw, maaaring kailangan mo ring malaman kung gaano karaming oras ang natitira sa iyo bago ang isang tukoy na oras. Pagkatapos, ang bellowing macro ang kakailanganin mo.
- Ulitin ang unang 8 mga hakbang sa itaas. Tanging kailangan mong palitan ang mga code ng mga sumusunod:
Sub CountDownfromNowToDeadlineTime()
Dim dtTimeNow As Date
Dim dtDeadlineTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the time now and the deadline time.
dtTimeNow = TimeValue(Now)
dtDeadlineTime = InputBox("Enter the deadline time","Deadline Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
Selection.Text = "There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from now to " & dtDeadlineTime & vbCrLf
End Sub
- Tandaan na pindutin ang pindutang "Run".
- Sa oras na ito, magkakaroon ka ng dialog box na "Oras ng Deadline". Ipasok ang oras ng deadline pagkatapos ay i-click ang "OK".
Panatilihing Hindi Masaktan ang mga File
Upang mapanatili ang integridad ng file at maiimbak ang mga ito mula sa katiwalian, ang pinakamahusay at pinakamadaling paraan ay ang madalas na pag-backup. Gayunpaman, naiintindihan namin na mahirap manatili sa isang gawain, kung kaya't maraming mga sirang file araw-araw. Upang ayusin ang mga may problemang file, kakailanganin mo ng nasirang tool sa pag-aayos ng Salita.
Panimula ng May-akda:
Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang tool sa pag-aayos ng error sa xlsx at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa