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" T...

ต้องการบันทึกรูปภาพกราฟไปยังโฟลเดอร์ที่ต้องการค่ะ ตอนนี้ที่ได้คือรูปภาพจะเข้าไปอยู่ในโฟลเดอร์ดาวโหลดค่ะ ต้องปรับโค้ดตรงไหน รบกวนให้คำแนะนำทีค่ะ Sub savechart1() Dim wk As Variant Set wk = Sheets("Monthly Performance").Range("$A$12") If MsgBox("Save chart : Zen Approval statu...

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

เราสามารถ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 As ...

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

ขอบคุณมากค่ะ ขออนุญาตถามต่อนะคะ พอดีใน 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...

ปรับตามนี้นะครับ น่าจะใช้ได้แล้ว ผมลองรันแล้ว ผ่าน ปล. item ที่ 25และ26 ผลลัพธ์ไม่เหมือนตัวอย่างที่ให้มา เพราะว่า ERC NO นั้น VLOOKUp ตรวจพบ เท่ากับวันที่ 16-jan-18 เป็นตัวแรก จะได้ผลลัพธ์เท่ากับ 16-jan-18 แต่ตัวอย่างผลลัพธ์ที่ได้ จะเท่ากับ 4-Jan-18 Sub test() Dim x As Integer, NumRows As Integer D...

ลองดูครับว่าใช่ไหม 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"...

เงื่อนไข คือต้องการดึง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 She...

อยากสอบถามโค้ดลูป for...Next ค่ะ พอดีเขียนเเล้วเเต่เหมือนว่าไม่ได้วนลูปจนจบไม่แน่ใจว่าเป็นเพราะว่าจำนวนรอบไม่เเน่นอนจึงทำให้ลูปไม่ทำงานหรือไม่ Sub test() Dim x As Integer, NumRows As Integer On Error Resume Next Application.ScreenUpdating = False NumRows = Range("C4", Range("C4")...

ขอบคุณมากค่ะ ขออนุญาตถามต่อนะคะ -เมื่อมีการเพิ่มข้อมูลใน sheet1 ต้องการให้ข้อมูลทั้งแถวถูกดึงไปยัง ตาราง ของSheet2โดยอัตโนมัติ ต้องปรับโค้ดยังไงคะ รบกวนด้วยค่ะ Sub test1() Dim ws As Worksheet Set ws = Sheets("CAT DATA") ws.Range("A2").FormulaArray = "=IFERROR(INDEX(Sheet1!A$...

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

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