Excel Forum

ยกตัวอย่างเช่น เปิดไฟล์ Book1.xlsx ขึ้นมา แล้วไม่ได้ทำอะไร พอปิดไปไฟล์นี้จะไปอยู่ที่ C:\Data แต่หากมีการคีย์ข้อมูล หรือเปลี่ยนแปลง ให้ไฟล์ Book1.xlsx ไปอยู่ที่ C:\Data\Check เป็นต้นครับ

ขอคำสั่ง VBA กรณีเปิดไฟล์ขึ้นมาแล้วไม่ได้ทำอะไร ให้ทำแบบที่1 ถ้ามีการเปลี่ยนแปลงข้อมูลให้ทำแบบที่ 2 รบกวนด้วยครับ

ขอบคุณมากครับ แต่ที่ทดสอบมัน Error ตรงนี้ครับ รบกวนด้วยครับ

ไม่เป็นแล้วครับ ไม่ทราบว่าเหตุใดเหมือนกัน

วิธีการคือ ต้องการเรียงข้อมูลใหม่ ในกรณีที่มีการเปลี่ยนแปลง จากที่ยกตัวอย่างถ้า ลบ Cells ที่เป็นตัวอักษรสีแดง ระบบจะต้อง เรียงกันใหม่ให้ถูกต้องครับ ขอบคุณครับ

คิดว่าน่าจะเป็น Do loop แต่ไม่รู้จะปรับอย่างไรดีครับ

Sub SortData()
Dim SortData As String

Sheets.Add
ActiveSheet.Name = "SortData"

Sheets("Data").Select
Range("A10:A17").Select
Selection.Copy
Sheets("SortData").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Data").Select
Range ...

ขอบคุณครับ

ด้วย VBA ติดปัญหาว่า run ไม่ผ่านเหมือนคำสั่งไม่ถูกต้อง รบกวนอาจารย์แนะนำด้วยครับ

Sub Button3_Click()
Dim Credit As Integer
Dim Credit1 As Integer
Dim Lrow1 As Integer

Lrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

Credit = Cells("B" & Lrow)
Credit1 = Cells("C" & Lrow)

Cells("E5 ...

logic wrote:ลองดู Code นี้ครับ

Code: Select all

Confirm = MsgBox("คุณต้องการแก้ไขข้อมูลใช่หรือไม่ !?", vbYesNo + vbDefaultButton2)

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

ขอความหมายของคำสั่งนี้หน่อยครับอาจารย์

Application.EnableEvents = False

สำหรับ Code ใช้งานได้ครับ มีเพิ่ม Application.EnableEvents = True เข้าไปหลังคำสั่งอีกที่ตรง Application.Undo ก็สมบูรณ์ครับ ขอบคุณครับ

และถ้าต้องการให้ตอนถาม Yes No ให้สถานะเตรียมไปอยู่ตรง No ต้องทำอย่างไรครับ

1. ใส่หัวให้ข้อมูลก่อน เช่น รหัสลูกค้า
2. ไปที่ Data>Filter>Advance Filter
3. เลือก Copy to another location
4. List range : ให้เลือกข้อมูลที่ต้องการทำ
5. Copy to: ให้เลือก Cell ที่ต้องการแสดงผลลัพธ์ สมมุติเลือก D1
6. ให้ติ๊กถูกที่ช่อง Unique records only
7. กด Ok เป็นอันเสร็จสิ้น

ทำการแก้ไขเรียบร้อยแล้วครับ รบกวนด้วยครับ

:D ค่อย ๆ ถามตอบกันไปครับ

จากไฟล์ที่แนบมา ผมคีย์ 12-12345 ซึ่งมีในฐานข้อมูลคือชีท DATA แต่โปรแกรมฟอ้งว่าไม่มีในฐานข้อมูล แก้ตรงนี้ก่อนครับ

จากต้นฉบับไม่เป็นครับ แต่พอ Copy ไฟล์มาแล้วลบข้อมูลจริงออกแล้วใส่ข้อมูลใหม่ไป กลับหาไม่เจออย่างที่อาจารย์ว่าไว้จริง ๆ ถ้ายังไงผมจะพยายามแก้ไขตรงนี้ก่อนแล้วก ...

:D ช่วยอธิบายวิธีการทดสอบ ค่าที่ใช้ในการทดสอบ ผลที่ได้ ผลลัพธ์ที่ต้องการมาด้วยครับ

วิธีการทดสอบครับ

1. ให้ไปที่ Sheets "ม.ค." แล้วคีย์ที่ Column A โดยลองไปดูข้อมูลใน Sheet "DATA" ที่เป็นฐานข้อมูลมาสัก 1 Record แล้วคีย์เลขที่รหัสลงไป เช่น 11-12345 ระบบจะดึงข้อมูลใน ColumnB จนถึง column สุดท้ายใน ...

แนบไฟล์ตัวอย่างมาแล้วครับ

เมนูที่ใช้คีย์ข้อมูลคือ Sheets "ม.ค." ครับ โดยคีย์ข้อมูลที่ Column A แล้วระบบไปจะไปดึงข้อมูลใน Sheets "DATA" มาใส่ให้ครับ รบกวนอาจารย์ด้วยครับ

Dim Confirm as Integer
If Target.Column = 1 Then
Confirm = MsgBox("Are you sure?",VbYesNo)
End if
If Confirm = VbYes then
'Do something
Else
Application.Undo
Exit Sub
End If

ขอบคุณครับอาจารย์ ขออภัยที่ตอบช้าครับ จากการทดสอบ ถ้ากรณีตอบ No ระบบจะวนถามคำถามเดิมตลอดครับ ต้องตอบ Yes ถึงจะหลุดจาก ...

ขออภัยอาจารย์ที่ผมให้ข้อมูลไม่ชัดเจนครับ คือ ผมต้องการให้

1. เมือคีย์ที่ ColumnA แล้วให้ไปเช็คว่า ColumnB ในแถวเดียวกันมีข้อมูลอยู่หรือเปล่า
2. ถ้ามีข้อมูลอยู่ให้ถามว่าต้องการแก้ไขหรือไม่
3. ถ้าไม่ต้องการแก้ไขให้ ColumnA ยังคงข้อมูลตั้งแต่แรกก่อนที่คีย์ข้อมูลใหม่ใน ColumnA
4. ถ้าต้องการแก้ไข ก ...

ให้ระบบแจ้งว่าต้องการเปลี่ยนแปลงหรือไม่ ตรวจสอบอย่างไรดีครับ โดยที่ พอคีย์ ColumnA ระบบจะถามก่อนที่ข้อมูลใน ColumnA จะเปลี่ยนแปลง รบกวนด้วยครับ

If Target.Column = 1 Then

With Sheets("Á.¤.")
Set rCheck = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
End With

With Sheets("Data")
Set Rng ...

ขอบคุณครับ คุณ Bank9597 ผมไปคิดสูตรจากคุณได้มาเพิ่มอีกสูตรครับ =Small(A1:A20,2)

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

bank9597 wrote:ที่เซลล์ใดๆ คีย์ =SMALL(A1:A20,COUNT(A1:A20)-1)

ขอบคุณครับ ผมก็ไปใช้สูตร Min แล้วสร้างเงื่อน +1 ไปเรื่อย ยุ่งยากมาก ขอบคุณครับ