Giúp đỡ xử lý lỗi object requied (1 người xem)

[chemgio123]

Code của e như sau :

Private Sub Worksheet_Activate()Dim n As Long
Dim m As String
Dim rng As Range
n = Sheet2.Range("B5000").End(xlUp).Row
Set rng = Sheet2.Range("B" & n)
Set m = Right(rng.Value, 3)
If n = 1 Then
[E3].Value = "PC001"
ElseIf n > 1 Then
[E3].Value = "PC" & m + 1
End If
End Sub

Báo lỗi dòng tô đỏ, e loay hoay mãi ko đc.

many thanks

 

[hoangvuluan]

Câu lệnh SET chỉ dùng cho các Object; m là biến chuỗi nên không thể dùng với SET.
Bạn chỉ cần thay lại:
m = Right(rng.Value, 3)

 

[Quang_Hải]

Code của e như sau :



Báo lỗi dòng tô đỏ, e loay hoay mãi ko đc.

many thanks

m=6+1 sẽ là 7, không ra số 007 đâu nha
Muốn có 007 thì phải 1000+m+1 = 1007, sau đó dùng hàm right để lấy 3 ký tự của bạn nhé

Thân

 

[chemgio123]

m=6+1 sẽ là 7, không ra số 007 đâu nha
Muốn có 007 thì phải 1000+m+1 = 1007, sau đó dùng hàm right để lấy 3 ký tự của bạn nhé

Thân

E viết lại code như này mà ko ra được 007

Private Sub Worksheet_Activate()
Dim n As Long
Dim m, p, q As String
Dim rng As Range
n = Sheet5.Range("B5000").End(xlUp).Row
Set rng = Sheet5.Range("B" & n)
m = Right(rng.Value, 3)
p = 1000 + m
q = Right(p, 3)
If n = 1 Then
[E3].Value = "PC001"
ElseIf n > 1 Then
[E3].Value = "PC" & q + 1
End If
End Sub

 

[hoangvuluan]

Nếu muốn tạo dạng thì có thể dùng hàm Format cho nhanh:

Private Sub Worksheet_Activate()
Dim n As Long
Dim m As String
Dim rng As Range
n = Sheet2.Range("B5000").End(xlUp).Row
Set rng = Sheet2.Range("B" & n)
m = Right(rng.Value, 3)
If n = 1 Then
[E3].Value = "PC001"
ElseIf n > 1 Then
[E3].Value = "PC" & Format(m + 1, "00#")
End If
End Sub

 

[Quang_Hải]

E viết lại code như này mà ko ra được 007

Tạm thế này xem sao nha

Private Sub Worksheet_Activate()
Dim n, m
n = Sheet2.[B65536].End(3).Row
m = Right(Sheet2.[B65536].End(3), 3)
If n = 1 Then
  [E3].Value = "PC001"
ElseIf n > 1 Then
  [E3].Value = "PC" & Right(1000 + m + 1, 3)
End If
End Sub