Cần giúp khắc phục Code bị Debug (Lấy ô D4 nhân với ô bên cạnh trái của ô hiện hành) (1 người xem)

[hung2412]

[COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]Xin chào các bạn GPE![/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code:
[GPECODE=vb]Sub Text()
[D4]=400
Dim rng As Range
Set rng = [D4]
ActiveCell = "=RC[-1]*" & rng.Address & ""
End Sub[/GPECODE]
[COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]=> Code trên thể hiện ô D4 có giá trị là 400. Gán ô D4 đó vào biến rng (Dim rng As Range). Lấy ô D4 đã gán vào biến rng đó nhân với ô bên cạnh bên trái của ô hiện hành (ActiveCell) => Code bị Debug tại dòng 5 => Không hiểu là tại làm sao.
[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][COLOR=#000000][COLOR=#000000]Mong các bạn GPE chỉ giáo!
[/COLOR][/COLOR][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]Trân trọng cảm ơn![/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
[COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]P/s: Có 01 File đính kèm.[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]

 

[gtri]

[COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]Xin chào các bạn GPE![/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code:
[GPECODE=vb]Sub Text()
[D4]=400
Dim rng As Range
Set rng = [D4]
ActiveCell = "=RC[-1]*" & rng.Address & ""
End Sub[/GPECODE]
[COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]=> Code trên thể hiện ô D4 có giá trị là 400. Gán ô D4 đó vào biến rng (Dim rng As Range). Lấy ô D4 đã gán vào biến rng đó nhân với ô bên cạnh bên trái của ô hiện hành (ActiveCell) => Code bị Debug tại dòng 5 => Không hiểu là tại làm sao.
[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][COLOR=#000000][COLOR=#000000][COLOR=#000000]Mong các bạn GPE chỉ giáo!
[/COLOR][/COLOR][/COLOR][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]Trân trọng cảm ơn![/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
[COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000][COLOR=#000000]P/s: Có 01 File đính kèm.[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]

ActiveCell = "=RC[-1]*" & rng[B][U][I].Address[/I][/U][/B] & ""

chỗ tô đậm này thấy hơi lạ

 

[hung2412]

ActiveCell = "=RC[-1]*" & rng[B][U][I].Address[/I][/U][/B] & ""

chỗ tô đậm này thấy hơi lạ

Tôi thử Code như thế này thì lại chạy được (Đã bỏ RC đi):

ActiveCell = "= " & rng.Address & ""

=> Chứng tỏ chỗ đậm là đúng.

 

[Quang_Hải]

Tôi thử Code như thế này thì lại chạy được (Đã bỏ RC đi):

ActiveCell = "= " & rng.Address & ""

=> Chứng tỏ chỗ đậm là đúng.

...................................................................................................................................................

 

[Nguyen.vuhoa1986]

Đúng gì mà đúng chứ. RC thì phải là RC tất cả. Trộn 2 thứ lại đâu có được

Sub Text()
[D4] = 100
ActiveCell = "=RC[-1]*" & [D4].Value & ""
End Sub

 

[Quang_Hải]

Sub Text()
[D4] = 100
ActiveCell = "=RC[-1]*" & [D4].Value & ""
End Sub

...................................................................................................................................................

 

[mhung12005]

Tôi thử Code như thế này thì lại chạy được (Đã bỏ RC đi):[/COLOR]
PHP Code:
ActiveCell = "= " & rng.Address & ""


=> Chứng tỏ chỗ đậm là đúng.

Nếu bạn muốn cho ô kết quả hiển thị cả công thức thì như này là đc:

ActiveCell = "=" & ActiveCell.Offset(, -1).Address & "*" & rng.Address

 

[Quang_Hải]

...................................................................................................................................................

 

[gtri]

Tôi thử Code như thế này thì lại chạy được (Đã bỏ RC đi):

ActiveCell = "= " & rng.Address & ""

=> Chứng tỏ chỗ đậm là đúng.

Bạn xoá chỗ tô đậm xem thế nào. ( Dùng riêng cho bài này )
---
Không biết là bạn muốn kết quả thu được là như thế nào

 

[hung2412]

Bạn xoá chỗ tô đậm xem thế nào. ( Dùng riêng cho bài này )

Đã xóa chỗ đậm:

ActiveCell = "=RC[-1]*" & rng & ""

=> Ô ActiveCell sẽ thành là = RC[-1]*400 => Không phải là công thức để thể hiện tính toán.

Không biết là bạn muốn kết quả thu được là như thế nào

Mong muốn của tôi là:
- Ô ActiveCell có công thức để thể hiện tính toán (Ô bên cạnh bên trái nhân với ô D4).
- Code ở #1 xoay quanh

ActiveCell = "=RC[-1]*"& rng.Address & ""

 

[gtri]

Đã xóa chỗ đậm:

ActiveCell = "=RC[-1]*" & rng & ""

=> Ô ActiveCell sẽ thành là = RC[-1]*400 => Không phải là công thức để thể hiện tính toán.

Mong muốn của tôi là:
- Ô ActiveCell có công thức để thể hiện tính toán (Ô bên cạnh bên trái nhân với ô D4).
- Code ở #1 xoay quanh

ActiveCell = "=RC[-1]*"& rng.Address & ""

Có lẽ là tiêu đề của bạn và cái kết quả bạn muốn có là không ăn nhập gì với nhau cả.
"Cần giúp khắc phục Code bị Debug" Theo tôi hiểu chỉ là xử lý để hết lỗi code chứ không ghi rõ cần kết quả cuối cùng thể hiện cái gì?

 

[hung2412]

Có lẽ là tiêu đề của bạn và cái kết quả bạn muốn có là không ăn nhập gì với nhau cả.
"Cần giúp khắc phục Code bị Debug" Theo tôi hiểu chỉ là xử lý để hết lỗi code chứ không ghi rõ cần kết quả cuối cùng thể hiện cái gì?

Tôi không biết viết như thế nào để thể hiện hết nội dung cần diễn đạt. Tôi dốt nên mong bạn thông cảm.

 

[TrungChinhs]

Đã xóa chỗ đậm:

ActiveCell = "=RC[-1]*" & rng & ""

=> Ô ActiveCell sẽ thành là = RC[-1]*400 => Không phải là công thức để thể hiện tính toán.

Mong muốn của tôi là:
- Ô ActiveCell có công thức để thể hiện tính toán (Ô bên cạnh bên trái nhân với ô D4).
- Code ở #1 xoay quanh

ActiveCell = "=RC[-1]*"& rng.Address & ""

Tại sao lại phải phức tạp hóa vấn đề thế nhỉ ?
Kết quả mà bạn cần có lẽ chỉ là

Sub Text()
    ActiveCell = "=RC[-1]*" & [d4]
End Sub

 

[gtri]

Tôi không biết viết như thế nào để thể hiện hết nội dung cần diễn đạt. Tôi dốt nên mong bạn thông cảm.

Chỉ là trao đổi kiến thức nên muốn làm rõ đầu bài, về vba thì tôi cũng như bạn, cũng chỉ là mới bắt đầu.
Thân!

 

[hung2412]

Tại sao lại phải phức tạp hóa vấn đề thế nhỉ ?
Kết quả mà bạn cần có lẽ chỉ là

Sub Text()
    ActiveCell = "=RC[-1]*" & [d4]
End Sub

Nếu thế thì tôi cũng không cần lập pic làm gì. Chỉ là như #1 có được hay không mà thôi (Nghĩa là vừa xài dạng RC kết hợp với Address có được hay không mà thôi).

 

[TrungChinhs]

Nếu thế thì tôi cũng không cần lập pic làm gì. Chỉ là như #1 có được hay không mà thôi (Nghĩa là vừa xài dạng RC kết hợp với Address có được hay không mà thôi).

Code #1 của bạn là

Sub Text()
[D4]=400
Dim rng As Range
[COLOR=#ff0000][B]Set rng = [D4][/B][/COLOR]
ActiveCell = "=RC[-1]*" & [COLOR=#ff0000][B]rng.Address[/B][/COLOR] & ""
End Sub

Câu lệnh Set rng = [D4] cho kết quả là 400

Vậy 400 thì làm gì có địa chỉ ? nên câu lệnh rng.Address là sai (vô nghĩa) và cái đuôi & "" là thừa.

Nếu sửa câu ActiveCell = "=RC[-1]*" & rng.Address & "" thành ActiveCell = "=RC[-1]*" & rng thì OK và nó cho kết quả như ActiveCell = "=RC[-1]*" & [d4] Vậy thì việc gì phải lòng vòng với 3 câu trên.

 

[nmhung49]

Nếu thế thì tôi cũng không cần lập pic làm gì. Chỉ là như #1 có được hay không mà thôi (Nghĩa là vừa xài dạng RC kết hợp với Address có được hay không mà thôi).

Nói chung là được nếu tùy biến addresss bạn thử code này xem sao

ActiveCell = "=RC[-1]*" & rng.Address(, , 2) ' số 2 có thể thay thế thành xlR1C1 sẽ chính xác hơn

 

[hung2412]

Nói chung là được nếu tùy biến addresss bạn thử code này xem sao

ActiveCell = "=RC[-1]*" & rng.Address(, , 2) ' số 2 có thể thay thế thành xlR1C1 sẽ chính xác hơn

Tôi chân thành cảm ơn bạn đã chỉ giáo.
Mà tôi thấy có số 2 hay là xlR1C1 thì chạy đúng cả mà, khác nhau như thế nào nhỉ?.

 

[hung2412]

cái đuôi & "" là thừa

Tôi chân thành cảm ơn bạn. Như bạn nói đoạn Code trên là thừa thì đúng rồi. Tuy nhiên, tôi thấy bỏ cái đấy nó "lệch lệch" hay sao đó nên nhìn không đối xứng, chắc có lẽ tôi Amater nên mới vậy.

 

[nmhung49]

Tôi chân thành cảm ơn bạn đã chỉ giáo.
Mà tôi thấy có số 2 hay là xlR1C1 thì chạy đúng cả mà, khác nhau như thế nào nhỉ?.

Trong đối số thứ 3 có 2 giá trị tham chiếu đó là xlA1, xlR1C1 trong đó xlA1 excel quy định là 1, xlR1C1 quy định là -4150 nên đánh số 2 cũng không sao