Snasui Excel Forum

#5

ก่อนอื่นต้องขออธิบายครับใน Code ชุดแรกในโพสต์นั้น ผมได้ทำการลบ Statement For i ออกไปจึงทำให้อาจารย์เกิดความสับสนได้ ต้องขออภัยจริงๆครับ ที่ผมได้เอา Statement For i ไปใส่ใน Code ชุดที่สองเนื่องจาก จุดประสงค์ที่ต้องการให้อาจารย์ช่วยแนะนำคือ การอัพเดตอายุงานของพนักงานทั้งหมดจากการนำค่าตัวเลขในเซลล์เดียวไปใส่ยังตัวแปรใน textbox ทั้ง 3 box ดังนั้นจึงย้ายชุด Code For i จาก Code ชุดแรกไปใส่ไว้ใน Code ชุดที่สองครับ
แล้วดันลืมลบ Next i จาก Code ชุดแรก แล้วก็ลืมเอาไปใส่ใน Code ชุดที่สองด้วย ต้องขออภัยเป็นอย่างสูงครับ
ข่าวดี คือ ผมได้ทำการหาข้อมูลและทำการลองผิดลองถูกจนได้ Code ที่ต้องการแล้ว ยังไงก็ขอขอบคุณอาจารย์และผู้รู้ทุกท่านที่ให้คำแนะนำรวมไปถึงชี้แนะแนวทางที่ถูกต้องด้วยครับ

Code ทั้งหมดอยู่ในไฟล์ที่แนบไปอยู่แล้วครับ อยู่ใน VBA Project ใน Module ชื่อว่า Module 1 ครับ

และนี่คือโค้ดที่เขียนเสร็จแล้วตามจุดประสงค์ครับ

Code: Select all

Sub DayWork()
Dim Bdate, DD, DM, DY As String
Dim TD, TDD, TD_D As String
Dim BBD, BBND, DayFM As String
Dim DF_Y, Fyear As String
Dim last_row As Integer
Dim Ddate As Date
Dim FM, FD, FY As Integer
Dim aday, IcolS, Icolf As Long
Dim FFD() As String


Set ws = ActiveSheet
last_row = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To last_row
    If ws.Cells(i, "e").Value <> "" Then
        FFD = Split(ws.Cells(i, "e").Value, "/")
        IcolS = Cells(Rows.Count, "A").End(xlUp).Row
        FY = FFD(2) - 543
        FM = FFD(1)
        FD = FFD(0)
        Ddate = Date
        Bdate = DateSerial(CInt(FY) - 543, CInt(FM), CInt(FD))
            If Month(Ddate) >= Month(Bdate) Then
                DY = DateDiff("YYYY", Bdate, Date)
                TD = DateSerial(FY - 543, Month(Date), Day(Date))
                    If Day(TD) >= Day(Bdate) Then
                        BBD = DateSerial(FY - 543, FM, Day(Date))
                        DM = DateDiff("M", BBD, TD)
                        TD_D = DateSerial(FY - 543, FM, Day(Date))
                        DD = DateDiff("D", TD_D, Bdate)
                    Else
                        BBND = DateSerial(FY - 543, FM, Day(Date))
                        DM = DateDiff("M", BBND, TD)
                        Select Case FM
                            Case "1", " 3", "5", "7", "8", "10", "12"
                                DayFM = 31
                            Case "4", "6", "9", "11"
                                DayFM = 30
                            Case "2"
                                Fyear = DateSerial(2020, Month(Bdate), Day(Bdate))
                                DF_Y = DateDiff("YYYY", Bdate, Fyear)
                                DF_Y = (DF_Y Mod 4)
                                    If DF_Y = 0 Then
                                        DayFM = 29
                                            DD = (DayFM - FD) + Day(Date)
                                            Else
                                                DayFM = 28
                                    End If
                        End Select
                        DD = (DayFM - FD) + Day(Date)
                        DM = DM - 1
                    End If
                        Else
                            Ddate = DateSerial(FY - 542, Month(Date), Day(Date))
                            DY = DateDiff("YYYY", Ddate, Date)
                                If Day(Ddate) > Day(Bdate) Then
                                    TDD = DateSerial(FY - 543, FM, Day(Date))
                                    DM = DateDiff("M", Ddate, Bdate)
                                    DD = DateDiff("D", TDD, Bdate)
                                Else
                                    BBND = DateSerial(FY - 543, FM + 1, Day(Date))
                                    DM = DateDiff("M", Ddate, BBND)
                                        Select Case FM
                                            Case "1", " 3", "5", "7", "8", "10", "12"
                                                DayFM = 31
                                            Case "4", "6", "9", "11"
                                                DayFM = 30
                                            Case "2"
                                                Fyear = DateSerial(2020, Month(Bdate), Day(Bdate))
                                                DF_Y = DateDiff("YYYY", Bdate, Fyear)
                                                DF_Y = (DF_Y Mod 4)
                                                    If DF_Y = 0 Then
                                                        DayFM = 29
                                                    Else
                                                        DayFM = 28
                                                    End If
                                        End Select
                                        DD = (DayFM - FD) + Day(Date)
                                End If
                End If
            Cells(i, "F").Value = CStr(Abs(DY)) & "-" & CStr(Abs(DM)) & "-" & CStr(Abs(DD))
            Cells(i, "G").Value = CStr(Abs(DY))
        Else
            GoTo N
    End If
N:
    Next i
End Sub

ถ้าเกิดมีข้อผิดพลาดหรือสิ่งที่ควรแก้ไขประการใดในโค้ดชุดนี้ ได้โปรดแนะนำด้วยครับ ขอบคุณครับ

#4

ช่วยแนบ Code มาในไฟล์พร้อมทั้งแจ้งว่าอยู่ที่ Module ไหน จะได้เข้าถึงปัญหาโดยไวครับ

การที่จะมี Next i แสดงว่าจะต้องมี Statement เช่น For i = x to y มาก่อน กรุณาเขียนมาให้ครบครับ

#3

ขอบคุณสำหรับความคิดเห็นครับคุณ menem ข้อมูลที่ให้มาเป็นประโยชน์และง่ายกว่ามาก แต่ทางเบื้องบนเขา Request มาว่าต้องการให้ข้อมูลถูกต้องแม่นยำ ใช้งานง่ายและประหยัดเวลามากที่สุด(คือการคลิกครั้งเดียวแล้วทุกอย่างเสร็จสมบูรณ์เลย ไม่ต้องการกรอกข้อมูลทีละช่อง) ครับดังนั้นผมจึงต้องทำทุกอย่างใน vba ทั้งหมดเพื่อเป็นการตอบโจทย์ของทางด้านนั้นให้มากที่สุดครับ

#2

ถ้าเป็นผม ผมจะใช้เป็นสูตรในการคำนวณหา มากกว่าการใช้ VBA (สำหรับงานแบบนี้ครับ)
เพราะมันจะง่ายกว่ามาก (สำหรับผมนะครับ)

#1

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

Code: Select all

Sub DayWork()
Dim Bdate, DD, DM, DY As String
Dim TD, TDD, TD_D As String
Dim BBD, BBND, DayFM As String
Dim DF_Y, Fyear As String
Dim last_row As Integer
Dim Ddate As Date
Dim FM, FD, FY As Integer
Dim aday, IcolS, Icolf As Long
        
    IcolS = Cells(Rows.Count, "A").End(xlUp).Row
    FY = tb_FY
    FM = tb_FM
    FD = tb_FD
    Ddate = Date
    Bdate = DateSerial(FY, FM, FD)
    Cells(IcolS, "E").Value = DateSerial(FY + 543, FM, FD)
        If Month(Ddate) >= Month(Bdate) Then
            DY = DateDiff("YYYY", Bdate, Date)
            TD = DateSerial(FY, Month(Date), Day(Date))
                If Day(TD) >= Day(Bdate) Then
                    BBD = DateSerial(FY, FM, Day(Date))
                    DM = DateDiff("M", BBD, TD)
                    TD_D = DateSerial(FY, FM, Day(Date))
                    DD = DateDiff("D", TD_D, Bdate)
                Else
                    BBND = DateSerial(FY, FM, Day(Date))
                    DM = DateDiff("M", BBND, TD)
                    Select Case FM
                        Case "1", " 3", "5", "7", "8", "10", "12"
                            DayFM = 31
                        Case "4", "6", "9", "11"
                            DayFM = 30
                        Case "2"
                            Fyear = DateSerial(2020, Month(Bdate), Day(Bdate))
                            DF_Y = DateDiff("YYYY", Bdate, Fyear)
                            DF_Y = (DF_Y Mod 4)
                                If DF_Y = 0 Then
                                    DayFM = 29
                                        DD = (DayFM - FD) + Day(Date)
                                        Else
                                            DayFM = 28
                                End If
                    End Select
                    DD = (DayFM - FD) + Day(Date)
                    DM = DM - 1
                End If
                    Else
                        Ddate = DateSerial(FY + 1, Month(Date), Day(Date))
                        DY = DateDiff("YYYY", Ddate, Date)
                            If Day(Ddate) > Day(Bdate) Then
                                TDD = DateSerial(FY, FM, Day(Date))
                                DM = DateDiff("M", Ddate, Bdate)
                                DD = DateDiff("D", TDD, Bdate)
                            Else
                                BBND = DateSerial(FY, FM + 1, Day(Date))
                                DM = DateDiff("M", Ddate, BBND)
                                    Select Case FM
                                        Case "1", " 3", "5", "7", "8", "10", "12"
                                            DayFM = 31
                                        Case "4", "6", "9", "11"
                                            DayFM = 30
                                        Case "2"
                                            Fyear = DateSerial(2020, Month(Bdate), Day(Bdate))
                                            DF_Y = DateDiff("YYYY", Bdate, Fyear)
                                            DF_Y = (DF_Y Mod 4)
                                                If DF_Y = 0 Then
                                                    DayFM = 29
                                                Else
                                                    DayFM = 28
                                                End If
                                    End Select
                                    DD = (DayFM - FD) + Day(Date)
                            End If
        End If
        Cells(IcolS, "F").Value = CStr(Abs(DY)) & "-" & CStr(Abs(DM)) & "-" & CStr(Abs(DD))
        Cells(IcolS, "G").Value = CStr(Abs(DY))
    Next i
End Sub

จาก Code ข้างต้นมีวิธีการทำงานคร่าวๆ คือ เมื่อกรอกวันที่เริ่มทำงานใน form โดยจะแบ่งเป็น 3 textbox คือ วัน / เดือน / ปี ตามลำดับ
แล้วจากนั้นจะทำการรันออกมาเป็นอายุงาน ซึ่งเป็น textbox เดียว และนำไปใส่ยังตารางในไฟล์ที่แนบให้

Data (Myanmar).xlsm: ข้อมูลพนักงาน; (39.13 KiB) Downloaded 8 times

คำถาม ถ้าผมต้องการสร้างปุ่มอัพเดต แล้วเมื่อกดปุ่มอัพเดต จะให้ทำการอัพเดตอายุงานของพนักงานทั้งหมดให้เป็นปัจจุบันทันที (เนื่องจาก Code ด้านบนไม่มีคำสั่งให้อัพเดตอายุงานให้เป็นปัจจุบันเอง) แต่ปัญหาคือ ค่าของตัวแปร FD FM FY ที่มาจาก Textbox 3 Box นั้น มันคือการนำเข้าของค่าที่อยู่ในเซลล์เดียวกันใน Column E ซึ่งเป็น Type วันที่ เช่น 12/6/2562
ดังนั้นสิ่งที่ผมต้องการ คือ Code เพื่อหาตำแหน่งตัวเลขของเซลล์นั้นๆ เพื่อนำเข้าไปใส่ในตัวแปร FD FM FY เช่น ถ้าค่าของวันที่ในเซลล์นั้นเป็น 12/6/2562 ก็ให้ FD = 12 , FM = 6 , FY = 2562 เป็นต้น

ตัวอย่าง Code ตามที่ผมได้ศึกษาแล้วลองเขียนมาครับ (แต่ก็ยังไม่ได้)

Code: Select all

Set ws = ActiveSheet
last_row = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To last_row
        
    IcolS = Cells(Rows.Count, "A").End(xlUp).Row
    FY = ws.Cells(i, E).Characters(1, 2).Value
    FM = ws.Cells(i, E).Characters(4, 2).Value
    FD = ws.Cells(i, E).Characters(7, 4).Value

ถ้าหากมีข้อผิดพลาดประการใดก็ขออภัยและขอคำแนะนำจากผู้รู้ทุกท่านด้วยครับ ขอบคุณอาจารย์และผู้รู้ทุกท่าน

Snasui Excel Forum

สอบถามโค้ด VBA เกี่ยวกับการหาตำแหน่งของตัวเลขในเซลล์เดียวกัน

Post a reply

Expand view Topic review: สอบถามโค้ด VBA เกี่ยวกับการหาตำแหน่งของตัวเลขในเซลล์เดียวกัน

Re: สอบถามโค้ด VBA เกี่ยวกับการหาตำแหน่งของตัวเลขในเซลล์เดียวกัน

Re: สอบถามโค้ด VBA เกี่ยวกับการหาตำแหน่งของตัวเลขในเซลล์เดียวกัน

Re: สอบถามโค้ด VBA เกี่ยวกับการหาตำแหน่งของตัวเลขในเซลล์เดียวกัน

Re: สอบถามโค้ด VBA เกี่ยวกับการหาตำแหน่งของตัวเลขในเซลล์เดียวกัน

สอบถามโค้ด VBA เกี่ยวกับการหาตำแหน่งของตัวเลขในเซลล์เดียวกัน