Trước hết em cảm ơn bác nhiều nha.mình đã mở khóa toàn bộ các sheet + Project VBA (mà sao chỉ thấy toàn là code tại module của sheet)
file của bạn đây: https://www.mediafire.com/?ln09419fa1gk222
Nếu các sheet đó có cấu trúc giống nhau --> bạn có thể gộp chung bằng cách dùng sự kiện Workbook_SheetChange tại Module ThisWorkbook thay vì cài ở từng sheet như thế.Trước hết em cảm ơn bác nhiều nha.
file này của em như tiêu đề của nó tức là nhật kí của từng ngày, vì thế em viết code cho 1 sheet rồi move and copi thành 31 sheet. Mặt khác trong file có các sheet ko chứa code lên em ko dùng Macro cho toàn bộ file trong sheet được.
- mình có search trên diễn đàn GPE (vài trang đầu) về cách mở "Project is Unviewable" nhưng ko thấy và đã tìm trên Google thì có giải thích chi tiết tại đây "Project is Unviewable" - Excel add-in (#4) (www.mrexcel.com). Riêng bài đó mình chỉ góp ý với bạn, bước 5 --> phải dùng 1 "công cụ khác" để kiểm tra pass của VBA-Project (trên GPE ko được phép share, bạn có thể nhắn tin riêng cho mìnhBác có thể hướng dẫn em cách bác unclok file trên được ko? em ko phải người nhập dữ liệu lên em sợ file của em lại bị như thế nhiều lần nữa lại phải mang làm phiền bác thì ngại lắm.
)Hi, em lập pass như vậy là do bảng này dùng cho nhiều người, người biết và không biết exel đều có. mà bảng này cần dữ liệu hàng giờ. em sợ mọi người nhập sai rồi tự sửa nhưng sửa không đúng bệnh thì toàn bộ hệ thống liên quan coi như ko làm việc bác ạ.Nếu các sheet đó có cấu trúc giống nhau --> bạn có thể gộp chung bằng cách dùng sự kiện Workbook_SheetChange tại Module ThisWorkbook thay vì cài ở từng sheet như thế.
- mình có search trên diễn đàn GPE (vài trang đầu) về cách mở "Project is Unviewable" nhưng ko thấy và đã tìm trên Google thì có giải thích chi tiết tại đây "Project is Unviewable" - Excel add-in (#4) (www.mrexcel.com). Riêng bài đó mình chỉ góp ý với bạn, bước 5 --> phải dùng 1 "công cụ khác" để kiểm tra pass của VBA-Project (trên GPE ko được phép share, bạn có thể nhắn tin riêng cho mình
- khi bảo vệ 1 file Excel để tránh người bình thường đụng vào Code thì bạn chỉ cần đặt pass cho VBA-Project là đủ (ko cần gì phải "khóa kỹ" như vậy)
hehe,
- thấy bạn vọc tới vọc lui cái này lâu nay rồi mà vẫn "chưa nhuyễn" được
- khi làm việc với các ActiveX Controls tại sheet sẽ gặp khá nhiều hạn chế (đặc biệt là các sự kiện tại Sheet)
---> để giải quyết triệt để và phải tính đến chuyện lâu dài về sau, thay vì theo đuổi cái đó bạn chịu khó đi thêm bước nữa là làm việc trên UserForm --> rất nhiều ưu điểm.
If Target.Column = 3 Then
Range("E" & Target.Row).Select
'hoac: Target.Offset(, 2).Select
End If
If Target.Column = 5 Then Target.Offset(, 1).Select
If Target.Column = 6 Then Target.Offset(1, -3).Select
Tôi thấy bạn cứ lòng vòng hoài với các controls trong sheet, tôi thấy mệt mỏi cho bạn quá! Tôi làm cái file này trên UserForm để bạn dễ dàng nhập dữ liệu.
Sub loaddata(DBFullName As String, TargetRange As Range)
Dim i, J, Cco
Dim cn As ADODB.Connection, Rs As ADODB.Recordset, intColIndex As Integer
Set TargetRange = TargetRange.Cells(1, 1)
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFullName & ";"
Set Rs = New ADODB.Recordset
Dim Cd, Luc, Momen As Double
If Chocolumnn.op1.Value = True Then
Cco = 0
Call Delete_All
Else
Cco = Dem() - 1
End If
With Rs
.Open "SELECT [Column Forces].column,[Frame Assignments Summary].AnalysisSect,[Column Forces].loc,[Column Forces].story,[Column Forces].load,[Frame Assignments Summary].length,[Frame Section Properties].depth,[Frame Section Properties].widthtop,[Column Forces].p,[Column Forces].m2,[Column Forces].m3,[Column Forces].v2,[Column Forces].v3,[Control Parameters].CurrUnits FROM [Column Forces],[Frame Assignments Summary],[Frame Section Properties],[Control Parameters] WHERE [Column Forces].column = [Frame Assignments Summary].line and [Column Forces].story=[Frame Assignments Summary].story and [Frame Assignments Summary].AnalysisSect=[Frame Section Properties].SectionName", cn, , , adCmdText
.MoveFirst
Cells(13, 20).Value = .Fields(13).Value
Cd = Sheets("Data").Cells(5, 18).Value
Luc = Sheets("Data").Cells(5, 15).Value
Momen = Sheets("Data").Cells(5, 16).Value
i = 1
i = i + Cco
Range("A18").Select
Do
Range("A17:T17").Copy TargetRange.Offset(i, 0)
TargetRange.Offset(i, 0).Activate
TargetRange.Offset(i, 0).Value = i
TargetRange.Offset(i, 1).Value = .Fields(0).Value
TargetRange.Offset(i, 2).Value = .Fields(1).Value
TargetRange.Offset(i, 3).Value = .Fields(2).Value
TargetRange.Offset(i, 4).Value = .Fields(3).Value
TargetRange.Offset(i, 5).Value = .Fields(4).Value
TargetRange.Offset(i, 6).Value = Math.Round(Math.Abs(.Fields(6).Value) * Cd, 5)
TargetRange.Offset(i, 7).Value = Math.Round(Math.Abs(.Fields(7).Value) * Cd, 5)
'TargetRange.Offset(I, 8).Value = Cells(29, 11).Value
TargetRange.Offset(i, 9).Value = Math.Round(Math.Abs(.Fields(5).Value) * Cd, 5)
TargetRange.Offset(i, 10).Value = Math.Abs(.Fields(8).Value) * Luc
TargetRange.Offset(i, 11).Value = Math.Abs(.Fields(9).Value) * Momen
TargetRange.Offset(i, 12).Value = Math.Abs(.Fields(10).Value) * Momen
TargetRange.Offset(i, 13).Value = Math.Abs(.Fields(11).Value) * Luc
TargetRange.Offset(i, 14).Value = Math.Abs(.Fields(12).Value) * Luc
.MoveNext
i = i + 1
Loop Until .EOF
Range("A18").Select
End With
Rs.Close
Set Rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Function Dem()
Dim jj
Range("A17").Select
jj = 0
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
jj = jj + 1
Loop
Dem = jj
Range("A18").Select
End FunctionPrivate Sub ComboBox1_Change()
ActiveCell = ComboBox1.Column(0)
ActiveCell.Offset(0, 1) = ComboBox1.Column(1)
ActiveCell.Offset(0, 2) = ComboBox1.Column(2)
End SubPrivate Sub ComboBox1_Change()
ActiveCell = ComboBox1.Column(0)
ActiveCell.Offset(0, 1) = ComboBox1.Column(1)
ActiveCell.Offset(0, 2) = ComboBox1.Column(2)
End Sub
Sub Worksheet_Selectionchange(ByVal target As Range)
With ComboBox1
On Error Resume Next
If target.Column = 3 Then
.Visible = True
.Top = target.Top
.Height = target.Height
.Left = target.Left
.Width = target.Width
.LinkedCell = target
ElseIf Application.CutCopyMode = False Then
.Visible = False
End If
End With
End SubMình hiểu là người dùng code For next
Đây là code của anh quanghai1969 thì phải?
1. TD là cái tên mà khi người vẽ cái userform đã gán cho nó. Muốn thay đổi tên này thì vào properties của Form
Ai dời qua đây làm kiếm muốn chết,
Và tôi có thử thêm cái này thay đoạn màu đỏ thành
nữa cũng chưa được. Tôi sai chổ nào bạn giải thích dùm. Cảm ơn bạn.
Ai dời qua đây làm kiếm muốn chết,
Cho hỏi thêm chút nhé bạn quanghai1969. VD tôi muốn cho code lập lại từ 1 đến 5 tại ô A1. Tôi có viết thử như thế này sao code chưa chạy được
Và tôi có thử thêm cái này thay đoạn màu đỏ thành nữa cũng chưa được. Tôi sai chổ nào bạn giải thích dùm. Cảm ơn bạn.
Biết là ham học là rất tôt nhưng nên học từ từ. "Biết cầm dao thì hãy nghĩ tới thái thức ăn". Bạn nên học từ từ. tôi thấy cơ bản của bản còn kém lắm! Cứ nghiên cứu thật kĩ cái cơ bản như For ..next chẳng hạn.Ai dời qua đây làm kiếm muốn chết,
Cho hỏi thêm chút nhé bạn quanghai1969. VD tôi muốn cho code lập lại từ 1 đến 5 tại ô A1. Tôi có viết thử như thế này sao code chưa chạy được
Và tôi có thử thêm cái này thay đoạn màu đỏ thành nữa cũng chưa được. Tôi sai chổ nào bạn giải thích dùm. Cảm ơn bạn.
Dẫu sao cũng cảm ơn bạn, Bạn nói gì vậy không biết thì hỏi là chuyện của người hỏi, trả lời hay không là chuyện của các bạn. Tôi mới tập mò mò. Thực ra tôi cũng có viết như thế này
Cho nên tôi mới thử viết cho 1 ô thử.
