Mọi người ơi giúp em về VBA này với ạ? (1 người xem)

[mrgint]

Em mới chập chững biết về Excel,và rất thích VBA.Vậy nếu em muốn biết một file có chứa VBA hay không và làm sao để xem code của VBA đó để có thể học hỏi thì làm thế nào ạ?Em mới học Excel mong mọi người giúp đỡ e

 

[befaint]

Em mới chập chững biết về Excel,và rất thích VBA.Vậy nếu em muốn biết một file có chứa VBA hay không và làm sao để xem code của VBA đó để có thể học hỏi thì làm thế nào ạ?Em mới học Excel mong mọi người giúp đỡ e

Mở file excel, nhấn alt + F11, tại cửa sổ bên trái VBA (VBA Project) thì click đúp vào từng mục, code nếu có code sẽ hiện ra ở bên phải...

Các định dạng file excel cho phép chứa marco: *.xls, *.xla, *.xlm, *.xlsm, *.xltm, *.xlsb, *.xlam, *.xll

https://support.office.com/en-us/ar...in-Excel-a28ae1d3-6d19-4180-9209-5a950d51b719

https://en.wikipedia.org/wiki/List_of_Microsoft_Office_filename_extensions

 

[Gió Đông]

Em mới chập chững biết về Excel,và rất thích VBA.Vậy nếu em muốn biết một file có chứa VBA hay không và làm sao để xem code của VBA đó để có thể học hỏi thì làm thế nào ạ?Em mới học Excel mong mọi người giúp đỡ e

Không nên học code ngay thế,
Hãy đọc sách về VBA, hay VB từ đầu ... dần dần hiểu rồi mới đọc code của người khác hay vừa đọc hiểu dần và xem code đơn giản từ các ví dụ trong sách trước.
Vì nếu xem ngay học theo ngay thì sẽ phức tạp, hoa mắt, tẩu hỏa... chóng chán... bỏ cuộc hoặc tưởng hiểu trên nóc mà không hiểu cơ bản.

 

[mrgint]

Không nên học code ngay thế,
Hãy đọc sách về VBA, hay VB từ đầu ... dần dần hiểu rồi mới đọc code của người khác hay vừa đọc hiểu dần và xem code đơn giản từ các ví dụ trong sách trước.
Vì nếu xem ngay học theo ngay thì sẽ phức tạp, hoa mắt, tẩu hỏa... chóng chán... bỏ cuộc hoặc tưởng hiểu trên nóc mà không hiểu cơ bản.

Cảm ơn anh đã chỉ dần

 

[mrgint]

em cảm ơn anh rất nhiều ạ

 

[mrgint]

Mở file excel, nhấn alt + F11, tại cửa sổ bên trái VBA (VBA Project) thì click đúp vào từng mục, code nếu có code sẽ hiện ra ở bên phải...

Các định dạng file excel cho phép chứa marco: *.xls, *.xla, *.xlm, *.xlsm, *.xltm, *.xlsb, *.xlam, *.xll

https://support.office.com/en-us/ar...in-Excel-a28ae1d3-6d19-4180-9209-5a950d51b719

https://en.wikipedia.org/wiki/List_of_Microsoft_Office_filename_extensions

anh ơi em mở file này lên kích đúp vào rồi mà core không hiện ra,em chắc chăn file này VBA bởi vì lệnh "mi" e chưa thấy xuất hiện bao giờ cả

 

[Hoang2013]

Lí ra tiêu đề bài viết của bạn nên là:
"Em muốn biết một file có chứa VBA hay không và làm sao để xem code của VBA đó"

 

[Gió Đông]

anh ơi em mở file này lên kích đúp vào rồi mà core không hiện ra,em chắc chăn file này VBA bởi vì lệnh "mi" e chưa thấy xuất hiện bao giờ cả

File này là file nào? có thấy file nào đâu?

 

[mrgint]

File này là file nào? có thấy file nào đâu?

http://www.mediafire.com/file/41i7icj11zjy3x2/San+(356).xls

 

[mrgint]

nó đó anh ơi,anh giúp em với,có mấy hàm nội suy và bảng tra ẩn ở đâu đó mà em tìm không ra,anh làm ơn giúp em với ạ.Em cảm ơn a
ạ!

 

[Gió Đông]

nó đó anh ơi,anh giúp em với,có mấy hàm nội suy và bảng tra ẩn ở đâu đó mà em tìm không ra,anh làm ơn giúp em với ạ.Em cảm ơn a
ạ!

Mở file đó lên rồi
+ bấm Alt+F11
+ Xuất hiện cửa sổ VBE, nhìn sang phải chọn San (356).xls
+ yêu cầu nhập pas: nhập password vào sẽ xem được code (nếu có)

 

[Hoang2013]

Bạn phải biết mật khẩu mới mở được;
Đáng tiếc là diễn đàn không ai có thể giúp bạn chuyện đó ở đây;

 

[VetMini]

Em mới chập chững biết về Excel,và rất thích VBA.Vậy nếu em muốn biết một file có chứa VBA hay không và làm sao để xem code của VBA đó để có thể học hỏi thì làm thế nào ạ?Em mới học Excel mong mọi người giúp đỡ e

nó đó anh ơi,anh giúp em với,có mấy hàm nội suy và bảng tra ẩn ở đâu đó mà em tìm không ra,anh làm ơn giúp em với ạ.Em cảm ơn a
ạ!

Mới chập chững mà đi học ba cái hàm nội suy, bảng tra làm cái quái gì. Dóc tổ.

Nếu bạn là ngừoi có chủ quyền xem code file thì hỏi chính ngừoi viết code. Ngừoi ấy sẽ chỉ cho cách xem. Nếu người ta đã đặt password mà còn cố tình tra ra thì là hành động bất lương.

Mới học code thì nên học thói đường đường chính chính, kiếm code ngừoi ta cho không mà học. Ai đâu chập chững bước vào đã lăm le ăn cắp code.

 

[Hoang2013]

Bạn thử đọc & dịch hàm này xem:

Function NoiSuyGPE(VungTra As Range, xX As Double, yY As Double) As Double
'Ham Noi Suy 2 Chieu Tai GPE.COM (. . .)'
Dim iW As Integer, jI As Integer
Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double
Dim a11 As Double, a12 As Double, a21 As Double, a22 As Double
Dim t1 As Double, t2 As Double

Dim RgNg As Range, RgDoc As Range
Dim Rng As Range, Clls As Range
Set RgNg = VungTra.Cells(1, 1).Resize(1, VungTra.Columns.Count - 1)
Set RgDoc = VungTra.Cells(1, 1).Resize(VungTra.Rows.Count, 1)

1 For Each Rng In RgNg
    If Rng <= yY And Rng.Offset(, 1) >= yY Then
3       y1 = Rng: y2 = Rng.Offset(, 1)
            For Each Clls In RgDoc
5              If Clls <= xX And Clls.Offset(1) >= xX Then
                   x1 = Clls: x2 = Clls.Offset(1)
'3*'
7                    a11 = Cells(Clls.Row, Rng.Column): a12 = Cells(Clls.Row, Rng.Column + 1)
                     a21 = Cells(Clls.Row + 1, Rng.Column): a22 = Cells(Clls.Row + 1, Rng.Column + 1)
9                   t1 = (a12 - a11) * (yY - y1) / (y2 - y1) + a11
                     t2 = (a22 - a21) * (yY - y1) / (y2 - y1) + a21
11                  NoiSuyGPE = (t2 - t1) * (xX - x1) / (x2 - x1) + t1
                     Exit For
13            End If
           Next Clls
15     End If
    Next Rng
17 If NoiSuyGPE = 0 Then '!'
    MsgBox "gia tri can tim ko nam trong bang tra", vbInformation
19 End If
End Function

 

[mrgint]

cảm ơn anh Gió Đông và anh Hoang123