Үгээр тоо c. Excel-д тоо, тоо, тоог үгээр хэрхэн бичих вэ. Excel дээр том эсвэл жижиг үсгээр пеннитэй үгээр бичсэн тоонууд

Төрөл бүрийн тайланг харуулахдаа тоон утгыг үгийн мөр болгон хөрвүүлэх шаардлагатай болдог. 1С-д үүнийг маш энгийнээр шийддэг: үүний тулд Үг дээрх Number () функцийг өгсөн болно.

Үгээр тоог бүрдүүлэхдээ түүний хажууд шаардлагатай хүйс, тохиолдлоор энэ тоог тооцоолох сэдвийг харуулах боломжтой. Тооцооллын сэдэв- Энэ бол хөрвүүлсэн тоо нь мөнгө, хайрцаг, вагон, телевизор гэх мэтийг хэмждэг.

• Тооцооллын сэдэвгүйгээр:
  • Хорин хоёр;
  • Гурван зуун наян дөрөв.
• Тооцооллын сэдвээр:
  • Гучин найман дублон;
  • арван хоёр хөлөг онгоц;
  • Хоёр байшин.

Жишээ

Эхлэхийн тулд бид 1С-ийн чадварыг олж мэдэхийн тулд хөрвүүлэх жишээг өгье.

Функцтэй ажиллах ажлын тодорхойлолт

Бидний олж мэдсэнээр тоог үгээр авахын тулд функцийг ашигладаг

Функц нь мөрийн утгыг буцаана. Дараахыг оролтын параметр болгон дамжуулсан:

• Тоо нь хөрвүүлэх утга юм;
• FormatString - форматлах сонголтууд:
  • L - Локалчлалын код (жишээлбэл, u_RU - Орос; en_US - Англи, de_DE - Герман). Үйлдлийн системийн тохиргоог анхдагч байдлаар ашигладаг.
  • NP - Тооцооллын сэдвийн нэрийг харуулах, анхдагчаар - Үнэн.
  • ND - Тооцооллын субьектийн аравтын бутархайн нэрийг харуулах, анхдагчаар - Үнэн.
  • DP - Бутархай хэсгийг үг/тоогоор харуулах, анхдагчаар - Худал.
  • AI - Гаралтын нэгдэл ба. Зөвхөн англи хэлний нутагшуулалтад дүн шинжилгээ хийсэн. Боломжит утгууд: "Ашиглахгүй", "Ашиглах".
• CalculusItemParameters - тооцооллын объектын параметрүүдийг таслалаар тусгаарласан тоолол. Формат нь тухайн бүс нутгаас хамаарна.

Орос хэлний хувьд тооцооллын объектын параметрүүд нь "рубль, рубль, рубль, м, копейк, копейк, копейк, ф, 2" хэлбэртэй байна. Үүнд:

• рубль - ганц нэр томъёо;
• рубль - ганц бие;
  рубль - олон тооны генитив;
  m - эрэгтэй (g - эмэгтэйлэг, s - саармаг);
  "пенни, пенни, пенни, w" - тооцооллын сэдэвтэй төстэй бутархай хэсэг (байхгүй байж болно);
  "2" - бутархай хэсгийн цифрүүдийн тоо (байхгүй байж болно, анхдагч нь 2).

Ердийн шийдэлд ашиглах

-д суурилагдсан тохиргоонд, нийтлэг модульд Валютын ханшфункц байдаг

Энэ функц нь валютын дүнг үгийн мөр болгон хөрвүүлэхэд ашиглагддаг.

Танд асуух зүйл байна уу?
Нийтлэлийн сэтгэгдэл дээр асуугаарай.

Хэрэв та ямар нэг зүйлийг англи эсвэл орос хэл дээр загалмайгаар хэрхэн бичсэн талаар эргэлзэж байвал тоонуудын хувьд манай орчуулагчийг ашиглана уу. Орчуулга хийхийн тулд шаардлагатай тоог тоон хэлбэрээр оруулаад программ нь түүний бичсэн хэлбэрийг тооцоолно.

Одоогийн байдлаар орчуулагчийн хязгаар нь аравтын бутархайн 18 орон (бүхэл тоон утгуудын хувьд), аравтын бутархайн дараа 18 орон (бутархай хэсэг агуулсан утгыг орчуулах) байна.

Тоо:

Дээр дурдсанчлан орчуулсан тоонд англи хэлний хэд хэдэн зөв бичгийн дүрмийг оруулсан болно. Тэдгээрийн тусламжтайгаар та Америкийн англи (AmE) болон Британийн англи (BrE) хоёрын ялгааг ялгаж чадна. Тэд тус бүрийн хувьд хэд хэдэн зөв бичгийн сонголтыг өгөх боломжтой бөгөөд аль нь өгүүлбэрийн контекстээс хамаарч текстэд аль нь ашиглах вэ.

Энэ програм нь тоонуудыг текст болгон орчуулахад хялбар байдаг Англи хэлэнд, мөн орос хэл дээр. Тэдгээр. Хэрэв та дугаарыг орос хэл дээр үгээр бичих шаардлагатай бол тоон хэлбэрээр оруулаад "Орчуулах" товчийг дарна уу.

Тэмдэглэгээ

Орос хэл рүү орчуулахдаа орчуулагч нь хүйсийн өөрчлөлтийг харгалзан үздэг өгсөн дугаар, эдгээрийг дараах дүрсээр тэмдэглэв.
- эмэгтэйлэг, - эрэгтэй, - саармаг.

Манай программ тооноос гадна янз бүрийн мөнгөн дүнг үгээр хэрхэн бичихийг мэддэг. Энэ тохиолдолд шилжүүлгийг рубль, доллар, фунт стерлинг гэсэн гурван өөр валютаар шууд хийдэг.

Уг товчлуур нь "Үгээр тоо" болон "Үгээр тоо" горимуудын хооронд шилжихэд хэрэглэгддэг.

Юуны өмнө бид англи хэл сурах хүмүүст анхаарлаа хандуулдаг. хэл, гэхдээ энэ орчуулагч өөр хэн нэгэнд хэрэгтэй бол (жишээлбэл, бизнесийн баримт бичгийг бөглөх үед) бид маш их баяртай байх болно.

Excel-д тоонуудыг үгээр бичих нь маш түгээмэл ажил юм. Excel-д одоохондоо суулгасан функц байхгүй тул бид тоо, тоог текстээр солих тусгай функцийг үүсгэж болно.

Дүрмээр бол энэ нь худалдаа, нягтлан бодох бүртгэл болон төлбөр тооцоо хийдэг бусад газарт шаардлагатай байдаг бэлнээр. Ихэвчлэн зурган дээрх шиг (эхний жишээ) рублийн дүнг үгээр шилжүүлэх шаардлагатай байдаг.

Хүснэгтэнд хэд хэдэн тооцоо хийж, нийт дүнг 1526.23 рубльд авлаа гэж бодъё.

Бид энэ тоог рублиэр бичих хэрэгтэй бөгөөд пенниийг бас зааж өгөх нь зүйтэй юм. Үүнийг хийхийн тулд бид иймэрхүү харагдах бүх нийтийн хэрэглэгчийн тодорхойлсон тусгай функцийг бий болгоно

Propis(Хүн ;Мөнгө ;lang ;Prec )

Мөнгө - валютын төрлийг энд зааж өгсөн болно, та рубль, доллар, еврог ("RUB", "USD", "EUR") зааж өгч болно - валютыг хашилтанд оруулах ёстой.

lang - энэ бол та мөнгөө авах шаардлагатай хэл бөгөөд хоёр хэл дээр англи, орос хэлүүд байдаг ("EN", "RU") - бид хашилтанд мөн зааж өгсөн болно.

Prec - бутархай хэсгийг харуулах (1 ) эсвэл харуулахгүй (0 ).

Тиймээс, та рубли, доллар эсвэл еврогийн дүнг Орос, Англи үсгээр, бутархай хэсгийн хамт бичиж болно, харин тооноос хамааран зөв төгсгөлийг оруулах болно, жишээлбэл, 2 рубль, 8 рубль, 1 рубль гэх мэт.

Захиалгат Propis функцийг үүсгэхийн тулд та доорх кодыг хуулж, дараа нь товшино уу ALT+F11 VBA-г нээхийн тулд цэсээр дамжуулан шинэ хоосон модулийг нэмнэ үү Модуль оруулаххуулсан кодыг тэнд буулгана уу

Үгээр нийлбэрийн захиалгат функцийн макро

Тиймээс функцийг үүсгэсэн тул үүнийг ашиглахын тулд Propis нүдэнд шаардлагатай аргументуудыг оруулаарай, жишээлбэл, хэрэв бид дүнг рубль, копейк, орос хэлээр үгээр бичих шаардлагатай бол томъёо нь иймэрхүү харагдах болно.

Пропис(B2;"RUB";"RU";1)

Excel дээр том эсвэл жижиг үсгээр пеннитэй үгээр бичсэн тоонууд

Захиалгат функцийн VBA код энд байна. Хэмжээг kopecks болон эхний том эсвэл жижиг үсгийн сонголтыг үгээр харуул

Функц RubWrite(Dim ed, des, sot, ten, razr, dec гэсэн үгээр нийлбэрийг бичих функц RubWrite(Dim ed, des, sot, ten, razr, dec гэсэн үгээр нийлбэрийг бичих функц) Dim i As Integer, str As String, s As String Dim intPart As String, frPart As String Dim millionEnd, tscEnd, razrEnd, rub, cop dec = Array("", "one", "хоёр", "гурван", " дөрөв ", "тав", "зургаа", "долоо", "найм", "есөн") ed = Массив("", "нэг", "хоёр", "гурав", "дөрөв", "тав", " зургаа", "долоон", "найм", "есөн") арав = Массив("арав", "арван нэгэн", "арван хоёр", "арван гурав", "арван дөрөв", "арван тав", "арван зургаа", "арван долоон" " , "арван найм", "арван есөн") des = Array("", "", "хорин", "гуч", "дөч", "тавин", "жар", "далан", "наян", "ерэн" " ) sot = Array("", "нэг зуун", "хоёр зуун", "гурван зуун", "дөрвөн зуу", "таван зуун", "зургаан зуу", "долоон зуу", "найман зуу", " есөн зуун") razr = Массив("" , "мянган", "сая", "тэрбум") millionEnd = Array("s", " ", "a", "a", "a", "s", "s", "s", "s ", "s") tscEnd = Array(" ", "a", "ба ", "ба ", "ба ", " ", " ", " ", " " , " ") razrEnd = Array(mlnEnd, millionEnd, tscEnd, "") rub = Array("рубль", "рубль", "рубль", "рубль", "рубль", "рубль", "рубль", " рубль", "рубль", "рубль" ) cop = Array(" пенни ", " пенни ", " пенни ", " пенни ", " пенни ", " пенни ", " пенни ", " пенни ", " пенни " , "penny") Хэрэв нийлбэр >= 1000000000000 # эсвэл дүн< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >= 1 Дараа нь intPart = Left$(Формат(нийлбэр, "000000000000.00"), 12) i = 0-ээс 3 сек хүртэл = Mid$(intPart, i * 3 + 1, 3) Хэрэв s<>"000" Дараа нь str = str & sot(CInt(Зүүн$(s, 1))) Хэрэв Mid$(s, 2, 1) = "1" бол str = str & ten(CInt(Right$(s, 1)) ))) Else str = str & des(CInt(Mid$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right$) (s, 1)))) End If on Error Resume Next str = str & IIf(Mid$(s, 2, 1) = "1", razr(3 - i) & razrEnd(i)(0), _ razr(3 - i) & razrEnd(i)(CInt(Right$(s, 1)))) on Alda To To 0 End If Next i str = str & IIf(Mid$(s, 2, 1) = "1 ", rub(0), rub(CInt(Right$(s, 1)))) End If RubProfile = str """"""""""""""" Хэрэв No_kopeks = Худал бол frPart = Баруун$(Формат(Хэмжээ, "0.00"), 2) Хэрэв frPart = "00" бол frPart = "" Үгүй бол Хуулбар бичсэн бол frPart = IIf(Зүүн$(frPart, 1) = "1", арван(CInt( Баруун) $(frPart, 1))) & cop(0), _ des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(Right$) frPart, 1)))) Өөрөөр frPart = IIf(Left$(frPart, 1) = "1", frPart & " " & cop(0), frPart & " " & cop(CInt(Right$(frPart, 1 )) ))) End If End If RubCapital = str & " " & frPart End If """"""""""""""" RubCapital = str & frPart Хэрэв startCapital Дараа нь Mid$(RubCapital, 1, 1) ) = UCase(Mid$(RubCapital, 1, 1)) " Хэрэв startCapital бол RubCapital = UCase(Зүүн(RubCapital, 1)) & Mid(RubCapital, 2) Төгсгөлийн функц

• Копейкгүй (1), копейкгүй (0)
• Үгээр пенни (1), тоо (0)
• Курсгээр эхлэх (0), том үсгээр (1)

Энэ функцийг хэрхэн ашиглахыг энд харуулав

Анхаарна уу

• Энэ функц 0-ээс 99999999 хүртэлх тоонуудтай ажиллах болно
• Кодыг хуулахын өмнө гарын байрлалыг орос хэл рүү шилжүүлнэ үү (Орос текстийг зөв хуулбарлахын тулд)
• VBA кодыг бүх файлд оруулах ёстой ( Excel номууд) хаана ажиллахыг хүсч байна
• Кодоо буулгасны дараа та макро идэвхжүүлсэн xlsm файлыг хадгалах хэрэгтэй (Excel дээр 2007 оны хувилбараас хойш)
• Функцийг гараар бичиж болно, эсвэл хэрхэн бичсэнийг мартсан бол функцийн шидтэн (товчлуур) ашиглан бичиж болно. fx томъёоны мөрөнд, Хэрэглэгчийн тодорхойлсон ангилал)