:!: โปรดทราบ Image
    1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
    2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
      1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
      2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
    3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
    4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
    5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#1

Postby sasilakmon » Thu Sep 28, 2017 11:20 am

ต้องการ copy ข้อมูลจาก Sheet ที่ชื่อว่า "Standard Services BANGKOK" ในคอลัมภ์ C22-AK22 ทุกแถวที่มีข้อมูล Post Code, Employee Name or ID Number และวันที่มีชั่วโมงการทำงาน มาไว้ที่ Sheet2 ขณะนี้ทำถึง copy มาแค่บรรทัดแรกบรรทัดเดียว ต้องการ copy ข้อมูลมาทุกแถวที่มีข้อมูล หลังจากนั้น ทำการเช็คข้อมูลซ้ำใน Sheet2
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 21977
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#2

Postby snasui » Thu Sep 28, 2017 9:49 pm

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

Code: Select all

Dim rAll As Range, r As Range
With Sheets("Standard Services BANGKOK")
    Set rAll = .Range("c22", .Range("c" & .Rows.Count).End(xlUp))
    For Each r In rAll
        If InStr(r, "-") And r.Offset(0, 1).Value <> "" Then
            r.Resize(1, 35).Copy
            With .Application.Sheets("Sheet2")
                .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
            End With
        End If
    Next r
End With

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#3

Postby sasilakmon » Fri Sep 29, 2017 8:28 am

ขอบคุณมากๆนะคะ เดี๋ยวจะลองดูนะคะ

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#4

Postby sasilakmon » Fri Sep 29, 2017 8:38 am

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

Code: Select all

Dim rAll As Range, r As Range
With Sheets("Standard Services BANGKOK")
    Set rAll = .Range("c22", .Range("c" & .Rows.Count).End(xlUp))
    For Each r In rAll
        If InStr(r, "-") And r.Offset(0, 1).Value <> "" Then
            r.Resize(1, 35).Copy
            With .Application.Sheets("Sheet2")
                .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
            End With
        End If
    Next r
End With


copy ข้อมูลได้แล้วค่ะ ขอบคุณมากๆนะคะ
แล้วถ้าเราจะตรวจสอบข้อมูลซ้ำละคะโดยเอา column B+ column AI จะได้ 50899D เพื่อทำเป็น index แล้วเอามาตรวจสอบข้อมูลซ้ำ รบกวนอีกครั้งค่ะ ขอบคุณมากๆนะคะ

User avatar
snasui
Site Admin
Site Admin
Posts: 21977
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#5

Postby snasui » Mon Oct 02, 2017 10:09 pm

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

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#6

Postby sasilakmon » Wed Oct 11, 2017 5:29 pm

จากไฟล์ที่แนบมา ถ้าต้องการ count ข้อมูลโดยนับตามรหัสพนักงานที่มีข้อมูลในแต่ละวัน เช่น รหัส 50000 มีวันทำงานในวันที่ 1 ก็จะได้ 500001 ถ้ามีวันที่ 2 ก็จะได้ 500002 รหัส 60000 มีวันทำงานก็คิดเหมือนกัน รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 21977
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#7

Postby snasui » Thu Oct 12, 2017 6:19 am

:D จากไฟล์ที่แนบมาให้แสดงค่าที่ชีตใด เซลล์ใด ชวยกรอกตัวอย่างคำตอบมาในตำแหน่งที่ต้องการด้วยจะได้เข้าใจตรงกันครับ

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#8

Postby sasilakmon » Thu Oct 12, 2017 9:27 am

จากไฟล์ที่แนบมาต้องการ copy ข้อมูลจาก Sheet2 ไป sheet 'Summary' โดยเซลล์ B คือรหัสพนักงานต้องมีข้อมูล + วันทำงานที่มีข้อมูลในแต่ละเซลล์ค่ะ ตัวอย่างข้อมูลที่ต้องการตาม sheet Summary ค่ะ รบกวนแนะนำด้วยนะคะ ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 21977
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#9

Postby snasui » Thu Oct 12, 2017 6:11 pm

:D ตัวอย่างสูตรครับ
  1. Sheet2 เซลล์ AJ2 คีย์คำว่า "Count" เพื่อเป็นหัวคอลัมน์
  2. Sheet2 เซลล์ AJ3 คีย์สูตร
    =COUNT(C3:AG3)
    Enter > Copy ลงด้านล่าง
  3. ชีต Summary เซลล์ B1 คีย์
    =IF(ROWS(B$1:B1)>SUM(Sheet2!$AJ$3:$AJ$5),"",LOOKUP(ROWS(B$1:B1),SUBTOTAL(9,OFFSET(Sheet2!$AJ$3,0,0,ROW(Sheet2!$AJ$3:$AJ$5)-ROW(Sheet2!$AJ$3)+1))-SUBTOTAL(9,OFFSET(Sheet2!$AJ$3,ROW(Sheet2!$AJ$3:$AJ$5)-ROW(Sheet2!$AJ$3),0))+1,Sheet2!$B$3:$B$5))
    Enter > Copy ลงด้านล่าง
  4. ชีต Summary เซลล์ A1 คีย์
    =IF(B1="","",B1&"D"&INDEX(Sheet2!$C$2:$AG$2,SMALL(IF(INDEX(Sheet2!$C$3:$AG$5,MATCH(B1,Sheet2!$B$3:$B$5,0),0),COLUMN(Sheet2!$C$2:$AG$2)-COLUMN(Sheet2!$C$2)+1),COUNTIF(B$1:B1,B1))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง กรุณาอ่าน Note ด้านล่างอย่างละเอียด ไม่เช่นนั้นจะไม่ได้คำตอบครับ


!
Note: Ctrl+Shift+Enter เป็นการสร้างสูตร Array โดยสามารถเลือกดำเนินการตามข้อ 1 หรือ 2 ด้านล่าง
  1. กรณีคีย์สูตรเอง เมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array
  2. กรณี Copy สูตรไปวางให้กดแป้น F2 เพื่อทำการ Edit Cell นั้นก่อน จากนั้นกดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วตามด้วย Enter เพื่อสร้างเป็นสูตร Array
  3. หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้ไม่สามารถคีย์เข้าไปเอง จะต้องมาด้วยการกดแป้น Ctrl+Shift+Enter เท่านั้น ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง
  4. การแก้ไขเปลี่ยนแปลงสูตร Array จะต้องกดแป้นให้รับสูตรด้วย Ctrl+Shift+Enter ทุกครั้ง

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#10

Postby sasilakmon » Fri Oct 13, 2017 9:51 am

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

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#11

Postby sasilakmon » Fri Oct 13, 2017 10:59 am

ขอสอบถามเพิ่มเติมค่ะ ถ้าเราจะเขียนเป็น code vba สามารถทำได้ไหมคะ

User avatar
snasui
Site Admin
Site Admin
Posts: 21977
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#12

Postby snasui » Fri Oct 13, 2017 11:02 am

:D VBA เป็นการเขียนโปรแกรม ย่อมสามารถทำได้ทุกอย่างขึ้นอยู่กับความสามารถของผู้ใช้ กรณีต้องการคำตอบเป็น VBA จำเป็นต้องเขียนมาเองก่อนเสมอตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยถามกันต่อครับ

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#13

Postby sasilakmon » Tue Oct 17, 2017 1:36 pm

จากไฟล์ที่แนบมาลองเขียน vba แล้ว แต่ยังไม่ได้ข้อมูลตามที่ต้องการ รบกวนแนะนำด้วยนะคะ ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#14

Postby sasilakmon » Tue Oct 17, 2017 4:57 pm

จากไฟล์ที่แนบมา ลองทำแล้วแต่ข้อมูลรหัสพนักงานกับวันที่มีข้อมูลใน cell ยังไม่ได้ตามที่ต้องการค่ะ ข้อมูลที่ต้องการคือ
50899D1
50899D2
50899D3
ตามจำนวนวันที่มีข้อมูลการทำงานค่ะ
รบกวนแนะนำด้วยนะคะ ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 21977
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#15

Postby snasui » Tue Oct 17, 2017 8:51 pm

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

Code: Select all

Sub copydata()
    Dim r As Range, c As Range
    Dim iCount As Integer
    Sheets("Summary").Range("a:a").ClearContents
    With Sheets("Sheet2")
        Set r = .Range("b3:ag" & .Rows.Count).SpecialCells(xlCellTypeConstants, 1)
        For Each c In r
            If c <> "" Then
                With Sheets("Summary")
                    .Range("a1").Value = "Results"
                    .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Value = c.Parent.Cells( _
                        c.Row, 2).Value & "D" & c.Parent.Cells(2, c.Column).Value
                End With
            End If
        Next c
    End With
End Sub

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#16

Postby sasilakmon » Wed Oct 18, 2017 12:22 pm

ขอบคุณค่ะ เดี๋ยวจะลองทำดูนะคะ

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#17

Postby sasilakmon » Wed Oct 18, 2017 1:11 pm

ทำได้แล้วค่ะ แต่ยังติดปัญหาการแสดงผลของข้อมูลดังต่อไปนี้ค่ะ ที่ไม่มีวันแต่ยังแสดงอยู่ในไฟล์ได้ไฮไลท์สีเหลืองไว้นะคะ รบกวนอีกครั้งนะคะ ขอบคุณค่ะ

50899D
51555D
385594D
334651D
334651D
334651D
334651D
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 21977
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#18

Postby snasui » Wed Oct 18, 2017 10:36 pm

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

Code: Select all

'Other code
Set r = .Range("c3:ag" & .Rows.Count).SpecialCells(xlCellTypeConstants, 1)
'Other code

sasilakmon
Member
Member
Posts: 12
Joined: Thu Sep 28, 2017 10:27 am

Re: Copy ข้อมูลและตรวจสอบข้อมูลซ้ำใน Excel

#19

Postby sasilakmon » Thu Oct 19, 2017 9:02 am

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


Return to “Excel”

Who is online

Users browsing this forum: No registered users and 29 guests