หาสูตรการเก็บค่าของ Sheets ที่ Option Button เลือก

[Godtheking]

ผมอยากจะแทนค่าใน Set sh = ThisWorkbook.Sheets("Trim")
ให้ Trim เก็บค่าเอา Sheets จาก Option Button ถ้าเลือก PBP ให้ Trim เปลี่ยนเป็น PBP
ต้องเขียนโค้ดอย่างไงครับ

Code: Select all

    Dim sh As Worksheet
    Dim iRow As Long
    
        Set sh = ThisWorkbook.Sheets("Trim")

        If frmForm.txtRowNumber.Value = "" Then
            iRow = Sheets("Trim").Range("A" & Rows.Count).End(xlUp).Row + 1
        Else
            iRow = frmForm.txtRowNumber.Value
        End If

[snasui]

ตัวอย่างการปรับ Code ลองประยุกต์ใช้ดูครับ

Code: Select all

'Other code'
Dim x As Object
Dim str As String

For Each x In frmForm.Frame5.Controls
    If x.Value = True Then
        str = x.Name
        Exit For
    End If
Next
Set sh = ThisWorkbook.Sheets(x)
'Other code

ในโอกาสถัดไปกรุณาระบุรายละเอียดให้ครบว่า Code อยู่ที่ Module ไหน ชื่อว่าอะไร อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบ จะได้เข้าถึงปัญหาโดยไวครับ

[Godtheking]

ผมลองปรับใช้ได้แร้วครับแต่ตอนนี้ผมติดปัญหาเรื่องของการ UPDATE
ผม Edit ข้อมูลขึ้นมาแก้ไข แร้วกด Update ข้อมูลของผมที่ Update ไม่ได้ทับตัวที่ Edit
ขั้นมาแต่ข้อมูลลงไปอยู่ล่าสุด
ผมต้องปรับแก้ Code ตรงไหนบ้างครับ

Code: Select all

Sub Update_Weight() '''    *** Update   *** '''
    Dim sh As Worksheet
    Dim iRow As Long
    Dim x As Object
    Dim str As String

    For Each x In frmForm.Frame5.Controls
        If x.Value = True Then
            str = x.Name
            Exit For
        End If
    Next

        Set sh = ThisWorkbook.Sheets(str)

        If frmForm.txtRowNumber.Value = "" Then
            iRow = sh.Range("A" & Rows.Count).End(xlUp).Row + 1
        Else
            iRow = frmForm.txtRowNumber.Value
        End If
            If frmForm.txtPart.Value = "" Then
                MsgBox "Please specify Part No."
            ElseIf frmForm.txtName.Value = "" Then
                MsgBox "Please specify PART Name."
            ElseIf Len(frmForm.txtModel.Value) <> 3 Then
                MsgBox "Please specify Model"
            ElseIf Len(frmForm.txtControl.Value) <> 4 Then
                MsgBox "Please specify CONTROL"
            ElseIf frmForm.txtQty.Value = "" Then
                MsgBox "Please specify Q'TY"
            ElseIf frmForm.txtPiece.Value = "" Then
                MsgBox "Please specify By Piece"
            ElseIf Len(frmForm.txtDate.Value) <> 8 Then
                MsgBox "Please specify Date."
            ElseIf Len(frmForm.txtID.Value) <> 4 Then
                frmForm.txtPart.SetFocus
            Else
            
             With sh
                .Cells(iRow, 1) = iRow - 2
                .Cells(iRow, 2) = frmForm.txtPart.Value
                .Cells(iRow, 3) = frmForm.txtName.Value
                .Cells(iRow, 4) = frmForm.txtModel.Value
                .Cells(iRow, 5) = frmForm.txtControl.Value
                .Cells(iRow, 6) = frmForm.txtQty.Value
                .Cells(iRow, 7) = frmForm.txtBox1.Value
                .Cells(iRow, 8) = frmForm.txtBox2.Value
                .Cells(iRow, 9) = frmForm.txtBox3.Value
                .Cells(iRow, 10) = frmForm.txtBox4.Value
                .Cells(iRow, 11) = frmForm.txtBox5.Value
                .Cells(iRow, 12) = frmForm.txtBox6.Value
                .Cells(iRow, 13) = frmForm.txtBox7.Value
                .Cells(iRow, 14) = frmForm.txtBox8.Value
                .Cells(iRow, 15) = frmForm.txtBox9.Value
                .Cells(iRow, 16) = frmForm.txtBox10.Value
                .Cells(iRow, 17) = frmForm.txtPiece.Value
                .Cells(iRow, 18) = frmForm.txtStandard.Value
                .Cells(iRow, 19) = frmForm.txtLower.Value
                .Cells(iRow, 20) = frmForm.txtUpper.Value
                .Cells(iRow, 21) = frmForm.txtPercent.Value
                .Cells(iRow, 22) = frmForm.txtPercent1.Value
                .Cells(iRow, 23) = frmForm.txtID.Value
                .Cells(iRow, 24) = frmForm.txtDate.Value
                .Cells(iRow, 25) = frmForm.txtIDName.Value
                .Cells(iRow, 26) = Left(frmForm.txtPart.Value, 8)
                .Cells(iRow, 27) = frmForm.txtCheck.Value
            End With
        End If
    'Call SaveData
 End Sub
 

[snasui]

ช่วยโพสต์ให้เป็นไปตามกฎการใช้บอร์ดข้อ 1 ด้านบน แล้วแจ้งมาใหม่ครับ