Em đang gặp vấn đề về userform và bài toán với nó. Rất mong mọi người giúp đỡ

[sown.nuce]

Thân chào các anh chị trong diễn đàn!
Em đang gặp vấn đề ( có file em đính kèm). Bài toán em đặt ra như sau: Ban đầu ta gọi form lên, click vào nút OK thì textbox1 lấy giá trị từ ô A1, đồng thời nút OK biến thành nút Update. textbox1 sửa giá trị và bấm vào nút update thì giá trị ô A1 sẽ được cập nhật theo cái mới này. Rất mong nhận được sựu giúp đỡ từ các anh chị trong diễn đàn

----------------
Em đã thực hiện được rồi. Nhưng không biết cách xóa bài viết. Em note lại ở đây

 

[SA_DQ]

Private Sub CmdOK_Click()
 If Me!CmdOK.Caption = "OK" Then
    Me!CmdOK.Caption = "Udapte"
    Me!tbTxt.Value = [A1].Value
 ElseIf Me!CmdOK.Caption = "Udapte" Then
    Me!CmdOK.Caption = "OK"
    [A1].Value = Me!tbTxt.Value
    Me!tbTxt.Text = "Xin Chào!"
 End If
End Sub

 

[befaint]

Em đã thực hiện được rồi. Nhưng không biết cách xóa bài viết. Em note lại ở đây.

Bạn làm được như nào thì đăng lên đây để mọi người cùng tham khảo.

Vậy mới vui chứ, sao lại tìm cách xóa bài đi vậy? Như vậy là hơi kỳ đó.

 

[SA_DQ]

Lại 1 thành viên muốn xóa diếm thành quả của mình; Mong là lần sau thành viên này không gé diễn đàn nữa!

 

[be_09]

Thân chào các anh chị trong diễn đàn!
Em đang gặp vấn đề ( có file em đính kèm). Bài toán em đặt ra như sau: Ban đầu ta gọi form lên, click vào nút OK thì textbox1 lấy giá trị từ ô A1, đồng thời nút OK biến thành nút Update. textbox1 sửa giá trị và bấm vào nút update thì giá trị ô A1 sẽ được cập nhật theo cái mới này. Rất mong nhận được sựu giúp đỡ từ các anh chị trong diễn đàn

----------------
Em đã thực hiện được rồi. Nhưng không biết cách xóa bài viết. Em note lại ở đây

Góp ý cho bạn:
1/ Khi đã được trợ giúp xong rồi thì bạn cũng nên để lại cái File cho các thành viên khác có cái mà tham khảo.
2/ Nếu bạn xóa cái File đi thì xem như bạn đã xem thường mọi người và phụ lòng người trợ giúp.

 

[sown.nuce]

Lại 1 thành viên muốn xóa diếm thành quả của mình; Mong là lần sau thành viên này không gé diễn đàn nữa!

Dạ, em là người mới, câu hỏi của em đưa ra chưa phải cái đích em cần giải đáp nên em muốn xóa đi và làm 1 bài đăng mới, nhưng giờ mới có thời gian lên diễn đàn. Bên dưới là file em của em. Còn đây là dòng code mà em có vấn đề:

Sub getform()
With Sheet1
UserForm1.TextBox1.Value = .Range("A1")
If UserForm1.CommandButton1.Caption = "Update" Then
If UserForm1.CommandButton1 = True Then
.Range("A1") = UserForm1.TextBox1.Value
End If
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Sub goi()
UserForm1.Show
End Sub

em muốn thao tác như sau:
+ Bấm vào nút OK lần 1 thì code trong lệnh getform chỉ chạy đến lệnh "UserForm1.TextBox1.Value = .Range("A1")", chờ người dùng sửa đổi textbox1. Khi đó nút bấm sẽ đổi caption thành "Update"
+ Tiếp đến bấm vào update thì code chạy đến hết lệnh getform
Em rất mong anh chị giải quyết giúp em

Bài đã được tự động gộp: 23/8/20

Góp ý cho bạn:
1/ Khi đã được trợ giúp xong rồi thì bạn cũng nên để lại cái File cho các thành viên khác có cái mà tham khảo.
2/ Nếu bạn xóa cái File đi thì xem như bạn đã xem thường và phụ lòng người trợ giúp.

em cám ơn bác đã góp ý ạ. Em sẽ rút kinh nghiệm vào lần sau ạ. Bài toán của em nằm ở #6 rất mong bác giúp em với ạ

 

[SA_DQ]

Tao tặng mầy code

Được nhận món 2uà này như nhận được món nợ!

 

[VetMini]

Được nhận món 2uà này như nhận được món nợ!

Ngôn ngữ vậy mà bạn cũng nghe được. Phải khâm phục sự chịu đựng của bạn.

 

[Ba mười ba]

Ngôn ngữ vậy mà bạn cũng nghe được. Phải khâm phục sự chịu đựng của bạn.

Bác ơi, anh cháu gọi bác kìa.

 

[SA_DQ]

Ngôn ngữ vậy mà bạn cũng nghe được. Phải khâm phục sự chịu đựng của bạn.

/(ha, Kha, kha,. . . . . tai chưa đến nổi nào, nên vẫn nghe mọi người nói 1 cách đủ lớn. . . .
Còn Chí chưỡi thì trước hết Chí nghe cái đã, sau đó là mọi người cũng nghe cùng mình mà, có ai thiệt thòi gì chăng(?)

 

[tigertiger]

/(ha, Kha, kha,. . . . . tai chưa đến nổi nào, nên vẫn nghe mọi người nói 1 cách đủ lớn. . . .
Còn Chí chưỡi thì trước hết Chí nghe cái đã, sau đó là mọi người cũng nghe cùng mình mà, có ai thiệt thòi gì chăng(?)

Ý Vetmini chắc là việc nhận quà đó,
Bác không nhận, người nhận không muốn nhận, không ai nhận thì người kia phải mang về tự thưởng thức thôi.

 

[SA_DQ]

Còn ngôi thứ 3 số nhiều nữa, đó là diễn đàn; & Không biết các SMOD nghĩ sao?

 

[ptm0412]

Còn ngôi thứ 3 số nhiều nữa, đó là diễn đàn; & Không biết các SMOD nghĩ sao?

Sau bài trên, vi phạm thì có nhưng chưa đến mức ban nick, theo lẽ chỉ nhắc nhở hoặc cảnh cáo. Tuy vậy chưa kịp làm thì xuất hiện 3 bài spam vô giá trị, gộp vào vi phạm bên trên thì tôi xử lý luôn rồi.