Hiện giá trị ô trong textbox (1 người xem)
- Thread starter carsen4u
- Ngày gửi
Người dùng đang xem chủ đề này
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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ỉ?
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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.
Lần chỉnh sửa cuối:
Upvote
0
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/ 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
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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é!
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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.
Upvote
0
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
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
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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.
Upvote
0
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
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
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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!
Upvote
0
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
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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é!
Upvote
0
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Bạn tải file về giải nén và mở FileNguon và bấm nút thử xem sao!
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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]
Upvote
0
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
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
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.
Upvote
0
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Upvote
0
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Vậy tại ô A1 của sheet1 nó có giá trị khác 0 hay không? Nếu khác thì chính máy của bạn có vấn đề rồi đấy! Mặt khác, bạn định dạng với ô A1 như thế nào?
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Cho file đang test của bạn lên đây xem thử nhé
Upvote
0
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Các bạn kiểm tra file bạn này gửi lên như thế nào, chứ tôi kiểm đi kiểm lại, chẳng vấn đề gì cả!
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Tôi cũng kiểm tra file trên không có vấn đề
Chắc Excel của ông này có vấn đề gì rồi
Upvote
0
Các bạn kiểm tra lại giùm nhé (window XP, Office 2007, virus AVG 8.5.xxx update 5.Oct.2012)
Chỉ những số bội số 100 mới hiển thị đúng trong texbox, mình có quay lại thao tác 1 lần nữa đây (bên màn hình visual basic, đã sắp xếp các cửa sổ để thấy hết dòng lệnh và bấm nút run)
[video=youtube_share;mHYqc8WVS7k]http://youtu.be/mHYqc8WVS7k[/video]
Và file excel:
View attachment TextBox.xls
Cám ơn các bạn
Chỉ những số bội số 100 mới hiển thị đúng trong texbox, mình có quay lại thao tác 1 lần nữa đây (bên màn hình visual basic, đã sắp xếp các cửa sổ để thấy hết dòng lệnh và bấm nút run)
[video=youtube_share;mHYqc8WVS7k]http://youtu.be/mHYqc8WVS7k[/video]
Và file excel:
View attachment TextBox.xls
Cám ơn các bạn
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Bạn có thể chụp lại hình mà máy bạn Control Panel, Region and Language, Customise Format hay không?
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Giờ, thay vì: TextBox1 = Val(Sheet1.[A1].Value) * 100
Bạn chuyển lại như vầy đi:
Mã:
Private Sub CommandButton2_Click()
[COLOR=#ff0000][B]TextBox1 = Sheet1.[A1].Value * 100[/B][/COLOR]
TextBox1.SetFocus
End SubTôi nghi là đúng mà! Vậy đi nhé!
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Bởi vì nhiều người cài đặt theo chuẩn của quốc tế về dấu phân cách hàng ngàn (dấu phẩy), còn bạn theo chuẩn Việt Nam (dấu chấm). Hàm Val xác định giá trị số ở dạng text về lại dạng number, khi dấu phân cách thập phân ở dạng 0,00 (kiểu VN) thì với Range("A1").Value, giả sử là 25% nó có dạng 0,25. Với hàm Val khi gặp trường hợp này là nó lấy những giá trị trước dấu phẩy, vì vậy Val(0,25) sẽ cho ra là 0 và nếu ô A1 = 550% , thì Val(5,5) = 5, vậy hàm Val tại sao lại cho ra kết quả như vậy? Theo tôi nghĩ, với định dạng kiểu #,##0.0 (kiểu quốc tế) thì đằng sau dấu phẩy nó sẽ có 3 ký số ở đằng sau thì nó mới là dạng số, với kiểu của VN thì không như vậy nên nó hiểu là dạng chuỗi, mà ở dạng chuỗi thì nó chỉ lấy giá trị số trước dấu phẩy, nếu không có số thì xem như bằng 0. Thí nghiệm bạn sẽ thấy, cũng tại ô A1 bạn gõ 9HTN và tại Immediate bạn ghi ?Val(Range("A1").Value) rồi enter, tôi nghĩ nó sẽ ra số 9. Tới đây bạn đã hiểu vấn đề chưa nhỉ?
Lần chỉnh sửa cuối:
Upvote
0
Bài viết mới nhất
Sau 1 tháng Mã Lại reset về 1 trở lên
(3 người xem)
HỌC ĐẠI LÝ THUẾ
(4 người xem)
Chuyển số tiền thành chữ
(1 người xem)
- Question
Tìm kiếm thông tin chi tiết trên sheet tổng hợp
(2 người xem)
GOAL SEEK NÂNG CAO TRONG EXCEL
(1 người xem)
