Tự động xuông dòng

  • Thread starter Thread starter haonhien
  • Ngày gửi Ngày gửi
Liên hệ QC

haonhien

Thành viên mới
Tham gia
5/2/08
Bài viết
4
Được thích
0
Chào các bạn!
Trong excel mình có cách nào để cho con trỏ tự động xuống dòng khi mình nhập xong một số không(cụ thể là điểm của học sinh).Mong được sự giúp đỡ của các bạn
 
haonhien đã viết:
Chào các bạn!
Trong excel mình có cách nào để cho con trỏ tự động xuống dòng khi mình nhập xong một số không(cụ thể là điểm của học sinh).Mong được sự giúp đỡ của các bạn
Chào bạn
Thật ra, cách không phải là không có nhưng hình như do nhu cầu chưa thống nhất. Như có người muốn nhập số nguyên (1 ; 2 ; 9...) hoặc số lẻ 1 chữ số thập phân ( 2 ; 2.5 ; 9.5 ...) hoặc nhập lẻ tới 2 chữ số thập phân ( 3.75 ; 9.25 ...) Thế nên bạn nên nói rõ yêu cầu của bạn nhập điểm thế nào, khi ấy mới hy vọng các thầy cô sẽ giúp bạn tìm giải pháp tối ưu nhất.

Bạn có thể tham khảo thêm tại đây
http://www.giaiphapexcel.com/forum/showthread.php?t=2628

TDN
 
Tự động xuống dòng

Chào các bạn
Ý mình ở đây là có hai cách chọn nhập.Nhập 1 chữ số (1;2;3...10) và nhập 2 chữ số(1.0 ;1,5 ;2.0 ; 2.5 ;....).Và chỉ thao tác trên sheet thôi .Mình chưa biết form là gì hết.Mong được chỉ dẫn của các bạn
 
haonhien đã viết:
Chào các bạn!
Trong excel mình có cách nào để cho con trỏ tự động xuống dòng khi mình nhập xong một số không(cụ thể là điểm của học sinh).Mong được sự giúp đỡ của các bạn

Chưa hiểu ý bạn, khi nhập xong điểm thì phải ấn Enter (để xác nhận) thì sẽ tự động xuống dòng thôi.
 
Bạn muốn nhập xong nhấn enter thì xuống dòng bàn làm như sau: chọn tool/option/edit/ mục move selection after enter hộp thoại direction chọn down.
 
Có khi nào làm dc vụ nhập vừa đúng độ dài chuổi thì tự động xuống dòng luôn, ko cần Enter?
Nhưng nếu thế thì cell đang ở chế độ Edit, làm sao code có thể chạy dc nhỉ?

Ah... hay là dùng TextBox đễ nhập điểm nhỉ? Với điều kiện thiết lập khi độ dài chuổi = 3 thì lấy giá trị vào cell
Đại khái như:
PHP:
Private Sub TextBox1_Change()
  If Sheet1.TextBox1.TextLength = 3 Then
     ActiveCell.Value = TextBox1 * 1
     ActiveCell.NumberFormat = "0.0"
     ActiveCell.Offset(1, 0).Select
     Sheet1.TextBox1.Text = ""
     Sheet1.TextBox1.Activate
   End If
End Sub
Ví dụ muốn nhập điểm 5 thì bắt buộc phải gõ đũ 5.5 (cũng chã biết có nhanh hơn ko)
ANH TUẤN
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Bạn Tu Huong chưa hiểu ý mình à?Đúng như bạn Anh Tuan 1066 nói đấy.Bạn có giải pháp nào hay hơn không?
 
Tôi nghĩ nếu ko nhập điễm thông qua 1 Object nào đó thì chắc là.. ko có giãi pháp... Ví dụ trong bài #7 vẫn chưa đúng yêu cầu của bạn sao?
ANH TUẤN
 
anhtuan1066 đã viết:
Tôi nghĩ nếu ko nhập điễm thông qua 1 Object nào đó thì chắc là.. ko có giãi pháp... Ví dụ trong bài #7 vẫn chưa đúng yêu cầu của bạn sao?
ANH TUẤN
Thật ra không cần thông qua Object nào cả vẫn làm được đấy Anh Tuấn à. Mấy cái vụ này em mày mò nhiều lắm rùi. Anh thử dùng SENDKEY xem (Chỉ hiệu quả khi nhập điểm là số nguyên)
Thế nhưng, như em đã nói ở trên, bạn haonhien cần nêu cụ thể nhu cầu nhập điểm thế nào thì mới có giải pháp cụ thể được, hi hi

TDN
 
Chào các bạn
Cách làm như bạn AnhTuan là đúng ý mình rồi.Nhưng mình muốn hỏi có cách nào đơn giản hơn không.Sendkey là cái gì vậy?
 
Các anh ơi
không hiểu sao em ko thể down được file Zip (trong khi mọi người down vô tư) Lỗi ở đâu đây?
zip-1.jpg
 
haonhien đã viết:
Chào các bạn
Cách làm như bạn AnhTuan là đúng ý mình rồi.Nhưng mình muốn hỏi có cách nào đơn giản hơn không.Sendkey là cái gì vậy?
Đây là lệnh trong VBA dùng để thực hiện thay cho thao tác gõ lên bàn phím.
Bạn có thể mở Help đọc thêm

TDN
 
Web KT

Bài viết mới nhất

Back
Top Bottom