hic hic, nhảy dòng là nhảy qua cell ở dòng khác đúng ko, thì nhập giá trị khác cho cell ^_^
hic hic, nhảy dòng là nhảy qua cell ở dòng khác đúng ko, thì nhập giá trị khác cho cell ^_^
HỌC, HỌC NỮA, HỌC MÃI,HỌC HẾT LỚP BẢY THÌ NGHỈ
Hidden Content
đúng rồi anh! nhưng để 1 lần nhấn rồi xuất ra là mỗi lần xuống dòng!Gửi bởi ncrazy
vậy mình so sánh nếu ô trống thì mình cho xuất còn nếu ô có dữ liệu thì mình cho nhảy xuống ô trống tiếp theo.
Vấn đề là so sánh với ô trống hay ô có dữ liệu thì code nó như thế nào. nếu anh pro VB thì. chứ ý tưởng là 1 chuyện còn viết code theo ý tưởng thì em bó tay. Anh cho em nếu ô có hoặc không có dữ liệu thì code như thế nào???
ví dụ ( có kiến thức hạn hẹp về VB nên không biết có đúng ko) như: không có dữ liệu thì mình để so sánh "NULL" còn có dữ liệu thì sao? so sánh với gi???
cám ơn anh rất nhiều!!!
hic pó tay với bạn, thế bạn phân biệt con gái với con trai thế nào, con gái thì có đặc điểm xyz nào đó, còn con trai thì không phải là con gái (tất nhiên là ko kể giới tính thứ 3 nhé )
HỌC, HỌC NỮA, HỌC MÃI,HỌC HẾT LỚP BẢY THÌ NGHỈ
Hidden Content
Gửi thiquocvinhMình mới tìm hiểu WinCC V7 được một thời gian. Bây giờ đang tìm cách xuất dữ liệu từ WinCC V7.0 SP2 sang MS Excel.
Mình có đọc được một đoạn code trong phần. Mọi người cùng thảo luận nha.
MS Excel
In this example, an output value from an input field is written in an Excel table
'VBS113
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'
'ExcelExample.xls is to create before executing this procedure.
'Replace <path> with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "<path>\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Tài liệu tham khảo: HD kết nối WinCC 7 - MsExcel 07: http://www.mediafire.com/view/?7ct6na9tjb6o6v5
bạn cho mình hỏi chút trong VD bạn làm đó làm sao mình có thể xuất cả thời gian và ngày tháng vậy?
Thanks!
Hơi vô duyên tí vì không phải hỏi mình!!! nhưng tại mình đang tìm hiểu về cái này nên trả lời luôn bạn thử nhé nếu không được thì bỏ qua cho vì mình mới thử trên máy của mình thôi còn các phiên bản khác mình không chắc lam (@.@)
Xuất ngày "Date"
Xuất thời gian "Time"
xuất ngày và thời gian hiện tại "Now"
vd: objExcelApp.Cells(4, 3).Value = Now
Cám ơn bác nhưng em làm thì ko hiển thị được thời gian mà chỉ là #### thôi có bác nào làm rùi chỉ
Cám ơn nhiều !
Có nút thanks kìa. ^.^Cám ơn bác nhưng em làm thì ko hiển thị được thời gian mà chỉ là #### thôi có bác nào làm rùi chỉ
Cám ơn nhiều !
cái đó là do ô excel nhỏ wa! bạn kéo to ra là ok rùi!
good luck!
OK. Thanks nhưng ko thấy nút thanks đâu bác ah. BÁc cho hỏi thêm 1 câu lệnh nữa là VD 7h mình xuất ra ở hàng thứ 3 đến 8h mình muốn nó ở hàng thứ 9 thì dùng lệnh gì vậy?
Hj! về cái này thì chưa thử!
Bạn có thể xem các lệnh hàm VB rồi tự viết code theo yêu cầu của bạn! Mình ko phải Pro nên chỉ giúp được tới đây thôi!
Về ý tưởng thì như thế này! Bạn thử dùng vòng lặp, rồi so sánh thời gian hiện tại với thời gian mà bạn mong muốn rồi cho xuất dữ liệu ra vị trí ô Excel mà bạn cần.
Vì giờ mình đang chuẩn bị bảo vệ DA nên ko thể giúp bạn được! @.@ Phải cuối tháng 1 mới có thể tìm hiểu thêm!hjhj!
P/s Chữ thanks nằm góc trái màn hình đó bạn!
Ví dụ: Bạn khai báo Excel như sau
Dim MsExcel
Set MsExcel = CreateObject("Excel.Application")
Thì để chọn cell thì có cú pháp: MsExcel.cells(2,3)
với 2 là số hàng, 3 là số cột, tức hàng 2 cột 3.
Ví dụ bạn muốn lưu giá trị 100 vào hàng 3 cột 1 thi: MsExcel.cells(2,3) = 100
Tương tự bạn có thể phát triển bằng cách dùng các lệnh như if ... then, vòng lặp Do ... Loop While, v.vvvv
Chúc bạn cuối tuần vui vẻ.
Vinh - 0935 501 812
Quyền viết bài
Trả lời kèm Trích dẫn
Đánh dấu