80 របៀបបម្លែងលេខជាអក្សរក្នុង Microsoft Excel

[@SreyLeak-e2z]

លោកគ្រូខ្ញុំធ្វើទៅវាError Codeធ្វើម៉េចទៅលោកគ្រូ

[@sarunkeo4947]

ទាញអត់បានចឹងលោកគ្រូ

[@reancomputer101]

WILL UPDATE SOON, WILL LET YOU KNOW

[@kungisngeath8926]

​@@reancomputer1016:57 6:57

[@oudomthorng]

ខ្ញុំ​ធ្វើ​តាម​បង​ទាំងអស់​ដល់​ចំណុច​ចុងក្រោយ​ហើយ​ តែវានៅតែ​មិនដេីរទេបង។ អរគុណ​

[@reancomputer101]

សូមធ្វើតាមលំដាប់ហើយ Save Fileជាប្រភេទ Macro

[@oudomthorng]

@@reancomputer101 បានសេវដាក់តាមបងរួចាល់ហើយ Macro exel តែនៅតែប្រើប្រាស់មិនបានដដែល។

[@oudomthorng]

@@reancomputer101 Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = "Ban; " Place(3) = "lan " Place(4) = "Ban;lan " Place(5) = "Esnekadi " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "erolKt;" Case Else Dollars = Dollars & "erolKt;" End Select Select Case Cents Case "" Cents = "" Case "One" Cents = "" Case Else Cents = "" & Cents & "" End Select SpellNumber = Dollars & Cents End Function Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & "ry" End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "db;" Case 11: Result = "db;mYy" Case 12: Result = "db;BIr" Case 13: Result = "db;bI" Case 14: Result = "db;bYn" Case 15: Result = "db;R)aM" Case 16: Result = "db;R)aMmYy" Case 17: Result = "db;R)aMBIr" Case 18: Result = "db;R)aMbI" Case 19: Result = "db;R)aMbYn" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = "émÖ" Case 3: Result = "samsib" Case 4: Result = "Essib" Case 5: Result = "hasib" Case 6: Result = "huksib" Case 7: Result = "citsib" Case 8: Result = "Eb:tsib" Case 9: Result = "ekAsib" Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "mYy" Case 2: GetDigit = "BIr" Case 3: GetDigit = "bI" Case 4: GetDigit = "bYn" Case 5: GetDigit = "R)aM" Case 6: GetDigit = "R)aMmYy" Case 7: GetDigit = "R)aMBIr" Case 8: GetDigit = "R)aMbI" Case 9: GetDigit = "R)aMbYn" Case Else: GetDigit = "" End Select End Function

[@ungsundeth5634]

How can get code?

[@reancomputer101]

ទាញយក Code និង Example Excel - www.rean.me/2018/06/how-to-convert-numeric-value-into-english-word.html

[@Samnang_Noun]

ខ្ញុំចង់ដឹងរូបមន្ត Macro ដែលបងចងកម្មវិធីនឹង បើបងមិនបង្ហាញរូបមន្តនឹងក៏ខ្ញុំមិនអាចធ្វើបានដែរ

[@reancomputer101]

+Noun Samnang good

[@Samnang_Noun]

ចាំបងជួយបង្ហាញផង សូមអរគុណទុកជាមុន

[@ventang3116]

តើខ្ញុំអាចស្នើសុម កូដសំរាប់បំលែងលេខដែលមានក្បៀសទៅជាអក្សរខ្មែរ និងអង់គ្លេសបានដែរឬទេ? អរគុណ!

[@reancomputer101]

អូរ អត់មានកូដទេ

[@penvannaofficial]

សូមសួរ១បង EX យើងមានsheet 2 , sheet ទី 1 ជាឈ្មោះblack list . យើងចង់វាយsheet ទី1 ហើយអោយលោតឈ្មោះក្នុងblack list នៅsheet 1 បើសិនជាមានឈ្មោះក្នុងsheet 2នឹង. តើយើងធ្វើយ៉ាងមិចដែរបង?

[@reancomputer101]

មិនសូវយល់ទេ សូមផ្ញើសារជាសំឡេងបាន មកកាន់ហ្វេសប៊ុកផេក

[@CAM-IT]

អរគុណសំរាប់ការចែករំលែកចំណេះដឹងដោយអិតគិតថ្លៃ,​វាល្អសំរាប់អ្នកគ្មានពេលរៀននៅសាលា

[@reancomputer101]

អរគុណច្រើន វាពិតជាល្អសម្រាប់អ្នកសិក្សាទូទៅឬអ្នកធ្វើការដែលចងដឹងបន្ថែម 🙏🙏🙏

[@bousovansophea4343]

របៀបដូរលេខខ្មែរ​ទៅ​លេខ​សកល​ធ្វើ​មិច​លោកគ្រូ​

[@reancomputer101]

ជាទូទៅគ្រាន់តែប្តូរ Font បានតែម្តង

[@sambathri8006]

សួស្ដីបង តើយើងអាចរៀនvbaដំបូងតាមវិធីណា

[@momchhon3316]

សូមលោកគ្រូជួយធ្វើវីដេអូទាក់ទងនឹង Stock controller និង ការបើកប្រាក់បៀវត្សបុគ្គលិក ឫ កម្មករផង

[@reancomputer101]

Stock controller គឺជាកម្មវិធីធំមួយហើយវាត្រូវសិក្សាលំអិតទៅតាមតម្រូវការកន្លែងនីមួយៗ យើងអាចត្រឹមធ្វើជាឧទាហរណ៍លើការការបើកប្រាក់បៀវត្សបុគ្គលិក ឫ កម្មករ

[@bomaratha2204]

សូមលេខទូរស័ព្ទ​ បានទេ​ក្រុមហ៊ុនខ្ញុំធ្វេីការងាររាល់​ ចង់ខលដេីម្បី​ ជួលសេវាកម្មពីបង

[@reancomputer101]

thank you for contact us

[@satpov4996]

ចុះបំលែងលេខជា ភាសាខ្មែរ លោកគ្រូ ធ្វើមិច?

[@reancomputer101]

សូមជួយបញ្ជាក់បន្ថែមបន្ទិចបានទេ? អរគុណ​ 😍

[@satpov4996]

@@reancomputer101 លោកគ្រូ ចង់និយាយថា យើងមានតួរលេខហើយ តែចង់ឲ្យលេខនោះបំលែងជាអក្សរខ្មែរ ត្រូវធ្វើយ៉ាងមិច? ឧៈ 10,000 រៀល ជាអក្សរ (ដប់ពាន់រៀលគត់) អរគុណ

[@khfishingcollection]

នៅក្នុងភាសា​ Accounting ដូចអត់ដែលមាន​ Ten Dollars and No cent ចឹងទេ​ បេី​ 10$ គេអានថា​ ដប់ដុល្លារគត់​ ហេីយ​

[@reancomputer101]

ខ្ញុំមិនមានជំនាញផ្នែកនឹងទេ ហើយនេះជា code ស្តងដារដេលបានដកស្រង់ពី Microsoft យើងងាច Modify វាបានដោយបន្ថែម code

[@malypao3763]

សួស្តីបង ខ្ញុំចង់ដាក់វង់ក្រចកនៅជុំវិញអក្សរ Ex.1,000'000 (មួយលាន រៀលគត់)

[@reancomputer101]

មិនទាន់បានរៀបចំជាភាសាខ្មែរទេ

[@karykara3210]

how to convert number to khmer character

[@reancomputer101]

hi you mean from 1 to ១ and 2 to ២?

[@camlogical9528]

@@reancomputer101 បងមានគន្លឹះធ្វើបែបនេះទេ?