Không cho bấm nút lệnh khi chưa điền đầy đủ dữ liệu

[Nguyễn Xuân Sơn]

Chào các bạn trong đại gia đình GPE!

Mình đang muốn giải quyết một vấn đề như sau:

Giả sử mình có hai cột B1:B26 vàE1:E29 và hơn nữa cần có điều kiện là phải điền đầy dữ liệu thì mới làm một việc tiếp theo ( như bấm vào nút "Sang sheet 2"). Nếu có một hoặc một số ô trống thì khi bấm vào nút "Sang sheet 2" nó sẽ báo là bạn còn có bao nhiêu ô và địa chỉ các ô ( hoặc tên các ô nếu được đặt tên) chưa điền dữ liệu và bạn cần phải điền hết nó mới cho bấm nút nhảy sang sheet2 .
Vậy bạn nào có cách giải quyết xin chỉ giáo cho mình với?

[B][I][COLOR="Blue"]From Sa_DQ:[/COLOR][/I][/B]
 Việc này khó viết hàm được, xin chuyển bài của bạn sang đây:

 

[hoangdanh282vn]

Chào các bạn trong đại gia đình GPE!

Mình đang muốn giải quyết một vấn đề như sau:

Giả sử mình có hai cột B1:B26 vàE1:E29 và hơn nữa cần có điều kiện là phải điền đầy dữ liệu thì mới làm một việc tiếp theo ( như bấm vào nút "Sang sheet 2"). Nếu có một hoặc một số ô trống thì khi bấm vào nút "Sang sheet 2" nó sẽ báo là bạn còn có bao nhiêu ô và địa chỉ các ô ( hoặc tên các ô nếu được đặt tên) chưa điền dữ liệu và bạn cần phải điền hết nó mới cho bấm nút nhảy sang sheet2 .
Vậy bạn nào có cách giải quyết xin chỉ giáo cho mình với?

Bạn dùng code này thử nha :

Sub Button5_Click()
Err.Clear
On Error Resume Next
Set rng = Range("B1:B26,E1:E29").SpecialCells(xlCellTypeBlanks)
If Err <> 0 Then
    Sheets("Sheet2").Select
Else
    MsgBox "Van con " & rng.Cells.Count & " trong chua nhap du lieu !"
    rng.Select
End If
End Sub

 

[Nguyễn Xuân Sơn]

Cảm ơn bạn HoangDanh82VN , bạn đã giải quyết được cơ bản vấn đề của tôi cần giúp đỡ. Tuy nhiên nếu chỉ ra được địa chỉ các ô (hoặc tên các ô nếu được đặt tên) chưa điền dữ liệu nữa thì hoàn chỉnh quá.
Vậy bạn, hoặc có bạn nào giúp thêm mình được vấn đề này nữa không?

 

[hoangdanh282vn]

Cảm ơn bạn HoangDanh82VN , bạn đã giải quyết được cơ bản vấn đề của tôi cần giúp đỡ. Tuy nhiên nếu chỉ ra được địa chỉ các ô (hoặc tên các ô nếu được đặt tên) chưa điền dữ liệu nữa thì hoàn chỉnh quá.
Vậy bạn, hoặc có bạn nào giúp thêm mình được vấn đề này nữa không?

Anh chỉ cần thêm cái Address là ok

Sub Button5_Click()
Dim Rng As Range
Err.Clear
On Error Resume Next
Set Rng = Range("B1:B26,E1:E29").SpecialCells(xlCellTypeBlanks)
If Err <> 0 Then
    Sheets("Sheet2").Select
Else
    MsgBox "Van con " & Rng.Cells.Count & " trong chua nhap du lieu. Dia chi cac o do la :" & Chr(10) & Rng.Address
    Rng.Select
End If
End Sub

 

[ChanhTQ@]

Bạn đã giải quyết được vấn đề của tôi cần Tuy nhiên nếu chỉ ra được địa chỉ các ô (hoặc tên các ô nếu được đặt tên) chưa điền dữ liệu nữa thì hoàn chỉnh quá.
Vậy các bạn giúp thêm mình được vấn đề này nữa không?

Nếu ô được gán tên thì nan giải đó; Khó ở chổ tên là của toàn workBook,
Mình thử sức với các ô gán tên, nhưng thành tựu chẳng là bao!
Mong đây là đề bài thú vị & được tiếp tục hưởng ứng.