Excel Forum

ใช้ได้แล้วครับ ขอบคุณครับ

จากที่ลอง Code ดูแล้ว เป็นการปรับให้ Loop เอาค่าให้ได้ 22 row เท่านั้นครับ
แต่ยังไม่ได้ตามตัวอย่างภาพที่ผมตัดให้ครับ ซึ่งจะมีข้อความจาก column A และ B ด้วย

:D ขออภัยครับ เพิ่งเห็นโพสต์นี้

ช่วยอธิบายเพิ่มเติมว่าพิจารณาอย่างไรว่าเป็นกลุ่มเดียวกัน วาดภาพประกอบเพิ่มเติมมาด้วยจะช่วยให้เข้าใจได้ง่ายขึ้นครับ


จากภาพตัวอย่างในกรอบสีแดงครับ Row 1 ก็จะเป็นกรอบที่ 1 และ Row 2 ก็จะเป็นกรอบที่ 2 ครับ สร้างไปเรื่อยๆ จนครบ Loop ที่ 22 ครับ
Screenshot 2024-07-17 ...

สร้าง Smart Art แล้วจะต้องปรับ code อย่างไรให้ข้อความใน A1 และ B1 อยู่ในกลุ่มเดียวกัน ตามภาพตัวอย่างที่ 1 ในไฟล์แนบ ที่มี AXXXX01 และ X0000v1 อยู่กลุ่มเดียวกัน (ถ้าเพิ่ม Code เพิ่มรูปเข้าไปใน SmartArt แต่ละช่องได้ด้วยก็ขอบคุณครับ โดยใช้วิธี ที่อยู่รูปจาก Column C ครับ)


Sub SmartArtTest()

Dim ...

ลองพิมพ์ '๑๑ หรือ '๒๒ ดูครับ
ไม่แน่ใจว่าจะตรงตามความต้องการในการเอาไปใช้ต่อหรือป่าว

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($A2,"1","๑"),"2","๒"),"3","๓"),"4","๔"),"5","๕"),"6","๖"),"7","๗"),"8","๘"),"9","๙"),"0","๐")

อาจารย์ครับ ผมกลับมาอัพเดทตามแนวทางที่อาจารย์แนะนำครับ
โดยที่ไม่ใช้ Query ปกติ แต่จะเขียน VB ทำ Loop และให้ VB RunSQL ตามด้านล่าง ได้ผลลัพธ์ตามต้องการครับ

Max = DMax("[RunNum]", "[Table1]", "[Site]= 'TH1'")
i = 1
Do While i <= Max
DoCmd.RunSQL "UPDATE Table2 INNER JOIN Table1 ON (Table2.ItemID ...

:D อาจจะต้องพึ่ง Programming แนวทางคือ ใช้ VBA ดึงข้อมูลใน Table นั้นสัก 1 รายการเพื่อ Loop เก็บ Fields (หัวคอลัมน์) ทั้งหมดไว้ในตัวแปร จากนั้นสร้าง SQL Statement จากตัวแปรนั้นเพื่อเชื่อม Field ที่ต้องการครับ


ขอบคุณอาจารย์ที่แนะนำครับ แต่ว่าผมยังไม่ได้ใช้ทางแบบที่แนะนำ 100% นะครับ
ผมปรับเปล ...

สวัสดีครับ
ต้องการ AND ค่า Value ของแต่ละ Column โดยที่ Column เพิ่มหรือลดลงได้อัตโนมัติ
จากรูปตัวอย่างต้องการ And ค่าเฉพาะ Column ที่เป็นหมายเลขเท่านั้น โดย Code ที่ใส่ไว้เป็นการ AND 1-5 ไว้ ซึ่งอาจจะมากกว่าหรือน้อยกว่า 5 ก็ได้แล้วต้องมาแก้ Code ใหม่ทุกครั้ง ดังนั้นพอจะมีวิธีที่ทำให้เป็นการ AND ...

:D ตัวอย่าง SQL ใน Access ครับ


SELECT tblNames.ID, tblNames.FirstName,
(SELECT COUNT(*)
FROM tblNames AS t2
WHERE t2.ID = tblNames.ID
AND t2.FirstName < tblNames.FirstName
) + 1 AS RowNum
FROM tblNames
ORDER BY tblNames.ID, tblNames.FirstName



ทำได้แล้วครับ ขอบคุณมากครับ อาจารย์

:D กรุณาแจ้งที่เขียนเองมาแล้วด้วยจะได้ตอบต่อไปจากนั้นครับ

ตัวอย่างการให้ลำดับข้อมูลดูได้ที่นี่ครับ https://stackoverflow.com/questions/21917637/achieving-row-number-partition-by-in-ms-access


ตัวอย่างที่เขียนครับ

SELECT tblNames.ID, tblNames.FirstName, DCount("[ID]","[tblNames]","[ID]<=" & [ID ...

เนื่องจากต้องการใส่ลำดับใน Query1 โดยที่เงื่อนไขการนับจะแบ่งกลุ่มการนับจากหัวข้อ ID และโชว์ลำดับที่ RowNum

ตัวอย่างผลลัพธ์ที่ต้องการ
ID FirstName RowNum
284532 Joan 1
284532 Barry 2
284532 Fred 3
284538 John 1
284538 Will 2
284538 Dave 3
284538 Ben 4

รบกวนอาจารย์แต่ละอันช่วยชี้แนะด้วยครับ ขอบค ...

1. แก้ไข Code ในหน้า Add ตรง Me.TextBox1.Value เป็น Me.TextBox1

Private Sub CommandButton1_Click()
If Me.TextBox1.Value <> "" Then
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")
Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
'Find first empty row in database
irow ...

ลองแก้สูตรตามนี้ครับ

=IF(ISERROR(VLOOKUP(C3,Sheet1!A:B,2,1)),0,VLOOKUP(C3,Sheet1!A:B,2,1))

ที่ช่อง B2 ครับ =MID(A2,IF(ROW()=2,1,LEN(A1)+1),LEN(A2))

ajsudkedt wrote: Thu Sep 13, 2018 4:40 am ลองลง office ใหม่แล้วก็ยังไม่หาย
เกิดจากอะไร พอจะทราบสาเหตุ และวิธีแก้ไหมครับ

ทำตามรูปตัวอย่างเลยครับ

รบกวนแนบไฟล์ Excel มาให้ด้วยครับ เพื่อให้เข้าใจต่อการตอบคำถามง่ายขึ้นครับ

C6 =VLOOKUP($B6,$G:$H,2,0)
D6 =VLOOKUP($C6,$J$7:$R$13,$A6+1,0)

Copy ลากลง

ตัวอย่างตามไฟล์แนบนะครับ ผลลัพธ์ยังไม่ 100% นะครับเนื่องจากใส่คำไม่เหมือนกัน แต่ถ้าใส่เหมือนกันแล้วจะได้คำตอบตามต้องการครับ

=IF(OR(N5="",N5<1),"",IF(N5>0,"ค้าง",IF(N5<0,"เกิน","")))

สอบถามครับ

แล้วค่าที่อยู่ในวงสีแดงจะให้โชว์ที่ไหนครับ