ต้องการเคลียร์ค่าหลังจากที่กด clear > Getdata

[wisitsakbenz]

วิธีคือ
1.คลิก Button 1 (Sheet 1)
2.กรอกข้อมูลที่ช่อง Date, Amount , exclusion 1-4
3. คลิกปุ่ม Getdata (ค่าจะโชว์ใน Sheet "From")

หลังจากนั้นต้องการเคลียค่าให้กลับไปเป็นค่าว่าง โดย
1.คลิกปุ่ม clear
2.Getdata

จะไม่มีตัวอักษรปรากฎในช่อง Part1Exclusions2 และ Part2ExclusionsThai

ต้องปรับ Code อย่างไรบ้างครับ ขอบคุณครับ

[logic]

แบบนี้หรือเปล่าครับ

Code: Select all

Private Sub Newform_Click()
    'Clear the data
    TbDesIncurred.Value = ""
    TbDesIncurredDesc.Value = ""
    TbDesExclusion1.Value = ""
    TbDesExclusion2.Value = ""
    TbDesExclusion3.Value = ""
    TbDesExclusion4.Value = ""
    Sheets("Forms").Range("a2,a6").ClearContents
End Sub

[wisitsakbenz]

ได้แล้วครับอาจารย์ ขอบคุณมากครับ

[wisitsakbenz]

อาจารย์ครับ หลังจากที่นำไปใช้จริงปรากฎว่า ไม่ได้ครับ

ขั้นตอนมีดังนี้

1. กรอกข้อมูล
2. คลิกปุ่ม Getdata
3.ปรากฏดังภาพ
4.คลิกปุ่ม Clear
5.คลิกปุ่ม Getdata
6.ปรากฏดังภาพ

ต้องปรับ code อย่างไรบ้างครับ ขอบคุณครับ

[wisitsakbenz]

ต่อครับ

[EX2010]

Code: Select all

Private Sub Newform_Click()
    'Clear the data
    Dim ctl As Control
     For Each ctl In Me.Controls
         Select Case TypeName(ctl)
            Case "TextBox"
              ctl.Text = ""
           Case "ComboBox"
             ctl.Value = ""
     End Select
Next ctl
    
    Sheets("Forms").Range("A2:F4,A6:F8").ClearContents
End Sub

[wisitsakbenz]

ไม่ได้ครับอาจารย์

ต้องการคลิกปุ่ม Clear แล้วคลิกปุ่ม Getdata จะค่าว่างเข้าไปใน Sheet "Form"

[wisitsakbenz]

ไม่ได้ครับอาจารย์ EX2010

ต้องการคลิกปุ่ม Clear แล้วคลิกปุ่ม Getdata ค่าว่างเข้าไปใน Sheet "Form" ครับ

แต่อยากให้เคลียร์

* Incurred expenses prior to the procedure as of in the amount of Thai Baht
*

* ค่าใช้จ่ายที่เกิดขึ้นก่อนทำหัตถการจนถึงวันที่ เป็นจำนวนเงินทั้งสิ้นประมาณ บาท
*

ด้วยครับ รบกวนอาจารย์ด้วยครับ ขอบคุณครับ

[snasui]

อาจารย์ครับ หลังจากที่นำไปใช้จริงปรากฎว่า ไม่ได้ครับ

ขั้นตอนมีดังนี้

1. กรอกข้อมูล
2. คลิกปุ่ม Getdata
3.ปรากฏดังภาพ
4.คลิกปุ่ม Clear
5.คลิกปุ่ม Getdata
6.ปรากฏดังภาพ

ต้องปรับ code อย่างไรบ้างครับ ขอบคุณครับ

แนบไฟล์ล่าสุดที่ได้นำ Code ที่เพื่อนสมาชิกได้ตอบไปมาด้วย จะได้ดูต่อไปจากนั้นครับ

[wisitsakbenz]

แนบให้แล้วครับอาจารย์

[snasui]

เท่าที่ทดสอบก็ทำงานได้ ไม่ทราบว่าติดขัดตรงไหน กรุณาอธิบายลงในรายละเอียดครับ

[puriwutpokin]

ใช่แบบนี้ไหมครับ

Code: Select all

Private Sub Preview_Click()


'Define abbreviations for worksheets

    Dim WF As Worksheet
    Set WF = Worksheets("Forms")

'Fill exclusions
    Dim IncurredExpenses As String
    Dim IncurredExpensesThai As String
    Dim ExclusionsText As String
    Dim ExclusionsTextThai As String
    Dim AmountCell As Range
    If TbDesIncurred = "" Then Exit Sub
    IncurredExpenses = "* Incurred expenses prior to the procedure as of " & TbDesIncurred.Text & _
    " in the amount of " & TbDesIncurredDesc.Text & " Thai Baht"
    
    IncurredExpensesThai = "* ค่าใช้จ่ายที่เกิดขึ้นก่อนทำหัตถการจนถึงวันที่ " & TbDesIncurred.Text & _
    " เป็นจำนวนเงินทั้งสิ้นประมาณ " & TbDesIncurredDesc.Text & " บาท"
    
    
        If TbDesExclusion1 <> "" Then
                  ExclusionsText = ExclusionsText & TbDesExclusion1 & Chr(10)
        End If
        
        If TbDesExclusion2 <> "" Then
                  ExclusionsText = ExclusionsText & "* " & TbDesExclusion2 & Chr(10)
        End If
        
        If TbDesExclusion3 <> "" Then
                  ExclusionsText = ExclusionsText & "* " & TbDesExclusion3 & Chr(10)
        End If

        If TbDesExclusion4 <> "" Then
                  ExclusionsText = ExclusionsText & "* " & TbDesExclusion4 & Chr(10)
        End If
    
    If TbDesIncurredDesc <> 0 Then
       ' WF.Range("Part1Exclusions") = IncurredExpenses & vbCrLf & ExclusionsText
         WF.Range("Part1Exclusions2") = IncurredExpenses & Chr(10) & "* " & ExclusionsText
        WF.Range("Part2ExclusionsThai") = IncurredExpensesThai & Chr(10) & "* " & ExclusionsText
   ' Else
       ' WF.Range("Part1Exclusions") = ExclusionsText
   '     WF.Range("Part1Exclusions2") = ExclusionsText
    '    WF.Range("Part1Exclusions3") = ExclusionsText
    '    WF.Range("Part2Exclusions") = ExclusionsText
    '    WF.Range("Part2ExclusionsThai") = ExclusionsText
    End If
    
    Worksheets("Forms").Activate
    
    End Sub

[wisitsakbenz]

ได้แล้วครับอาจารย์ puriwutpokin ขอบคุณมากครับ