Bảng giá vàng thế giới trong excel

[LearnExcel]

Giá vàng KITCO theo VNĐ/chỉ luôn đây.
'Giá vàng TG (VNĐ/CHỈ) = Giá đô la bán ra của VCB * Giá 1 Troy ounce trên KITCO /( 31.1034768/3.75)

 

[myhan]

Giá vàng KITCO theo VNĐ/chỉ luôn đây.
'Giá vàng TG (VNĐ/CHỈ) = Giá đô la bán ra của VCB * Giá 1 Troy ounce trên KITCO /( 31.1034768/3.75)

- Lâu quá mới lại có người vào trả lời, mừng quá

- Giá vàng trong file mà Bác đưa chỉ tương đối thôi, còn phụ thuộc vào nhiều thứ lắm (Chi
phí nhập khẩu, vận chuyển, gia công...tỷ giá đồng việt Nam..) (với cả cách Bác ađd giá vào như thế là vầo Data/ impor... cách này đầu thread có hướng dẫn rồi)
Ở đây tôi muốn nói về viết VBA để tự ghi giá biến đổi trong 5 p tự ghi lại và nhẩy xuống dòng dưới để ghi tiếp....(Cái này có thể áp dụng cho ghi chứng khoán việt Nam trong ngày...)

Hôm nay định hỏi mọi người về VBA tự động update giá bên thread " Hỏi đáp về VBA" tối lên tìm lại không thấy đâu. Không biết MOD nào xóa và vì sao.

- Nay gưi lại không biết Bác nào am hiểu về VBA quá bộ ngang qua có thể giải thích sơ qua ý nghĩ các hàm, nếu không có thể giới thiệu sách nào đó để tra cứu.
Xin cảm ơn.


Sub WebQueryVDSC()
Dim URLData As String
Dim Qry As QueryTable
URLData = "URL;http://price2.vdsc.com.vn:8080/hose/hose.vdsc" & ""
For Each Qry In WkbXemCK.Sheets("Temp").QueryTables
If Qry.Name = "ho_web_giaodien" Then
Qry.Connection = "" & URLData
End If
Next
End Sub

 

[myhan]

Chưa thuộc đường đi lối tắt đi loanh quanh hỏi sai chỗ bị các mod delete bài,
Vừa hỏi lại tìm nguyên nhân sao bị xóa thì nhận ngay được quả thư cảnh cáo

You have received an infraction at Giải Pháp Excel[/color] by BNTT]
Thân gửi myhan,

Bạn đã bị cảnh cáo tại Giải Pháp Excel.
.....
Thư cảnh cáo này sẽ có giá trị 1 điểm và có thể sẽ ảnh hưởng đến việc truy cập diễn đàn của bạn cho đến khi cảnh cáo hết hiệu lực. Nếu bạn vi phạm Nội quy nhiều lần hay các qui định cấm thì Tài khoản của bạn sẽ bị khoá vĩnh viễn.
.....
Trân trọng,
Giải Pháp Excel

- Việc các Bác Mod quản lý xóa bài tôi nghĩ chắc cũng vì muốn diễn đàn gon gàng ngăn lắp, Tôi không có ý kiến gì.
- Thiết nghĩ nếu có thể thì đối với bài của một số thành viên mới (Do chưa quên đường đi lối lại). Khi câu hỏi không đúng thì các bác có thể nhắc nhở, và move bài vào nơi quy định. Chứ không nhất thiết phải xóa. Vì thực ra rất nhiều người không biết cách sử dụng các công cụ tìm kiếm.


Em đang mầy mò tìm cách tạo một bảng excell ghi lại giá CK, hoặc gold sau biết động 45s. Hiện đang gặp một số lỗi trong quá trình làm. Các Bác kiểm tra giúp Em hộ xem sai code ở đâu, Em ngồi check mà mãi không tìm ra.(file Em attach under)
Các Bác xem hộ tại sao code VBA em viết ở đó lại không chạy.
Mục đích code đó là Em copy dữ liệu từ sheet này qua sheet kia.

Cám ơn các Bác.

 

[cadafi]

Chưa thuộc đường đi lối tắt đi loanh quanh hỏi sai chỗ bị các mod delete bài,
Vừa hỏi lại tìm nguyên nhân sao bị xóa thì nhận ngay được quả thư cảnh cáo

- Việc các Bác Mod quản lý xóa bài tôi nghĩ chắc cũng vì muốn diễn đàn gon gàng ngăn lắp, Tôi không có ý kiến gì.
- Thiết nghĩ nếu có thể thì đối với bài của một số thành viên mới (Do chưa quên đường đi lối lại). Khi câu hỏi không đúng thì các bác có thể nhắc nhở, và move bài vào nơi quy định. Chứ không nhất thiết phải xóa. Vì thực ra rất nhiều người không biết cách sử dụng các công cụ tìm kiếm.


Em đang mầy mò tìm cách tạo một bảng excell ghi lại giá CK, hoặc gold sau biết động 45s. Hiện đang gặp một số lỗi trong quá trình làm. Các Bác kiểm tra giúp Em hộ xem sai code ở đâu, Em ngồi check mà mãi không tìm ra.(file Em attach under)
Các Bác xem hộ tại sao code VBA em viết ở đó lại không chạy.
Mục đích code đó là Em copy dữ liệu từ sheet này qua sheet kia.

Cám ơn các Bác.

Tại sao phải refresh sau 45s mà không phải là 1 phút?. Nếu thời gian refresh nâng lên là bội số của 1 phút thì bạn không cần viết code, sau khi import data từ trang web ra excel, click chuột phải lên vùng data vừa import vào --> chọn Data Range Properties. rồi tùy chỉnh thông số Refresh every:

 

[myhan]

Việc thêm thông số đó để tạo thêm tùy chon cho người sử dụng.
Nếu không cần thì có thể làm như Bác thì chắc sẽ nhẹ đi nhiều.
Bác đã xem hộ Tôi file ở dưới chưa

 

[ThuNghi]

Việc thêm thông số đó để tạo thêm tùy chon cho người sử dụng.
Nếu không cần thì có thể làm như Bác thì chắc sẽ nhẹ đi nhiều.
Bác đã xem hộ Tôi file ở dưới chưa

1/ Public WkbXemCK As Workbook
Tìm không thấy file WkbXemCK
2/SumSymbol = WkbXemCK.Sheets("ck1").Cells(7).Value
Cells(7) cấu trúc phải là Cells(iR,iC)
3/ NewCell1 = "E" & sumsbol & ""
sumsbol là gì có phải là SumSymbol

Vài dòng trước mắt vậy đã.

 

[myhan]

1/ Public WkbXemCK As Workbook
Tìm không thấy file WkbXemCK
2/SumSymbol = WkbXemCK.Sheets("ck1").Cells(7).Value
Cells(7) cấu trúc phải là Cells(iR,iC)
3/ NewCell1 = "E" & sumsbol & ""
sumsbol là gì có phải là SumSymbol

Vài dòng trước mắt vậy đã.

Cám ơn Bác. Em đã làm theo và đã chạy được rồi.(file em gửi dưới)

Bác cho hỏi thêm trong file em đã không đặt WkbXemCK As Workbook mà thay tại câu lệnh luôn là workbooks("wkbxemck.xls").sheet(4).cells(a,b)
Nhưng nếu đặt như vậy mà đổi tên file thì marco sẽ không chạy luôn.
Có cách đặt code nào mà đổi tên file thì marco vẫn chạy không Bác.

Thanks.

 

[ThuNghi]

Cám ơn Bác. Em đã làm theo và đã chạy được rồi.(file em gửi dưới)

Bác cho hỏi thêm trong file em đã không đặt WkbXemCK As Workbook mà thay tại câu lệnh luôn là workbooks("wkbxemck.xls").sheet(4).cells(a,b)
Nhưng nếu đặt như vậy mà đổi tên file thì marco sẽ không chạy luôn.
Có cách đặt code nào mà đổi tên file thì marco vẫn chạy không Bác.

Thanks.

Thêm câu vào đầu code
Dim SourceWb As Workbook
Set SourceWb = ThisWorkbook
Lúc đó câu lệnh
workbooks("wkbxemck.xls").sheet(4).cells(a,b)
sẽ là
SourceWb.sheet(4).cells(a,b)
Hay bạn bỏ luôn chỉ cần
sheet(4).cells(a,b)
Lưu ý là chỉ mở 1 file thôi. Trong fox hay dùng Close all khi chạy ứng dụng.
Tôi chỉ hiểu tới vậy.

 

[locphat6899]

Chưa thuộc đường đi lối tắt đi loanh quanh hỏi sai chỗ bị các mod delete bài,
Vừa hỏi lại tìm nguyên nhân sao bị xóa thì nhận ngay được quả thư cảnh cáo

- Việc các Bác Mod quản lý xóa bài tôi nghĩ chắc cũng vì muốn diễn đàn gon gàng ngăn lắp, Tôi không có ý kiến gì.
- Thiết nghĩ nếu có thể thì đối với bài của một số thành viên mới (Do chưa quên đường đi lối lại). Khi câu hỏi không đúng thì các bác có thể nhắc nhở, và move bài vào nơi quy định. Chứ không nhất thiết phải xóa. Vì thực ra rất nhiều người không biết cách sử dụng các công cụ tìm kiếm.


Em đang mầy mò tìm cách tạo một bảng excell ghi lại giá CK, hoặc gold sau biết động 45s. Hiện đang gặp một số lỗi trong quá trình làm. Các Bác kiểm tra giúp Em hộ xem sai code ở đâu, Em ngồi check mà mãi không tìm ra.(file Em attach under)
Các Bác xem hộ tại sao code VBA em viết ở đó lại không chạy.
Mục đích code đó là Em copy dữ liệu từ sheet này qua sheet kia.

Cám ơn các Bác.

Bạn nên tạo một hàm bắt hàng cuối cùng của sheets đích rồi điền lần lượt thông tin mới nhất vào là ổn đấy