สวัสดีครับ อจ ทุกท่าน
ผมทำการแยก sheet ด้วย vba excel
ตามกลุ่มของข้อมูลที่เหมือนกัน
มันก็ทำงานได้ปกติ.,.ครับ
 ปัญกาของผมคือ ผมจะต้องมาจัดรูปแบบต่างๆ รวมถึงจัดหน้ากระดาษใหม่ครับ
ถ้าอย่างที่ผมคิดไว้คือ สร้าง sheet
ต้นแบบไว้ แล้วค่อยเอาข้อมูลมาหยอด
จะได้หรือเปล่า และจะต้องแก้ code อย่างไรครับ ผมรบกวนด้วยครับ

Sub SpiltSheet()

On Error Resume Next

'Declaring Constant Variable
 

Application.DisplayAlerts = False

Const col = "A"

Const header_row = ("1:1")

Const starting_row = 2

Dim Source_sheet As Worksheet

Dim destination_sheet As Worksheet

Dim current_sheet As Worksheet

Dim footer_sheet As Worksheet

Dim source_row As Long

Dim last_row As Long

Dim destination_row As Long

Dim Maker As String

'Set source_sheet = ActiveSheet

Set Source_sheet = Sheets("Base")

Set footer_sheet = Sheets("Footer")

 
    last_row = Source_sheet.Cells(Source_sheet.Rows.Count, col).End(xlUp).Row
 

    For source_row = starting_row To last_row

    Maker = Source_sheet.Cells(source_row, col).Value
 

    Set destination_sheet = Nothing

    On Error Resume Next

    Set destination_sheet = Worksheets(Maker)
   

    On Error GoTo 0
   

    If destination_sheet Is Nothing Then

        Set destination_sheet = Worksheets.Add(after:=Worksheets(Worksheets.Count))

        destination_sheet.Name = Maker

   
        'Header

        Source_sheet.Rows(header_row).Copy Destination:=destination_sheet.Rows(header_row)

 
    End If
   

    ' Retrive data

    destination_row = destination_sheet.Cells(destination_sheet.Rows.Count, col).End(xlUp).Row + 1

    Source_sheet.Rows(source_row).Copy Destination:=destination_sheet.Rows(destination_row)
 

    Next source_row

End Sub



ขอบคุณมากครับ
แต่น่าจะยังไม่ได้ครับผม

สวัสดีครับ
ขอบคุณครับสำหรับการแบ่งปันองค์ความรู้ดีๆ ของผู้รู้ทุกท่าน นับว่าเป็นประโยชน์กับผม และเพื่อนๆที่กำลังเรียนรู้ เพื่อนำไปประยุกต์ใช้กับงานต่อไปครับ และที่สำคัญขอบขอบคุณพื้นดีๆอย่าง Thai access เป็นอย่างเป็นที่สุดครับ

สวัสดีครับ
ผมมี code ตัวอย่าง ดังนี้ครับ

if txtID.Tag & "" = "" then
   msgbox "ok"
else
   msgbox "ng"
end if

ความหมายของแถวแรกหมายความว่าอย่างไรครับ และ ทำไมใช้ .Tag
คุณสมบัติ .tag คืออะไรครับ

รบกวนครับผม

สวัสดีครับ
จากโค้ดด้านล่าง ต้องการลบข้อมูลในตาราง โดยใช้เงื่อนไข อ้างอิงให้ลบจาก
bsCode ขีดเส้นใต้ ซึ่งตอนนี้เป็นข้อมูลชนิดตัวเลข number อยู่ครับ ถ้าต้องการเปลี่ยนข้อมูลชนิดเป็น string จะต้องเขียนอย่างใดครับ
ขอบคุณครับผม
   
 If Not (Me.frmBaseGoodsSub.Form.Recordset.EOF And Me.frmBaseGoodsSub.Form.Recordset.BOF) Then
        If MsgBox(" Are you sure to delete?", vbYesNo) = vbYes Then
            CurrentDb.Execute "DELETE FROM tblBaseGoods " & _
            " WHERE bsCode=" & Me.frmBaseGoodsSub.Form.Recordset.Fields("bsCode")

        End If

     

สวัสดีครับอาจารย์ทุกท่าน
รบกวนขอความรู้ด้วยครับผม
 โจทย์ของผมคือ
ผมมี textbox อยู่ 12 ตัว ความต้องการคือ
เมื่อกรอกข้อมูลลง textbox ใดก็ตาม
textbox ถัดไปทั้งหมดจะต้องมีค่าเหมือนกันทั้งหมด ส่วน textbox ก่อนหน้านี้ไม่ต้องเติมข้อมูลใดๆ คือคงค่าไว้
ขอบคุณมากครับผม

ขอบคุณมากครับ
 :cry:เรียนอาจารย์ TTT,อาจารย์ Pichai ,อาจารย์ปิ่นณรงค์
รบกวนช่วยหน่อยครับผม

ขอบคุณครับ

ขอบพระคุณมากครับอาจารย์
ถ้าในกรณีที่มี 1 Field หรือ 2 Field ที่มีค่าเป็น 0 แต่เราไม่ต้องการค่า 0 คือต้องการค่า Min ที่มากกว่า 0 ขึ้นไป
ครับ จะต้องเพิ่มคำสั่งอย่างไรครับผม