Giúp code input số thứ tự hiện 1 lần nếu không điền gì thì sẽ dừng vòng lặp

[Mimi#]

View attachment 296828
Em muốn hộp input số thứ tự chỉ hiện 1 lần với điều kiện không điền gì thì sẽ dừng vòng lặp= cách hỏi lại nhờ msgbox như trên; còn nếu điền thì nó sẽ in giá trị vào ô A,i ạ( như code trên là phải nhập input số thứ tự 2 lần rồi ạ đó em chưa tối ưu được ) . Cảm ơn các cao nhân

 

[hoangtuan.net]

Bạn thử đoạn này xem sao?

Sub Bosungthemdanhsach()
    Dim i As Long
    Dim Dcuoi As Long
    Dcuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = Dcuoi To Rows.Count
        If InputBox("Nhap so thu tu sach de bat dau") = "" Then
            If MsgBox("Ban co muon tiếp tục không?", vbYesNo) = vbNo Then
                Exit For
            End If
        End If
        Sheet1.Range("A" & i).Value = InputBox("So thu tu sach ")
        Sheet1.Range("B" & i).Value = InputBox("Ten sach ")
    Next i
End Sub

 

[cantl]

Em muốn hộp input số thứ tự chỉ hiện 1 lần với điều kiện không điền gì thì sẽ dừng vòng lặp= cách hỏi lại nhờ msgbox như trên; còn nếu điền thì nó sẽ in giá trị vào ô A,i ạ( như code trên là phải nhập input số thứ tự 2 lần rồi ạ đó em chưa tối ưu được ) . Cảm ơn các cao nhân

Làm đại:

Sub Bosungthemdanhsach()
    Dim i As Long
    Dim Dcuoi As Long
    Dim STTSach$
    Dcuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = Dcuoi To Rows.Count
Lamlai:
    STTSach = InputBox("Nhap so thu tu sach de bat dau")
        If STTSach = "" Then
            If MsgBox("Ban co muon ti?p t?c không?", vbYesNo) = vbNo Then
                Exit Sub
                Else
                GoTo Lamlai
            End If
        End If
        Sheet1.Range("A" & i).Value = STTSach
        Sheet1.Range("B" & i).Value = InputBox("Ten sach ")
    Next i
End Sub

 

[Mimi#]

Làm đại:

Sub Bosungthemdanhsach()
    Dim i As Long
    Dim Dcuoi As Long
    Dim STTSach$
    Dcuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = Dcuoi To Rows.Count
Lamlai:
    STTSach = InputBox("Nhap so thu tu sach de bat dau")
        If STTSach = "" Then
            If MsgBox("Ban co muon ti?p t?c không?", vbYesNo) = vbNo Then
                Exit Sub
                Else
                GoTo Lamlai
            End If
        End If
        Sheet1.Range("A" & i).Value = STTSach
        Sheet1.Range("B" & i).Value = InputBox("Ten sach ")
    Next i
End Sub

Được rùi ạ cảm ơn cậu nhiều

 

[VetMini]

Thêm một nhơn vật với nghề ăn cháo đá bát.

 

[SA_DQ]

Thêm một nhơn vật với nghề ăn cháo đá bát.

Hình như bạn nóng quá nên viết sai chính tả thì phải: Ăn cháo lỏng thì phải là đái . . . chứ nhỉ!

 

[LuuAnh980]

Tơi bạn @Mimi# :Mình được rồi, thì để lại cho người khác học hỏi chứ

 

[VetMini]

Hình như bạn nóng quá nên viết sai chính tả thì phải: Ăn cháo lỏng thì phải là đái . . . chứ nhỉ!

Cỡ thớt mà "nóng" nổi tôi à? Không sai chính tả đâu. Từ nhỏ đến lớn tôi vẫn dùng là "đá", húp cháo xong đặt cái bát xuống và đá nó đi.

Nếu có sai thì chỉ là sai từ trong thành ngữ.

 

[SA_DQ]

M. Bing:
Cả hai thành ngữ “Ăn cháo đá bát” và “Ăn cháo đái bát” đều được sử dụng trong tiếng Việt. Tuy nhiên, hầu hết người dùng sẽ sử dụng thành ngữ “Ăn cháo đái bát” hơn là “Ăn cháo đá bát” [1,2,3].

Thành ngữ “Ăn cháo đái bát” gồm hai vế: vế thứ nhất nói về việc nhận ân nghĩa (ăn cháo), về thứ hai nói về sự bội bạc ân nghĩa đó (đái bát) 1. Thành ngữ này được sử dụng để chỉ những kẻ vong ơn bội nghĩa, được giúp đỡ nhưng lại phụ bạc người ân [3].

Tuy nhiên, một số người còn băn khoăn, không hiểu dạng đích thực của thành ngữ này là “Ăn cháo đái bát” hay “Ăn cháo đá bát”. Thực ra, điều đó chẳng có nghĩa lý gì, bởi vì hành vi đái bát hay đá bát đều biểu thị sự phũ phàng đến thô bạo của người đời. Dĩ nhiên, hành vi đái bát gây ấn tượng mạnh mẽ, nặng nề hơn và phù hợp với cách nói khoa trương, phóng đại mà dân gian vẫn ưa dùng [1].

Cùng nghĩa với “Ăn cháo đái bát”, trong tiếng Việt còn có những thành ngữ như “qua cầu rút ván”, “qua sông đấm vào sóng” [1].
Tuy vậy, khi sử dụng cần chú ý đến sự khác nhau rất tinh tế về sắc thái ý nghĩa của chúng [1].

 

[leonguyenz]

Tôi đã sửa lại tiêu đề và đình chỉ có thời hạn tài khoản @Mimi# vì đã vi phạm Nội quy diễn đàn (Mục V.3).
---
Chủ đề này đã có đáp án, tôi xin khóa lại.