Snasui Excel Forum

ต้องการเคลียร์ค่าใน drop down ที่ทำการเลือกไว้ ต้องการให้เลือกใหม่ทุกครั้งค่ะ ต้องทำอย่างไรหรอคะ
Private Sub ComboBox1_Click()
'ComboBox for YTD
Application.EnableEvents = False
With Sheets("YTD Performance").ChartObjects("YTD 1").Select
If ComboBox1.Text = "1 Status" Then

Call YTD1


ElseIf ...

ต้องการบันทึกรูปภาพกราฟไปยังโฟลเดอร์ที่ต้องการค่ะ ตอนนี้ที่ได้คือรูปภาพจะเข้าไปอยู่ในโฟลเดอร์ดาวโหลดค่ะ ต้องปรับโค้ดตรงไหน รบกวนให้คำแนะนำทีค่ะ
Sub savechart1()

Dim wk As Variant
Set wk = Sheets("Monthly Performance").Range("$A$12")
If MsgBox("Save chart : Zen Approval status " & wk ...

ขอบคุณสำหรับไอเดียค่ะ ทำได้เรียบร้อยค่ะ

เราสามารถAssign macro ใน drop down list ได้หรือไม่ค่ะ
ยกตัวอย่าง drop down เป็น 1 assign macro ให้เป็นตัวหนังสือสีเเดง
2 assign macro ให้เป็ตัวหนังสือสีเขียว
3 assign macro ให้เป็นตัวหนังสือสีฟ้า
ประมาณนี้ค่ะสามารถทำได้หรือไม่คะ

เนื่องจากได้ทำการสร้างปุ่มและassign macro ไว้ในหน้า home เมื่อทำการทดสอบรันแมโครจากปุ่มแล้วพบว่าชื่อคอลัมน์ R-AL หายไป แต่ถ้ารันแมโครจาก menu bar deverloper ปกตินั้นรันแล้วชื่อคอลัมน์ไม่หาย ไม่ทราบว่าเกิดจากสาเหตุอะไร รบกวนผู้รู้ช่วยทดสอบให้ทีค่ะ

ขอบคุณมากค่ะ

ต้องการเปรียบเทียบค่าในคอลัมน์E ระหว่างสองRow โดยเริ่มจาก Rowที่3 ไปเรื่อยๆจะบรรทัดสุดท้าย และให้แสดงค่าในคอลัมน์ AW
โดย ถ้ามีเปรียบเทียบเเล้ว มีค่าเท่ากันให้=1 ไม่เท่ากันให้=0
ลองเขียนโค้ดเเล้วไม่ขึ้นerror แต่ก็ไม่แสดงผลค่ะ ไม่ทราบว่าผิดตรงไหน

Sub test6()
Dim wsData As New Worksheet
Dim i, j, k ...

เงื่อนไขตามไฟล์เเนบค่ะ ขอบคุณล่วงหน้าค่ะ

ขอบคุณมากค่ะ ขออนุญาตถามต่อนะคะ พอดีใน column status มี insert comment สามารถ ดึงมาด้วยได้หรือไม่คะ

รบกวนให้คำแนะนำหน่อยค่ะ ต้องการดึงข้อมูลบางคอลัมน์ ไปยังอีกชีท เงื่อนไขตามไฟล์แนบค่ะ

แก้ปัญหา Vlookup โดยวิธีนี้ดูครับ
Sub test3()
Dim x As Integer, NumRows As Integer
On Error Resume Next
Application.ScreenUpdating = False
With Sheets("Sheet1")
NumRows = .Range("B3", .Range("B" & Rows.Count).End(xlUp)).Rows.Count
NumRows = NumRows + 2
End With
For x = 3 To NumRows
If ...

ปรับตามนี้นะครับ น่าจะใช้ได้แล้ว ผมลองรันแล้ว ผ่าน

ปล. item ที่ 25และ26 ผลลัพธ์ไม่เหมือนตัวอย่างที่ให้มา เพราะว่า ERC NO นั้น VLOOKUp ตรวจพบ เท่ากับวันที่ 16-jan-18 เป็นตัวแรก
จะได้ผลลัพธ์เท่ากับ 16-jan-18
แต่ตัวอย่างผลลัพธ์ที่ได้ จะเท่ากับ 4-Jan-18

Sub test()

Dim x As Integer, NumRows As ...

ลองดูครับว่าใช่ไหม
Sub test2()
Dim x As Integer, NumRows As Integer
Dim l As Integer
l = Worksheets("Sheet1").Range("A3").End(xlDown).Row
On Error Resume Next
Application.ScreenUpdating = False
With Sheets("Sheet1")
NumRows = .Range("B3", .Range("B" & Rows.Count).End(xlUp)).Rows.Count
NumRows ...

เงื่อนไข คือต้องการดึงsend out date จาก parent enty ที่มีค่าเป็น ECR Approval,DCN Approval,Drawing Release มาวางในตัวที่มี ECR NO เดียวกันค่ะ (รบกวนดูไฟล์เเนบค่ะ)


แปลว่า ECR NO จะมีวันที่เดียวกันทั้งหมด ถูกต้องไหมครับ


ใช่ค่ะ ECR NO เดียวกันจะมีวันที่เดียวกันค่ะ
จากภาพ Row3และ 4มี ECR No ...

เงื่อนไข คือต้องการดึงsend out date จาก parent enty ที่มีค่าเป็น ECR Approval,DCN Approval,Drawing Release มาวางในตัวที่มี ECR NO เดียวกันค่ะ (รบกวนดูไฟล์เเนบค่ะ)

ได้เเล้วค่ะ ขอบคุณมากค่ะ รบกวนดูอีกModule(Module1) ให้ด้วยได้ไหมคะ คิดว่าติดปัญหาตรง vlookup ค่ะ
Sub test2()

Dim x As Integer, NumRows As Integer
Dim l As Integer
l = Worksheets("Sheet1").range("A3").End(xlDown).Row
On Error Resume Next
Application.ScreenUpdating = False
With Sheets("Sheet1 ...

อยากสอบถามโค้ดลูป for...Next ค่ะ พอดีเขียนเเล้วเเต่เหมือนว่าไม่ได้วนลูปจนจบไม่แน่ใจว่าเป็นเพราะว่าจำนวนรอบไม่เเน่นอนจึงทำให้ลูปไม่ทำงานหรือไม่
Sub test()

Dim x As Integer, NumRows As Integer
On Error Resume Next
Application.ScreenUpdating = False
NumRows = Range("C4", Range("C4").End(xlDown ...

ขอบคุณมากค่ะ ขออนุญาตถามต่อนะคะ

-เมื่อมีการเพิ่มข้อมูลใน sheet1 ต้องการให้ข้อมูลทั้งแถวถูกดึงไปยัง ตาราง ของSheet2โดยอัตโนมัติ ต้องปรับโค้ดยังไงคะ รบกวนด้วยค่ะ

Sub test1()

Dim ws As Worksheet
Set ws = Sheets("CAT DATA")
ws.Range("A2").FormulaArray = "=IFERROR(INDEX(Sheet1!A$2:A$205,SMALL(IF ...

ขอบคุณมากค่ะ

ขอบคุณอาจารย์มากค่ะ