Xin hỏi về cách copy và paste code

[thuanduc08]

Em thấy có nhiều đoạn code rất hay, em cop về nhưng ko biết cách sử dụng, nhờ các báo chỉ giúp. Xin cảm ơn nhiều.

 

[ChanhTQ@]

Nếu được, bạn hãy đưa các đoạn Code í lên;

Chúng ta sẽ tìm cách sử dụng chúng, OK?

 

[thuanduc08]

Cảm ơn bác.
Ví dụ:đây là đoạn code tính thể lực, em cop về rồi nhưng không biết sử dụng bác giúp em nhé.
PHP Code:
Option Explicit
Function TheLuc(ThTich As Double, TheLoai As Byte, Optional Nu As Boolean = True) As String
Dim Chuan1 As Double, Chuan2 As Double

If Nu Then
Chuan1 = Switch(TheLoai = 1, 7.3, TheLoai = 2, 124, TheLoai = 3, 13.4, TheLoai = 4, 760)
Chuan2 = Switch(TheLoai = 1, 8.3, TheLoai = 2, 108, TheLoai = 3, 14.4, TheLoai = 4, 640)
Else
Chuan1 = Switch(TheLoai = 1, 6.3, TheLoai = 2, 134, TheLoai = 3, 13.2, TheLoai = 4, 770)
Chuan2 = Switch(TheLoai = 1, 7.3, TheLoai = 2, 116, TheLoai = 3, 14.2, TheLoai = 4, 670)
End If
If TheLoai Mod 2 = 1 Then
If ThTich <= Chuan1 Then
TheLuc = "Tot"
ElseIf ThTich <= Chuan2 Then
TheLuc = "Dat"
ElseIf ThTich > Chuan2 Then
TheLuc = "KD"
End If
Else
If ThTich >= Chuan1 Then
TheLuc = "Tot"
ElseIf ThTich >= Chuan2 Then
TheLuc = "Dat"
ElseIf ThTich < Chuan2 Then
TheLuc = "KD"
End If
End If
End Function


Những chú ý khi sử dụng hàm:
(*) Cú pháp hàm tại 'J4' là =theluc(I4,4)

Tại 'D9' sẽ là: =theluc(C9,1,FALSE)

 

[thuanduc08]

Em gửi cả file đính kèm và đoạn code bác xem giúp em

PHP Code:
Option Explicit
Function TheLuc(ThTich As Double, TheLoai As Byte, Optional Nu As Boolean = True) As String
Dim Chuan1 As Double, Chuan2 As Double

If Nu Then
Chuan1 = Switch(TheLoai = 1, 7.3, TheLoai = 2, 124, TheLoai = 3, 13.4, TheLoai = 4, 760)
Chuan2 = Switch(TheLoai = 1, 8.3, TheLoai = 2, 108, TheLoai = 3, 14.4, TheLoai = 4, 640)
Else
Chuan1 = Switch(TheLoai = 1, 6.3, TheLoai = 2, 134, TheLoai = 3, 13.2, TheLoai = 4, 770)
Chuan2 = Switch(TheLoai = 1, 7.3, TheLoai = 2, 116, TheLoai = 3, 14.2, TheLoai = 4, 670)
End If
If TheLoai Mod 2 = 1 Then
If ThTich <= Chuan1 Then
TheLuc = "Tot"
ElseIf ThTich <= Chuan2 Then
TheLuc = "Dat"
ElseIf ThTich > Chuan2 Then
TheLuc = "KD"
End If
Else
If ThTich >= Chuan1 Then
TheLuc = "Tot"
ElseIf ThTich >= Chuan2 Then
TheLuc = "Dat"
ElseIf ThTich < Chuan2 Then
TheLuc = "KD"
End If
End If
End Function


Những chú ý khi sử dụng hàm:
(*) Cú pháp hàm tại 'J4' là =theluc(I4,4)

Tại 'D9' sẽ là: =theluc(C9,1,FALSE)

 

[SA_DQ]

Hàm SWITCH() thì quá quen luôn!

Quảng cáo & rao vặt 1 chút:
Trên GPE, xài hàm này chỉ đếm trên đầu ngón tay & mình là 1 trong số đó!

Đầu tiên nói về khuyết tật của nó: Chưa xài được tiếng Việt có dấu, nó xài kiểu tiếng Anh hay tiếng Việt không dấu; Để xài tiếng Việt có dấu cần bổ sung hay sửa đổi;

Hàm giúp bạn tra & quy đổi thể lực học sinh 7 tuổi (cả nam & nữ) với tiêu chí mà ta cung cấp (chạy, bậc xa, . . .).

Sơ lược vậy, & phía dưới có hướng dẫn cách dùng để tính cho nữ & nam trong hai công thức đưa ra; bạn nhập vô các ô yêu cầu như những hàm của excel thôi!

Cách Copy & Paste như sau:

Bạn dùng chuột tô chọn toàn bộ nội dung hàm & nhấn {CTRL} + C để copy vô vùng nhớ tạm của máy tính;
Mở WorkBook mà bạn muốn hàm này có mặt;
Bạn nhấn tổ hợp {ATL}+{F11} để mở cửa sổ VBE;
Khi thấy cửa sổ có tiêu đề 'Microsoft Visual Basic' Thì bạn lại nhấn {CTRL}+V để dán những gì có trong bộ nhới tạm lên CS í là được.
Từ giờ trở đi bạn sẵn có hàm tự tạo này trong workBook của bạn, như những hàm excel thông thường khác.