Excel Forum

:D The example VBA code for transforming data is below,

Sub TransformData()
Dim i As Integer, srAll As Range, tgAll As Range, r As Range
With Worksheets("RawData")
Set srAll = .Range("a6", .Range("d" & .Rows.Count).End(xlUp))
End With
With Worksheets("required")
.UsedRange.ClearContents ...

:D การทำงานเพื่อให้ค่าเดิมยังคงอยู่คือไม่ต้อง Save ครับ

ค่าใด ๆ ที่กำหนดแล้วเกิดการเปลี่ยนแปลงในระดับไฟล์จะสามารถทำตามลำดับดังนี้

ลักษณะการทำงานคือ เปิดไฟล์ > กำหนดค่าเพื่อการพิมพ์ตามต้องการ > พิมพ์ > ปิดไฟล์โดยไม่ Save

เมื่อไม่ Save ค่าเดิมก็ยังคงอยู่

แต่หากเป็นค่าใด ๆ ที่กำหนดแล้วเกิดการเปล ...

:D ผมไม่ได้ใช้ Microsoft Office 2003 ด้านล่างนี้คือคำตอบที่ได้จาก Copilot ครับ

ขั้นตอนการพิมพ์เอกสาร Word โดยไม่ให้แสดงสีที่ไฮไลต์ใน Word 2003:

เปิดเอกสาร Word ของคุณ
ไปที่เมนู เครื่องมือ (Tools) และเลือก ตัวเลือก (Options)
ในกล่องโต้ตอบตัวเลือก (Options) ให้คลิกที่แท็บ มุมมอง (View)
ยกเล ...

Upgrade Forum จาก Version 3.3.13 เป็น 3.3.14 เมื่อ 22 Nov 2024 เพื่อให้มวลมหาสมาชิกได้ใช้ Forum ที่ทันสมัยอยู่ตลอดเวลาไม่น้อยหน้าใครในโลกครับ

:D คำตอบจาก AI ครับ

การฝังไฟล์ Excel เข้าไปใน Google Sheets โดยไม่ให้เปิด Tab ใหม่ แต่แสดงอยู่ใน Sheet เดียวกัน สามารถทำได้โดยใช้วิธีการแปลงไฟล์ Excel ให้กลายเป็น Sheet แทน หรือแนวทางการทำงานแบบฝังลิงก์หรือรูปภาพตัวอย่างแทน ขึ้นอยู่กับความต้องการของคุณ:

วิธีที่ 1: แปลงไฟล์ Excel เป็น Google Sheet ...

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

หากต้องการทราบว่าสูตรทำงานกับช่วงเซลล์ไหนและมีการแสดงสัญญลักษณ์ประกอบให้คลิกไปที่เซลล์ที่ต้องการตรวจสอบแล้วกดแป้น F2 เพื่อทำการ Edit เซลล์ หรือคลิกไปที่ Formula bar ก็ได้ครับ

ทำการเติมเซลล์ที่ว่างให้เหมือนค่าด้านบนและ Copy สูตรเดิมลงด้านล่าง (ตามภาพ) ครับ

ขอบคุณสำหรับน้ำใจและด้วยจิตกุศลที่ต้องการบริจาคเพื่อสนับสนุนฟอรัมครับ

อย่างไรก็ตาม ขณะนี้ทางฟอรัมไม่ได้เปิดรับบริจาค ขอขอบคุณในความมีน้ำใจเป็นอย่างยิ่งครับ

:D Link ที่ให้มาสามารถเข้าถึงแค่ 20 รายการเท่านั้น ปกติเราสามารถกำหนดค่า Parameter บน URL เพื่อแสดงค่าทั้งหมดได้ แต่เท่าที่ลองเลือก All ไม่พบว่า URL จะเปลี่ยนตามแต่อย่างใด จึงไม่มีช่องทางให้เข้าไปดึงข้อมูลทั้งหมดผ่าน URL

อย่างไรก็ตามทาง SET Thailand มีการเตรียมช่องทางให้เข้าถึงข้อมูลโดยใช้ API ...

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

:D ตัวอย่างสูตรตามด้านล่างครับ

ที่ G6 คีย์สูตรเพื่อแสดงบรรทัดที่พบรายการ สูตรนี้คีย์แยกออกมาต่างหากเพื่อลดภาระการทำงานของไฟล์ในกรณีข้อมูลมีปริมาณมาก
=IFERROR(AGGREGATE(15,6,ROW(Sheet1!$B$3:$I$21)/(Sheet1!$B$3:$H$21=$F$1),ROWS(B$6:B6)),"")
Enter > Copy ลงด้านล่าง
ที่ B6 คีย์
=IF($G6 ...

:D ตัวอย่าง Code ครับ

Sub Macro2()
Dim fileToOpen As Variant
Dim fileFilterPattern As String
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook
Dim sr As Range, tg As Range, i As Integer

Set tg = ActiveSheet.Range("A3:D5")
If MsgBox("คุณต้องการนำเข้าข้อมูลใช่หรือไม่?", 36, "ยืนย ...

:D Excel อื่น ๆ ที่ไม่ใช่ 365 ไม่มีความสามารถในด้าน Spill Array (ผมไม่ได้ใช้ Excel 2021 จึงไม่ทราบว่ามีความเป็น Spill Array หรือไม่ แต่เท่าที่อธิบายมาก็เข้าใจว่ามีความสามารถนี้ด้วย)

ใน Excel Version ก่อนหน้านี้ การให้แสดงผลพร้อมกันทุกเซลล์ต้องเลือกเซลล์ที่ต้องการให้แสดงผลเอาไว้ก่อน เช่น ถ้าต ...

:D ตัวอย่าง Code ครับ

Sub Macro1()
Dim sr As Range, tg As Range, i As Integer

Set tg = Sheets("Sheet1").Range("A3:d5")
Set sr = Sheets("Sheet2").Range("b3:e5")
i = 1
For Each r In tg
If r.MergeCells Then
r.MergeArea.ClearContents
r.MergeArea.Value = sr(i).Value
Else
r.ClearContents
r ...

:D ตัวอย่าง Code ครับ

Private Sub CommandButton1_Click()
Dim rAll As Range, r As Range
Dim rTgAll As Range, i As Integer
Dim d As Object, arr As Variant

Set d = VBA.CreateObject("Scripting.Dictionary")
With Worksheets("Sheet1")
Set rAll = .Range("B2:HV21")
For Each r In rAll
If r.Value ...

norkaz wrote: Fri Nov 08, 2024 5:31 pm Superb manual guide and suggestions.
The pictures are excellent and make it very easy to understand.

Thanks krub.

แถมวิธีการใช้ Power Query เข้ามาช่วยครับ

ข้อ 14 และ 16 เป็นการคลิกขวาเพื่อเปิดเมนู ส่วนข้ออื่น ๆ คลิกซ้ายตามปกติครับ

:D ด้านล่างนี้เป็นคำตอบจาก ChatGPT ลองทดสอบดูว่าแก้ปัญหาได้หรือไม่ครับ

ปัญหาที่คุณพบ ("Could not load an object because it is not available on this machine") น่าจะเกิดจากไฟล์หรือวัตถุ (Object) บางตัวที่ UserForm ใช้งานอยู่อาจจะไม่สามารถใช้งานได้ในเครื่องที่มีปัญหา ลองทำตามขั้นตอนนี้เพื่อแก้ไขปัญหา ...

:D ไวยากรณ์ Search คือ

=SEARCH(find_text, within_text ,start_num)

ตัวที่ระบายสีแดงจะหมายถึงค่าเดี่ยว เซลล์เดี่ยว การใส่ช่วงเซลล์ต้องทำให้เป็น Array และจะต้องมีฟังก์ชันอื่นเข้ามาช่วยเพื่อให้เป็น Array เช่น Index, Lookup เป็นต้น

กรณีที่เครื่องนี้หรือเครื่องอื่นได้คำตอบก็ต้องทราบว่าเครื่องนั้นใช้ก ...