Tạo giao diện để phập liệu
- Thread starter Number1gen
- Ngày gửi
anhtuan1066
Thành viên gạo cội
- Tham gia
- 10/3/07
- Bài viết
- 5,802
- Được thích
- 6,906
Tôi e rằng nếu ko có virus thì sẽ... ko vui!... Ít ra nhờ nó mà trình độ của mình tăng lên đáng kể đấy chứ... hi... hi...
ANH TUẤN
ANH TUẤN
dmtdmtbb
Biệt danh: xDelx
- Tham gia
- 24/5/07
- Bài viết
- 306
- Được thích
- 438
- Tới mùa lũ người ta thường có chủ trương sống chung với lũ, đó là các vùng bị ngập lục.
- Còn đối với người sử dụng máy vi tính thì lúc nào củng có virut đi kèm vì vậy bà con chuẩn bị tinh thần sống chung với virut đi là vừa.
- Còn đối với người sử dụng máy vi tính thì lúc nào củng có virut đi kèm vì vậy bà con chuẩn bị tinh thần sống chung với virut đi là vừa.
Muốn mở thêm cột, bạn phải tạo thêm textbox trên form:
-Mở cửa sổ code (Alt+F11). Mở form ở trạng thái chỉnh sửa. Hiển thị hộp Toolbox (View/toolbox). Kéo chuột lên đối tượng ab từ toolbox vào form.
-Sau khi tạo, vào properties của từng textbox đặt lại tên (txtb8,txtb9...), chỉnh tabindex có cùng số với textbox.Nếu box nào nhập nhiều dòng thì chỉnh MultiLine=true.
Sau đó vào cửa sổ code, thêm vào như sau:
-If txtb1 = "" Or txtb2 = "" Or txtb3 = "" Or txtb4 = "" Or txtb5 = "" Or txtb6 = "" Or txtb7 = "" Or txtb8 = "" Or txtb9 = "" Then
-ws.Cells(iRow, 6).Value = Me.txtb5.Value
ws.Cells(iRow, 7).Value = Me.txtb6.Value
ws.Cells(iRow, 8).Value = Me.txtb7.Value
ws.Cells(iRow, 9).Value = Me.txtb8.Value
ws.Cells(iRow, 10).Value = Me.txtb9.Value
-txtb5 = ""
txtb6 = ""
txtb7 = ""
txtb8 = ""
txtb9 = ""
Chúc bạn thành công.
vungoc
Beautiful Womans from your city for night
- Tham gia
- 2/8/06
- Bài viết
- 633
- Được thích
- 2,603
- Giới tính
- Nam
- Nghề nghiệp
- Search
voda đã viết:
Thầy Voda vui lòng hướng dẫn hoặc giải thích giùm em công dụng của đoạn mã:
iRow = ws.Cells(Rows.Count, 6) _
.End(xlUp).Offset(1, 0).Row
Cảm ơn Thầy - Chúc thầy luôn vui & mạnh khỏe !
Ý nghĩa câu lệnh
Xin phép thầy voda cho giải thích chút xíu .Ý nghĩa câu lệnh trên như sau :
1.Kiểm tra xem cột thứ 6 (cột F) trong bảng tính ô có chứa dữ liệu cuối cùng là ô nào - Rows.Count
2.Tiếp theo di chuyển lên phía trên đến khi gặp ô trống thì dừng (nếu cột F có nhiều vùng dữ liệu không liên tục thì nó di chuyển đến ô đầu của vùng dữ liệu cuối cùng) - End(xlUp)
3.Tiếp nữa là dịch xuống 1 dòng (nhằm mục đích nhập dữ liệu mới) - Offset(1,0) --> số 1 là chỉ số dòng sẽ dịch xuống, nếu sửa thành số i thì nó dịch xuống i dòng, số 0 chỉ số cột cần dịch, trong trường hợp này là không dịch chuyển cột.
4.Cuối cùng là dùng .Row để xác định số dòng của ô đang chọn và gán vào biến iRow
Xin phép thầy voda cho giải thích chút xíu .Ý nghĩa câu lệnh trên như sau :
1.Kiểm tra xem cột thứ 6 (cột F) trong bảng tính ô có chứa dữ liệu cuối cùng là ô nào - Rows.Count
2.Tiếp theo di chuyển lên phía trên đến khi gặp ô trống thì dừng (nếu cột F có nhiều vùng dữ liệu không liên tục thì nó di chuyển đến ô đầu của vùng dữ liệu cuối cùng) - End(xlUp)
3.Tiếp nữa là dịch xuống 1 dòng (nhằm mục đích nhập dữ liệu mới) - Offset(1,0) --> số 1 là chỉ số dòng sẽ dịch xuống, nếu sửa thành số i thì nó dịch xuống i dòng, số 0 chỉ số cột cần dịch, trong trường hợp này là không dịch chuyển cột.
4.Cuối cùng là dùng .Row để xác định số dòng của ô đang chọn và gán vào biến iRow
Lần chỉnh sửa cuối:
Anhphuong đã nói rõ. Mình chỉ bổ sung thêm một vài ý:
-Ta có thể phân câu lệnh làm 4 nhóm:
ws.Cells(Rows.Count, 6) : xác định địa chỉ của 1 ô trong ws. Ô này ở dòng 65536 (dòng cuối trong excel 2003), cột 6. (Rows.count: đếm tất cả dòng). Điều đó có nghĩa là ta có thể viết thành ws.Cells(65536, 6).
End(xlUp) : Từ ô đó đi lên tìm ô cuối của vùng dữ liệu cuối (tính từ trên xuống)
Offset(1, 0): Từ ô tìm được chuyển vị trí xuống 1 dòng.
Row : chỉ số dòng của ô ở vị trí được xác định.
Như vậy câu lệnh ws.Cells(Rows.Count, 6) _
.End(xlUp).Offset(1, 0).Row trả về một giá trị để gán vào biến iRow.
Cảm ơn lời chúc của Vungoc.
