Định dạng chữ số cho Label

giang127 · 14/4/10

Em mún định dạng chữ số của Label là dạng #,##0 thì phải dùng cách nào ah.
Ví dụ trong file: nó hện là 24000000 => Làm sao để nó hiện định dạng 24,000,000 được hả các bác.

Trong ví dụ:

- Ô label24 của em chứa công thức, nêu em mún nó hiện số nguyên, làm tròn xuống, dạng #,##0 thì phải code sao ạ.
- Ô Textbox1 chỉ nhận giá trị nhỏ hơn hoặc bằng Ô Label24, lớn hơn thì báo lỗi. Giá trị ô Textbox1 được ghi vào Cột J.

Em cảm ơn các bác $-\\/.$ $-\\/.$ $-\\/.$

ndu96081631 · 14/4/10

giang127 đã viết:
Em mún định dạng chữ số của Label là dạng #,##0 thì phải dùng cách nào ah.
Ví dụ trong file: nó hện là 24000000 => Làm sao để nó hiện định dạng 24,000,000 được hả các bác.

Trong ví dụ:

- Ô label24 của em chứa công thức, nêu em mún nó hiện số nguyên, làm tròn xuống, dạng #,##0 thì phải code sao ạ.
- Ô Textbox1 chỉ nhận giá trị nhỏ hơn hoặc bằng Ô Label24, lớn hơn thì báo lỗi. Giá trị ô Textbox1 được ghi vào Cột J.

Em cảm ơn các bác $-\\/.$ $-\\/.$ $-\\/.$

Dùng hàm Format, muốn định dạng thế nào thì ghi vào thế ấy (giống hàm TEXT của Excel)
Ví dụ:
Label18.Caption = Format(Cells(.Row, "I").Value, "#,##0")

Hai Lúa Miền Tây · 14/4/10

giang127 đã viết:
Em mún định dạng chữ số của Label là dạng #,##0 thì phải dùng cách nào ah.
Ví dụ trong file: nó hện là 24000000 => Làm sao để nó hiện định dạng 24,000,000 được hả các bác.

Trong ví dụ:

- Ô label24 của em chứa công thức, nêu em mún nó hiện số nguyên, làm tròn xuống, dạng #,##0 thì phải code sao ạ.
- Ô Textbox1 chỉ nhận giá trị nhỏ hơn hoặc bằng Ô Label24, lớn hơn thì báo lỗi. Giá trị ô Textbox1 được ghi vào Cột J.

Em cảm ơn các bác $-\\/.$ $-\\/.$ $-\\/.$

Định dạng bình thường thôi bạn
Ví dụ Label24

Mã:

Label24.Caption = Format(Cells(.Row, "I").Value - 50000 - 0.00006 * Cells(.Row, "M").Value, "#,##0")

giang127 · 14/4/10

Bác Dom ơi, cái ô Label24 là số tiền VNĐ nên phần nguyên chỉ có thể chẵn đến 100 VNĐ (Ko có 1 VNĐ, 2 VNĐ ..... 99VNĐ).

Nếu em muốn định dạng của nó là số nguyên, làm tròn xuống đến hàng 100 thì phải chèn code thế nào hả bác.
Bác giúp em với nhé

ndu96081631 · 14/4/10

giang127 đã viết:
Bác Dom ơi, cái ô Label24 là số tiền VNĐ nên phần nguyên chỉ có thể chẵn đến 100 VNĐ (Ko có 1 VNĐ, 2 VNĐ ..... 99VNĐ).

Nếu em muốn định dạng của nó là số nguyên, làm tròn xuống đến hàng 100 thì phải chèn code thế nào hả bác.
Bác giúp em với nhé

Thì dùng thêm hàm INT (Chia số tiền cho 100 rồi lồng trong hàm INT) ---> Ẹc... Ẹc... mấy vụ làm tròn này đơn giản mà bạn!

giang127 · 14/4/10

Bác ơi, ô Textbox1 của em code bị sai phần nào mà nhập số nào nó cũng báo lỗi.
Em muốn số nhập ở ô Textbox1 phải <= Label24. Lớn hơn là báo lỗi. Bác giúp e với. Chúc các bác 1 ngày vui vẻ !

giang127 · 14/4/10

ndu96081631 đã viết:
Thì dùng thêm hàm INT (Chia số tiền cho 100 rồi lồng trong hàm INT) ---> Ẹc... Ẹc... mấy vụ làm tròn này đơn giản mà bạn!

Nhưng vụ làm tròn đến hàng 100 thì e thấy ko đơn giản rùi ^^!

ndu96081631 · 14/4/10

giang127 đã viết:
Nhưng vụ làm tròn đến hàng 100 thì e thấy ko đơn giản rùi ^^!

Ví dụ:
Số tiền = 3521
Dùng hàm INT(3521/100)*100 sẽ cho kết quả = 3500

Hai Lúa Miền Tây · 14/4/10

giang127 đã viết:
Nhưng vụ làm tròn đến hàng 100 thì e thấy ko đơn giản rùi ^^!

Bạn thử code sau nhé

Mã:

Sub test()
MsgBox Format(WorksheetFunction.RoundDown(3521, -2), "#,##0")

End Sub

giang127 · 14/4/10

Bác ơi, ô Textbox1 của em code bị sai phần nào mà nhập số nào nó cũng báo lỗi.
Em muốn số nhập ở ô Textbox1 phải <= Label24. Lớn hơn là báo lỗi. Bác giúp e với. Chúc các bác 1 ngày vui vẻ !

Hai Lúa Miền Tây · 14/4/10

giang127 đã viết:
Bác ơi, ô Textbox1 của em code bị sai phần nào mà nhập số nào nó cũng báo lỗi.
Em muốn số nhập ở ô Textbox1 phải <= Label24. Lớn hơn là báo lỗi. Bác giúp e với. Chúc các bác 1 ngày vui vẻ !

Code của bạn so sánh giá trị với ActiveCell (J2: khi mở form Double click vào nó) ??? mà sao lại nói Label24 ? Khó hiểu quá
Bạn xem lại coi so sánh đúng chưa nhé

giang127 · 14/4/10

À, tức là khách chỉ được ứng tối đa số tiền nằm trong Label24 thui. Vì còn phải trừ đi phí phèo nữa.
Vậy code trong file em gửi chắc bị sai rùi.

Em mún so sánh giá trị trong ô Textbox1 với Label24 bác ạ.
- Nếu Số tiền nhập trong ô Textbox1 nhỏ hơn hoặc bằng trong Label24 thì ok
- Nếu Số tiền nhập trong ô Textbox1 lớn hơn trong Label24 thì báo lỗi
- Nếu số tiền nhập dạng text cũng báo lỗi - "Vui lòng nhập số !"

Bác giúp e sửa với nhé

ndu96081631 · 14/4/10

giang127 đã viết:
À, tức là khách chỉ được ứng tối đa số tiền nằm trong Label24 thui. Vì còn phải trừ đi phí phèo nữa.
Vậy code trong file em gửi chắc bị sai rùi.

Em mún so sánh giá trị trong ô Textbox1 với Label24 bác ạ.
- Nếu Số tiền nhập trong ô Textbox1 nhỏ hơn hoặc bằng trong Label24 thì ok
- Nếu Số tiền nhập trong ô Textbox1 lớn hơn trong Label24 thì báo lỗi
- Nếu số tiền nhập dạng text cũng báo lỗi - "Vui lòng nhập số !"

Bác giúp e sửa với nhé

Cái vụ "cảnh báo" này tôi đã làm cho bạn 1 lần rồi còn gì ---> Cứ thế mà cải tiến thôi!
Tôi nhìn code bạn "viết" và xem lại toàn bộ nội dung các câu hỏi của bạn thì có thể "đoán mò" rằng: "Bạn chỉ mang code của người khác về xài mà chẳng hiểu tí gì về VBA cả"
(Xin lổi nếu tôi đoán sai)
Vì cứ có gì đó thay đổi, bạn không tùy biến được... lại phải hỏi... Nếu như vậy thì hỏi đến bao giờ mới xong hả bạn?
Dù sao, muốn làm việc với VBA, ít nhất cũng phải có chút kiến thức về nó (để còn sửa được những chổ đơn giản nhất)
Nói thật, không phải là tôi không muốn giúp... có điều tôi nghĩ những gì gợi ý cũng đã quá đủ để bạn tự mình suy luận và làm tiếp rồi còn gì
(Oải nhất là.. CẦM TAY TẬP VIẾT... Chẳng hợp với tinh thần chia sẽ học hỏi tí nào... Hic!)

giang127 · 14/4/10

Đúng rùi, bác ợ, nếu là làm full bằng công thức và hàm thì em hiểu.
Nhưng nếu viết code VBa và bị sai thì e chịu lun

Ah, Bác cho em hỏi tý, nếu muốn lấy giá trị 1 Ô Textbox = 1 Label thì viết code như thế nào ah.
VD: Để code Textbox1 = Label24
Bác giúp em ý này với ý trên đi.
- Nếu Số tiền nhập trong ô Textbox1 nhỏ hơn hoặc bằng trong Label24 thì ok
- Nếu Số tiền nhập trong ô Textbox1 lớn hơn trong Label24 thì báo lỗi

Hết vụ này chắc em ko còn cơ hội hỏi bác nữa rùi. Cảm ơn bác

Hai Lúa Miền Tây · 14/4/10

giang127 đã viết:
Đúng rùi, bác ợ, nếu là làm full bằng công thức và hàm thì em hiểu.
Nhưng nếu viết code VBa và bị sai thì e chịu lun
Ah, Bác cho em hỏi tý, nếu muốn lấy giá trị 1 Ô Textbox = 1 Label thì viết code như thế nào ah.
VD: Để code Textbox1 = Label24
Bác giúp em ý này với ý trên đi.
- Nếu Số tiền nhập trong ô Textbox1 nhỏ hơn hoặc bằng trong Label24 thì ok
- Nếu Số tiền nhập trong ô Textbox1 lớn hơn trong Label24 thì báo lỗi

Hết vụ này chắc em ko còn cơ hội hỏi bác nữa rùi. Cảm ơn bác

Bạn xem file thử nhé, dùng 1 textbox phụ để so sánh với textbox nhập liệu.

giang127 · 14/4/10

Cảm ơn bác

Hi, cảm ơn bác đã tận tình.
em tự mày mò và làm xong được rùi.
gửi lại cho bác xem; coi như không phu công bác chỉ điểm ;;;;;;;;;;;

giang127 · 14/4/10

Bác ơi, cho iem hỏi. Máy em dùng Excel 2007.
Em chuyển file từ máy em sang máy khác thì toàn bô Macro đều ko sài được ("not found").
Có cách nào gói các Macro lại và sang máy khác vẫn mở ra bình thường đc ko bác.

Hoàng Trọng Nghĩa · 14/4/10

giang127 đã viết:
Bác ơi, cho iem hỏi. Máy em dùng Excel 2007.
Em chuyển file từ máy em sang máy khác thì toàn bô Macro đều ko sài được ("not found").
Có cách nào gói các Macro lại và sang máy khác vẫn mở ra bình thường đc ko bác.

Trước khi chuyển, kiểm tra máy đó có xài X2007 hay không. Nếu có, bạn bấm nút Button Office Button (nút tròn đầu tiên trên Ribbon), bạn chọn Excel Option.
Chọn tiếp thẻ Trust Center > Trust Center Setting... > Chọn thẻ Macro Setting... > Tại đây có 4 option, bạn chọn 1 trong 4 này, tôi nghĩ bạn nên cho Option 3 (hoặc chọn 4).
Thân.

ndu96081631 · 15/4/10

minhthien321 đã viết:
Trước khi chuyển, kiểm tra máy đó có xài X2007 hay không. Nếu có, bạn bấm nút Button Office Button (nút tròn đầu tiên trên Ribbon), bạn chọn Excel Option.
Chọn tiếp thẻ Trust Center > Trust Center Setting... > Chọn thẻ Macro Setting... > Tại đây có 4 option, bạn chọn 1 trong 4 này, tôi nghĩ bạn nên cho Option 3 (hoặc chọn 4).
Thân.

Tôi e rằng không phải nguyên nhân này ---> Tình nghi rằng trên máy tính ấy có chương trình diệt virus và nó đã "cắn nát" code mất rồi ---> Nếu không thì làm gì có cảnh báo "not found" ---> Security đặt ở mức High nó cảnh báo khác

Định dạng chữ số cho Label

Thành viên hoạt động

File đính kèm

Huyền thoại GPE

❆❆❆❆❆❆❆❆

Thành viên hoạt động

Huyền thoại GPE

Thành viên hoạt động

Thành viên hoạt động

Huyền thoại GPE

❆❆❆❆❆❆❆❆

Thành viên hoạt động

❆❆❆❆❆❆❆❆

Thành viên hoạt động

Huyền thoại GPE

Thành viên hoạt động

❆❆❆❆❆❆❆❆

File đính kèm

Thành viên hoạt động

File đính kèm

Thành viên hoạt động

Chuyên gia GPE

Huyền thoại GPE

Đếm ngược thời gian