Nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

tvcneo

Thành viên mới
Tham gia
1/11/24
Bài viết
7
Được thích
0
Xin chào Anh Chị Em cộng đồng nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này. Cám ơn mọi người.
Macro MonthlyBankingOperation , sẽ thực hiện hoạt động ngân hàng khấu trừ phí hàng tháng và đồng thời tăng lãi suất ngân hàng trên bảng của bảng "Tài khoản ngân hàng". Giá trị lãi hàng năm và phí hàng tháng được hiển thị trong ô B1 và B2. Để tính hệ số nhân của lãi suất hàng tháng với lãi suất hàng năm, hãy sử dụng công thức được thực hiện trong Excel bằng cách viết =(1+B1) ^(1/12). Macro sẽ được thực thi bằng cách sử dụng nút (điều khiển biểu mẫu) "Hoạt động ngân hàng" mà bạn chèn vào cùng một trang tính tại điểm chồng chéo của các ô C1:C2 .
 

File đính kèm

  • VB1-BON007.xlsm
    30 KB · Đọc: 15
Xin chào Anh Chị Em cộng đồng nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này. Cám ơn mọi người.
Macro MonthlyBankingOperation , sẽ thực hiện hoạt động ngân hàng khấu trừ phí hàng tháng và đồng thời tăng lãi suất ngân hàng trên bảng của bảng "Tài khoản ngân hàng". Giá trị lãi hàng năm và phí hàng tháng được hiển thị trong ô B1 và B2. Để tính hệ số nhân của lãi suất hàng tháng với lãi suất hàng năm, hãy sử dụng công thức được thực hiện trong Excel bằng cách viết =(1+B1) ^(1/12). Macro sẽ được thực thi bằng cách sử dụng nút (điều khiển biểu mẫu) "Hoạt động ngân hàng" mà bạn chèn vào cùng một trang tính tại điểm chồng chéo của các ô C1:C2 .
Trong file này có sẵn Macro rồi mà, cứ thế mà dùng thôi chứ sao lại phải tạo một bản giống như vậy làm gì?
 
Upvote 0
Đây là bài mẫu bạn, bài mẫu này mình không xem được code, mình đang làm nhưng không biết làm cách nào để khi click vào cái nút thì dữ liệu trên cột thay đổi theo.
 
Upvote 0
Đây là bài mẫu bạn, bài mẫu này mình không xem được code, mình đang làm nhưng không biết làm cách nào để khi click vào cái nút thì dữ liệu trên cột thay đổi theo.
Trước khi mở file, bạn cần Ublock bằng cách:
1/ Đưa con trỏ vào file, nhấn chuột phải. Khi đó hiên ra một bảng mới.
2/ Chọn mục Properties ở dòng cuối bảng, khi đó tiếp tục hiện ra một bảng nữa, tích vào ô Unblock ở mé bên phải phía cuối bảng vừa hiện ra, nhấn OK
3/ Mở file ra và sử dụng bình thường.
 
Lần chỉnh sửa cuối:
Upvote 0
Mình mở ra chạy thì được nhưng không xem được code vì có mật khẩu bạn. Bạn vẫn xem được code luôn à? có thể chụp rồi gửi lên đây giúp mình đoạn code được không?
 
Upvote 0
Mình mở ra chạy thì được nhưng không xem được code vì có mật khẩu bạn. Bạn vẫn xem được code luôn à? có thể chụp rồi gửi lên đây giúp mình đoạn code được không?
Đây là một phần code trong đó, vì vấn đề về bản quyền nên mình không thể đưa hết cho bạn được.
Mã:
Range("C1").Select
    Selection.FormulaR1C1 = "=(RC[-1]+1)^(1/12)"
    Selection.Copy
    Range("C4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("B2").Select
 
Upvote 0
Bạn giúp mình với mình cũng chỉ xem thầy giáo mình giải thế nào thôi. Đây là bài tập không phải của ngân hàng bạn ạ. Hoặc bạn gửi qua hòm thư của mình giúp mình nhé. Hòm thư của diễn đàn ấy gửi cái file bạn unblock rồi ấy. Mình cám ơn.
 
Upvote 0
Bạn giúp mình với mình cũng chỉ xem thầy giáo mình giải thế nào thôi. Đây là bài tập không phải của ngân hàng bạn ạ. Hoặc bạn gửi qua hòm thư của mình giúp mình nhé. Hòm thư của diễn đàn ấy gửi cái file bạn unblock rồi ấy. Mình cám ơn.
Thông cảm nhé, mình mà gửi cho bạn thì Ban điều hành khóa tài khoản của mình luôn.
 
Upvote 0
Cái code này không phải bài đó bạn đây là code ở file bài tập thầy mình gửi. Còn code ở file bài mẫu thầy mình đặt pass rồi. Bạn có biết giải bài này không giúp mình với. Mình tạo được công thức tính rồi nhưng vấn đề là mình không biết gán công thức đó vào cell C4 như nào để khi mình nhấn Nút bấm thì macro sẽ chạy và lấy giá trị mới thay hết vào cột C
 
Upvote 0
Cái code này không phải bài đó bạn đây là code ở file bài tập thầy mình gửi. Còn code ở file bài mẫu thầy mình đặt pass rồi. Bạn có biết giải bài này không giúp mình với. Mình tạo được công thức tính rồi nhưng vấn đề là mình không biết gán công thức đó vào cell C4 như nào để khi mình nhấn Nút bấm thì macro sẽ chạy và lấy giá trị mới thay hết vào cột C
Công thức tính của bạn như thế nào?
 
Upvote 0
Xin chào Anh Chị Em cộng đồng nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này. Cám ơn mọi người.
Macro MonthlyBankingOperation , sẽ thực hiện hoạt động ngân hàng khấu trừ phí hàng tháng và đồng thời tăng lãi suất ngân hàng trên bảng của bảng "Tài khoản ngân hàng". Giá trị lãi hàng năm và phí hàng tháng được hiển thị trong ô B1 và B2. Để tính hệ số nhân của lãi suất hàng tháng với lãi suất hàng năm, hãy sử dụng công thức được thực hiện trong Excel bằng cách viết =(1+B1) ^(1/12). Macro sẽ được thực thi bằng cách sử dụng nút (điều khiển biểu mẫu) "Hoạt động ngân hàng" mà bạn chèn vào cùng một trang tính tại điểm chồng chéo của các ô C1:C2 .
"Macro MonthlyBankingOperation", ý bạn là macro này đã có trong file?
 
Upvote 0
Em xem rồi, trong đó không có Macro nào tên như vậy anh ạ.
Macro thầy mình viết tên nó trong đó là MesicniVyuctovani tiếng anh nó là MonthlyBankingOperation. Công thức cho kết quả đó là =C4*(1+B$1)^(1/12)-B$2. Nhưng mình không thể gán công thức này vào cột C vì nó giá trị C4 có trong công thức. Làm thế nào để lấy giá trị ở C4 cho vào công thức rồi nó lại hiển thị kết quả mới ở dòng C4. Mình không hiểu chỗ đó.
Bài đã được tự động gộp:

"Macro MonthlyBankingOperation", ý bạn là macro này đã có trong file?
Đúng rồi bạn file này là thầy mình làm để cho mình xem để làm một file khác chạy được giống như vậy. nhưng thầy khoá pass nên ko xem được code
 
Upvote 0
Macro thầy mình viết tên nó trong đó là MesicniVyuctovani tiếng anh nó là MonthlyBankingOperation. Công thức cho kết quả đó là =C4*(1+B$1)^(1/12)-B$2. Nhưng mình không thể gán công thức này vào cột C vì nó giá trị C4 có trong công thức. Làm thế nào để lấy giá trị ở C4 cho vào công thức rồi nó lại hiển thị kết quả mới ở dòng C4. Mình không hiểu chỗ đó.
Bài đã được tự động gộp:


Đúng rồi bạn file này là thầy mình làm để cho mình xem để làm một file khác chạy được giống như vậy. nhưng thầy khoá pass nên ko xem được code
Trước đây có 1 file tương tự nhưng không có pass, code trong file như bên dưới. Bạn xem có phù hợp yêu cầu?

Xin nhắc lại là "1 file tương tự" nhé bạn!!
Mã:
Sub MesicniVyuctovani()
'
' MesicniVyuctovani Makro
' Provede mÏsÌËnÌ vy˙Ëtov·nÌ (p¯ipoËte ˙roky a odeËte poplatky) u bankovnÌch ˙Ët˘.
'
' Kl·vesov· zkratka: Ctrl+Shift+U
'
    MsgBox "Uk·zka funkce makra ""MesicniVyuctovani""", vbExclamation, "Uk·zka..."

    Range("C1").Select
    Selection.FormulaR1C1 = "=(RC[-1]+1)^(1/12)"
    Selection.Copy
    Range("C4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("B2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("C1").Select
    Selection.ClearContents
End Sub
Mã:
Option Explicit
Sub SmazatVzorce()
'
' SmazatVzorce Makro
'
' Kl·vesov· zkratka: Ctrl+Shift+S
'
    MsgBox "Uk·zka funkce makra ""SmazatVzorce""", vbExclamation, "Uk·zka..."

    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
 
Upvote 0
Thật luôn nhỉ mình thấy giống quá. cám ơn bạn chắc là đồng môn của mình up lên rồi.
 
Upvote 0
Đúng rồi bạn file này là thầy mình làm để cho mình xem để làm một file khác chạy được giống như vậy. nhưng thầy khoá pass nên ko xem được code
Thầy bà gì có mỗi đoạn code record macro sửa lại đôi ba chỗ mà cũng khóa.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom