Excel Forum

snasui wrote: Code นั้นเป็น Code SQL ก็จริงแต่เป็นของ Oracle ปัจจุบันผมไม่ได้ใช้ Oracle ทั้งไม่เห็นโครงสร้างของข้อมูลคงช่วยไม่ได้มากครับ

คือข้อมูลจะเป็น
1 a
1 b
2 a
2 b
3 a

อยากให้เปลี่ยนเป็น
1 a b
2 a b
3 a

SELECT Supplier_Name, MAX(SYS_CONNECT_BY_PATH(BDNKIV, ',')) BDNKIV
FROM (SELECT Supplier_Name, BDNKIV,
ROW_NUMBER() OVER(PARTITION BY Supplier_Name ORDER BY Supplier_Name) RN
FROM test_data
GROUP BY Supplier_Name, BDNKIV)
START WITH RN = 1
CONNECT BY PRIOR RN = RN - 1
AND PRIOR Supplier_Name ...

มารบกวนอีกแล้วค่ะ
code รันไม่ผ่านค่ะ

If wsh.Cells(curLine, 1) <> "" Then
While year = ""
If year <> "TTL" Then
year = Offset(wsh.Cells(curLine, 1), 0, 0, -6, j)
j = j + 1
End If
Wend
End If

พอรันแล้วแจ้ง error ว่า
"Sub or Function not defined"

โดย
- curLine คือ เลขบรรทัดที่มีข้อมูลอย ...

:D จาก Code For Each sh In wkb.Sheets เป็นการ Loop ทุกชีทอยู่แล้วครับ

ช่วยแนบไฟล์ปัญหามาด้วยและชี้ให้เห็นว่า ปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร จะได้เข้าใจตรงกันครับ

แก้ได้แล้วค่ะ Function readSheet ที่เรียกใช้มีการสั่งปิด wkb ทำให้ตอนวนกลับมาทำงานใน loop For นั้นไม่สามารถวนจนครบทุกชีทได้ :lol ...

For Each sh In wkb.Sheets
If sh.Visible = xlSheetVisible Then
Set wsh = wkb.Sheets(sh.Name)
Do While Not wsName <> ""
If InStr(1, wsh.Name, StrPara(i)) Then
wsName = StrPara(i)
End If
i = i + 1
Loop
Call readSheet(wsName, wkb, wsh)
Next

code Loop For ด้านบนจะทำงานแค่รอบเดียว
อยากให ...

ขอบคุณมากค่ะ จะลองนำไปใช้กับงานนะคะ

With wbk.Worksheets("Sheet1")
Set rData = .Range(.Cells(IntCol + 1, "A"), .Range("A" & rl).End(xlUp))
End With
For Each rDataCol In rData
While rDataCol <> ""
ReDim Preserve StrData(i)
StrData(i) = rDataCol
i = i + 1
rDataCol = ""
Wend
Next rDataCol

จาก Workbooks : Sample.xls, Function ...

ได้แล้วค่ะอาจารย์
เพราะเปลี่ยนเป็น IntRow = rRow.Column ก็ได้แล้วค่ะ
ลืมไปว่า rRow.Row นั้นเก็บข้อมูลของ Row
ขอบคุณมากค่ะ

:D เดิม StrRow กำหนดให้มีค่าเท่ากับ IntRow เสมอ หากต้องการให้ค่าเพิ่มขึ้นก็ต้องเพิ่มค่าของ IntRow ด้วย ยกตัวอย่างเช่น Code ด้านล่าง จะเป็นการเพิ่มค่าให้กับ IntRow ด้วยค่าของ count2 ครับ
If InStr(rRow, "Wk") Then
IntRow = rRow.Row
ReDim Preserve StrRow(count2)
StrRow(count2) = IntRow + count2 ...

รบกวนต่อค่ะ
ที่ Function copy_data() เดิมค่ะ
เราแก้ไขใหม่แล้วตามไฟล์ที่แนบมา
พอรัน Function เสร็จแล้ว ตัวแปร StrRow รับค่ามาผิดค่ะ คือรับเป็นค่า 3 มาตลอดเลย
ซึ่งที่จริงต้องรับ 4, 5, 6, 7 ตามลำดับ
จะต้องแก้ยังไงหรอคะ

สอบถาม code หน่อยนะคะ

wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp).Row
คือเลขของบรรทัด
wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp)
คือข้อมูลที่อยู่ในบรรทัดนั้นๆ

อย่างในรูปนี้
http://image.ohozaa.com/i/a69/2J5nZa.JPG

wbk.Sheets("Sheet1").Range("A" & Rows.count).End ...

สอบถามใหม่นะคะ เป็นตรงส่วนนี้ค่ะ

If rRow = ("COMMODITY") Then
IntRow = rRow.Row
rRowWK = wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp)
For j = 1 To rRowWK.Row
xxx
Next j
End If

คืออยากให้วน For ในแถว row ที่มีคำว่า COMMODITY อยู่ค่ะ
แต่ตอนนี้ For ฟิกค่าอยู่แถวแรกแล้วก็ค้นหาในแนว ...

โอเคค่ะ งั้นคงต้องเปลี่ยนวิธีการจัดเก็บข้อมูล
code นี้ ถ้าจะเปลี่ยนจากหาแนว Col เป็นแนว row ต้องแก้ตรงไหนหรอคะ

พอรันวนไปรอบนึงแล้ว
ตรง ก็จะติด error ค่ะ

ตรงนี้ค่ะ

For j = 1 To wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp)
ReDim Preserve a(j, lng)
a(j, lng) = r(i + 1).Offset(0, j)
Next

อยากให้ For ไล่ตั้งแต่ cell แรก จนถึง cell สุดท้ายที่มีข้อมูลใน row A
แต่ลองทำตาม code ด้านบนแล้วมัน error ค่ะ

จากด้านบนนะคะ ลองแก้ใหม่เป็นไฟล์ที่แนบมากับข้อความนี้แล้วก็ยังไม่ได้ค่ะ

พอดีไปเจอ code ของคุณคนควนที่
http://snasui.blogspot.com/2011/06/vba_26.html
คิดว่าจะนำมาประยุกต์ใช้กับงานที่กำลังทำอยู่

ตอนนี้ลองแก้ส่วนของการคัดลอกข้อมูลแล้วแต่ติดปัญหาค่ะ
ส่วนนี้อยู่ที่ Workbooks : Sample.xls, Function copy_data() ค่ะ
ตรง
If r = ("COMMODITY") Then
ReDim Preserve a(lng)
a(lng ...

โอเคค่ะ งั้นพักตรงนั้นไว้ก่อน
ตอนนี้กำลังทำส่วนของการคัดเลือกข้อมูล
ถ้ามีปัญหาหรือข้อสงสัยจะมารบกวนอีกครั้งนะคะ
ขอบคุณทุกๆ คห. ค่ะ

ไ้ด้แล้วค่ะ ขอบคุณมากๆ

ถ้าเราจะเปลี่ยนที่เก็บข้อมูลนี้ เป็นเก็บลง Access จะใช้ตัวแปร rt ได้เลยมั๊ยคะ

รบกวนถามต่อนะคะ :)
ต้องการรวม Function ListAllFiles() กับ send_data() เข้าด้วยกันค่ะ

โดย Workbooks หลักคือ Sample.xls
จุดประสงค์คือต้องการคัดลอก cell a1:g7 จาก Worksheets : Sheet1, Workbooks : Sample2.xls
ไปไว้ที่ Worksheets : Sheet1, Workbooks : Sample3.xls

ลองทำตามไฟล์ที่แนบแล้วติด error ค่ะ ...