Xin giúp khắc phục lỗi Combobox

[Cao Mạnh Sơn]

Tôi bị lỗi này khá lâu rồi ,muốn tìm hiểu xem tại sao nhưng không tìm được,nhờ mọi người giúp đỡ:
File chấm công tôi sử dụng hàng ngày để chấm công cho nhân viên trong phòng,tôi thiết kế khi mở File mặc định mở Sheet Theo dõi sinh nhật(có sử dụng đoạn Macro),sau đó từ Link Menu tôi sẽ chuyển về Sheet Menu,từ đây sẽ dùng Link để đến các Sheet khác.Giao diện như sau:

Vấn đề ở chỗ máy của tôi nối mạng nội bộ,tôi giao cho 1 nhân viên làm lương từ File trong máy của tôi.Sau mỗi lần nhân viên của tôi truy cập vào File và xử lý dữ liệu trong đó và lưu lại,đến lượt tôi mở file ra kiểm tra thì 2 Combobox bị tràn sang nhau,nếu tôi nhấn bào biểu tượng chiếc Eke(DisignMode)trong Ribon Diverloper để chỉnh lại độ rộng Combobox thì lại sử dụng bình thường,nếu không chỉnh lần sau mở ra nó lại tràn thêm sang phần nữa,dần dần 1 Combobox sẽ tràn hết màn hình.
Nếu File này chỉ mở từ máy của tôi thì không có vấn đề gì.Tôi dùng máy sách tay,còn nhân viên của tôi dùng máy để bàn.sau đây là hình ảnh lỗi:

Tôi gửi kèm theo File đang trong tình trạng lỗi,trong các Sheet đều có các Link để đến các Sheet khác ở các Logo hoặc các dòng tiêu đề,vì tôi sử dụng Excel 2007 nên tôi gửi nguyên File 2007 lên,mong mọi người thông cảm nếu như sử dụng 2003 không mở được.
Rất mong mọi người giúp đỡ tìm hiểu nguyên nhân và cách khắc phục.
Xin cảm ơn

 

[tedaynui]

Mình không dùng Excel 2007 nên chịu thua, không test được. Nhưng bạn thử mở Properties và chỉnh thuộc tính AutoSize là False và Format Control trong Properties là Don't move or size with cells xem sao.

TDN

 

[Cao Mạnh Sơn]

Mình không dùng Excel 2007 nên chịu thua, không test được. Nhưng bạn thử mở Properties và chỉnh thuộc tính AutoSize là False và Format Control trong Properties là Don't move or size with cells xem sao.

TDN

Cái này mình đã thử rồi,hiên thuộc tính của Combobox trong file đính kèm đã để là Don't move or size with cells

 

[Đào Việt Cường]

Dear cao mạnh sơn,
-------------------
Có thể bạn đang lưu Workbook ở định dạng Microsoft Office Excel Macro-Enabled Worksheet (*.xlsm), bạn chuyển về định dạng *.xls hoặc *.xlsx thử xem!

 

[Cao Mạnh Sơn]

To Ca_dafi:chuyển về 2003 thì mình thấy báo lỗi Run-time error 57121 trong hộp Microsoft Visual basic và lỗi Name nên mình không gửi lại nữa.
To Đào Việt Cường:em sẽ thử và kiểm chứng,thông báo kết quả sau
Không được anh Cường ơi,chuyển sang dạng .xlsx thì macro không chạy,anh ktra ở Sheet chấm công tăng giờ có sử dụng công thức đếm mầu,không chạy được.

 

[Cao Mạnh Sơn]

Chủ đề này tôi gửi lên cũng khá lâu nhưng chưa có giải pháp nào giúp tôi giải quyết vấn đề,không biết có phải do khó giải quyết không hay vấn đề không đáng quan tâm,có điều tôi buồn quá.Tôi vẫn hy vọng có ai đó tìm và giải quyết được vấn đề giúp tôi.Chờ tin tốt.

 

[Nguyễn Duy Tuân]

Sửa lỗi

Lỗi của file là do 2 Name sử dụng trong Listbox là Name động. Độ rộng của Listbox do ảnh hưởng của dữ liệu trong Name động. Anh cần dùng thêm đoạn lệnh trong sheet "SINHNHAT" trong sự kiện Worksheet_Activate.

Private Sub Worksheet_Activate()
    Dim oldStatusScr As Boolean
    
    oldStatusScr = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    With ListBox1
        If .Left <> 22.5 Then .Left = 22.5
        If .Top <> 21.75 Then .Top = 21.75
        If .Width <> 367.5 Then .Width = 367.5
        If .Height <> 385.5 Then .Height = 385.5
    End With
    
    With ListBox2 
        If .Left <> 526.5 Then .Left = 526.5
        If .Top <> 21.75 Then .Top = 21.75
        If .Width <> 367.5 Then .Width = 367.5
        If .Height <> 385.5 Then .Height = 385.5
    End With
    
    Application.ScreenUpdating = oldStatusScr
    
End Sub

Em đã sửa cho anh trong file đính kèm. Anh kiểm tra xem đã được chưa?
Việc 2 máy có hiện tượng khác nhau là do chế độ đặt "Regional Setting" trong "Control Pane" khác nhau.

 

[Cao Mạnh Sơn]

Vậy là cao thủ đã ra tay,cám ơn Tuân nhé.Phải để đến mai kiểm chứng xem khi dùng máy khác lấy dữ liệu từ máy của anh sau đó lưu lại và dùng máy của anh mở lại xem sao.Tuy nhiên trong file 2 name lấy dữ liệu cho Cobobox không phải name động,còn chế độ đặt cũng phải ktra lại.Cao thủ này dạo này hay ở ẩn quá,không muốn cho anh em gặp mặt hay sao vậy.

 

[Nguyễn Duy Tuân]

Vậy là cao thủ đã ra tay,cám ơn Tuân nhé.Phải để đến mai kiểm chứng xem khi dùng máy khác lấy dữ liệu từ máy của anh sau đó lưu lại và dùng máy của anh mở lại xem sao.Tuy nhiên trong file 2 name lấy dữ liệu cho Cobobox không phải name động,còn chế độ đặt cũng phải ktra lại.Cao thủ này dạo này hay ở ẩn quá,không muốn cho anh em gặp mặt hay sao vậy.

Nếu cần thiết anh chỉnh thông số ở Left, Width là được. Mai có gì báo lại kết quả bác nhé!

Dạo này em bận quá, đúng đợt thi hết kỳ của khoa em, ngày dạy, tối coi thi nên nhiều lần thất hứa với mọi người . Hẹn khi khác gặp bác và mọi người.

 

[Cao Mạnh Sơn]

Mai có gì báo lại kết quả bác nhé!

Hôm nay đã kiểm tra rồi,không thấy hiện tượng đó nữa.(làm sao mà bị khi bắt nó phải thế rồi).
Thay đổi thông số 1 chút cho nó phù hợp với ý thích của mình,bây giờ không còn phải lo mỗi khi mở File ra là chỉnh lại độ rộng của Box.Cám ơn Tuân nhiều
Có điều vấn đề nguyên nhân cũng chưa thấu hiểu,nếu chỉ máy của mình thì không có hiện tượng Box bị thay đổi,sau khi máy khác can thiệp vào File,xử lý dữ liệu,lưu lại thì có hiện tượng này.về thiết lập Regional ở 2 máy là như nhau,chỉ khác độ phân giải màn hình thôi.Nếu có thể Tuân giải thích rõ hơn nhé.

 

[Nguyễn Duy Tuân]

Hôm nay đã kiểm tra rồi,không thấy hiện tượng đó nữa.(làm sao mà bị khi bắt nó phải thế rồi).
Thay đổi thông số 1 chút cho nó phù hợp với ý thích của mình,bây giờ không còn phải lo mỗi khi mở File ra là chỉnh lại độ rộng của Box.Cám ơn Tuân nhiều
Có điều vấn đề nguyên nhân cũng chưa thấu hiểu,nếu chỉ máy của mình thì không có hiện tượng Box bị thay đổi,sau khi máy khác can thiệp vào File,xử lý dữ liệu,lưu lại thì có hiện tượng này.về thiết lập Regional ở 2 máy là như nhau,chỉ khác độ phân giải màn hình thôi.Nếu có thể Tuân giải thích rõ hơn nhé.

Thôi thì mấy cái màn hình nó không thống nhất thì mình viết code để ép nó cho yên tâm .