cảm ơn bác. bỏ đi thì nó vẫn chạy tiếp tục vẫn quất cái code đó ít nhất là 3 lần rồi mới chạy tiếp. nên chả biết sao.Gửi bởi Hau151978
cảm ơn bác. bỏ đi thì nó vẫn chạy tiếp tục vẫn quất cái code đó ít nhất là 3 lần rồi mới chạy tiếp. nên chả biết sao.Gửi bởi Hau151978
cảm ơn góp ý của bạn nha. nói thật là mình không biết ăn nói, nghĩ sao nói vậy. lời thật mất lòng mà bác. sẽ cố gắng chỉnh sửa lại câu cú cho lịch sự.Gửi bởi hpkhuong
bởi thế nên mấy câu hỏi của mình viết lằng nhằng mà có 1 nội dung à, nên người đọc có thể hơi khó hiểu. xin chân thành xin lỗi. mong mấy bác cố gắng hiểu và giúp mấy vấn đề của mình. chứ chạy chậm thế này thì in nguyên hạng mục chắc lâu chết.
Nhưng nhờ có lệnh mang số 1 mà nó sẽ bỏ qua các câu lệnh sai & tiếp tục đi đến câu lệnh không sai nào đó bên dưới.Mã nguồn PHP:
Option ExplicitFunction CommPic(Pic As String, Cel As Range) As String 'CHENANH '1 On Error Resume Next Application.ScreenUpdating = False Dim mRng As Range 'On Error Resume Next ' 'Cau Lenh Này Là Thùa Vì Tren Da Có' Application.Volatile Cel(1, 1).Comment.Delete 'Cau Lenh Này Se Khong Bao Giò Duoc Thuc Hien Trong 1 Hàm Nguòi Dùng'If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddCommentCel(1, 1).Comment.Text vbLfSet mRng = Cel(1, 1).MergeAreaIf mRng Is Nothing Then Set mRng = Cel(1, 1)With Cel(1, 1).Comment.Shape .Shadow.Visible = msoFalse .Line.Visible = msoFalse .AutoShapeType = msoShapeRectangle .Left = mRng.Left: .Top = mRng.Top: .Visible = True .Width = mRng.Width: .Height = mRng.Height .Fill.UserPicture Pic End With Application.ScreenUpdating = True On Error GoTo 0 End Function
Tóm lại bạn chả thể nào thực hiện hàm người dùng này vô đâu cả; & sự có mặt của nó trong các trang tính chỉ làm bạn hao fí thời gian mà thôi.
Theo mình thì 1 file CSDL gồm 3 fần chính
Thi đó là file gốc đó bác. file để có dữ liệu điền vào chỉ là số liệu thép với khối lượng bê tông thôi.
a.) Dữ liệu đầu vào
b.) Các trang fụ trợ dùng để nhập liệu, chỉnh sửa dữ liệu, thay mới hay xóa dữ liệu cũ;
c.) Các báo cáo (dể in ra hay để xem mà thôi)
Trong các fần đó, chỉ các trang liên quan đến c.) mới cần định dạng, diêm dúa cho bắt mắt; Các trang cón lại, nhất là các trang dữ liệu càng thô càng tốt
Thô cỡ này nè:
Dòng đầu là tên các trường; Tên các trường không nên có dấu tiếng Việt, Nên viết liền; Ví dụ như:
[Ng_Sinh], [NgVoCQ], [Dien_Giai], [NoiCuTru],. . . . .
(Cái này là do tiếng Việt nước ta đang mạnh ai nấy xài nên fải làm vậy)
Mình không tưởng tượng nổi:
Các trang tính chứa dữ liệu lại fải dịnh dạng lại cứ mỗi lần mở nó ra(!)
Thậm chí ta không nên trực tiếp làm viec với nó nữa kia, làm việc với CSDL thông qua các form fụ trợ ngõ hầu giảm thiểu rủi ro cho CSDL đáng quí của bạn.
CSDL của bạn giờ thực sự chả biết bắt đầu từ đâu nữa.
Nếu bạn vẫn giữ í tưởng xậy dựng CSDL như vậy thì chúng ta tạm biệt nhau đi thì hơn!
vẫn chưa hiểu cho lắm. thì trong file đó là có cả phần a.) b.) c.) của bác luôn ấy. phần a.) là mấy trang SoLieu..... đó bác. cũng tiên quyết là b.) luôn. còn c.) là mấy sheet viết tắt chữ in hoa không ấy.Gửi bởi ChanhTQ@
nếu file lằng nhằng thì bác có thể góp ý hướng đi để làm file tốt hơn được không bác? hướng của mình thì là vậy. làm vậy thôi. chứ tới lúc nhìn lại có nhiều công thức trong bảng tính nhìn cũng không hiểu gì luôn ấy.
còn file nó chậm là do code fix chiều cao dòng. vậy còn cách nào fix nhanh hơn không ạ! hay là làm thêm 1 nút để điều khiển cho nó fix sau bác nhỉ.
Tóm lại: Nếu mới học VBA thì nên hạn chế xài code sự kiện, bạn sẽ không khống chế nỗi đâuGửi bởi langtuchungtinh360