มีปัญหาการเขียน VBA คะ

[natsuda]

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

[XDoll]

ผมไม่มีความรู้เรื่อง VBA นะครับ แต่เบื้องต้นพอจะทราบว่า Office ตั้งแต่ 2007 ขึ้นไปต้องมีนามสกุล *.xlsm ครับ ส่วนเรื่องที่มีปัญหาเรื่อง code จำเป็นต้องเขียนมาก่อน(กฏข้อที่5 ) ให้แนบไฟล์แล้วโพสต์ code ที่มีปัญหานั้นๆ พร้อมทั้งอธิบายที่มาที่ไป เงื่อนไขต่างๆให้ครบถ้วน เพื่อง่ายต่อการทำความเข้าใจของอาจารย์และเพื่อนสามาชิกท่านอื่นครับ

ตัวอย่างการวาง code viewtopic.php?f=6&t=1187#p7403

Code: Select all

 ... bla bla bla...

[natsuda]

ขอโทษและขอบคุณสำหรับคำแนะนำคะ คือพอดีที่โค๊ดไม่แน่ใจว่ามีปัญหาหรือเปล่านะคะ คือรันออกได้ปกติ แต่ข้อมูลกลับไม่ขึ้นตามช่องที่เราต้องการคะ รบกวนช่วยหน่อยนะคะ

Code: Select all

Private Sub Cancel_Click()
    Unload Me
End Sub

Private Sub Clear_Click()
    Call UserForm1_Initialize
End Sub

Private Sub namebox_Change()
    Me.Caption = Namebox.Value
End Sub

Private Sub numberbox_Change()
    Me.Caption = Numberbox.Value
End Sub

Private Sub OK_Click()
    
    With Range("D3" & xlRows).End(xlUp).Offset(1, 0)
        
        .Offset(0, 0).Value = Namebox.Value
        If Buy.Value Then
            .Offset(0, 1).Value = "¢ÒÂ"
        Else
            .Offset(0, 1).Value = "«×éÍ"
        End If
        .Offset(0, 2).Value = Pricebox.Value
        .Offset(0, 3).Value = Numberbox.Value
    End With
        
       Namebox.Value = ""
       Pricebox.Value = ""
       Numberbox.Value = ""
       
End Sub

Private Sub pricebox_Change()
    Me.Caption = Pricebox.Value
End Sub

Private Sub UserForm1_Initialize()
    Namebox.Value = ""
    Numberbox.Value = ""
    Pricebox = ""
    Buy.Value = True
    
End Sub

Private Sub UserForm_Click()

End Sub

[natsuda]

อันนีเป็นไฟล์งานใหม่นะคะ ทำปุ่มแค่เดือนมกราคมกับกุมภาพันธ์คะ

[snasui]

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

Code ที่ชีต Pro

Code: Select all

Private Sub CommandButton1_Click()
    Range("a1").Value = CommandButton1.TopLeftCell.Address
    UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
    Range("a1").Value = CommandButton2.TopLeftCell.Address
    UserForm1.Show
End Sub
...

Code ที่ UserForm1

Code: Select all

Private Sub OK_Click()
    
    With Range(Range("a1").Value).Offset(10, 3).End(xlUp).Offset(1, 0)
        .Offset(0, 0).Value = Namebox.Value
        If Buy.Value Then
            .Offset(0, 1).Value = "ซื้อ"
        Else
            .Offset(0, 1).Value = "ขาย"
        End If
        .Offset(0, 2).Value = Pricebox.Value
        .Offset(0, 3).Value = Numberbox.Value
    End With
        
       Namebox.Value = ""
       Pricebox.Value = ""
       Numberbox.Value = ""
       
End Sub

[natsuda]

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