Vba Excel Trong Xây Dựng | Giá Chỉ: 330.000Đ

Học và luyện lập trình Visual Basic For Applications (VBA) với thầy Nguyễn Thế Anh, Cty CP Giá Xây Dựng, người truyền nhiệt huyết cho các kỹ sư xây dựng tự động hóa các công việc buồn tẻ, nhàm chán.

Bước khởi đầu rất quan trọng, nếu trơn tru và suôn sẻ thì sẽ tạo hứng khởi, ngược lại gặp lỗi không xử lý được thì bắt đầu nản. Thường chỉ cần có người dìu dắt được qua bước bỡ ngỡ ban đầu là sẽ ngon. Với các video và code mẫu dưới đây sẽ giúp bạn ra nhập thế giới lập trình VBA dễ dàng

Lùng sục Google

Đúng tinh thần đi từ dễ đến khó, cách này thậm chí chả cần biết lập trình.

• Bước 1: Google những hàm Excel đã được chia sẻ sẵn trên mạng. Cách làm quen thuộc là nếu tiếng Việt không ra thì dùng tiếng Anh.

💎Ví dụ Hàm anh em kỹ sư hay dùng để tra bảng là Nội suy một chiều, hai chiều.

Google “Excel hàm nội suy 2 chiều”… hay dịch ra “Excel VBA interpolate 2 dimensions”…

Kết quả tìm được nhiều lắm. Ta cần dùng thử từng cái, thấy cái nào xài ổn ít lỗi thì OK.

Tiếp theo là thêm các hàm này vào trong file XLS đang mở.

• Bước 2: Lôi tab “Developer” lên thanh công cụ của Excel:

• Bước 3: Vào tab Developer, nhấn nút “Visual Basic” (hoặc phím tắt Alt-F11) để mở cửa sổ Microsoft Visual Basic.

chọn menu Insert/Module để hiện ra cửa sổ con Code. Đây là nơi để gõ các lệnh của VBA.

• Bước 4: paste phần code của hàm từ trang web vào cửa sổ Code này. Ctrl-S để lưu và đóng cửa sổ Microsoft Visual Basic.

• Bước 5: Xài hàm mới thôi🍺

Quay lại bảng tính, gõ “=” + tên hàm mới (cú pháp). Ví dụ hàm nội suy 2 chiều ta vừa thêm vào:

= INTER2D (vùng bảng tra, giá trị theo hàng, giá trị theo cột)

Khi mở bảng tính nhớ bấm nút “Enable Macros” nhé.

🎁 mấy hàm lùng Google được hay dùng trong thực tế nghề:

• Nội suy 1 chiều: https://wellsr.com/vba/2016/excel/powerful-excel-linear-interpolation-function-vba/
• Nội suy 2 chiều: https://thuthuatxaydung.blogspot.com/2015/07/noi-suy-2-chieu-trong-excel.html
• Hàm đọc số thành chữ: https://exceleasy1.blogspot.com/2019/03/code-oc-chu-thanh-so-trong-excel-vba.html

rất hữu ích cho việc lập dự toán, kế toán, báo giá…

Lập trình

Khi không thể tìm được đồ ăn sẵn nữa. Đã đến lúc bắt tay vào nội dung chính. Như đã nói, ta chỉ cần những thứ cơ bản công việc cần thôi. Một nhu cầu hay gặp là vòng lặp 2 chiều

💎Ví dụ bảng tính rung của sàn

Lúc này buộc phải dùng đến VBA. Ta sẽ tập trung vào cách để làm vòng lặp thôi hen.

Để đánh giá độ rung của sàn, ta cần tính được gia tốc phản ứng

– trường hợp dao động Liên tục, tổ hợp theo phương pháp Căn bậc hai bình phương (SRSS)

$$a_{w,rms,e,r}=\frac1{\sqrt2}\sqrt{\sum_{h=1}^H\left(\sum_{n=1}^N\left(\mu_{e,n}\mu_{r,n}\frac{F_h}{M_n}D_{n,h}W_h\right)\right)^2}$$

Công thức khá rối mắt vì tính hai tổng theo hai biến: đầu tiên lấy tổng theo dạng dao động n, sau đó lấy tổng theo hoạ âm thứ h.

🔍For… Next là câu lệnh VBA để tính vòng lặp 2 chiều này. Vòng ở trong là theo n (số dạng dao động là $n_1$), vòng ở ngoài theo h (số hoạ âm H=4)

SRSS = 0 For h = 1 To 4 SoHang(h) = 0 For n = 1 To n1 SoHang(h) = SoHang(h) + muy_e(n, 1) * muy_r(n, 1) * Fh(h) / Mn(n, 1) * D_nh(n, h) * Wh(h) Next SRSS = SRSS + SoHang(h) ^ 2 Next a_rms = 1 / Sqr(2) * Sqr(SRSS)

Lưu ý các tổng (SRSS, SoHang (h)) gán bằng 0 trước khi bắt đầu mỗi vòng lặp cộng dồn vào tổng.

📜Dịch nôm:

với mỗi giá trị h chạy từ 1 đến H=4, lấy bình phương tổng $\sum_{n=1}^N\left(\mu_{e,n}\mu_{r,n}\frac{F_h}{M_n}D_{n,h}W_h\right)$, được 4 số hạng bình phương đó với mỗi h. Kết quả cuối cùng $a_{w,rms,e,r}$ bằng căn bậc hai của tổng 4 cái bình phương đó.

Trong đó số hạng $D_{n,h}$ cũng phụ thuộc 2 biến n, h, ta sẽ tính toán trước đưa nó thành 1 mảng hai chiều cho nhanh (xem phần dưới). Theo công thức

$$D_{n,h}=\frac{h^2\beta_n^2}{\sqrt{(1-h^2\beta_n^2)^2+(2h\zeta\beta_n^2)^2}}$$

Trong đó: $\beta_n= f_p/f_n $

For n = 1 To n1 beta_n(n) = fp / fn(n, 1) For h = 1 To 4 D_nh(n, h) = h ^ 2 * beta_n(n) ^ 2 / Sqr((1 – h ^ 2 * beta_n(n) ^ 2) ^ 2 + (2 * h * Damping * beta_n(n)) ^ 2) Next Next

– Trường hợp dao động Tạm thời, đơn giản hơn vì chỉ có 1 vòng lặp theo dạng dao động n

$$a_{w,peak,e,r,n}=2\pi\sqrt{1-\zeta^2}\sum_{n=1}^{n_2}\mu_{e,n}\mu_{r,n}f_n\frac{F_I}{M_n}W_n$$

cách code cũng tương tự như trên.

Các lệnh còn lại cơ bản, đỡ phức tạp hơn:

🔍Tạo nút bấm “Tính toán”

Mục đích: vì vòng lặp khá nhiều, tốn bộ nhớ và thời gian của máy tính xử lý. Nên chỉ khi nào ta đã nhập xong hết dữ liệu đầu vào (vốn gồm nhiều dòng theo từng mode dao động xuất ra từ ETABS). Khi đó người dùng bấm vào nút thì Excel mới thực hiện tính toán theo chương trình con Sub Button_Click().

Cách làm: vào tab “Developer”> Button. Vẽ nút hình chữ nhật vào trong bảng tính, nhấn sửa text hiển thị trong nút này. Ta thấy nó giống như nút bấm của các cửa sổ.

Sau đó chuột phải, Assign Macro, chọn macro name có đuôi “_Click()” đại diện cho lệnh thực hiện khi bấm nút bằng chuột.

🔍If… Then… Else

Câu lệnh điều kiện, ý nghĩa giống hệt lệnh If của Pascal: Nếu…Thì…Ngược lại thì… Cú pháp VBA chỉ thêm End If để kết thúc câu lệnh

🔍Dim…As

Khai báo tên biến. Kiểu dữ liệu của biến gồm bao gồm:

🔍Integer: số nguyên

🔍Double: số thực

🔍Variant: kiểu bất kỳ

Muốn khai báo mảng, chỉ việc thêm () vào sau tên biến.

🔍ReDim

Reset khai báo lại các biến và mảng. Câu lệnh này rất lợi hại so với Pascal để thay đổi kích thước mảng.

Ví dụ:

ReDim D_nh(n1, 4): thay đổi kích thước mảng D_nh thành n1 hàng và 4 cột. n1 tuỳ thuộc vào kết quả tính toán.

🔍Const: Khai báo hằng số

trong ví dụ ta dùng cho số $\pi$. Thật khó hiểu tại sao VBA không có sẵn hằng số này😔

🔍Function: tạo hàm bất kỳ

Ý nghĩa cũng giống trong Pascal. Cú pháp cơ bản:

Function tên hàm (danh sách biến) As kiểu dữ liệu

tên hàm = công thức

End Function

Trong ví dụ, một số công thức chia thành nhiều trường hợp khác nhau, ta sẽ đưa thành hàm. Như $W_g, W_b, W_d$ sẽ là các hàm theo tần số f (f là biến)

$$W_g=\begin{cases}

0,5\sqrt{f} &\text{nếu 1Hz < $f$ < 4Hz} \\[2ex]

1,0 &\text{nếu 4Hz ≤ $f$ ≤ 8Hz} \\[2ex]

8/f &\text{nếu $f$ > 8Hz}

\end{cases}$$

$$W_d=\begin{cases}

0,4 &\text{nếu 1Hz < $f$ < 2Hz} \\[2ex]

\frac{f}5 &\text{nếu 2Hz ≤ $f$ < 5Hz} \\[2ex]

1,0 &\text{nếu 5Hz ≤ $f$ ≤ 16Hz } \\[2ex]

\frac{16}f &\text{nếu $f$ > 16Hz}

\end{cases}$$

$$W_d=\begin{cases}

1,0 &\text{nếu 1Hz < $f$ < 2Hz} \\[2ex]

2/f &\text{nếu $f$ ≥ 2Hz}

\end{cases}$$

Trong các hàm này sử dụng lệnh If… Then… Else để chia theo các trường hợp của f như trên.

Một số công thức đơn giản hơn, như $f_n,M_n,\alpha_h$, ta đưa vào mảng cho nhanh.

🔍Lấy input từ các ô dữ liệu nhập vào các biến, sử dụng lệnh:

Range (“tên ô”).Value

Tên ô lấy theo ký hiệu ô của Excel, ví dụ như “B2”, hoặc “B21”,”B60” cho 1 vùng các ô.

Cần lưu ý kiểm tra kỹ nếu có sửa chèn dòng, cột trong bảng tính, dữ liệu có thể bị nhảy. Vì Tên ô là tuyệt đối, có thể giá trị của ô này đã bị nhảy từ ô khác sang rồi.

🔍= lệnh gán, giống “:=” của Pascal

🔍Sqr: hàm tính căn bậc hai

🔍Xuất kết quả trở lại bảng Excel:

Cách làm đơn giản là gán Range theo hướng ngược lại (ở ví dụ là lấy lại giá trị $a_{rms}$ tính được vào ô I4 với trường hợp liên tục, I6 với trường hợp tạm thời)

Nếu chưa rõ cú pháp lệnh nào, các bạn google “VBA syntax” + tên lệnh để tra nha🥸

#CÁC CHỨC NĂNG

#Hiển thị tất cả sheet ẩn

Unhide all Hidden Worksheets. Đoạn code VBA này hiển thị tất cả các sheet đang ẩn thay vì bạn phải unhide từng sheet.


Sub UnhideAllWorksheet() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub


#Ẩn tất cả ngoại trừ sheet hiện hành

Hide all but the Active Worksheet. Đoạn code VBA này ẩn tất cả các sheet ngoại trừ sheet đang hoạt động (sheet hiện hành). Không cần code, với Excel bạn kích vào sheet đầu và giữ Shift kích vào sheet cuối rồi kích phải vào tên sheet bất kỳ chọn Hide.


Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ThisWorkbook.ActiveSheet.Name Then ws.Visible = xlSheetHidden End If Next ws End Sub


#Tạo mục lục link tới tất cả các sheet

Create links to all sheets. Đoạn mã VBA này sẽ nhanh chóng lấy tên tất cả các sheet trong file và gắn link vào tạo ra 1 Mục lục tiện lợi để bạn truy xuất tới các sheet dễ dàng và nhanh chóng.


Sub CreateLinksToAllSheets() Dim sh As Worksheet Dim cell As Range Dim x As Integer x = 1 For Each sh In ActiveWorkbook.Worksheets If ActiveSheet.Name <> sh.Name Then Range(Cells(ActiveCell.Row, ActiveCell.Column - 1).Address).Value = x ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name ActiveCell.Offset(1, 0).Select x = x + 1 End If Next sh End Sub


#Xóa các style rác

Delete all style. Nếu bạn thấy file Excel chạy ì ạch, cứ như là bấm 1 lệnh rồi đi pha 1 ly cà phê rồi quay lại mới chạy xong. Thì đoạn code VBA nhỏ sau giúp file của bạn nhẹ và chạy nhanh hơn. Đoạn code VBA này được lập trình để xóa nhanh tất cả các Style rác, không dùng đến trong file nhưng lại gây nặng file và chạy chậm.


Sub StyleKill() Dim styT As Style Dim intRet As Integer On Error Resume Next For Each styT In ActiveWorkbook.Styles If Not styT.BuiltIn Then If styT.Name <> "1" Then styT.Delete End If Next styT End Sub


#Sao chép siêu liên kết giữa các ô trong Excel

Khi nâng cấp file phần mềm QLTL GXD, QLDA GXD, GSXD GXD cần copy siêu liên kết (Hyperlink) từ các vùng ô ở cột này sang cột khác tôi đã dùng Macro dưới đây, rất nhanh và hiệu quả. Bạn có thể sử dụng cho nhiều tình huống khác khi bạn muốn. Một điều rất hay nữa là qua Macro đơn giản này bạn biết cách tạo ra hộp thoại với tiêu đề, thông điệp và ô Input.


Sub CopyHyperlinks() 'Uodateby Extendoffice Dim xSRg As Range Dim xDRg As Range Dim I As Integer Dim xAddress As String On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xSRg = Application.InputBox("Hay chon vung ban muon copy hyperlinks:", "GXD sao chep Hyperlink", xAddress, , , , , 8) If xSRg Is Nothing Then Exit Sub Set xDRg = Application.InputBox("Hay chon vung ban muon dan hyperlinks:", "GXD sao chep Hyperlink", , , , , , 8) If xDRg Is Nothing Then Exit Sub Set xDRg = xDRg(1) For I = 1 To xSRg.Count If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then If xSRg(I).Hyperlinks.Count = 1 Then xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address End If End If Next End Sub


#Thiết lập môi trường lập trình VBA Excel thuận lợi nhất cho người mới

#Nhập cuộc lập trình VBA Excel đơn giản và dễ dàng nhất cho người mới bắt đầu

#Fully Automated Data Entry User Form in Excel

Một video kèm theo tài liệu hướng dẫn bạn từng bước tạo form nhập dữ liệu trong Excel với hộp thoại, nút bấm và các ô nhập liệu khá là đẹp. Đây là 1 dự án nho nhỏ đáng để bạn thực hành theo, để có thể áp dụng vào nhiều công việc phải nhập liệu.

#Xóa các sheet ẩn

Có lúc file Excel của bạn có chứa nhiều Sheet ẩn mà không cần đến nữa bạn có thể xóa nhanh những Sheet ẩn bằng đoạn code dưới đây. Hoặc bạn muốn xóa nhiều sheet chỉ việc ẩn chúng đi rồi dùng đoạn code dưới, việc ẩn đi như là để đánh dấu rằng các sheet này cần xóa đi.


Sub Delete_Hidden_Sheets() j = 1 While j <= Worksheets.Count If Not Worksheets(j).Visible Then Worksheets(j).Delete Else j = j + 1 End If Wend End Sub


• Hãy truy cập Kênh video bấm Sucrible (đăng ký kênh) để có bài giảng mới youtube sẽ gửi thông báo cho bạn nhé.
• Nếu bạn gặp vướng mắc gì hãy gửi lên group facebook mình và nhiều bạn nhiệt tình sẽ chỉ dẫn hoặc hỗ trợ nhé. Link facebook ở trên menu đầu trang.
• Các nội dung ở trang này sẽ thường xuyên được biên tập thay đổi và cập nhật. Hãy ghé thăm thường xuyên nhé.

Chúc bạn nhiều thành công.

#CÁC HÀM DỰNG

Hàm dựng là hàm Excel không có sẵn, do anh em mình dùng Excel rồi dựng ra (viết code, lập trình) theo yêu cầu riêng.

#Hàm VND

Video này sẽ hướng dẫn bạn thêm đoạn mã VBA hàm VND vào file Excel để đọc số tiền thành bằng chữ. Hàm VND hữu ích cho các bạn kinh tế, tài chính, dự toán… những ai hay phải làm việc với bảng tính tiền và phải đọc số tiền thành bằng chữ.

Bạn copy code hàm VND sau để sử dụng:


Function vnd(conso) As String Dim nSheet As String nSheet = ActiveSheet.Name If nSheet <> "VLHT XD" And nSheet <> "VLHT TB" Then s09 = Array("", " m" & ChrW$(7897) & "t", " hai", " ba", " b" & ChrW$(7889) & "n", " n" & ChrW(259) & "m", " s" & ChrW$(225) & "u", " b" & ChrW$(7843) & "y", " t" & ChrW$(225) & "m", " ch" & ChrW$(237) & "n") lop3 = Array("", " tri" & ChrW$(7879) & "u", " ngh" & ChrW$(236) & "n", " t" & ChrW$(7927)) If Trim(conso) = "" Then vnd = "" ElseIf IsNumeric(conso) = True Then If conso < 0 Then dau = ChrW$(226) & "m " Else dau = "" conso = Application.WorksheetFunction.Round(Abs(conso), 0) conso = " " & conso conso = Replace(conso, ",", "", 1) vt = InStr(1, conso, "E") If vt > 0 Then sonhan = Val(Mid(conso, vt + 1)) conso = Trim(Mid(conso, 2, vt - 2)) conso = conso & String(sonhan - Len(conso) + 1, "0") End If conso = Trim(conso) sochuso = Len(conso) Mod 9 If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso docso = "" i = 1 LOP = 1 Do n1 = Mid(conso, i, 1) n2 = Mid(conso, i + 1, 1) n3 = Mid(conso, i + 2, 1) baso = Mid(conso, i, 3) i = i + 3 If n1 & n2 & n3 = "000" Then If docso <> "" And LOP = 3 And Len(conso) - i > 2 Then s123 = " t" & ChrW$(7927) Else s123 = "" Else If n1 = 0 Then If docso = "" Then s1 = "" Else s1 = " kh" & ChrW$(244) & "ng tr" & ChrW$(259) & "m" Else s1 = s09(n1) & " tr" & ChrW$(259) & "m" End If If n2 = 0 Then If s1 = "" Or n3 = 0 Then s2 = "" Else s2 = " linh" End If Else If n2 = 1 Then s2 = " m" & ChrW$(432) & ChrW$(7901) & "i" Else s2 = s09(n2) & " m" & ChrW$(432) & ChrW$(417) & "i" End If If n3 = 1 Then If n2 = 1 Or n2 = 0 Then S3 = " m" & ChrW$(7897) & "t" Else S3 = " m" & ChrW$(7889) & "t" ElseIf n3 = 5 And n2 <> 0 Then S3 = " l" & ChrW$(259) & "m" ElseIf n3 = 4 And n2 <> 1 And n2 <> 4 And n1 = 4 Then S3 = " t" & ChrW$(432) Else S3 = s09(n3) End If If i > Len(conso) Then s123 = s1 & s2 & S3 Else s123 = s1 & s2 & S3 & lop3(LOP) End If End If LOP = LOP + 1 If LOP > 3 Then LOP = 1 If docso <> "" And s123 <> "" Then docso = docso & "," End If docso = docso & s123 If i > Len(conso) Then Exit Do Loop vnd = UCase(Left(dau & Trim(docso), 1)) & Mid(dau & Trim(docso), 2) & " " & ChrW$(273) & ChrW$(7891) & "ng." If Left(vnd, 2) = "T" & ChrW(432) Then vnd = "B" & ChrW(7889) & "n" & Right(vnd, (Len(vnd) - 2)) End If Else vnd = conso End If End If End Function


#Hàm USD

Tương tự hàm VND, nhưng hàm USD đọc số tiền Đô la thành chữ tiếng Anh. Bạn copy đoạn mã VBA thực hiện hàm USD vào file Excel và chạy.


Function USD(Tien) If Tien = 0 Then Toread = "None" Else SP = Space(1) RR = Space(0) Donvi = RR: Hchuc = RR: Khung = RR Donvi = Donvi + "one two three four " Donvi = Donvi + "five six seven eight " Donvi = Donvi + "nine ten eleven twelve " Donvi = Donvi + "thirteen fourteen fifteen sixteen " Donvi = Donvi + "seventeeneighteen nineteen " Hchuc = Hchuc + "twenty thirty forty fifty " Hchuc = Hchuc + "sixty seventy eighty ninety " Khung = Khung + "billion milion thousand dollars cents " If Tien < 0 Then Toread = "Minus " Else Toread = RR End If Chuoi = Format(Abs(Tien), "############.00") Chuoi = Right(Space(12) + Chuoi, 15) For i = 1 To 5 NHOM = Mid(Chuoi, i * 3 - 2, 3) If NHOM <> Space(3) Then Select Case NHOM Case "000" If i = 4 And Abs(Tien) > 1 Then Word = "dollars " Else Word = RR End If Case ".00" Word = "only" Case Else X = Val(Left(NHOM, 1)) Y = Val(Mid(NHOM, 2, 1)) Z = Val(Right(NHOM, 1)) W = Val(Right(NHOM, 2)) If X = 0 Then Word = RR Else Word = Trim(Mid(Donvi, X * 9 - 8, 9)) + " hundred " If W > 0 And W < 21 Then Word = Word + "and " End If End If If i = 5 And Abs(Tien) > 1 Then Word = "and " + Word End If If W < 20 And W > 0 Then Word = Word + Trim(Mid(Donvi, W * 9 - 8, 9)) + SP Else If W >= 20 Then Word = Word + Trim(Mid(Hchuc, (Y - 1) * 9 - 8, 9)) + SP If Z > 0 Then Word = Word + Trim(Mid(Donvi, Z * 9 - 8, 9)) + SP End If End If End If Word = Word + Trim(Mid(Khung, i * 9 - 8, 9)) + SP End Select Toread = Toread + Word End If Next i End If USD = Trim(UCase(Left(Toread, 1)) + Mid(Toread, 2)) If Right(USD, 9) = "and cents" Then USD = Left(USD, Len(USD) - 10) End If End Function


#Hàm Khối lượng Kl

Hàm Kl giúp tính toán khối lượng công tác xây dựng. Ứng dụng trong các file phần mềm GXD như: phần mềm Dự toán GXD, Dự thầu GXD, Quyết toán GXD, Quản lý chất lượng GXD và file Excel bất kỳ.


Public Function kl(strText As String) If Right(strText, 1) = " " Then kl = "0" Else strText = Replace(strText, "m2", "") strText = Replace(strText, "m3", "") strText = Replace(strText, "M2", "") strText = Replace(strText, "M3", "") strText = Replace(strText, ",", ".") If vitri(" ", strText) < Len(strText) And vitri(" ", strText) > 1 Then strText = Right(strText, Len(strText) - vitri(" ", strText)) 'Else End If kl = "" For i = 1 To Len(strText) kytu = Mid(strText, i, 1) ktdb = Mid(strText, i, 4) If kytu = "0" Or kytu = "1" Or kytu = "2" Or kytu = "3" Or kytu = "4" Or kytu = "5" Or kytu = "6" Or kytu = "7" _ Or kytu = "8" Or kytu = "9" Or kytu = "+" Or kytu = "-" Or kytu = "*" Or kytu = "/" Or kytu = "^" Or kytu = "." _ Or kytu = "," Or kytu = "(" Or kytu = ")" Or kytu = "%" Or kytu = "x" Or kytu = "X" Or ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then If ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then kytu = "sqrt" End If If kytu = "x" Or kytu = "X" Then kytu = "*" End If kl = kl & kytu End If Next If kl = "" Then kl = 0 End If End If kl = kl + "+0" If IsError(Evaluate(kl)) Then kl = "0" Else kl = Evaluate(kl) If kl = 0 Then kl = "0" End If End If End Function


#Hàm dichthuat Google Translate

Hàm googletranslate giúp bạn dịch nhanh các hồ sơ dự toán, dự thầu, thanh quyết toán, quản lý chất lượng… Lập hàm và sao chép roạt ra hàng loạt, dữ liệu dịch vào luôn bảng tính. Dịch dựa vào Google Translate nên sau khi có dữ liệu bạn cần biên tập, chỉnh sửa thêm ngữ nghĩa.


Function dichthuat(sText As String, FromLang, ToLang) Dim p1, p2, URL, resp Const DIV_RESULT$ = "

" Const URL_TEMPLATE$ = "https://translate.google.com/m?hl=[from]&sl=[from]&tl=[to]&ie=UTF-8&prev=_m&q=" URL = URL_TEMPLATE & WorksheetFunction.EncodeURL(sText) URL = Replace(URL, "[to]", ToLang) URL = Replace(URL, "[from]", FromLang) resp = WorksheetFunction.WebService(URL) p1 = InStr(resp, DIV_RESULT) If p1 Then p1 = p1 + Len(DIV_RESULT) p2 = InStr(p1, resp, "

") dichthuat = Mid$(resp, p1, p2 - p1) End If End Function


phần 2 | Lập trình VBA trong Excel

Khi gặp phải vấn đề mà các chức năng sẵn có như trong phần 1 bó tay, hoặc có thể làm nhưng quá phức tạp. Đó là lúc nghĩ đến một công cụ mở rộng của Excel, là lập trình bằng ngôn ngữ VBA (Visual Basic for Application).

Đừng vội bỏ qua khi nghe đến “lập trình”. Tui không định bảo các bạn học một khoá IT 3-5 năm đâu! Hơn nữa cũng không cần thiết tìm hiểu mọi ngóc ngách của lập trình VBA. Công việc cần cái gì ta mò cái đó, một cách thực dụng. Các vấn đề đề cập ở đây đều cơ bản, đúng như tên gọi của nó (Basic). Chỉ cần chút kỹ năng lập trình Pascal đã học ở đại học và chút kiên nhẫn. Cố lên, thời buổi này các cháu tiểu học đã biết lập trình rồi huống gì cầm bằng kỹ sư trong tay 🥰

Bẫy lỗi

Với người mới lập trình, chắc cú không bao giờ chỉ viết code liền tù tì 1 lần là chạy ngon lành đúng kết quả. Sẽ luôn có lỗi xảy ra, như là đi đường phải có ổ gà vậy.

Kinh nghiệm của tôi là viết được 1 vài dòng là chạy thử để kiểm tra lỗi.

Ngoài các lỗi cú pháp, lỗi công thức không đúng làm VBA chạy được nhưng kết quả nhiều khi không đúng với tính tay (nên tính tay độc lập để kiểm tra, chứ sai công thức khéo sập nhà đó😵).

Trong cửa sổ Microsoft Visual Basic ta sẽ dùng đến menu “Debug”:

– Toggle Breakpoint: bắt VBA dừng ở dòng đang nghi ngờ cần kiểm tra

– Add Watch: kiểm tra giá trị tính được của một biến ta nhập vào, hoặc

– Quick Watch: xem giá trị của biến tại vị trí con trỏ text trong cửa sổ code

Nói chung là muôn hình vạn trạng lỗi, chỉ có bắt tay làm trực tiếp và cần thời gian bẫy lỗi thôi. Phần thưởng cho sự kiên trì là càng làm nhiều bạn sẽ ít gặp lỗi hơn.

Một số lỗi thông thường vấp phải, các bạn có thể google “VBA các lỗi thường gặp”.