අන්තර්ගත වගුව
මෙම ලිපියෙන් පෙන්වන්නේ සෛලයක් වෙනස් වන විට එක්සෙල් හි වේලා මුද්‍රා තබන ආකාරයයි. ඔබට යම් තීරුවක සෛල තුළ දත්ත ඇතුළත් කිරීම් නිරීක්ෂණය කිරීමට අවශ්‍ය විය හැකිය. උදාහරණයක් ලෙස, ඔබ දත්ත ආදානය කිරීමට B තීරුව වෙන් කර ඇත. දැන් ඔබට B තීරුවේ කොටුවක් යාවත්කාලීන කරන විට C තීරුවේ යාබද කොටුවක වේලා මුද්රාව අවශ්‍ය වේ. මෙම ලිපිය ඔබට ඵලදායී ක්‍රම 2 කින් එය කිරීමට උපකාරී වනු ඇත.
පුහුණු වැඩපොත බාගන්න
ඔබට පහත බාගැනීම් බොත්තමෙන් පුහුණු වැඩපොත බාගත කළ හැක.
Excel.xlsm හි කාල මුද්රාව
2 Cell වෙනස් වන විට Excel හි කාලමුද්‍රාව ඇතුළු කිරීමට ක්‍රම
1. Excel හි කාල මුද්රාව ඇතුළු කිරීමට IF, AND, NOW සහ වෙනත් කාර්යයන් භාවිතා කරන්න
කොටුවක් වෙනස් වන විට සූත්‍ර භාවිතයෙන් වේලා මුද්‍රාවක් ලබා ගැනීමට පහත පියවර අනුගමනය කරන්න.
📌 පියවර
- පළමුව එක්සෙල් විකල්ප විවෘත කිරීමට ALT+F+T ඔබන්න. ඉන්පසු සූත්‍ර ටැබයට යන්න. මීළඟට, සබල කරන්න පුනරාවර්තන ගණනය සලකුණු කොටුව සලකුණු කරන්න. ඉන්පසුව, උපරිම පුනරාවර්තන 1 ලෙස සකසන්න. ඊට පසු, OK ක්ලික් කරන්න.
- දැන්, පහත සූත්‍රය කොටුවට ඇතුළු කරන්න. C5 . ඉන්පසුව, සූත්‍රය පහත කොටු වෙත පිටපත් කිරීමට Fill Handle නිරූපකය ඇදගෙන යන්න.
=IF(AND(B5"",D5B5),NOW(),IF(B5="","",C5)) 
- ඉන්පසු, D5 කොටුව තුළ පහත සූත්‍රය ඇතුළු කරන්න. මීළඟට Fill Handle නිරූපකය පෙර පරිදි පහත කොටු වෙත ඇද දමන්න.
=IF(B5="","",IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5)) 
- දැන්, තීරුව B හි සෛල තුළ අගයන් ඇතුළත් කිරීම ආරම්භ කරන්න.ඊට පසු, ඔබට පහත ප්රතිඵලය ලැබෙනු ඇත. මෙන්න, තීරුව D යනු උපකාරක තීරුවකි. තීරුව තේරීමෙන් පසු දකුණු-ක්ලික් කිරීමෙන් ඔබට එය සැඟවිය හැක.
- විකල්පයක් ලෙස, ඔබට C5<කොටුව තුළ පහත සූත්‍රය ඇතුළු කළ හැක. 7> එකම ප්රතිඵලය ලබා ගැනීමට.
=IF(B5"",IF(C5="",NOW(),C5),"") 
- ඔබට හැඩතල ගැන්වීම වෙනස් කිරීමට අවශ්‍ය විය හැක. තීරුව C හි සෛල. ඉහළින් ඇති තීරු අංකය ක්ලික් කිරීමෙන් තීරුව තෝරන්න. ඉන්පසු CTRL+1 ඔබන්න Cells සංවාද කොටුව විවෘත කරන්න. දැන්, අභිරුචි අංක ආකෘතිය මත ක්ලික් කරන්න. මීළඟට, d-mmm-yyyy hh:mm:ss AM/PM Type ක්ෂේත්‍රය තුළ ඇතුළත් කරන්න. අවසාන වශයෙන්, OK ක්ලික් කරන්න.
සූත්‍රය බිඳවැටීම:
Cell තුළ සූත්‍රය C5:
➤ IF(B5=”””,C5))
IF ශ්‍රිතය කොටුව නම් කිසිවක් ලබා නොදේ B5 හිස්. එසේ නොමැතිනම්, C5 හි ගබඩා කර ඇති අගයම ආපසු ලබා දෙයි.
➤ NOW()
NOW ශ්‍රිතය ධාරාව ලබා දෙයි. දිනය සහ වේලාව.
➤ AND(B5””,D5B5)
AND ශ්‍රිතය TRUE ලබා දෙයි තර්ක සත්‍ය වේ, එනම් සෛලය B5 හිස් නොවේ සහ සෛල B5 සහ D5 එකම අගයක් නොමැත.
➤ IF(AND(B5"",D5B5),NOW(),IF(B5=""",C5))
AND ශ්‍රිතය TRUE ලබා දෙයි, පසුව IF ශ්‍රිතය NOW ශ්‍රිතයෙන් ලබාගත් වත්මන් දිනය සහ වේලාව ලබා දෙයි. එසේ නොමැති නම්, එය ප්රතිඵලය ලබා දෙයි IF ශ්‍රිතය අඩංගු තර්කයෙන් ලබා ගන්නා ලදී.
Cell D5 හි සූත්‍රය:
➤ ISNUMBER(D5)
ISNUMBER ශ්‍රිතය TRUE D5 කොටුවේ අංකයක් තිබේ නම් ලබා දෙයි. එසේ නොමැතිනම්, එය False ලබා දෙයි.
➤ AND(ISNUMBER(D5),B5=D5)
The AND ශ්‍රිතය TRUE ලබා දෙයි D5 කොටුවේ අංකයක් සහ සෛල B5 සහ D5 එකම අගයක් තිබේ නම්. එය වෙනත් ආකාරයකින් FALSE ලබා දෙයි.
➤ OR(C5=””,AND(ISNUMBER(D5),B5=D5))
ද හෝ ශ්‍රිතය TRUE විස්තාරක වලින් එකක් සත්‍ය නම් එනම් සෛල C5 හිස් නම් හෝ AND ශ්‍රිතය TRUE ලබා දෙයි . සියලු තර්ක අසත්‍ය නම් එය FALSE ලබා දෙයි.
➤ IF(OR(C5=””,AND(ISNUMBER(D5),B5=D5)),D5 ,B5)
IF ශ්‍රිතය හෝ ශ්‍රිතය TRUE ලබා දෙන්නේ නම් D5 කොටුවේ ගබඩා කර ඇති එම අගයම ලබා දෙයි . එසේ නොමැති නම්, එය සෛල B5 අගය ලබා දෙයි.
➤ IF(B5=”””,IF(OR(C5=””,AND(ISNUMBER(D5) ),B5=D5)),D5,B5))
IF ශ්‍රිතය B5 කොටුව හිස් නම් කිසිවක් ලබා නොදේ. එසේ නොමැතිනම්, එය IF ශ්‍රිතය අඩංගු තර්කයෙන් ලබාගත් ප්රතිඵලය ලබා දෙයි.
වැඩිදුර කියවන්න: VBA නොමැතිව සෛල වෙනස් වන විට Excel කාල මුද්රාව ඇතුළු කරන්නේ කෙසේද (විධි 3)
සමාන කියවීම්
- Excel හි ස්ථිතික දිනය ඇතුළත් කරන්නේ කෙසේද (සරල ක්‍රම 4)
- Excel VBA: වේලා මුද්රාව ඇතුළු කරන්නමැක්‍රෝ එකක් ක්‍රියාත්මක වන විට
- පේළියේ ඇති සෛල වෙනස් කළ විට Excel දින මුද්රාව ඇතුළු කරන්නේ කෙසේද
- Unix Timestamp එක Excel හි දිනයට පරිවර්තනය කරන්න (3 ක්‍රම)
2. සෛල වෙනස් වන විට Excel හි කාල මුද්රාව ඇතුළු කිරීමට VBA කේතය යොදන්න
VBA භාවිතයෙන් සෛලයක් වෙනස් වූ විට ඔබට excel හි කාල මුද්‍රාවක් ද ලබා ගත හැක. එය සිදු කිරීමට පහත පියවර අනුගමනය කරන්න.
📌 පියවර
- පළමුව, ඉලක්ක වැඩ පත්‍රිකාව මත දකුණු-ක්ලික් කරන්න. ඉන්පසු, View Code තෝරන්න. මෙය එම නිශ්චිත වැඩ පත්‍රිකාව සඳහා කේත මොඩියුලය විවෘත කරනු ඇත.
- ඊළඟට, ඉහළ දකුණු කෙළවරේ ඇති පිටපත් බොත්තම භාවිතයෙන් පහත කේතය පිටපත් කරන්න.
8832
- ඉන්පසු, හිස් මොඩියුලය මත කොපි කරගත් කේතය පහත පරිදි අලවන්න.
- ඊළඟට, සුරකින්න ලේඛනය සාර්ව සක්‍රීය වැඩපොතක් ලෙස. දැන්, B තීරුවේ ඇති කොටු වල දත්ත ඇතුලත් කිරීම අරඹන්න. එවිට ඔබට පෙර පරිදිම ප්‍රතිඵල ලැබෙනු ඇත.
VBA කේත පැහැදිලි කිරීම:
පෞද්ගලික උප වැඩ පත්‍රිකාව_වෙනස් කිරීම(පරාසය ලෙසින් ටාගට්)
Dim CellCol, TimeCol, Row, Col as integer
Dim DpRng, Rng පරාසය ලෙස
අවශ්‍ය විචල්‍ය ප්‍රකාශ කිරීම.
CellCol = 2
දත්ත ඇතුළත් කිරීම තීරුව.
TimeCol = 3
වේලා මුද්දර තීරුව.
පේළිය = ඉලක්කය.පේළිය
6>Col = Target.Column
තෝරාගත් කොටුවේ පේළි සහ තීරු අංක ගබඩා කිරීම.
පේළිය <= 4 නම් පිටවෙන්නඋප
ඉහළ පේළි 4 තුළ ඇති ඕනෑම වෙනස්කමක් වේලා මුද්‍රාවක් සාදනු නොලැබේ.
වේලා මුද්රාව = ආකෘතිය(දැන්, “DD-MM-YYYY HH:MM:SS AM/PM”)
වේලා මුද්රාව මේ ආකාරයට හැඩතල ගන්වනු ඇත. අවශ්‍ය පරිදි එය වෙනස් කරන්න.
ඉලක්කය නම්.“” යනුවෙන් පෙළ යවන්න ඉන්පසු
Col = CellCol නම්
Cells(පේළිය, TimeCol) = Timestamp
තෝරාගත් කොටුව හිස් නම් වේලා මුද්දරයක් තනන්න.
දෝෂය මත නැවත ආරම්භ කරන්න ඊළඟට
නොසලකා හරියි කිසියම් දෝෂයක් සිදුවුවහොත්.
DpRng = ඉලක්කය සකසන්න. යැපෙන්නන්
DpRng හි එක් එක් Rng සඳහා
නම් Rng.Column = CellCol ඉන්පසු
Cells(Rng.Row, TimeCol) = Timestamp
හිස් නොවේ නම් සෛල පරාසයක් සඳහා වේලා මුද්දර සාදන්න.
වැඩිදුර කියවන්න: Excel හි කාලමුද්‍රා දත්ත ඇතුළත් කිරීම් ස්වයංක්‍රීයව ඇතුළත් කරන්නේ කෙසේද (ක්‍රම 5)
මතක තබා ගත යුතු දේවල්
- ඔබට අභිරුචියක් භාවිත කිරීමට අවශ්‍ය වේ B තීරුවේ ඇති කොටු සඳහා නිසි ලෙස හැඩතල ගැන්වූ වේලා මුද්‍රාවක් ලබා ගැනීම සඳහා හැඩතල ගන්වන්න.
- විකල්ප සූත්‍රය ක්‍රියා කරන්නේ දත්ත හිස් කොටු තුළ ඇතුළත් කළ විට පමණි.
- මෙහි, දත්ත ඇතුළත් කිරීම සහ වේලා මුද්‍රා තීරුව දෘඩ වේ. VBA කේතයෙන් සංකේතනය කර ඇත. ඔබගේ දත්ත කට්ටලය මත පදනම්ව ඔබට කේතය වෙනස් කිරීමට අවශ්‍ය වේ.
නිගමනය
දැන් ඔබ දන්නවා සෛලයක් වෙනස් වන විට excel හි කාලමුද්‍රා මුද්‍රා තබන ආකාරය. ඔබට තවත් විමසීම් හෝ යෝජනා තිබේද? ඒ සඳහා කරුණාකර පහත අදහස් දැක්වීමේ කොටස භාවිතා කරන්න. Excel ගැන වැඩිදුර ගවේෂණය කිරීමට ඔබට අපගේ ExcelWIKI බ්ලොගයට පිවිසිය හැක. අප සමඟ රැඳී සිටින්න සහ දිගටම ඉගෙන ගන්න.
