Hiện giá trị ô trong textbox

[carsen4u]

Nhờ các bạn giúp giùm đoạn code hiện giá trị ô A1 trong textbox trên form, và khi sửa giá trị trong textbox đó thì sẽ gán được vào ô A1

Thanks
TD

 

[viehoai]

Nhờ các bạn giúp giùm đoạn code hiện giá trị ô A1 trong textbox trên form, và khi sửa giá trị trong textbox đó thì sẽ gán được vào ô A1

Thanks
TD

Bạn xem file đúng ý bạn không nhé. Lần sau bạn hỏi nên đưa file lên nhé

 

[Hoàng Trọng Nghĩa]

Bạn xem file đúng ý bạn không nhé. Lần sau bạn hỏi nên đưa file lên nhé

Cái form này theo diễn giải của chủ topic thì OK rồi đấy, nhưng tốt hơn là cho hiện giá trị lên form khi form load, nhưng khi chuyển dữ liệu xuống thì cho 1 nút lệnh thì sẽ tốt hơn, dĩ nhiên khi thay đổi gì đó cũng nên có một không báo nhắc nhở chứ nhỉ?

 

[carsen4u]

Cám ơn bạn, mình làm đc rùi, bây giờ muốn hiển thị số 1000 là 1.000 (có dấu chấm) và % (ô hiển thị là 10%, textbox hiển thị là 0.1)

Cám ơn lần nữa nhé
Brds
TD

 

[Hoàng Trọng Nghĩa]

Cám ơn bạn, mình làm đc rùi, bây giờ muốn hiển thị số 1000 là 1.000 (có dấu chấm) và % (ô hiển thị là 10%, textbox hiển thị là 0.1)

Cám ơn lần nữa nhé
Brds
TD

Trước tiên, máy của bạn định dạng dấu phân cách hàng ngàn là dấu chấm hay dấu phẩy? Bạn muốn định dạng tại đâu để có 1.000 (sheet hay textbox)?

Nếu trong sheet mà bạn chưa biết cách định dạng, cái căn bản của Excel mà chưa vững vậy mà bạn đã nghĩ đến VBA thì cũng thiên tài đấy!

Theo tôi bạn nên tham khảo file đính kèm.

 

[carsen4u]

Cám ơn bạn
Định dạng trong excel thì biết, mình muốn là hiển thị số liệu trong text box giống y chang như trong cell (định dạng cell thế nào thì sẽ hiển thị trong textbox như vậy).
Brds
TD

 

[carsen4u]

Cho mình hỏi thêm:
1/ Lưu file có macro và table trong excel 2007 dưới định dạng của excel 2003 (*.xls) luôn xuất hiện thông báo compatibility, viết code như thế nào để bỏ qua thông báo này khi lưu.
2/ Trong excel 2007: khi mở file chỉ cho xuất hiện bảng tính, ẩn hết toàn bộ menu, scrollbar, formular bar...(người dùng ko mở được bằng trong option)
3/ Có thể vô hiệu hóa các lệnh của excel trừ một số lệnh cơ bản như cut, copy, paste, insert, delete trong khi công thức/VBA/Add in vẫn chạy ?

Thanks
Brds
TD

 

[Hoàng Trọng Nghĩa]

Cám ơn bạn
Định dạng trong excel thì biết, mình muốn là hiển thị số liệu trong text box giống y chang như trong cell (định dạng cell thế nào thì sẽ hiển thị trong textbox như vậy).
Brds
TD

Vì là TextBox nên bản thân của giá trị trong đó là dạng Text vì vậy, khi tính toán ta phải lồng hàm Val (giống hàm Value của Excel), cho nên để chuyển định dạng cho TextBox thì khi nhập ngược lại Sheet nó sẽ không còn định dạng của Number nữa mà nó mang dạng Text (chuỗi).

Việc định dạng này cũng dễ, TextBox1 = Format(TextBox1,"#,##0.000"). Phần màu đỏ bạn định dạng như trong Format Cells.

Với dạng % tôi khuyên bạn hãy làm như bài tôi đã gửi lên để tránh tình trạng rắc rối khi tính toán, đây là kinh nghiệm của tôi, vì khi nhập số 1 (ngầm hiểu là 1% vì sau đó nó tự động chia lại 100) sẽ dễ hơn ta gõ 0.01 (gõ 1 ký tự sướng hơn gõ 4 ký tự đúng không?). Đặc biệt với định dạng trong TextBox, bạn đừng nên cho vào thuộc tính CHANGE nếu không sẽ xảy ra lỗi đáng tiếc hoặc gây khó khăn khi nhập số liệu đấy nhé!

 

[Hoàng Trọng Nghĩa]

Cho mình hỏi thêm:
1/ Lưu file có macro và table trong excel 2007 dưới định dạng của excel 2003 (*.xls) luôn xuất hiện thông báo compatibility, viết code như thế nào để bỏ qua thông báo này khi lưu.
2/ Trong excel 2007: khi mở file chỉ cho xuất hiện bảng tính, ẩn hết toàn bộ menu, scrollbar, formular bar...(người dùng ko mở được bằng trong option)
3/ Có thể vô hiệu hóa các lệnh của excel trừ một số lệnh cơ bản như cut, copy, paste, insert, delete trong khi công thức/VBA/Add in vẫn chạy ?

Thanks
Brds
TD

1) Khi file 2003 trên nền 2007 không phải vì có macro hay table mà nó nổi lên thông báo đó, mà vì do định dạng. Khi save file ở lần đầu tiên bạn nên check vào trên cái thông báo đó không nên tiếp tục thông báo ở lần sau rồi OK.

Khi save file có macro ở 2007 thì lưu ý sẽ có một thông báo. Bạn nên chọn dạng file Enable Macro để lưu lại, file lưu xong sẽ có dấu chấm than và cái khiêng màu vàng.

2) Nếu không muốn thấy nhiều thứ trên ribbon, có 2 cách: 1 là bạn chọn ở nút xổ xuống trên cùng của những shortcut và chọn vào Minimize Menu (Toolbar hay Ribbon gì đó). 2 là bạn chọn vào thẻ View và chọn vào Full Screen. Không có code để giấu hết ribbon đâu, ngoại trừ bạn biết ngôn ngữ Java.

3) Khó có code can thiệp lên ribbon để làm chuyện bạn yêu cầu.

 

[carsen4u]

Mấy hôm rồi bận quá, chưa xem được, giờ mình test file của bạn: nút nhập lên form: khi click vào, textbox ko lên giá trị của ô mà là =0, bạn xem lại giùm mình

Mình muốn có button để đóng file hiện tại rồi mở file khác:

Private Sub BlockB_Click()
ThisWorkbook.Close
CreateObject("Shell.Application").Open "D:\RubyLand\Quan ly Nuoc\Hoa don nuoc block B-Ver1.0.xls"
End Sub

Nhưng hình như đóng file rồi thì không thể thực hiện được câu lệnh kế tiếp ??? giúp mình đoạn code này luôn nhé

Thanks

 

[Hoàng Trọng Nghĩa]

Mấy hôm rồi bận quá, chưa xem được, giờ mình test file của bạn: nút nhập lên form: khi click vào, textbox ko lên giá trị của ô mà là =0, bạn xem lại giùm mình

Mình muốn có button để đóng file hiện tại rồi mở file khác:

Private Sub BlockB_Click()
ThisWorkbook.Close
CreateObject("Shell.Application").Open "D:\RubyLand\Quan ly Nuoc\Hoa don nuoc block B-Ver1.0.xls"
End Sub

Nhưng hình như đóng file rồi thì không thể thực hiện được câu lệnh kế tiếp ??? giúp mình đoạn code này luôn nhé

Thanks

Thì làm ngược lại! thay vì bạn đóng file trước rồi mở file khác ra, thì bây giờ bạn mở file khác ra rồi đóng file này lại.

 

[carsen4u]

Giả sử đang ở file A, giờ mở file B lên, thì dùng lệnh nào để đóng file A (vì lúc đó thisworkbook.close sẽ đóng file B)

Xem lại giùm mình file test của bạn nhé:
nút nhập lên form: khi click vào, textbox ko lên giá trị của ô mà là =0

Thanks

 

[Hoàng Trọng Nghĩa]

Giả sử đang ở file A, giờ mở file B lên, thì dùng lệnh nào để đóng file A (vì lúc đó thisworkbook.close sẽ đóng file B)

Xem lại giùm mình file test của bạn nhé:
nút nhập lên form: khi click vào, textbox ko lên giá trị của ô mà là =0

Thanks

Nghĩ sao vậy ta? File ở bài số 5 tôi kiểm tra nhiều lần, chẳng vấn đề gì, kể cả trên Win7 hay WinXP!

 

[carsen4u]

Nghĩ sao vậy ta? File ở bài số 5 tôi kiểm tra nhiều lần, chẳng vấn đề gì, kể cả trên Win7 hay WinXP!

Mình xài WinXP, Excel 2007:
* nhập số 20 vào textbox, click "nhập xuống sheet", chọn OK, giá trị ô thay đổi thành 20%, text có dấu nháy, ko có giá trị trong textbox
* Click "nhập lên form", xuất hiện số 0 và dấu nháy trong textbox.

Ko biết quay lại thao tác này như thế nào để up lên cho bạn thấy.
Brds

 

[Hoàng Trọng Nghĩa]

Mình xài WinXP, Excel 2007:
* nhập số 20 vào textbox, click "nhập xuống sheet", chọn OK, giá trị ô thay đổi thành 20%, text có dấu nháy, ko có giá trị trong textbox
* Click "nhập lên form", xuất hiện số 0 và dấu nháy trong textbox.

Ko biết quay lại thao tác này như thế nào để up lên cho bạn thấy.
Brds

Bạn tải file của tôi chưa? Còn file bạn gửi ban đầu, định dạng là Text đấy nhé!

 

[carsen4u]

Bạn tải file của tôi chưa? Còn file bạn gửi ban đầu, định dạng là Text đấy nhé!

Đấy là vấn đề mình gặp phải trong file textbox.xls ở bài 5 của bạn
View attachment TextBox.xls
Brds

 

[Hoàng Trọng Nghĩa]

Giả sử đang ở file A, giờ mở file B lên, thì dùng lệnh nào để đóng file A (vì lúc đó thisworkbook.close sẽ đóng file B)



Thanks

Bạn tải file về giải nén và mở FileNguon và bấm nút thử xem sao!

 

[Hoàng Trọng Nghĩa]

Đấy là vấn đề mình gặp phải trong file textbox.xls ở bài 5 của bạn
View attachment 90000
Brds

Tôi quay phim lại cho bạn coi nhé!
[video=youtube;eVQZUfzsX5U]http://www.youtube.com/watch?v=eVQZUfzsX5U&feature=youtu.be[/video]

 

[carsen4u]

Bạn tải file về giải nén và mở FileNguon và bấm nút thử xem sao!

Cám ơn rất nhiều, bạn giải thích giùm mình ý nghĩa của cái này nhé:

Function FileExist(ByVal filePath As String) As Boolean
FileExist = CreateObject("Scripting.FileSystemObject").FileExists(filePath)
End Function

Brds

 

[Hoàng Trọng Nghĩa]

Cám ơn rất nhiều, bạn giải thích giùm mình ý nghĩa của cái này nhé:

Function FileExist(ByVal filePath As String) As Boolean
FileExist = CreateObject("Scripting.FileSystemObject").FileExists(filePath)
End Function

Brds

Thật ra không cần cái này mà code vẫn chạy.

Đây là Hàm tự tạo, kiểm tra File có tồn tại theo đường dẫn cho trước hay không, nếu tồn tại trả về giá trị True, ngược lại là False. Nếu không có hàm này kiểm tra, chắc chắn sẽ bị lỗi khi không có file tồn tại.