Excel Forum

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

ตามที่ศึกษา appsheet จะ record by record ที่ละ 1 รายการ

Col G : K เป็นการอัพเดทข้อมูลผ่าน app
โดยมี Key หลัก Col A ที่ตั้งใจไว้ว่าเป็นตัวกำหนดให้สามารถเพิ่มรายการ หรืออ้างอิงรายการที่มีค่า TB เหมือนกัน
ในการกดอัพเดทครั้งเดี่ยวได้ พร้อมกัน

TB111 = 3 รายการ กดอัพเดท app ใน Col G ...

เรียน ฺพีฺ่Big cat

ได้ตัวเลขที่ต้องการครับ
Row 7 คือสูตร
Row 4 คือผลลัพธ์ที่ต้องการ
Row 5 คือ Row ช่วยที่อาจต้องปรับสูตรโดยใช้ X แสดงเป็นจุดเริ่มต้นในการแสดง 4 ช่องถัดไปครับ

ขอบคุณครับ



...


AJ7

=IF(ISNUMBER(AJ5),AJ5/4*$C$4+$AI$7,"")




** สนับสนุนฟอรั่ม กรุณาคลิกโฆษณาที่หน้าเพจ ***


แมวใหญ ...

35000 มาจาก D4
5000 มาจาก C4

35000 เป็น 40000 เพิ่มจาก รอบการตำแหน่งทุกๆ 4 ช่อง
ตำแหน่งที่ 1 ได้ 40000 จาก x
ตำแหน่งที่ 2 ได้ 45000 จาก x
ตำแหน่งที่ 3 ได้ 50000 จาก x
ตำแหน่งที่ 4 ได้ 55000 จาก x

x = D4


...

ตัวเลข 40000 45000 50000 55000 มาจากไหน คิดมาจากเงื่อนไข หรือ หลักการใดครับ


** สน ...

จากสูตร =IF(MOD(COLUMNS($AJ5:AJ5),4),"",COLUMNS($AJ5:AJ5))
ตอบโจทย์ ในข้อ 2 จาก x แสดงทุกๆ 4 ช่อง ครับ

ข้อ 3 ยังรอช่วยเหลือคือนำตำแหน่งที่ได้จากข้อ 2 มาแสดงผลลัพธ์
คือ เริ่มจาก x
- Col AJ4 , x = 35000 (cell,D4) แต่ให้แสดงค่า x เช่นเดิม
- Col am, au, aq, ay, bc แสดงค่าตามตัวอย่าง Row 7 ...

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

ข้อมูลอ้างอิงตัวอย่าง ใน sheet2

1.หาตำแหน่ง x
2.จากตำแหน่งก x แสดงทุกๆ 4 ช่องไปทางขวา
3.การแสดงให้คุณ + 1 ทุกๆ 4ช่องเริ่มตั้งแต่ x ค่าการแสดงอ้างอิงจาก D4

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

เรียน ท่านอาจารย์และผู้รู้
คิดออกแล้วครับ



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

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

้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
End Sub

: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").Select
ActiveSheet ...

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 แล้วฟ้อง ...

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" & " /" & Format(Date, " dd-mm-yy ") & " Round ...

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

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

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

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

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


Doc.Range.insetbefore
ActiveSheet.Range("A1 ...

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

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

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