Sub trans()
nam = [B1]
thang = [B2]
k = 5
For iRow = 6 To [A65000].End(xlUp).Row
For iCol = 2 To 7
If Cells(iRow, iCol) <> "" Then
Cells(k, "I") = Cells(iRow, 1)
Cells(k, "J") = thang & "/" & Cells(5, iCol) & "/" & nam
Cells(k, "J").NumberFormat = "d/mmm/yy"
Cells(k, "K") = Cells(iRow, iCol)
k = k + 1
End If
Next
Next
End Sub
Tôi chỉnh lại Sub này như sau:
Sub trans()
Dim i As Long, Clls As Range
On Error GoTo Thoat
With Application.InputBox("Chon vung du lieu (khong tinh tieu de)", Type:=8)
[I5:K1000].ClearContents
For i = 1 To .Rows.Count
If .Cells(i, 2).Resize(, .Columns.Count - 1).SpecialCells(4).Count + 1 < .Columns.Count Then
For Each Clls In .Cells(i, 2).Resize(, .Columns.Count - 1).SpecialCells(2)
Range("I65536").End(xlUp).Offset(1) = .Cells(i, 1)
Range("K65536").End(xlUp).Offset(1) = Clls
With Range("J65536").End(xlUp).Offset(1)
.Value = DateSerial([B1], [B2], Clls.Offset(-i))
.NumberFormat = "d/mmm/yy"
End With
Next Clls
End If
Next i
End With
Thoat: Exit Sub
End SubSub Transfer()
Dim i As Long
On Error GoTo Thoat
With Application.InputBox("Chon vung du lieu (khong tinh tieu de)", Type:=8)
[I5:K1000].ClearContents
For i = 1 To .Rows.Count
If .Cells(i, 2).Resize(, .Columns.Count - 1).SpecialCells(4).Count + 1 < .Columns.Count Then
With .Cells(i, 2).Resize(, .Columns.Count - 1).SpecialCells(2)
Union(.Cells, .Offset(-i)).Copy
End With
Range("J65536").End(xlUp).Offset(1).PasteSpecial 3, , , True
Selection.Resize(, 1).Offset(, -1).Value = .Cells(i, 1)
End If
Next i
End With
Application.CutCopyMode = False
Thoat: Exit Sub
End Sub
=COUNTIF(A1:A17;"*GPE*")
Dùng công thức này:
B1 = (LEN(A1)-LEN(SUBSTITUTE(A1,"GPE","")))/LEN("GPE")=SUMPRODUCT((LEN($A1:$A17)-LEN(SUBSTITUTE($A1:$A17,"GPE","")))/LEN("GPE"))
Vậy tổng quát công thức này sẽ là:
=SUMPRODUCT(LEN(Vung)-LEN(SUBSTITUTE(Vung,Từ cần tìm,REPT("x",LEN(Từ cần tìm)-1))))=SUMPRODUCT(LEN(Vung)-LEN(SUBSTITUTE(Vung,Từ cần tìm,"")))/LEN(Từ cần tìm)
Lỗi này là lỗi về biến, có thể có do áp dụng sai công thức,hoặc ô tính làm việc định dạng ở dạng text chứ không phải dạng number
Bạn nên đưa cụ thể dữ liệu mình muốn xử lý thì mọi người mới có hướng giải quyết cho bạn được.
Chào các bác, em là thành viên mới. Muốn hỏi các bác 1 lỗi sau trong Excel 2003.
Cứ mỗi lần vào Excel, mở file thứ 2 trở lên là Excel tự động đóng chương trình là và hiện ra thông báo sau:
Rất ức chế mà em chưa biết lỗi gì. Nhất là khi làm việc bắt buộc mình phải mở ít nhất 2 files. Điều này tưởng chừng như đơn giản nhưng mà trên máy của em thời gian gần đây đó là điều không thể. Em đã remove toàn bộ Office rồi install lại mà vẫn không được. Em không hiểu lỗi gì và phải làm thế nào nữa. Mong các bác giúp em cách khắc phục.
Xin cảm ơn!
Bác thử copy 2 file đó sang máy khác mở xem kết quả thế nào.
Em đã làm như bác nói nhưng kết quả là vẫn bình thường chứ không bị lỗi như trên máy của em.
Đã đến nước này thì chỉ còn mỗi cách: Cài lại cả máy luôn. Nghĩa là cài lại Windows, rồi cài thêm Office (mới toanh). Mà muốn chắc ăn hơn nữa thì trước khi cài lại Windows, Format luôn cái ổ C (dĩ nhiên là với điều kiện bạn lưu dữ liệu ở ổ khác, D, E gì đó chẳng hạn).Em đã làm như bác nói nhưng kết quả là vẫn bình thường chứ không bị lỗi như trên máy của em.
Trên máy em thì không riêng gì 2 file đó mà tất cả các file Excel đều bị lỗi trên, nhất là khi mở nhiều hơn 1 file.
Sub chay()
[B1:B65535] = [A1:A65535].Value
End SubPhần mềm c là phần mềm gì? Bạn nên nói rõ hơn đi!
=(today-(B1-A1))/(B1-A1)=(TODAY()-A1)/(B1-A1)=today()-A1)/(B1-A1)Thì ct today() sẽ tự động lấy ngày hiện tại chia cho số ngày chênh lệch đến khi ngày hiện tại = với ngày cuối thì = 100% đó thôi bạn.
Bạn dùng phần mềm "danh mục 1.0" để xem ý nghĩa đuôi file nhé.
Nếu đơn giản như vậy thì người ta đâu cần phải hỏi. Cái người ta đang muốn hỏi là vẫn giữ các ô đã Merge mà vẫn đánh được số thứ tự kìa.
Có phải bạn muốn như trong file kèm không.
Số thứ tự đâu liên quan gì đến cột B. Và số thứ tự này vẫn chưa đúng mà.
Bạn chuyển sang xài Excel 2007 đi, có đến 16.384 cột luôn (từ A đến XFD), tha hồ mà sử dụng.
Option Explicit
Sub SttMerge()
Dim lRw As Long, Jj As Long, Stt As Long
Dim Rng As Range
On Error Resume Next
Application.DisplayAlerts = True
Set Rng = [B65500].End(xlUp)
lRw = Rng.Row + Rng.MergeArea.Cells.Count - 1
For Jj = 2 To lRw
With Cells(Jj, "A")
If .MergeCells = False Or (.MergeCells = True And .Offset(-1).MergeCells = _
False) Or (.MergeArea.Cells.Count > 1 And .MergeArea.Cells.Count <> _
.Offset(-1).MergeArea.Cells.Count) Then
Stt = Stt + 1
.Value = Stt
If .MergeCells = True Then
Range(.Offset(0, 0), .Offset(0).End(xlDown)).VerticalAlignment = xlCenter
End If
End If
End With
Next Jj
End SubKhông vấn đề gì, bạn chú ý cái vùng trong hàm MAX nhé, nếu giả sử ô đầu tiên bạn Merge từ ô A2 đến ô A5, thì các ô tiếp theo sẽ bắt đầu từ ô A6. Lúc đó công thức sẽ là =MAX($A$2:A5)+1. Tức là cái vùng trong hàm MAX phải bao hết vùng Merge của ô đầu tiên là OK.
Hì hì, bạn định dạng tháng (Month), mà lại xài kết quả là định dạng kiểu Ngày (dd), là sao vậy ?
Thế sao bạn không dùng:Vì em để (mm) nó cho ra kết quả là 1
Format như bạn nói cho ra kết quả là 3 chứ ko phải 03
Thân!
Bạn đưa nguyên file (đang text) của bạn lên xem thử! Tôi text rồi ---> KQ = 03, không thể =3 được
Bạn đưa file lên từ đầu là đở mất công rồi ---> Mấu chốt vấn đề là PHẢI FORMAT CELL TRƯỚC
Sub a()
With Sheet1.Range("A2:A10")
.NumberFormat = "00"
.Value = Format(Now, "mm")
End With
End SubSub a()
With Sheet1.Range("A2:A10")
.NumberFormat = "@"
.Value = Format(Now, "mm")
End With
End SubĐúng là mèo lười... Có nhiều lắm lắm rồi, bạn ơi, nhấn nút tìm kiếm với từ khóa: "Xóa dữ liệu trùng", diễn đàn sẽ cung cấp cho bạn 1570 bài (cả tiếng Việt lẫn tiếng nước ngoài) có liên quan: http://www.google.com.vn/custom?dom...ữ+liệu+trùng&sitesearch=www.giaiphapexcel.com
Để dể hiểu thì dùng công thức này cho cell J2
