:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

Search found 804 matches

Go to advanced search

by วังวู ช่ง
Mon Jan 11, 2021 2:13 pm
Forum: Excel
Topic: การรวมที่กำหนด่าตัวรวม
Replies: 4
Views: 1000

การรวมที่กำหนด่าตัวรวม

ความต้องการในตัวอย่างนี้คือ เรามีตัวเลขรวมใดหนึ่งแล้ว เราอยากรู้ว่าผลรวมตัวใหนด้วยที่รวมแล้วออกจำนวนที่เรากำหนด จะใช้สูตรอย่างไร
รบกวนช่วยด้วยครับ
ในตัวอย่างนีคือค่าใดใน A1:A17 ที่รวมกันแล้วออก 7,325,946 ใน D1 ครับ
by วังวู ช่ง
Thu Jan 07, 2021 8:28 am
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

:D ตัวอย่างการปรับ Code ที่ Function GetTents ครับ 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 = "Sib" Case 11: Resul...
by วังวู ช่ง
Wed Jan 06, 2021 8:10 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

snasui wrote: ↑Wed Jan 06, 2021 7:38 pm :D ที่ถูกอ่านว่าอย่างไร เขียนคำอ่านที่ถูกต้องเปรียบเทียบมาในไฟล์ด้วยทุก ๆ ค่าที่จะใช้ทดสอบครับ
ยังเพียงแค่หลักล้าน อ่านผิดครับอาจารย์ แต่ 21,000,000-91,000,000 ครับคือ
21,000,000
31,000,000
41,000,000
51,000,000
61,000,000
71,000,000
81,000,000
91,000,000
เหลือนั้นถูกหมดแล้วครับ ดูใน sheet1 ครับผม
by วังวู ช่ง
Wed Jan 06, 2021 8:46 am
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

21,000,000
31,000,000
41,000,000
.
.
.
91,000,000
อ่านผิดครับอาจารย อ่านว่า ชาวหนึ่งล้านครับ ไม่รู้ว่าจะปรับตรงไหนเลย
by วังวู ช่ง
Wed Jan 06, 2021 8:03 am
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

วังวู ช่ง wrote: ↑Wed Jan 06, 2021 7:26 am 21,452,321 Xao Nueng Lan See San Hasib Song Pan Sam Roi Xao Ed
อ่านตัวนี้ผิดครับท่านอาจารย์ ผมกำลังตรวจครับ
by วังวู ช่ง
Wed Jan 06, 2021 7:26 am
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

21,452,321 Xao Nueng Lan See San Hasib Song Pan Sam Roi Xao Ed
อ่านตัวนี้ผิดครับท่านอาจารย์ ผมกำลังตรวจครับ
by วังวู ช่ง
Wed Jan 06, 2021 7:20 am
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

:D ลองนำ Code นี้ไปปรับดูครับ Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Bahts, Stangs, Temp1, Temp2 Dim DecimalPlace, Count, t As Variant ReDim Place(9) As String Place(2) = " Lan " Place(3) = " Lan " Place(4) = " Lan " Place(5) = " L...
by วังวู ช่ง
Wed Jan 06, 2021 7:05 am
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

:D ลองนำ Code นี้ไปปรับดูครับ Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Bahts, Stangs, Temp1, Temp2 Dim DecimalPlace, Count, t As Variant ReDim Place(9) As String Place(2) = " Lan " Place(3) = " Lan " Place(4) = " Lan " Place(5) = " L...
by วังวู ช่ง
Tue Jan 05, 2021 8:09 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

อาจารย์ครับ ก็อถือว่าโอเคแล้วครับ แต่อยากรบกวนช่วยดูให้ตรงที่ว่า Result = Result & GetDigit(Mid(MyNumber, 2, 1)) & " Muen " ลาวจะไม่ค่อยพูดว่าหมื่น ลาวจะชอบพูดว่าแบบนี้ครับ 10,000 สิบพัน 20,000 ชาวพัน 30,000 สามสิบพัน . . . . 90,000 เก้าสิบพัน Result = Result & GetDigit(Mid(MyN...
by วังวู ช่ง
Tue Jan 05, 2021 12:14 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

:D ขอสอบถามเพิ่มเติมว่า ตรงหลักพันหรือหลักอื่นใดก็ตาม เมื่อใดจะอ่านว่าเอ็ด เมื่อใดจะอ่านว่าหนึ่งครับ หลักพันขื้นไป และ หลักสิบเชั่นว่า #1, #,100, #1,000, #10,000.........อ่านว่าเอ็ด ตัวอย่าง 11; 21; 2,100; 31,000; 510 ,000 อ่านว่า สิบเอ็ด, ชาวเอ็ด, สองพันเอ็ด, สามสิบเอ็ดพัน หรือ สามหมื่นเอ็ด, ห้าแส...
by วังวู ช่ง
Mon Jan 04, 2021 11:33 am
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

:D ปรับ Code ช่วง Select Case Bahts เป็นด้านล่างครับ 'Other code Select Case Bahts Case "" Bahts = "Soon Bahts" Case "Nueng" Bahts = "Nueng Baht" Case Else If Right(Bahts, 6) = " Nueng" Then Bahts = Left(Bahts, Len(Bahts) - 6) & " Ed Bahts&...
by วังวู ช่ง
Sun Jan 03, 2021 10:00 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

:D ผมปรับ Code เป็นภาษาคาราโอเกะให้แล้วตามด้านล่าง ลองนำไปปรับใช้ดูครับ Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Bahts, Stangs, Temp1, Temp2 Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Lan " Place(3) = " Lan " Place(4) = " La...
by วังวู ช่ง
Sun Jan 03, 2021 2:01 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

snasui wrote: ↑Sun Jan 03, 2021 1:54 pm :D แนบไฟล์ที่มี Code มาด้วยจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ
by วังวู ช่ง
Sun Jan 03, 2021 1:50 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

Option Explicit 'Main Function Function SpellNumberTotext(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = "rao" Place(3) = "]hko" Place(4) = "8N" Place(5) = "rao8N" ' String representation of amount. MyNumb...
by วังวู ช่ง
Sun Jan 03, 2021 1:43 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

:D ผมเข้าใจว่าใช้ภาษาไทยในการเขียน VBA ได้ครับ เมื่อเขียน VBA ด้วยภาษาไทยได้ก็เขียนด้วยภาษาไทยได้เลย ส่วนการแสดงผลใน Worksheet ให้ใช้ Font ลาว ใน Worksheet เราจะเลือกได้ว่าใช้ Font รูปแบบลาวหรือไทยหรืออื่น ๆ ครับ ออ ครับผม คงไม่ได้ครับอาจารย เพราะ เมื่อออกมาเป็นไทยแล้ว ใช้ font ไหนก็อเป็นภาษาไทยอยู...
by วังวู ช่ง
Sun Jan 03, 2021 1:15 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

snasui wrote: ↑Sat Jan 02, 2021 7:09 pm
วังวู ช่ง wrote: ↑Fri Jan 01, 2021 5:36 pm...อยากถามที่ว่า เราเขียน VBA ภาษาลาวไม่ได้ อยากขอความช่วยเหลือด้วยครับ
:D หากเขียนเป็นภาษาไทยแทนแล้วใช้ Font ลาวในการแสดงผลพอจะช่วยได้ไหมครับ
ที่อาจารยถามนี้ ผมเองยังไม่รุ้ว่าจะแทนแบบไหนอย่างไรเลยคับ หรือ เป็นไทยแล้วแปลเป็นลาวใช้ไม่ครับอาจารย หรือ เขียน code ปรับเป็นลาวครับ
by วังวู ช่ง
Fri Jan 01, 2021 5:36 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

ปรับได้แล้วครับ ขอบคุณมากครับ
อยากถามที่ว่า เราเขียน VBA ภาษาลาวไม่ได้ อยากขอความช่วยเหลือด้วยครับ
by วังวู ช่ง
Thu Dec 31, 2020 8:21 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = "rao" Place(3) = "]hko" Place(4) = "8N" Place(5) = "rao8N" ' String representation of amount. MyNumber = T...
by วังวู ช่ง
Thu Dec 31, 2020 8:08 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

Re: สูครแปงตัวเลขเป็นคำ

puriwutpokin wrote: ↑Thu Dec 31, 2020 5:30 pm ต้องการให้คำอ่าน อ่านตัวเลขมาเป็นแบบไหนครับ ลองใส่ตัวอย่างคำนั้นๆมาดูครับ
หรือตัองการแค่คำที่มีแต่ตัวเลขก็ใช้เป็น
A1=SUBSTITUTE(BAHTTEXT(A1),"บาทถ้วน","")
ยังไม่ใช้ครับผม
by วังวู ช่ง
Thu Dec 31, 2020 12:52 pm
Forum: Excel
Topic: สูครแปงตัวเลขเป็นคำ
Replies: 30
Views: 4045

สูครแปงตัวเลขเป็นคำ

เราอยากทำตัวเลขเป็นคำนั้น เราใช้ =BAHTTEXT() แต่พอดีผมไม่อยากใช้สูตรนี้ครับ เราจะใช้สูตรอื่นได้ หรือ เปล่าครับ

Go to advanced search