Như Đã Dấu Yêu
Thành viên mới
- Tham gia
- 20/4/12
- Bài viết
- 27
- Được thích
- 403
- Nghề nghiệp
- Thất nghiệp!
Em đang băn khoăn tự hỏi, hàng ngày chúng ta lập trình, có nhiều bản ghi macro ứng dụng trong công việc. Liệu có ai bao giờ nghĩ đến việc lập bản ghi macro cho cuộc sống chưa ạ?
Vậy có ai có thể giúp em viết macro cho 1 khía cạnh của cuộc sống không ạ? Macro tình yêu hôn nhân
Ví dụ:
Private Sub Tinhyeuhonnhan click
With Application
EnableEvents = False
Dim Mywife As Range, Myhusban As Range
With Cuộc sống gia đình
Set Mywife = I &Myhusban.Find("yêu", , yêulFormulas, xlWhole)
If MyRng Is Nothing Then
MsgBox "Không bao giờ kết thúc!": GoTo noExitSub
Else
If MsgBox("Cuộc sống hạnh phúc?", _
vbQuestion + vbYesNo, "THÔNG BÁO") = vbNo Then GoTo ExitSub
If MyRng Is Nothing Then Exit Do: NoGoTo ExitSub
Do… Loop for ever and ever
ExitSub:
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With
Endless
Em gà mờ về macro nên có ai giúp em viết lại macro trên theo đúng ý thế này không?
Ý em là lập 1 macro có những câu lệnh vô tận cho tình yêu hôn nhân, dù khi bị tắt nguồn hoặc mất điện vẫn có thể duy trì trạng thái đăng nhập sẵn sàng. Có tin có nhớ, có mong, có thương mới có yêu (4 vòng lặp). Với bản ghi Macro không có End sub, mà chỉ có vô tận, vô cùng, và vĩnh cửu.
Bản ghi macro ý nghĩa.
Vậy có ai có thể giúp em viết macro cho 1 khía cạnh của cuộc sống không ạ? Macro tình yêu hôn nhân
Ví dụ:
Private Sub Tinhyeuhonnhan click
With Application
EnableEvents = False
Dim Mywife As Range, Myhusban As Range
With Cuộc sống gia đình
Set Mywife = I &Myhusban.Find("yêu", , yêulFormulas, xlWhole)
If MyRng Is Nothing Then
MsgBox "Không bao giờ kết thúc!": GoTo noExitSub
Else
If MsgBox("Cuộc sống hạnh phúc?", _
vbQuestion + vbYesNo, "THÔNG BÁO") = vbNo Then GoTo ExitSub
If MyRng Is Nothing Then Exit Do: NoGoTo ExitSub
Do… Loop for ever and ever
ExitSub:
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With
Endless
Em gà mờ về macro nên có ai giúp em viết lại macro trên theo đúng ý thế này không?
Ý em là lập 1 macro có những câu lệnh vô tận cho tình yêu hôn nhân, dù khi bị tắt nguồn hoặc mất điện vẫn có thể duy trì trạng thái đăng nhập sẵn sàng. Có tin có nhớ, có mong, có thương mới có yêu (4 vòng lặp). Với bản ghi Macro không có End sub, mà chỉ có vô tận, vô cùng, và vĩnh cửu.
Bản ghi macro ý nghĩa.
