Tổng Gía trị của các range (1 người xem)

[cbtm]

Chào Các Bạn

Mình có đoạn code như sau

With Workbooks("JOLIE NAIL SPA.xls")
.Sheets("INCOME").Select
Columns("I").Select
Columns("I").FormulaR1C1 = "=(RC[-7]+RC[-6]-RC[-5]-RC[-4]-RC[-3]-RC[-2]-RC[-1])"
End With

khi mình click thì ở phía trên cùng Range ("I1") hiện lên #VALUE! không biết mình sai chổ nào nhờ các bạn giúp đở

 

[Hai Lúa Miền Tây]

Chào Các Bạn

Mình có đoạn code như sau

With Workbooks("JOLIE NAIL SPA.xls")
.Sheets("INCOME").Select
Columns("I").Select
Columns("I").FormulaR1C1 = "=(RC[-7]+RC[-6]-RC[-5]-RC[-4]-RC[-3]-RC[-2]-RC[-1])"
End With

khi mình click thì ở phía trên cùng Range ("I1") hiện lên #VALUE! không biết mình sai chổ nào nhờ các bạn giúp đở

Bạn làm công thức gì mà đến cả cột luôn vậy, như vậy tốc độ xử lý file rất chậm. Và sau này bạn cũng không thể insert dòng được nếu như không delete cộng thức để cho excel còn khoảng trống của dòng mà insert thêm.
Mình sửa lại khoảng 199(Từ dòng 2 đến 200) dòng nhé

Sub taoCT()
With Workbooks("JOLIE NAIL SPA.xls")
.Sheets("INCOME").Select
Range("i2:i200").Select
Range("i2:i200").FormulaR1C1 = "=(RC[-7]+RC[-6]-RC[-5]-RC[-4]-RC[-3]-RC[-2]-RC[-1])"
End With
End Sub

Thân

 

[TrungChinhs]

Bạn thử cái này xem có vừa ý không ? nếu muốn hiện công thức thì đánh dấu nháy đơn (') vào dòng lệnh cuối cùng

Sub taoCT()
Sheets("INCOME").Range("i2:i" & [B65536].End(xlUp).Row).Select
Selection = "=SUM(RC2:RC3)-SUM(RC4:RC8)"
Selection = Selection.Value
End Sub

 

[ndu96081631]

Các bạn nên hạn chế mấy vụ Select và Selection này đi... làm thế hóa ra sheet đang ẩn thì không làm việc được à?
Sao không là:

Sub taoCT()
  With Workbooks("JOLIE NAIL SPA.xls").Sheets("INCOME").Range("i2:i200")
    .Value = "=SUM(RC2:RC3)-SUM(RC4:RC8)"
  End With
End Sub

Chẳng Select gì ráo... và dù sheet có đang ẩn thì code vẫn cứ chạy vi vu

 

[cbtm]

CHO MÌNH MƯỢN CÂU NÀY CỦA TRUNG CHINH NHÉ

Hỏi thì ngại mọi người chê mình dốt mà không hỏi thì sẽ dốt cả đời ???

CÁM ƠN CÁC BẠN, SẲN DIP CHO MINH HỎI NHỬNG ĐOẠN CODE SAU

Private Sub CommandButton10_Click()
    Dim mypassword As String
tryagain:
    mypassword = InputBox("PLEASE ENTER PASSWORD", "YOUR PASSWORD")
    If mypassword = "maitram" Then
    MsgBox ("PASSWORD CORRECT"), vbYes
    Else
     If MsgBox("PASSWORD INCORRECT, TRY AGAIN?", vbOKCancel, Title:="WRONG PASSWORD") = vbOK Then
     GoTo tryagain
     End If
      MsgBox ("XIN LOI,BAN KHONG DU THAM QUYEN DE XEM PHAN NAY"), vbInformation, "SORRY, PLEASE TRY AGAIN"
     Jolienailspa.TextBox3.Value = "SORRY"
     Exit Sub
 End If
         
     Dim TotalValue
    TotalValue = 0
     Range("A1").Select
    Do Until ActiveCell.Value = Empty
    If ActiveCell.Value = "DATE" Then
        ActiveCell.Offset(1, 0).Select
        
    ElseIf DateValue(ActiveCell.Value) = DateValue(Jolienailspa.DTPicker7) Or _
        DateValue(ActiveCell.Value) > DateValue(Jolienailspa.DTPicker7) Then
            If DateValue(ActiveCell.Value) = DateValue(Jolienailspa.DTPicker8.Value) Or _
                DateValue(ActiveCell.Value) < DateValue(Jolienailspa.DTPicker8.Value) Then
            
                TotalValue = TotalValue + ActiveCell.Offset(0, 9)
                ActiveCell.Offset(1, 0).Select
            Else
                ActiveCell.Offset(1, 0).Select
            End If
       
      
    Else
        ActiveCell.Offset(1, 0).Select
    End If
    
    Loop
    Select Case TotalValue
        Case 0
            Jolienailspa.TextBox9.Value = "$" & "0"
        Case Is > 0
            Jolienailspa.TextBox9.Value = "$" & TotalValue
    End Select
    
    End Sub

Ở PHẦN Private Sub CommandButton7_Click() THÌ MÌNH LÀM ĐƯỢC NHƯ Ở PHẦN TRÊN MÌNH TÌM KHÔNG RA SAI Ở CHỔ NÀO MÌNH GỞI FILE ĐÍNH XEM DÙM CÁM ƠN CÁC BẠN