Việc trên làm thủ công thì qúa đơn giản , nhưng mình hỏi làm bàng VBA ? Bởi vì mình thấy các thày nói " Phàm cái gì làm bằng tay được thì VBA làm được " , mà mình làm không được nên hỏi để biết , để học , Vây thôi . Đời thường cũng vậy thôi, nếu cái gì ta đã biết làm rồi mà thấy người khác làm hay hơn thì hỏi để mà học .
Mình cũng tìm nhiều trên mạng mà không thấy nên mới hỏi . Kể cũng lạ, những việc khó hơn rất nhiều thì làm được như: chèn code vào file đang đóng, chèn code từ file .text , chèn code vào sheet , vào Thiswookbook , vào Module ...thì làm được mà cái việc làm bằng tay chỉ mất 3s lại có vẻ khó . Hay mình hỏi câu hỏi "dở hơi" nên mọi người không giúp ? Kiến thức VBa không cơ bản lắm lúc cũng "ớn" thật .
bạn tìm những bài cơ bản VBA mà học sau khi rành hết các thuộc tình Range,Offset,tham chiếu....và viết,vọc nhiều bạn sẽ ngộ ra điều bạn muốn
mới nhập môn thì vào trang đó đọc chắc hoa mắt luôn mất
Cám ơn Dhn46, mình đã một lần hỏi thày NDU về nạp code từ File.text vào Excel , Thày Siwtom , rồi code của bạn Quang hải nhưng ứng dụng để copy từ sheet dán vào module không được , thế mới bực . Mình vừa xem code của Thày Trung chính , để ngâm cứu xem sao ? Thực ra việc rất đơn giản mà không làm được , tức cho cái đầu ...tàu hơi nước chạy bằng than..hi..hi..
Sub Test()
Call DeleteModuleContent(ThisWorkbook, "module1")
End Sub
Sub AddModuleContent(ByVal book As Workbook, ByVal CompName As String)
On Error Resume Next
Dim Cls As Range
With book.VBProject.VBComponents(CompName).CodeModule
For Each Cls In [B2:B7]
.InsertLines 3, Cls.Text
Next
End With
On Error GoTo 0
End SubCám ơn Dhn46! Mình cũng chuc bạn và gia đình năm mới dồi dào sức khỏe ,an khang , thịnh vượng .
Cám ơn Dhn46! Mình cũng chúc bạn và gia đình năm mới dồi dào sức khỏe ,an khang , thịnh vượng .
Phần in đậm là do bác chưa có Tick vào mục Trust access to VBA prọect Object Module. Việc can thiệp vào cửa sổ code "BẮT BUỘC" phải tick vào mục đó.
[/COLOR].InsertLines 3, Cls.Text
[COLOR=#000000]Cám ơn bạn ! Mục Trust access to VBA prọect Object Module mình vẫn tích thường trực và chưa bao gỡ bỏ tích mục này kể từ khi "bị" một lần "mẻ trán" vì nó . theo hướng dẫn mình sẽ text thử . Có gì vướng mình trao đổi và nhờ sau .
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'modify from code of siwtom
Dim VBCp As VBComponents
Application.DisplayAlerts = False
On Error Resume Next
Set VBCp = ThisWorkbook.VBProject.VBComponents
If Not VBCp Is Nothing Then VBCp.Remove VBCp("NewModule")
Set VBCp = Nothing
On Error GoTo 0
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
If MsgBox("ban co muon copy code o Sheet2 vao vbe code khong (Y/N)?", vbYesNo) <> vbYes Then Exit Sub
Dim VBProj As Object
Dim VBComp As Object
Dim CodeMod As Object
Set VBProj = ThisWorkbook.VBProject
Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
VBComp.Name = "NewModule"
Set CodeMod = VBComp.CodeModule
Dim Arr As Variant
Dim i As Long
Dim LineNum As Long
Arr = Range(Sheet2.[A1], Sheet2.[A65000].End(xlUp)).Value
With CodeMod
LineNum = .CountOfLines + 1
For i = 1 To UBound(Arr)
.InsertLines LineNum, Arr(i, 1)
LineNum = LineNum + 1
Next i
End With
End Sub
