Nhờ các bạn chuyển từ công thức sang code

[khamha]

Mình có một công thức trừ,mà nếu kéo xuống đến dòng 65.000 thì làm cho
tăng dung lượng của File,nên nhờ các bạn xem có thể chuyển thành Code
được không.
BQ=AP3-AZ3-BC3-BF3-BI3-BO3
Cảm ơn các bạn

 

[ndu96081631]

Mình có một công thức trừ,mà nếu kéo xuống đến dòng 65.000 thì làm cho
tăng dung lượng của File,nên nhờ các bạn xem có thể chuyển thành Code
được không.
BQ=AP3-AZ3-BC3-BF3-BI3-BO3
Cảm ơn các bạn

Vầy đi

Range("BQ3:BQ65000").Value = Evaluate("AP3:AP65000-AZ3:AZ65000-BC3:BC65000-BF3:BF65000-BI3:BI65000-BO3:BO65000")

 

[khamha]

Hình như bạn ndu96081631 chưa đọc hết ý của mình là:dùng Code Và không muốn cho dung lượng File
tăng lên nhiều.
Cái Code của bạn nó làm cho dung lượng của File tăng từ 128K lên 2,8MB,bạn xem có cách nào vẫn dùng Code mà dung lượng File tăng lên ít.
Cảm ơn bạn

 

[ndu96081631]

Hình như bạn ndu96081631 chưa đọc hết ý của mình là:dùng Code Và không muốn cho dung lượng File
tăng lên nhiều.
Cái Code của bạn nó làm cho dung lượng của File tăng từ 128K lên 2,8MB,bạn xem có cách nào vẫn dùng Code mà dung lượng File tăng lên ít.
Cảm ơn bạn

Có dữ liệu thì đương nhiên dung lượng phải tăng lên thôi, làm sao tôi biết được chứ
Đó là chuyển toàn bộ thành Value rồi đấy, nếu không thì còn vả hơn
Giờ bạn cứ thử gõ số 1 vào vùng BQ3:BQ6500 rồi lưu file lại xem có tăng dung lượng không?

 

[khamha]

Chào bạn ndu96081631 và các bạn,bạn cho hỏi là nếu muốn chuển hàm này thành Code
thì phải viết như thế nào:
=IF(AND(A1=""), "", "x")
Nếu trong ô A1 có dữ liệu thì ô A2 sẽ là "x"
Cảm ơn bạn.

 

[khoavu87]

Chào bạn ndu96081631 và các bạn,bạn cho hỏi là nếu muốn chuển hàm này thành Code
thì phải viết như thế nào:
=IF(AND(A1=""), "", "x")
Nếu trong ô A1 có dữ liệu thì ô A2 sẽ là "x"
Cảm ơn bạn.

=iff(a1="","","X")

thử xem sao? không biết tác giả thêm hàm and làm gì nhỉ? dụng ý gì chăng?

 

[khamha]

Vầy đi

Range("BQ3:BQ65000").Value = Evaluate("AP3:AP65000-AZ3:AZ65000-BC3:BC65000-BF3:BF65000-BI3:BI65000-BO3:BO65000")

Cảm ơn bạn,nhưng ý mình là đưa cái công thức vào Code như ở trên.

 

[Ếch Xanh]

Cảm ơn bạn,nhưng ý mình là đưa cái công thức vào Code như ở trên.

Không biết ý bạn có phải là thế này không:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.Calculation = xlCalculationManual
  If Target.Column = 42 And IsNumeric(Target) Then
    If Target.Row < 3 Then Exit Sub
      Target.Offset(, 27).FormulaR1C1 = "=RC[-27]-RC[-17]-RC[-14]-RC[-11]-RC[-8]-RC[-2]"
  End If
  Application.Calculation = xlCalculationAutomatic
End Sub

Gõ SỐ vào bất kỳ ô nào thuộc cột AP, bắt đầu từ hàng 3, cột BQ sẽ tự động điền công thức!

Bạn xem File nhé! (BÀI NÀY ĐÃ ĐƯỢC SỬA LẠI)

 

[trôimuabun]

Các bạn giúp mình chuyển công thức dưới đây thành code với. Xin cảm ơn rất nhiều
A3=INDEX('nhap lieu'!$E$3:$E$10,MATCH(A3&B3&C3,'nhap lieu'!$F$3:$F$10,0))