Nhờ chuyển công thức sang VBA

[thanhtam348]

Xin nhờ chuyển dùm tôi công thức nầy thành code. Cám ơn nhiều.

=IF(R5="1 m rộng",O5*P5,IF(R5="2 m rộng",(O5+O5)*P5,IF(R5="1 m rộng+1dầy",(N5+O5)*P5,IF(R5="1 m rộng+2dầy",(N5+N5+O5)*P5,IF(R5="2 m rộng+1dầy",(O5+O5+N5)*P5,IF(R5="4 mặt",(N5+O5)*2*P5,IF(R5="trừ 1 mặt",O5*P5*-1,IF(R5="trừ 2 mặt",O5*P5*2*-1))))))))*Q5/10000

 

[yeudoi]

Xin nhờ chuyển dùm tôi công thức nầy thành code. Cám ơn nhiều.

=IF(R5="1 m rộng",O5*P5,IF(R5="2 m rộng",(O5+O5)*P5,IF(R5="1 m rộng+1dầy",(N5+O5)*P5,IF(R5="1 m rộng+2dầy",(N5+N5+O5)*P5,IF(R5="2 m rộng+1dầy",(O5+O5+N5)*P5,IF(R5="4 mặt",(N5+O5)*2*P5,IF(R5="trừ 1 mặt",O5*P5*-1,IF(R5="trừ 2 mặt",O5*P5*2*-1))))))))*Q5/10000

Bạn nên đưa file lên có ví dụ minh họa để dễ giúp đỡ hơn.

 

[thanhtam348]

File tôi đây, xin nhờ giúp đở.

 

[thanhtam348]

Không ai giúp tôi à? buồn quá! - xin cùng tôi một cái đi!...

 

[ChanhTQ@]

Nếu là tôi, tôi sẽ lập bảng tra cho nó & dùng hàm VLOOKUP() hay HLOOKUP() để tra.

Còn VBA ư, không được hỗ trợ tiếng Việt là cản trở lớn dùng VBA trong trường hợp như vầy.