Excel Forum

เรียน ท่านอาจารย์และผู้รู้ คิดออกแล้วครับ Sub Macro2() [h2:h2000].ClearContents Dim i As Integer For i = 2 To 6 Cells(i, 1).Select ActiveCell.Offset(0, 7).Select Cells(Rows.Count, 8).End(xlDown).Select Cells(Rows.Count, 8).End(xlUp).Select ActiveCell.Offset(1, 0).Select For dcol = 1 To Cells(i, 4).V...

เรียน ท่านอาจารย์และผู้รู้ ้Column H = เป็นผลลัพธ์ที่เขียน VBA แบบ manual Column I = เป็นผลลัพธ์ที่คาดหวัง ผมเขียน Loop ให้ทำงานผ่านตัวแปรไม่สำเร็จรบกวนชี้แนะครับ Sub Macro2() ' ' Macro2 Macro Dim i As Integer Dim n As Integer '------------------------------------------------- Range("h2")....

ขอบคุณครับ

แต่แก้ปัญหา rule ไม่หาย

เรียน ท่านอาจารย์,

ถาม outlook ตั้ง Rule forward mail ไม่สำเร็จ
แต่ถามตั้งแบบ Send ส่งเอง สามารถทำให้ rule CC ตามรายชื่อเองอัติโนมัติได้

ไม่แน่ใจผมตั้งค่าอะไรผิดหรือไม่
ตัวอย่างการตั้งค่าตามแนบ

เรียน ท่านอาจารย์ ออ ต้องเติมอักษรให้เต็ม จากตัวย่อจึงจะแสดง Select all Sub Macro4() Dim MyData As Object Set MyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Application.SendKeys "{PRTSC}" MyData.GetFromClipboard Range("b1").Select ActiveSheet.Paste ...

:D กรุณา Post Code VBA ด้วยการครอบด้วย Tag Code ดูวิธีการในกฎการใช้บอร์ดข้อ 5 ด้านบนครับ :roll: Sub Macro4() Dim MyData As Object Set MyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Application.SendKeys "{PRTSC}" MyData.GetFromClipboard Range("b1")....

snasui wrote: ↑Mon Apr 10, 2023 7:53 am ฟังก์ชัน Offset ไม่สามารถใช้งานได้เมื่อปิดไฟล์ต้นทาง อ่านเพิ่มเติมที่นี่ครับ wordpress/formula-error-when-close-file/

เข้าใจแล้วครับว่าเป็นข้อจำกัด ในการอ้างอิงสูตร

เรียน ท่านอาจารย์ 1.ต้องการ PRTSC 2.save to Clipboard. 3.Paste active sheet. 3.1 หรือ paste ลง body mail. พยายามปรับหลายสูตรไม่สามารถสำเร็จได้ สูตรล่าสุด VBA paste ตั้งแต่ DIM ที่ประกาศตัวแปร ทำอย่างไร VBA จะรู้ว่าต้องการ Paste ข้อมูลจาก PRTSC ปล. Mydata ไม่สามารถใช้ MSfrom ได้ run VBA แล้วฟ้อง Dim ...

snasui wrote: ↑Sun Apr 09, 2023 5:29 pm ลองปรับการอ้างอิงข้ามไฟล์โดยข้อมูลต้นแหล่งไม่แปลงเป็น Table ดูว่าสามารถทำงานได้หรือไม่ครับ

workbook = Vstack
sheetname combine sheet
Formula = E42

เมื่อปิดไฟล์ workbook = Vstack - outsh - outfold
ได้ค่า #value!

ต้องการปิดไฟล์แล้วสามารถอัพเดทข้อมูลได้

เรียน ท่านอาจารย์ การอ้างอิงข้อมูล - ข้าม sheet = ok - ข้าม file = Ref หาย - ข้าม Folder= Ref หาย - ข้าม เครื่อง = น่าจะหายหรืออ้างอิงไม่ได้ เป็นข้อจำกัดเมื่อปิด ไฟล์อ้างอิงใช่หรือไม่ ความต้องการเมื่อ ไฟล์อ้างอิงมีการเปลี่ยนแปลง ให้ไฟล์ที่ใช้สูตรอัพเดทข้อมูลที่อ้างอิงเป็นปัจจุบันด้วยได้ มีวิธีแบบอื่...

:D ตัวอย่างการปรับ Code ครับ 'Other code Dim sig As String Set z = CreateObject("Outlook.Application") Set y = z.CreateItem(0) On Error Resume Next With y .Bodyformat = olFormatRichPlain .Display .To = Range("U1").Value .Subject = "Automail" & " /" & ...

เรียน ท่านอาจารย์

อธิบายตัวอย่างใน book signature. ใน sheet.คำอธิบาย
ลองลบ & ดูแล้วผลลัพธ์ยังไม่ได้ตามต้องการ

ไฟล์ test = book VBA version 3
ผลลัพธ์ ที่ต้องการ = มีตารางที่ Copy มา และตามด้วย Signature ด้านล่าง

เรียน ท่านอาจารย์และผู้รู้ ผมแยกไฟล์ออกจากถามเฉพาะ Signature ของเดิมนั้นให้แสดง ข้อมูลช่วงของ Excel แต่ดูเหมือนว่าต้องแสดงได้่ไม่พร้อมกัน Doc.Range.Paste& "Signature = emailMail.body" หากเอา " " ออกจาก Signature จะปรากฎ แก้อย่างไรให้แสดงได้ทั้งคู่ครับ Doc.Range.insetbefore Ac...

ขอบคุณมากครับ ที่ทำให้ผมผ่านไปได้

เรียน ท่านอาจารย์และผู้รู้ หลังจากสร้าง sheet เพิ่มมา 3 sheet แล้ว - ย้ายตำแหน่ง sheet ให้เหมาะสม - ต้องการลบ sheet หลังจาก sheet ที่ 2 เป็นต้นไป ปัญหาตอนนี้คือ (ว่าจะถามใหม่แต่ปรับไปปรับมา ได้หมดแล้วครับ) - Code ด้านล่าง ลบ 2 sheet และจากนั้น ไม่ออกจาก Loop ทำให้ Excel run code ไม่จบ(ค้าง) - การลบไ...

เรียน ท่านอาจารย์และผู้รู้ ปล : ไม่มีความเข้าใจในการเขียน VBA มากเท่าไร ผมกำลังใช้ VBA เพื่อเขียนให้ Excel ทำงานในการแยก sheet และ filter จาก sheet master plan -- Add sheet ทำได้ แต่มี error ใน sheet สุดท้ายทำให้มี sheet ที่ไม่ต้องการออกมาแต่แก้ ด้วย On Error Resume Next แทน Worksheets("data ba...

เรียน ท่านอาจารย์และผู้รู้

ถามตามไฟล์แนบ PNG
เมื่อเปลี่ยน zone แล้วจะคง Column แบบ week ที่ไม่มีข้อมูลได้อย่างไร Mon - Sat

iferror ครอบ if อีกที
เห้อตอนแรก ไม่เห็นว่า ซ้อน if ไว้อยู่เลยถามเหตุผลไปแบบนั้นครับ

ขอบคุณที่ช่วยชี้แนะครับ
ได้คำตอบ ตรงโจทย์แล้ว

puriwutpokin wrote: ↑Mon Jul 25, 2022 9:49 am เปลี่ยนเป็น I28=SUM(IFERROR(IF(FIND(J28,$B$4:$B$8786)*ISNA($F$4:$F$8786),$E$4:$E$8786),0))

ผลลัพธ์ = 588 ไม่ถูกครับ
ตัวเลขที่ต้องการ = 491138

ในไฟล์แนบผมแนบอ้างอิงไว้
356 = จำนวนนับ, 491138 ตัวเงินผลลัพธ์

ไม่รู้ว่าทำไมใช่้ Iferror ครับขอเหตุผลครับ