tuananhya2
Thành viên mới
- Tham gia
- 18/8/12
- Bài viết
- 8
- Được thích
- 0
Co ai chỉ dùm cách tạo pass marco với
Hỏi nhanh - Đáp nhanh về macro (dành cho các thành viên mới học lập trình) (2 người xem)
- Thread starter tuananhya2
- Ngày gửi
Người dùng đang xem chủ đề này
Thành viên mới
quykiemsau
Thành viên chính thức
- Tham gia
- 4/8/10
- Bài viết
- 66
- Được thích
- 0
OK! Ajingon > Xin Cám ơn Anh 2!
Upvote
0
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
Em có code Protect & unprotect toàn bộ các Sheet trong 1 File
Em có nút Button 1, để khi nhấn thì nó hiện chữ " Khoa", "Mo"
Không biết code còn sai chỗ nào mà nó kh chạy & nút Button 1 không hiện chữ " Khoa", "Mo"
Em nhờ Thầy cô & anh chị giúp em, em cảm ơn!
Mã:
Sub Khoa_Mo()
Dim sh As Worksheet, shapes
Application.ScreenUpdating = False
On Error Resume Next
With shapes("Button 1").TextFrame.Characters
For Each sh In ThisWorkbook.Worksheets
sh.Protect "hv" = .Text = "Khoa"
Next
.Text = IIf(.Text = "Khoa", "Mo", "Khoa")
End With
Application.ScreenUpdating = True
End SubKhông biết code còn sai chỗ nào mà nó kh chạy & nút Button 1 không hiện chữ " Khoa", "Mo"
Em nhờ Thầy cô & anh chị giúp em, em cảm ơn!
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,958
Sai nhiều chổ quá! Lý ra bạn nên bỏ dòng On Error Resume Next để biết lỗi ở đâu chứ
-------------
Tôi viết lại theo kiểu khác:
Mã:
Sub WksProtected(ByVal isLock As Boolean, ByVal sPW As String)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If isLock Then
wks.Protect sPW, [COLOR=#ff0000]False[/COLOR]
Else
wks.Unprotect sPW
End If
Next
End Sub
Mã:
Sub Main()
With ActiveSheet.shapes("Button 1").TextFrame.Characters
WksProtected (.Text = "Khoa"), "hv"
.Text = IIf(.Text = "Khoa", "Mo Khoa", "Khoa")
End With
End Sub---------------
Lưu ý chữ False màu đỏ nhé ---> Có nó mới có thể thay đổi chuổi trên Button 1 được
---------------
Hoặc code y chang của bạn:
Mã:
Sub Khoa_Mo()
Dim sh As Worksheet, shp As Shape
Application.ScreenUpdating = False
Set shp = ActiveSheet.shapes("Button 1")
' On Error Resume Next
With shp.TextFrame.Characters
For Each sh In ThisWorkbook.Worksheets
If .Text = "Khoa" Then
sh.Protect "hv", [COLOR=#ff0000]False[/COLOR]
Else
sh.Unprotect "hv"
End If
Next
.Text = IIf(.Text = "Khoa", "Mo", "Khoa")
End With
Application.ScreenUpdating = True
End Sub
Lần chỉnh sửa cuối:
Upvote
0
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
GIÚP EM SỬA LỖI CODE
--------------------
Trong File em có 2 sheet là "ToKhai" Và "MuaVao"
Tại G7 của Sheet "ToKhai" em có đặt List Validation
Trong Sheet "ToKhai" em có code như sau
Mục đích em khi chọn cell G7 của sheet "ToKhai" mà có giá trị khác với giá trị cell G7 của sheet "MuaVao" thì thông báo "So Chua chinh xac"
Nhưng code em chưa chính xác! nên nó kg thèm thông báo!
Nhờ Thầy cô & anh chị giúp em.Em cảm ơn!
--------------------
Trong File em có 2 sheet là "ToKhai" Và "MuaVao"
Tại G7 của Sheet "ToKhai" em có đặt List Validation
Trong Sheet "ToKhai" em có code như sau
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = [g7].Address Then
If Target.Value <> Sheets("MuaVao").Range("G7").Value Then MsgBox " So Chua chinh xac"
End If
Application.ScreenUpdating = True
End SubNhưng code em chưa chính xác! nên nó kg thèm thông báo!
Nhờ Thầy cô & anh chị giúp em.Em cảm ơn!
Upvote
0
- Tham gia
- 19/12/10
- Bài viết
- 2,585
- Được thích
- 5,764
- Nghề nghiệp
- Công nhân vệ sinh số liệu
Mình không rành lắm trong chuyện nhìn code đoán ý đồ nhưng mình thấy câu lệnh này kỳ kỳ bạn ạ :
If Target.Address = [g7].Address
Sao không viết là :
If Target.Address = "$G$7"
Nếu có thể cho mình ngó cái file được không???
Upvote
0
- Tham gia
- 19/12/10
- Bài viết
- 2,585
- Được thích
- 5,764
- Nghề nghiệp
- Công nhân vệ sinh số liệu
I see nhưng em cứ thích sửa thành thế đó, làm gì được nhau nào? he he...Nói vậy thôi chứ đó là thói quen của em mà, anh có công nhận sửa thế trông code nó đẹp hơn và chính tắc hơn không?
+ + Ẹ..........
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,958
Sự kiện Change nó hơi nhạy cảm! Đôi lúc ta test code bị lỗi, sửa lại code đúng rồi nhưng cái sự kiện Change ấy vẫn cứ trở trơ ra
Kinh nghiệm của tôi: Đóng và lưu file, xong mở lại rồi test tiếp
Upvote
0
- Tham gia
- 4/6/06
- Bài viết
- 901
- Được thích
- 2,716
Theo kyo nghĩ là tại dòng Application.ScreenUpdating = False nên nó mới bị trơ trơ đây. Do nó chưa được True (tức là chưa làm xong hết) thì hoặc là code lỗi và người dùng stop lại hoặc nó đang chạy giữa chừng đi break nó nên nó đơ luôn.
Nếu thấy đơ cứ lôi Immediate Window ra cho nó True là xong.
Upvote
0
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
Em có sưu tầm 1 số code của Thầy Ndu như:
Khóa_Mở (Protect Sheet ), Show all Sheet
Và em dùng Sub Aut
pen, để khi mở File thì nó ẩn các Sheet (Trừ Main) và khóa toàn bộ Sheet
-------------
Nhưng khi mở File và Disable thì em vẫn có thể mở các sheet bằng cách Format/sheet/Unhide
Vậy cho em hỏi có cách nào khi mở File nếu không Enable thì không thể nào làm hiện các Sheet bằng Format/sheet/Unhide? Giống như các Sheet bị ẩn bởi Very Hidden !
Em cảm ơn!
Khóa_Mở (Protect Sheet ), Show all Sheet
Mã:
Sub Khoa_Mo()
Dim sh As Worksheet, shp As Shape
Application.ScreenUpdating = False
Set shp = ActiveSheet.Shapes("Button 2")
With shp.TextFrame.Characters
For Each sh In ThisWorkbook.Worksheets
If .Text = "Mo" Then
sh.Unprotect "HV"
Else
sh.Protect "HV", False
End If
Next
.Text = IIf(.Text = "Mo", "Khoa", "Mo")
End With
Application.ScreenUpdating = True
End Sub
Mã:
Sub ShowAllShs_T() Dim sh As Worksheet
Application.ScreenUpdating = False
On Error Resume Next
With Sheet4.Shapes("Button 1").TextFrame.Characters
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Main" Then
sh.Visible = .Text = "SHOW ALL"
End If
Next
.Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
End With
Application.ScreenUpdating = True
End Sub
Mã:
Sub Auto_Open()
Dim wks As Worksheet, shp1 As Shape, shp2 As Shape
Set wks = Worksheets("Main")
Set shp1 = wks.Shapes("Button 1")
If shp1.TextFrame.Characters.Text = "HIDE ALL" Then ShowAllShs_T
'******************
Set shp2 = wks.Shapes("Button 2")
If shp2.TextFrame.Characters.Text = "Khoa" Then Khoa_Mo
End SubNhưng khi mở File và Disable thì em vẫn có thể mở các sheet bằng cách Format/sheet/Unhide
Vậy cho em hỏi có cách nào khi mở File nếu không Enable thì không thể nào làm hiện các Sheet bằng Format/sheet/Unhide? Giống như các Sheet bị ẩn bởi Very Hidden !
Em cảm ơn!
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,958
Không đâu, vụ này tôi biết chứ. Và thêm nữa, chẳng mấy khi tôi dùng ScreenUpdating, nhất là với sự kiện Change
Nói chung là hiếm khi nào mà tôi viết code 1 phát được ngay. Thế nào cũng bị một vài lỗi gì đó... và khi code bị lỗi này lại là code của sự kiện WorksheetChange thì y như rằng nó hay bị đơ...
Cũng chính thế mà tôi cũng rất ngại dùng sự kiện này (nhất là viết cho người khác dùng)
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,958
Sửa đoạn màu đỏ thành vầy sh.Visible = (.Text = "SHOW ALL") + 2
Upvote
0
hoanglocphat
Thành viên thường trực
- Tham gia
- 27/1/13
- Bài viết
- 258
- Được thích
- 30
Trong code làm sao quy định nó lớn hơn 0,001 (Không phẩy không không một) được
Ex:
Mình làm như trên thì báo lỗi
Vậy cho hỏi code trên sửa như thế nào?
Cảm ơn các bạn!
Ex:
Mã:
If Array(I, 3) > 0,001 Or Array(I, 4) > 0,001 ThenVậy cho hỏi code trên sửa như thế nào?
Cảm ơn các bạn!
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,958
Nếu tôi nhớ không lầm thì cho dù ta Set định dạng number trong Control Panel thế nào đi nữa thì trong VBA vẫn theo chuẩn Mỹ (tức dấu chấm là dấu thập phân và dấu phẩy là dấu phân cách ngàn)
Thí nghiệm xem!
Upvote
0
dhn46
Hướng tới tương lai
- Tham gia
- 1/3/11
- Bài viết
- 3,251
- Được thích
- 3,870
Dạ tại bạn ấy nói là "Lỗi" nhưng không nói là lỗi do công đoạn nào. VBA luôn hiểu dấu phân cách là dấu chấm nên nếu lỗi tại cửa sổ lập trình thì do bạn ấy dùng dấu phẩy (lỗi ngay tại quá trình viết Code chứ chưa có Run Code). Em đoán là như vậy thầy ah.
Upvote
0
hoanglocphat
Thành viên thường trực
- Tham gia
- 27/1/13
- Bài viết
- 258
- Được thích
- 30
1/ Định dạng number trong Control Panel của tôi là: dấu phẩy dùng ngăn cách số thập phân. Dấu chấm phẩy dùng để ngăn cách trong công thức
2/ Khi nhập 0,001 trong cửa sổ VBA thì bị báo lỗi dòng màu đỏ là "Expected Then or GoTo" (chứ không phải Run code mới báo lỗi)
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,958
Thì đúng vậy rồi. "Nó" tưởng dấu phẩy của bạn là dấu phân cách các thành phần trong VBA rồi phân tích.. cuối cùng là đếch hiểu bạn viết gì nên "nó" cự thôi
Ẹc... Ẹc...
Tóm lại: Bạn set gì trong Control Panel thì cứ thây kệ đi, trong VBA cứ theo chuẩn Mỹ là được
Upvote
0
KUMI
Bụi phấn
- Tham gia
- 17/1/12
- Bài viết
- 564
- Được thích
- 571
Hỏi về cách nhập dữ liệu theo điều kiện bắt buộc.
Xin chào mọi người.
Em đang sử dụng cái combox của Thầy Quang Hải
Nhưng em thấy vẫn chưa yên tâm về một chỗ đó là Em muốn hỏi làm sao có thể bắt buộc nhập dữ liệu theo những điều kiện trong list ở các dòng màu xanh.(không cho nhập lung tung).
Kiểu là dạng như datavalition trong vùng màu đỏ đấy ạ.
Mọi người xem file đính kèm và giúp em với ạ, Xin cám ơn!
Xin chào mọi người.
Em đang sử dụng cái combox của Thầy Quang Hải
Nhưng em thấy vẫn chưa yên tâm về một chỗ đó là Em muốn hỏi làm sao có thể bắt buộc nhập dữ liệu theo những điều kiện trong list ở các dòng màu xanh.(không cho nhập lung tung).
Kiểu là dạng như datavalition trong vùng màu đỏ đấy ạ.
Mọi người xem file đính kèm và giúp em với ạ, Xin cám ơn!
Upvote
0
