: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

code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

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: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#16

by sutham » Mon Jun 08, 2015 9:01 pm

ใช่เลย. ในที่สุดก็ทำได้แล้วครับ ขอบคุณสำหรับคำแนะนำครับ

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#15

by snasui » Mon Jun 08, 2015 7:12 pm

:D ลองสังเกตที่ผมเขียนไปใหม่ทุกอักขระว่าผมเขียนไว้อย่างไร ให้เขียนในรูปแบบนั้นทุกประการ มีอักขระใดบ้างก็ใส่ให้ครบ อย่าไปลดทอนหรือเพิ่มเติมจากนั้นครับ

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#14

by sutham » Mon Jun 08, 2015 6:17 pm

snasui wrote::D ปรับ Code เป็นด้านล่างครับ

If Target.Address = "$F$6" Then
ผมได้นำ code ตามที่ อ. แนะนำ ไปประยุกต์ใช้แล้ว แต่ไม่เกิดการเปลี่ยนแปลง ไม่ทราบว่าเกิดจากสาเหตุใด โดย code ที่ผมปรับ คือ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "e6" Then
MsgBox "คุณมีการเปลี่ยนแปลงค่า", vbInformation
        Range("h10").Select
    End If
End Sub
รบกวนขอคำแนะนำอีกครั้งครับ
Attachments
เปลี่ยนค่าใน cell.xlsm
(13.78 KiB) Downloaded 15 times

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#13

by snasui » Sun Jun 07, 2015 10:27 pm

:D ปรับ Code เป็นด้านล่างครับ

If Target.Address = "$F$6" Then

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#12

by sutham » Sun Jun 07, 2015 11:32 am

DhitiBank wrote:ลองปรับโค้ดเป็นแบบนี้ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ F", vbInformation
    ElseIf Target.Column = 8 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ G", vbInformation
    End If
End Sub
ตามโค้ดนี้ผมทำได้แล้วครับ
แต่มีคำถามอีกนิดนึงครับ ว่า หากเราเจาะจงเฉพาะในช่วงเซลล์ได้หรือไม่ เช่น ให้เตือนเมื่อค่าใน f6 เปลี่ยนแปลงเท่านั้น ผมลงปรับโค้ดเป็น

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("f6").Select Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลใน F6", vbInformation
    End If
End Sub
ก็ยังไม่ได้ตามที่ต้องการเพราะไม่ว่าเซลล์ไหนเปลี่ยน จะขึ้นเตือนหมดเลย รบกวนเพิ่มเติมด้วยครับ :D

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#11

by sutham » Mon Apr 27, 2015 2:48 pm

:thup: ขอบคุณครับ เพิ่มเติมความรู้ให้ผมได้เยอะเลย :cp:

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#10

by snasui » Mon Apr 27, 2015 1:38 pm

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

Sheet1.TextBox1.Value = ""

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#9

by sutham » Mon Apr 27, 2015 1:32 pm

พอทำไปเรื่อยๆ มีปัญหาที่พบเจออีกครับ ที่ทำไม่ได้
คือ ผมได้สร้าง textbox ชื่อว่า textbox1 โดยสร้างจาก ตัวควบคุม ActiveX
ซึ่งสิ่งที่ผมต้องการคือ เมื่อเปิด workbook นี้ขึ้นมาครั้งแรก ให้ข้อความใน textbox เป็นค่าว่าง
ผมได้ใช้ code นี้ใน workbook

Code: Select all

Private Sub Workbook_Open()
TextBox1.Value = ""
End Sub
ปรากฎว่าติด error
ช่วยแนะนำด้วยครับ
Attachments
กำหนด textbox เป็นค่าว่า ในครั้งแรก.xlsm
(16.92 KiB) Downloaded 12 times

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#8

by sutham » Mon Apr 27, 2015 1:23 pm

:thup: ผมทำได้แล้วครับ ขอบคุณทุกท่านครับ

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#7

by snasui » Fri Apr 24, 2015 10:19 pm

:D สามารถใช้ Hyperlink มาช่วยได้ครับ โดย

คลิกขวาลงบน Object > Hyperlink > ตรง Type the cell reference คีย์ E4 > คลิก ScreenTip... > ตรง ScreenTip text: คีย์ข้อความที่ต้องกาาร > OK

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#6

by sutham » Fri Apr 24, 2015 9:22 pm

จากที่ลองศึกษาและลองทำ ของผมได้แค่คลิ๊กแล้วแสดงข้อมูล
แต่ที่อยากทำให้ได้ คือ เมื่อเมาท์เลื่อนไปอยู่บน แล้วแสดงข้อความ เมื่อเอาเมาท์ออกข้อความก็หายไป
สิ่งที่ผมทำได้อยู่ใน sheet1 ซึ่งผมใช้ code นี้ครับ

Code: Select all

Sub สี่เหลี่ยมมุมมน6_Click()
Sheet1.Shapes("TextBox 7").Visible = msoTriStateToggle
End Sub
Attachments
ป้่ายชื่อไอคอน.xlsm
(17.31 KiB) Downloaded 14 times

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#5

by snasui » Fri Apr 24, 2015 7:43 pm

:D ใช้ Information ใน Validation เข้ามาช่วยได้ ดูตัวอย่างที่นี่ครับ http://stackoverflow.com/questions/1762 ... ents-excel

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#4

by sutham » Fri Apr 24, 2015 6:48 pm

รบกวนถามต่ออีกนิดนึงครับ
ใน excel เราสามารถเขียน vba ให้แสดงข้อความเวลาที่เอาเมาท์ไปชี้ได้หรือไม่ครับ
เหมือนกับการทำ hyperlink นะครับ
ถ้าใช้ vba ได้ ขอคำแนะนำด้วยนะครับ เพื่อจะได้นำไปลองเขียนดูครับ
ขอบคุณครับ

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#3

by sutham » Fri Apr 24, 2015 1:38 pm

ขอบคุณครับ ทำได้แล้วครับ

Re: code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#2

by DhitiBank » Fri Apr 24, 2015 1:24 pm

ลองปรับโค้ดเป็นแบบนี้ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ F", vbInformation
    ElseIf Target.Column = 8 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ G", vbInformation
    End If
End Sub

code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

#1

by sutham » Fri Apr 24, 2015 1:06 pm

ผมอยากเขียน code ให้มีการแจ้งเตือนทุกครั้งที่มีการเปลี่ยนข้อมูลในคอลัมน์ F หรือ H
โดยฝึกเขียนจากการศึกษาจากแหล่งต่างๆ ในเว็บ ได้ code ดังนี้

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 1000
If Cells(i, 6) <> "" Or Cells(i, 8) <> "" Then
MsgBox ("คุณเปลี่ยนแปลงข้อมูลในคอลัมน์" & Target.Column)
Exit Sub
Else
Exit Sub
End If
Next i
    Application.EnableEvents = True
End Sub
ไม่แน่ใจว่าจะถูกต้องหรือไม่ เพราะเมื่อ run code แล้วไม่มีข้อผิดพลาด แต่ msgbox ไม่แสดง
จึงขอคำแนะนำด้วยครับ
ขอบคุณครับ :)
Attachments
เปลี่ยนแปลงข้อมูลในคอลัมน์.xlsm
(11.86 KiB) Downloaded 21 times

Top