Code Tính Tổng Cộng File Đóng (1 người xem)

[Kiều Mạnh]

Mình đang kẹt tính tổng cộng cột [A2:A500] của File A.xlsx đang đóng gán vào [D2] của File đang Mở mà ngồi nghĩ hoài 2 ngày nay chưa ra...kẹt quá úp lên nhờ các bạn xử lý dùm
xin cảm ơn

Mình Record Macro Từ File Tong Cong.xlsb thì được code sau

Sub Macro1()
'' Macro1 Macro'
    Range("D2").Select 
   ActiveCell.FormulaR1C1 = "=SUM([A.xlsx]XX!R2C1:R32C1)"
    Range("D3").Select
End Sub

Nhờ các Bạn xử lý như sau:
1/ Viết dùm mình một code tính tổng như vậy = ADO
2/ Viết dùm mình một code tính tổng như vậy = VBA
3/ Viết dùm mình một code tính tổng như vậy = ExecuteExcel4Macro

Mục đích từ từ mình ngâm cứu thôi ....
Xin cảm ơn rất nhiều

 

[doveandrose]

Nhờ các Bạn sử lý như sau:
1/ Viết dùm mình một code tính tổng như vậy = ADO
2/ Viết dùm mình một code tính tổng như vậy = VBA
3/ Viết dùm mình một code tính tổng như vậy = ExecuteExcel4Macro

cách tôi dùng không nằm trong các số ở trên . đỡ phải up bài hên quá hahahahahah =))

 

[Kiều Mạnh]

cách tôi dùng không nằm trong các số ở trên . đỡ phải up bài hên quá hahahahahah =))

VẬY CÓ cách nào khác hay hơn không Bạn giúp cho mình một tẹo

 

[doveandrose]

VẬY CÓ cách nào khác hay hơn không Bạn giúp cho mình một tẹo

ờ đùa đấy . không làm mấy cách đó thì có mà mở file lên tính tay . em chưa biết code bài này sao nữa . từ từ vậy

 

[doveandrose]

Sub Macro1()
Sheet1.[F4].Value = "=sum('" & ThisWorkbook.Path & "\[A.xlsx]XX'!A2:A200000)"
Sheet1.[F4].Value = Sheet1.[F4].Value
End Sub

còn cách nào khác nữa không thì hổng biết . làm được nhiêu đó là happy new year rồi . hi hi

 

[phihndhsp]

Mình đang kẹt tính tổng cộng cột [A2:A500] của File A.xlsx đang đóng gán vào [D2] của File đang Mở mà ngồi nghĩ hoài 2 ngày nay chưa ra...kẹt quá úp lên nhờ các bạn xử lý dùm
xin cảm ơn
Nhờ các Bạn sử lý như sau:
1/ Viết dùm mình một code tính tổng như vậy = ADO
Xin cảm ơn rất nhiều

Sub THONGKE()
Dim name As String
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    name = ThisWorkbook.path & "\A.xlsx"
    cn.Open ("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=" & name & ";")
    rst.Open ("select sum(Ten) as Tong from [XX$] "), cn
    Sheet1.[A1].CopyFromRecordset rst


End Sub

Xem cái này có học hỏi được gì không? hy vọng là ra đáp số đúng

 

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

Sub THONGKE()
Dim name As String
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    name = ThisWorkbook.path & "\A.xlsx"
    cn.Open ("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=" & name & ";")
    rst.Open ("select sum(Ten) as Tong from [XX$] "), cn
    Sheet1.[A1].CopyFromRecordset rst


End Sub

Xem cái này có học hỏi được gì không? hy vọng là ra đáp số đúng

Có thể viết gọn hơn.

 

[Kiều Mạnh]

Sub THONGKE()
Dim name As String
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    name = ThisWorkbook.path & "\A.xlsx"
    cn.Open ("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=" & name & ";")
    rst.Open ("select sum(Ten) as Tong from [XX$] "), cn
    Sheet1.[A1].CopyFromRecordset rst


End Sub

Xem cái này có học hỏi được gì không? hy vọng là ra đáp số đúng

Cách này ok ... nhưng thay đổi tiêu đề thành Tiếng Việt có dấu là Lỗi ( Ten = Tên)

 

[ndu96081631]

Mình đang kẹt tính tổng cộng cột [A2:A500] của File A.xlsx đang đóng gán vào [D2] của File đang Mở mà ngồi nghĩ hoài 2 ngày nay chưa ra...kẹt quá úp lên nhờ các bạn xử lý dùm
xin cảm ơn

Mình Record Macro Từ File Tong Cong.xlsb thì được code sau

Sub Macro1()
'' Macro1 Macro'
    Range("D2").Select 
   ActiveCell.FormulaR1C1 = "=SUM([A.xlsx]XX!R2C1:R32C1)"
    Range("D3").Select
End Sub

Nhờ các Bạn xử lý như sau:
1/ Viết dùm mình một code tính tổng như vậy = ADO
2/ Viết dùm mình một code tính tổng như vậy = VBA
3/ Viết dùm mình một code tính tổng như vậy = ExecuteExcel4Macro

Mục đích từ từ mình ngâm cứu thôi ....
Xin cảm ơn rất nhiều

3> ExecuteExcel4Macro là... y chang code của bạn đấy

Sub Macro1()
'
' Macro1 Macro
'
    Range("D2").Select
    ActiveCell.FormulaR1C1 = [COLOR=#ff0000]Application.ExecuteExcel4Macro[/COLOR]("SUM([A.xlsx]XX!R2C1:R32C1)")
    Range("D3").Select
End Sub

Rút gọn lại:

Sub Macro1()
 Range("D2").Value = Application.ExecuteExcel4Macro("SUM([A.xlsx]XX!R2C1:R32C1)")
End Sub

Xong!

 

[Kiều Mạnh]

3> ExecuteExcel4Macro là... y chang code của bạn đấy

Sub Macro1()
'
' Macro1 Macro
'
    Range("D2").Select
    ActiveCell.FormulaR1C1 = [COLOR=#ff0000]Application.ExecuteExcel4Macro[/COLOR]("SUM([A.xlsx]XX!R2C1:R32C1)")
    Range("D3").Select
End Sub

Rút gọn lại:

Sub Macro1()
 Range("D2").Value = Application.ExecuteExcel4Macro("SUM([A.xlsx]XX!R2C1:R32C1)")
End Sub

Xong!

Em thử thì nó báo Hộp thoại Sau
(Hôm trước Em cũng thử viết vậy thấy báo y trang như vậy....Em cũng không biết tại Sao Nữa)

 

[ndu96081631]

Em thử thì nó báo Hộp thoại Sau
(Hôm trước Em cũng thử viết vậy thấy báo y trang như vậy....Em cũng không biết tại Sao Nữa)

Nếu bạn thử chính xác với file nguồn ở bài 1 thì chắc chắn không có lỗi gì xảy ra cả
Ngược lại, bạn thử trên file thật nhưng không biết cách tùy biến thì... chẳng biết chuyện gì xảy ra đâu
Nói chung: File của bạn thế nào cứ đưa lên thế nấy đi (nhất là cái tên file đó)

 

[doveandrose]

Em thử thì nó báo Hộp thoại Sau
(Hôm trước Em cũng thử viết vậy thấy báo y trang như vậy....Em cũng không biết tại Sao Nữa)

nhìn cho kỹ góc trái trên tấm hình . nó có nghĩa là excel muốn nhắn nhủ với Kiều Mạnh : xạo quá cha nội ơi , làm gì có file nào tên là A.xlsx

 

[Kiều Mạnh]

nhìn cho kỹ góc trái trên tấm hình . nó có nghĩa là excel muốn nhắn nhủ với Kiều Mạnh : xạo quá cha nội ơi , làm gì có file nào tên là A.xlsx

Thì File y trang bài 1 đó ...Ai xạo mằn chi chứ
Bạn tải Video về coi nha
Code Bạn Viết OK chạy tốt ....xem nha
Còn Code bài #1 của mình cũng bị vậy luôn.... lúc được lúc không vẫn báo Hộp thoại đó thế mới có chuyện để nói

 

[doveandrose]

Thì File y trang bài 1 đó ...Ai xạo mằn chi chứ
Bạn tải Video về coi nha
Code Bạn Viết OK chạy tốt ....xem nha
Còn Code bài #1 của mình cũng bị vậy luôn.... lúc được lúc không vẫn báo Hộp thoại đó thế mới có chuyện để nói

nếu code mình chạy tốt thì ở đây hết việc của mình rồi . há há

 

[ndu96081631]

Thì File y trang bài 1 đó ...Ai xạo mằn chi chứ
Bạn tải Video về coi nha
Code Bạn Viết OK chạy tốt ....xem nha
Còn Code bài #1 của mình cũng bị vậy luôn.... lúc được lúc không vẫn báo Hộp thoại đó thế mới có chuyện để nói

Hiểu rồi!
Nếu lần đầu tiên bạn gõ công thức trực tiếp vào Excel, sau đó mới chạy code thì nó sẽ không hỏi
Ẹc... Ẹc...
Vậy thì thêm Thisworkbook.path vào thôi:

Sub Macro1()
 Range("D2").Value = Application.ExecuteExcel4Macro("SUM('" & ThisWorkbook.Path & "\[A.xlsx]XX'!R2C1:R32C1)")
End Sub

Đường dẫn đầy đủ ấy mà

 

[Kiều Mạnh]

nếu code mình chạy tốt thì ở đây hết việc của mình rồi . há há

Thử cho một code ADO đi.....cho mình học với....ADO Mạnh còn ở mức ABC thôi

 

[doveandrose]

Thử cho một code ADO đi.....cho mình học với....ADO Mạnh còn ở mức ABC thôi

anh nói vậy bạn ở #6 tự ái đấy . file của người ta anh tải về mà xài thôi

 

[Kiều Mạnh]

Hiểu rồi!
Nếu lần đầu tiên bạn gõ công thức trực tiếp vào Excel, sau đó mới chạy code thì nó sẽ không hỏi
Ẹc... Ẹc...
Vậy thì thêm Thisworkbook.path vào thôi:

Sub Macro1()
 Range("D2").Value = Application.ExecuteExcel4Macro("SUM('" & ThisWorkbook.Path & "\[A.xlsx]XX'!R2C1:R32C1)")
End Sub

Đường dẫn đầy đủ ấy mà

Chính xác tuyệt đối .. Cảm ơn Anh

 

[Kiều Mạnh]

anh nói vậy bạn ở #6 tự ái đấy . file của người ta anh tải về mà xài thôi

Mình thì nghĩ khác .... có cái rất khó mình lại làm được ... có cái như 1+1=2 thì tịt ...mình không dấu dốt không biết thì hỏi vậy....mình có duyên với GPE ...lâu lâu Anh Hải ghé chơi chỉ cho vài cái còn lại tự mò nên code két trong đầu mình là một mớ hổn độn... vậy thôi........

 

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

Thử cho một code ADO đi.....cho mình học với....ADO Mạnh còn ở mức ABC thôi

Thêm 1 kiểu kết nối nữa nè:

Sub THONGKE()

    Dim cn As Object, rst As Object
    Set cn = CreateObject("ADODB.Connection")
    cn.Open ("Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & ThisWorkbook.path & "\A.xlsx;")
    Set rst = cn.Execute("select sum(Ten) from [XX$] ")
    Sheet1.[A1].CopyFromRecordset rst


End Sub