: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

ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#14

by akekorn » Sat Dec 05, 2015 8:57 am

ครับผมขอบคุณครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#13

by snasui » Sat Dec 05, 2015 8:53 am

:D ลองทบทวนสิ่งที่ผมตอบกับสิ่งที่กำลังทำว่าคือสิ่งเดียวกันหรือไม่อีกรอบครับ

Change กับ SelectionChange นั้น ไม่เหมือนกันนะครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#12

by akekorn » Sat Dec 05, 2015 8:50 am

ครับผมแต่พอเปลี่ยนไป cell อื่นมันจะขึ้นฟ้องตลอดหากไม่ใส่ค่าใน cell c2 ที่เป็นพศ หรือ คศ ครับ
มีวิธีไหนที่แก้ไขได้ไหมครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#11

by snasui » Sat Dec 05, 2015 8:47 am

:D การทำงานในลักษณะนั้น ใช้ Change Event มาช่วยได้ครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#10

by akekorn » Sat Dec 05, 2015 8:43 am

ผมขอคำปรีกษาเพิ่มครับคือผมได้ปรับ code นี้ไปใช้ใน event worksheet selectionchage หากใน cell C2 ไม่มีตัวเลข หรือเป็น ตัวอักษร มันจะขึ้นข้อความ
"กรุณาระบุปี พศ หรือ ปี คศ " ตลอดเวลา สิ่งที่ผมอยากได้คือ หากเปิดฟอร์มนี้ขึ้นมา หากยังไม่ถึงใน cell ที่ตัองใส่ปีพศ ยังไม่ต้องมีข้อความคำเตือน
ต่อเมื่อถึงcell ดังกล่าวแล้วไม่ใส่ หรือใส่ผิดประเภทจึงเกิด ข้อความ"กรุณาระบุปี พศ หรือ ปี คศ " ผมควรใส่ใน event ใดดีครับ
ผมมีข้อสงสัยด้วยครับเพราะใน worksheet มีหลาย event ที่คล้ายกัน แต่คิดว่่าคงมีอะไรแตกต่างกันบ้าง เช่น event change กับ selectchange
อยากทราบครับว่าแต่ละ event ใช้ในเวลาใดบ้าง ต่างกันอย่างไรครับ
ขอบคุณครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#9

by akekorn » Fri Dec 04, 2015 11:26 pm

ขอบคุณมากๆครับผม

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#8

by snasui » Fri Dec 04, 2015 11:17 pm

:D ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Dim x As Variant, y As Integer
With Sheets("Sheet1")
    x = .Range("c2").Value
    If Len(x) < 4 Or IsNumeric(x) = False Then
        MsgBox "กรุณาระบุปี พศ หรือ ปี คศ "
        Exit Sub
    End If
    If x > 2400 Then
        y = x - 543
    Else
        y = x
    End If
    .Range("e2").Value = DateSerial(y, .Range("b2"), .Range("a2"))
End With
ส่วน Error Description มีความหมายว่าอย่างไรบ้าง ให้เพิ่ม Code เช่น msgbox err.description แล้วอ่านจากที่โปรแกรมแสดงข้อความครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#7

by akekorn » Fri Dec 04, 2015 10:58 pm

ครับผมได้เพิ่ม การดัก error แต่มันไม่ได้ตามที่ต้องการ ครับ
อีกเรื่องผมรบกวนขอ error drescription แต่ละแบบว่ามีความหมายว่าอะไรบ้างครับ
ขอบคุณครับ
Attachments
Book1.xlsm
(19.69 KiB) Downloaded 7 times

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#6

by snasui » Fri Dec 04, 2015 10:47 pm

:D ลองปรับมาเองจากที่ผมเขียนไปให้ ติดตรงไหรค่อยนำมาถามกันต่อครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#5

by akekorn » Fri Dec 04, 2015 10:46 pm

ขอบคุณครับ
แต่ผมอยากรบกวนเพิ่มครับคือหาก ใน cell C2 ไม่มีค่า หรือ มีตัวเลขที่ไม่ครบสี่หลัก หรือ เป็นตัวอักษร
จะเช็ค Error ได้ยังไงครับผม

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#4

by snasui » Fri Dec 04, 2015 10:38 pm

:D หัวข้อกระทู้ควรจะเขียนให้สื่อถึงคำถามเกี่ยวกับ "การจัดการวันที่ด้วย VBA" นะครับ

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#3

by snasui » Fri Dec 04, 2015 10:34 pm

:D ตัวอย่างการปรับ Code ครับ

Code: Select all

Dim x As Integer, y As Integer
With Sheets("Sheet1")
    x = .Range("c2").Value
    If x > 2400 Then
        y = x - 543
    Else
        y = x
    End If
    .Range("e2").Value = DateSerial(y, .Range("b2"), .Range("a2"))
End With

Re: ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#2

by akekorn » Fri Dec 04, 2015 10:28 pm

ขออธิบายเพิ่มครับคือ cell E2 วดป กลับไม่ใช่ ค่า ที่อยู่ใน cell A2 B2 C2 คือวันที่ 1/Jan/1973
ขอบคุณครับ

ขอความช่วยเหลือ เรื่อง VBA ที่ทำครับ

#1

by akekorn » Fri Dec 04, 2015 10:22 pm

สวัสดีครับเพื่อนสมาชิกทุกท่าน
วันนี้ผมมีปัญหามา ขอความช่วยเหลือครับ
คือผมต้องการเช็คข้อมูลวันเดือนปี โดยใส่แยก แต่ละ cell อย่างตัวอย่างคือ
A2 สำหรับวัน B2 สำหรับเดือน C2 สำหรับปี แต่ให้ระบุเป็นได้ทั้ง พ.ศ. หรือ ค.ศ. ได้ทั้งสองอย่าง
แต่ Code ที่ผมทำกลับไม่ได้ตามที่ต้องการ จึงขอความช่วยเหลือมายังเพื่อนสมาชิกทุกท่านครับ
โดยได้แนบ file มาด้วยครับ

ขอบคุณครับ
Attachments
Book1.xlsm
(19.73 KiB) Downloaded 8 times

Top