Chuyên mục xử lý, gỡ rối code VBA (7 người xem)

[ndu96081631]

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

 

[vanhocbl]

anh

Let'GâuGâu

vậy em muốn làm nhiều ô như vậy trong 1 sheet thi phải làm sao
Ví dụ em cộng ô A2 ra kết quả C2 và e muốn làm thêm ô D2 ra kết quả Ô E2 thì phải làm sao anh

 

[vanhocbl]

Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, [A1:A10]) Is Nothing Then Target.Offset(, 1) = Target + Target.Offset(, 1)
 End Sub

em mới xin được cái này mà em muốn làm nhiều ô như vậy trong 1 sheet thi phải làm sao
Ví dụ em cộng ô A2 ra kết quả C2 và e muốn làm thêm ô D2 ra kết quả Ô E2 thì phải làm sao anh
bên trên chỉ làm nhập ô A1:A10 cộng ở ô B1:B10 thui

 

[VetMini]

copy cả dòng IF NOT...
passte lại, tức là có tất cả 2 dòng
ở dòng thứ 2, sửa A1:A10 thành D110 (hoặc D2, nếu chỉ muôn D2 thôi, khác D khác không làm)

 

[vanhocbl]

các anh ơi em muốn hỏi 1 câu nữa em có cái mã

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
[B]If Not Intersect(Target, [B1:B10]) Is Nothing Then Target.Offset(, 1) = Target + Target.Offset(, 1)[/B]
[B]End Sub[/B]

nhưng em copy những số tài liệu ở các file khác thì nó báo lỗi như vậy là sao mấy anh
em gửi ảnh báo lối cho các bac giúp e nha


Em muốn hỏi 1 câu nữa
Là có cách nào mà cho đường chuyền từ những con số từ ô khác qua B1:B1 rồi kết quả ở C1:C2 tự cộng dồn lên không ạ

 

[Let'GâuGâu]

các anh ơi em muốn hỏi 1 câu nữa em có cái mã

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
[B]If Not Intersect(Target, [B1:B10]) Is Nothing Then Target.Offset(, 1) = Target + Target.Offset(, 1)[/B]
[B]End Sub[/B]

nhưng em copy những số tài liệu ở các file khác thì nó báo lỗi như vậy là sao mấy anh
em gửi ảnh báo lối cho các bac giúp e nha


Em muốn hỏi 1 câu nữa
Là có cách nào mà cho đường chuyền từ những con số từ ô khác qua B1:B1 rồi kết quả ở C1:C2 tự cộng dồn lên không ạ

chắc là bạn gõ sai cú pháp dòng lệnh nào đó, cái bảng thông báo lổi nó che mất mấy dòng lệnh nên tôi ko đọc được
bạn nhấn cái nút "Debug" xem nó báo lổi ở dòng nào?
ko được nữa thì up cái file bị lổi lên.

câu hỏi màu đỏ thì ko hiểu bạn hỏi cái gì?

 

[vanhocbl]

e không gõ mà em Paste nguyên 1 cột lun ,em tim ra là em paste 1 ô vào trong [B1:B10] thì được, còn em paste nhiều ô vào trong khoảng đó thì nó báo lỗi như vậy.
có cách nào khắc phục được ko anh Gấu

 

[vanhocbl]

[B]Private Sub Worksheet_Change(ByVal Target As Range)
[/B][B]If Not Intersect(Target, [B1:B10]) Is Nothing Then Target.Offset(, 1) = Target + Target.Offset(, 1)
[/B] [B]End Sub[/B]

có ai không giúp em với làm sao có thể paste dữ liệu từ nơi khác vào [B1:B10] mà không bị lỗi như thê vậy.
mã ở trên chỉ cho paste 1 ô thôi.em xin cảm ơn

 

[Let'GâuGâu]

[B]Private Sub Worksheet_Change(ByVal Target As Range)
[/B][B]If Not Intersect(Target, [B1:B10]) Is Nothing Then Target.Offset(, 1) = Target + Target.Offset(, 1)
[/B] [B]End Sub[/B]

có ai không giúp em với làm sao có thể paste dữ liệu từ nơi khác vào [B1:B10] mà không bị lỗi như thê vậy.
mã ở trên chỉ cho paste 1 ô thôi.em xin cảm ơn

thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cll As Range
If Not Intersect(Target, [B1:B10]) Is Nothing Then
    For Each cll In Target
        cll.Offset(, 1) = cll + cll.Offset(, 1)
    Next
End If
End Sub

 

[vanhocbl]

anh Gấu ơi nếu em muốn thêm 1 cột [F1:F10] trong mã này nữa thì cần copy đoạn mã nào và sửa vậy anh
em cảm ơn

 

[Let'GâuGâu]

anh Gấu ơi nếu em muốn thêm 1 cột [F1:F10] trong mã này nữa thì cần copy đoạn mã nào và sửa vậy anh
em cảm ơn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cll As Range
If Not Intersect(Target, Union([B1:B10], [f1:f10])) Is Nothing Then
    For Each cll In Target
        cll.Offset(, 1) = cll + cll.Offset(, 1)
    Next
End If
End Sub

 

[vanhocbl]

ok em cảm ơn a Gấu nhiu nhìu

 

[vanhocbl]

muốn thêm 2 hay 3 cột như [F1:F10] thì cứ thêm dấu phẩy và thêm như a sửa là được phải ko anh Gấu.cảm ơn a nha

 

[Let'GâuGâu]

muốn thêm 2 hay 3 cột như [F1:F10] thì cứ thêm dấu phẩy và thêm như a sửa là được phải ko anh Gấu.cảm ơn a nha

cứ thử đi bạn, không được thì hỏi tiếp
tôi học vba cũng bằng cách dzọc như vậy đó
chúc bạn thành cộng

 

[deprach21]

Em có tìm kiếm phương thức Sort GPE nhưng không thấy.
Các anh chị giải thích về các thông số của phương thức Sort như trong hcho em với!!
Em xin cảm ơn!

 

[HungQuoc49]

Em có tìm kiếm phương thức Sort GPE nhưng không thấy.
Các anh chị giải thích về các thông số của phương thức Sort như trong hcho em với!!
Em xin cảm ơn!

Cái này cứ bật Record Macro rồi tiến hành Sort là nắm được thôi.

 

[Quang_Hải]

Em có tìm kiếm phương thức Sort GPE nhưng không thấy.
Các anh chị giải thích về các thông số của phương thức Sort như trong hcho em với!!
Em xin cảm ơn!

[TABLE="width: 100%"]
[TR]
[TD="align: left"][/TD]
[/TR]
[TR]
[TD="align: left"]Range.Sort Method[/TD]
[/TR]
[/TABLE]

Sorts a range of values. Syntax
expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
expression A variable that represents a Range object.
Parameters

Name	Required/Optional	Description

[TH="width: 10%"] Data Type [/TH]

[TD="class: mainsection"] Key1 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] Variant [/TD]
[TD="class: mainsection"]Specifies the first sort field, either as a range name (String) or Range object; determines the values to be sorted.[/TD]

[TD="class: mainsection"] Order1 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortOrder [/TD]
[TD="class: mainsection"]Determines the sort order for the values specified in Key1.[/TD]

[TD="class: mainsection"] Key2 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] Variant [/TD]
[TD="class: mainsection"]Second sort field; cannot be used when sorting a pivot table.[/TD]

[TD="class: mainsection"] Type [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] Variant [/TD]
[TD="class: mainsection"]Specified which elements are to be sorted.[/TD]

[TD="class: mainsection"] Order2 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortOrder [/TD]
[TD="class: mainsection"]Determines the sort order for the values specified in Key2.[/TD]

[TD="class: mainsection"] Key3 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] Variant [/TD]
[TD="class: mainsection"]Third sort field; cannot be used when sorting a pivot table.[/TD]

[TD="class: mainsection"] Order3 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortOrder [/TD]
[TD="class: mainsection"]Determines the sort order for the values specified in Key3.[/TD]

[TD="class: mainsection"] Header [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlYesNoGuess [/TD]
[TD="class: mainsection"]Specifies whether the first row contains header information. xlNo is the default value; specify xlGuess if you want Excel to attempt to determine the header.[/TD]

[TD="class: mainsection"] OrderCustom [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] Variant [/TD]
[TD="class: mainsection"]Specifies a one-based integer offset into the list of custom sort orders.[/TD]

[TD="class: mainsection"] MatchCase [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] Variant [/TD]
[TD="class: mainsection"]Set to True to perform a case-sensitive sort, False to perform non-case sensitive sort; cannot be used with pivot tables.[/TD]

[TD="class: mainsection"] Orientation [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortOrientation [/TD]
[TD="class: mainsection"]Specifies if the sort should be in acending or decending order.[/TD]

[TD="class: mainsection"] SortMethod [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortMethod [/TD]
[TD="class: mainsection"]Specifies the sort method.[/TD]

[TD="class: mainsection"] DataOption1 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortDataOption [/TD]
[TD="class: mainsection"]Specifies how to sort text in the range specified in Key1; does not apply to pivot table sorting.[/TD]

[TD="class: mainsection"] DataOption2 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortDataOption [/TD]
[TD="class: mainsection"]Specifies how to sort text in the range specified in Key2; does not apply to pivot table sorting.[/TD]

[TD="class: mainsection"] DataOption3 [/TD]
[TD="class: mainsection"]Optional[/TD]
[TD="class: mainsection"] XlSortDataOption [/TD]
[TD="class: mainsection"]Specifies how to sort text in the range specified in Key3; does not apply to pivot table sorting.[/TD]

 

[Pon1]

chào anh, em có đoạn code sau:
nghĩa là: khi nhập bất kỳ vào ô D10 thì: an 3 sheet con khong thi an 1 sheet nhưng khi chạy thì nó báo lỗi : "run time error 9, subscipt out of range"

mong các anh giúp em ạ (anh chị xem file đính kèm)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [D10]) Is Nothing Then
If [D10] <> 0 Then
Sheets("wt").Visible = True
Sheets("Vibration Test").Visible = False
Sheets("Aux.Speed Adj.Unit").Visible = False
Sheets("7310 Controller record chart").Visible = False
Else
Sheets("wt").Visible = False
Sheets("Vibration Test").Visible = True
Sheets("Aux.Speed Adj.Unit").Visible = True
Sheets("7310 Controller record chart").Visible = True
End If
End If
End Sub

 

[nghiaphuc]

chào anh, em có đoạn code sau:
nghĩa là: khi nhập bất kỳ vào ô D10 thì: an 3 sheet con khong thi an 1 sheet nhưng khi chạy thì nó báo lỗi : "run time error 9, subscipt out of range"

mong các anh giúp em ạ (anh chị xem file đính kèm)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [D10]) Is Nothing Then
If [D10] <> 0 Then
Sheets("wt").Visible = True
Sheets("Vibration Test").Visible = False
Sheets("Aux.Speed Adj.Unit").Visible = False
Sheets("7310 Controller record chart").Visible = False
Else
Sheets("wt").Visible = False
Sheets("Vibration Test").Visible = True
Sheets("Aux.Speed Adj.Unit").Visible = True
Sheets("7310 Controller record chart").Visible = True
End If
End If
End Sub

Chẳng thấy cái file đính kèm của bạn đâu nên đoán bừa: Có thể hiện tại chỉ 1 mình sheet "wt" đang hiện, bây giờ bạn lại nhập số 0 vào ô D10, do đó phát sinh lỗi tại câu lệnh Sheets("wt").Visible = False vì nếu chạy câu này thì tất cả các sheet đều bị ẩn, bác Bill không chịu nên báo lỗi.
Cách khắc phục: Bạn cho câu lệnh này ra sau 1 trong 3 câu lệnh phía dưới để đảm bảo đã có ít nhất 1 sheet hiện rồi mới ẩn sheet "wt" này lại.

 

[Pon1]

em đã đổi Sheets("wt").Visible = False ra sau 3 câu lệnh phía dưới mà vẫn không được.
anh xem file theo link nầy ạ
http://www.mediafire.com/view/09c4i9xcdrqqjt5/Sample.xls

 

[nghiaphuc]

em đã đổi Sheets("wt").Visible = False ra sau 3 câu lệnh phía dưới mà vẫn không được.
anh xem file theo link nầy ạ
http://www.mediafire.com/view/09c4i9xcdrqqjt5/Sample.xls

Trong file của bạn, tên sheet "Vibration Test" bị dư 1 dấu cách ở cuối, còn tên sheet "Aux.Speed Adj.Unit" thì dư 1 dấu cách ở đầu. Bạn xóa mấy cái dấu cách này đi là được, hoặc sửa trong code thành "Vibration Test " và " Aux.Speed Adj.Unit"