ngắt giữa chương trình và nhận vùng selection mới

[hoangquycong]

các huynh đệ xin cho hỏi,có cách nào để ngắt giữa đoạn một chương trình,rồi dùng form và drag chuột để nhận vùng selection mới không.Tôi lấy ví dụ trong một ứng dụng,tôi muốn ngắt chương trình và cho người sử dụng chọn một vùng và xử lí tiếp trong vùng đó.cảm ơn

 

[hoangquycong]

lấy thuộc tính selection

có bạn nào có code ví dụ ngắt giữa một chương trình và cho chọn vùng selection mới thì giúp t với.T đang viết một ứng dụng,trong đó muốn ngắt giữa chương trình rồi cho người dùng chọn vùng dữ liệu mới để xử lí.thanks,con này khoai quá,tìm mãi không thấy chỗ nào có
việc ngắt giữa chương trình thì ok rồi,ai cũng làm được ,nhưng việc nhận vùng selection mới thì đúng là không dễ,vì ví dụ như mình dùng form để ngắt chẳng hạn,thì màn hình lại show form và không cho chọn vùng bên bảng tính,dùng input box hay mesbox cũng thế.

 

[ptm0412]

Có thể dùng 1 control RefEdit và chỉ hiện ra khi cần thiết (nhấn nút)
Hoặc Có thể dùng 1 form thứ 2 như file đính kèm. Form này có thể dùng nhiều lần cho nhiều form khác nữa.

 

[Lão già Chết Tiệt]

Có thể dùng 1 control RefEdit và chỉ hiện ra khi cần thiết (nhấn nút)
Hoặc Có thể dùng 1 form thứ 2 như file đính kèm. Form này có thể dùng nhiều lần cho nhiều form khác nữa.

Private Sub CommandButton1_Click()
[COLOR=red]On Error Resume Next[/COLOR]
UserForm2.Show
MsgBox "You selected range: " & a & Chr(10) & _
"including " & ActiveSheet.Range(a).Rows.Count & " rows and " & _
ActiveSheet.Range(a).Columns.Count & " columns."
End Sub

Có lẽ phải thêm On Error Resume Next, hoặc thông báo gì đó, vì nếu không sẽ sau khi "Get range" mà không chọn giá trị gì trong RefEdit mà bấm "Close" sẽ báo lỗi.
(Chỉ là thêm gia vị)

 

[ptm0412]

Có lẽ phải thêm On Error Resume Next,

Msgbox chỉ là thí dụ, nhét 1 câu lệnh thí dụ bất kỳ vào cho chạy. Chuyện bẫy lỗi là chuyện của chủ topic, vì mình có biết người ta sử dụng vùng chọn mới này để làm gi.
Trong quá trình viết code, bẫy lỗi thì phải bẫy lỗi toàn diện, mỗi lỗi phải xử lý riêng. Chứ bẫy lỗi mà bất kỳ lỗi nào cũng nhét câu On Error Resume Next vào thì chả đời nào biết code chạy ra sao, kết quả đúng hay sai.

 

[ndu96081631]

Msgbox chỉ là thí dụ, nhét 1 câu lệnh thí dụ bất kỳ vào cho chạy. Chuyện bẫy lỗi là chuyện của chủ topic, vì mình có biết người ta sử dụng vùng chọn mới này để làm gi.
Trong quá trình viết code, bẫy lỗi thì phải bẫy lỗi toàn diện, mỗi lỗi phải xử lý riêng. Chứ bẫy lỗi mà bất kỳ lỗi nào cũng nhét câu On Error Resume Next vào thì chả đời nào biết code chạy ra sao, kết quả đúng hay sai.

2 LÃO CHẾT TIỆT "Đấu" nhau ---> Chả biết LÃO nào là "zin" nữa
Ẹc... Ẹc... (buồn hết việc, nói nhảm chơi, lão nào là "zin" thì thông cảm cho em)

 

[ptm0412]

ptm0412 - lão chết tiệt - cheettit old man - khà khà khà - ... chỉ có 1 chứ đâu có 2 ndu ơi.
Văn phong - trình độ - tính cách - ứng xử - cách trả lời - cách hỏi - và kể cả cách tuyên bố (dù là tuyên bố chết tiệt) .... cũng duy nhất.

Còn vụ đấu nhau thì đâu chỉ đấu 1 người. Đã vậy, 1 người lại còn mấy nick nữa kia.

 

[thanhlanh]

có bạn nào có code ví dụ ngắt giữa một chương trình và cho chọn vùng selection mới thì giúp t với.T đang viết một ứng dụng,trong đó muốn ngắt giữa chương trình rồi cho người dùng chọn vùng dữ liệu mới để xử lí.thanks,con này khoai quá,tìm mãi không thấy chỗ nào có
việc ngắt giữa chương trình thì ok rồi,ai cũng làm được ,nhưng việc nhận vùng selection mới thì đúng là không dễ,vì ví dụ như mình dùng form để ngắt chẳng hạn,thì màn hình lại show form và không cho chọn vùng bên bảng tính,dùng input box hay mesbox cũng thế.

Bạn thêm đoạn này vào thử:

Sub chon()
Dim sel
Dim vung As Range
Set vung = Application.InputBox(Prompt:="Chon vung", Title:="GPE", Type:=8)
sel = MsgBox("Vung duoc chon la: " & vung.Address)
End Sub

 

[hoangquycong]

oh.tuyệt vời,đúng cái t đang cần,từ xưa đến giờ không được khai sáng,hơi mù mờ khoản này làm cho chương trình của mình viết ra nhưng chẳng linh hoạt gì cả,cứ đơ đơ thía nào í.Thanks cả nhà nhé

 

[hoangquycong]

t đang viết một macr nhỏ để tra bảng 1 chiều,hai chiều cho đỡ tốn công,chứ thấy mấy đứa em đang học năm 3,làm bài tập lớn Cơ học Đất,tra mấy trăm thông số,toàn bảng hai chiều.Tội không chịu được.Thương.!
Còn về bẫy lỗi thì t ok rồi,có thể làm được.Cảm ơn tất cả nhé.!