ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Phantae06
Member
Posts: 94 Joined: Sun Apr 01, 2012 9:47 amExcel Ver: 2010,365
#1
Post
by Phantae06 Mon Apr 09, 2012 7:38 pm
ผมอยากทราบว่า มี สูตร ไหมครับ ที่จะทำให้เราออกจากโปรแกรม โดยการคลิก ที่เวล N17
You do not have the required permissions to view the files attached to this post.
songsug
Member
Posts: 71 Joined: Wed Apr 04, 2012 11:22 amLocation: สมุทรสาคร
#2
Post
by songsug Mon Apr 09, 2012 7:48 pm
เอา VBA แทนได้ไหมครับ เวลาคลิกไปโดนคำว่า ออกจากโปรแกรม มันจะปิดให้ ถ้าเรื่อง Links ผมไม่แน่ใจครับ ลองถามอาจารย์อีกทีนะ
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = "ออกจากโปรแกรม" Then
If MsgBox("แน่ใจหรือที่จะปิดไฟล์", vbQuestion + vbYesNo, "ปิดไฟล์.") = vbNo Then Exit Sub
ActiveWorkbook.Close (False) ' ปิดแบบไม่ SAVE นะ
End If
End Sub
snasui
Site Admin
Posts: 31178 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#3
Post
by snasui Tue Apr 10, 2012 7:04 am
ไม่มี Link สำหรับปิดโปรแกรมครับ สามารถทำด้วย VBA อย่างที่คุณ songsug ตอบไปแล้วครับ
Phantae06
Member
Posts: 94 Joined: Sun Apr 01, 2012 9:47 amExcel Ver: 2010,365
#4
Post
by Phantae06 Tue Apr 10, 2012 7:39 am
ขอบคุณครับ จะลองดู เพราะ มีความรู้เรื่อง VBA น้อยมาก
Phantae06
Member
Posts: 94 Joined: Sun Apr 01, 2012 9:47 amExcel Ver: 2010,365
#5
Post
by Phantae06 Tue Apr 10, 2012 7:48 am
ขอโทษครับ ผมเปลี่ยนภาษาที่ใช้ในการพิมพ์ไม่ได้ครับ ไม่ทราบว่าจะเปลี่ยนเป็นภาษาไทยอย่างไร
songsug
Member
Posts: 71 Joined: Wed Apr 04, 2012 11:22 amLocation: สมุทรสาคร
#6
Post
by songsug Tue Apr 10, 2012 7:56 am
ที่หน้า VBE (หน้าที่ใช้เขียน Code ) เลือกที่ Tool - Options - เลือก Tab Editor Format ที่ Font ให้เลือกตัวที่ลงท้ายด้วย Thai ครับ ผมใช้ AngsanaUPC แล้วก็เลือกขนาดรับ ลองดูนะ
You do not have the required permissions to view the files attached to this post.
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
คำแสดงเจตนา
