Bạn nhấn nút phải chuột (right-click) vào những cột hoặc hàng mà bạn muốn định kích thước, rồi chọn lệnh Column Width (cho cột) hoặc lệnh Row Height (cho hàng), nhập con số kích thước vào đó. Và nhấn Enter. Có thể làm cho nhiều hàng hoặc nhiều cột bằng cách chọn nhiều hàng (hoặc nhiều cột) trước khi chọn lệnh định kích thước.
Sub cotD() Columns("D:D").ColumnWidth = 10 End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) Call cotD End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("D:D").ColumnWidth = 10 End Sub
Tại B20 bạn nhập
Vậy đúng ra số lượng TV bán trong tháng 1 phải là 100 + 150 = 250 mới đúng chứ! Đằng này theo cách của bạn mình thấy KQ ra bằng 2 mà! Nhưng khi tính tổng thành tiền thì lại đúng. Bạn có thể giải thích giúp không?
đúng vậy, mình nhầm,
Nếu trong một cột có ba số thì bạn chỉ cần dùng hàm large hay small là được
- Xóa dòng:
Muốn bôi đem dòng hay cột thì bạn làm theo cách của huycuongxd:
, mà có biết rồi, sử dụng không quen tay cũng nổi khùng... Nếu bạn đang rảnh, thử đi, biết liền...
Sub thu() [b65432].End(xlUp)(3, 2) = "21354" End SubTrời hôm trước. Tôi muốn tìm dòng cuối của 1 cột tôi viết thế này mà nó kg hiểu:
dong=sheets(Sh).range(cells(1,cot),cells(6000,cot).end(xlup).rowbạn xem cách vẽ này có được không? hy vọng nó có thể giúp được cho bạn
vấn đề 2 thật là nan giải
Laptop nào cũng có cả bạn à. hãy để ý kỹ các phím bên góc phải phía trên, và thường có chữ khác màu với các phím thông thường. Thông thường muốn sử dụng chức năng của phần chữ khác màu trên phím thì ấn kèm với phím Fn (hoặc phím tương đương, tùy theo máy).
bạn vào format cells...chọn mục custom nhập 0# vào phần type nhấp OK là xong
Đặt con trỏ tại ô nguồn nhấp ctr+].
Một cách khác nữa:
1. Bôi đen số 2, nhấn Ctrl+1, đánh dấu vào Superscript, nhấn OK:Mình đang có hai vấn đề nhỏ muốn được các bạn chỉ giúp: làm thế nào có được chữ m2(số 2 nhỏ ở phía trên) trong costom. Và làm thế nào để một ô trong excel tự động chuyển sang màu vàng khi nhận giá trị 0. Rất mong được sự giúp đỡ của các thành viên.
My
Bạn có thể tham khảo add-Ins đã có trên diễn đàn tại đây nhé! Dùng phím tắt để làm nhanh hơn, có thể chọn và thao tác cho nhiều ô cùng lúc!Mình đang có hai vấn đề nhỏ muốn được các bạn chỉ giúp: làm thế nào có được chữ m2(số 2 nhỏ ở phía trên) trong costom. Và làm thế nào để một ô trong excel tự động chuyển sang màu vàng khi nhận giá trị 0. Rất mong được sự giúp đỡ của các thành viên.
My
Muốn tìm chính xác, bạn nên dùng tham số thứ tư của VLOOKUP là 0.
Nếu chỉ muốn xem có bao nhiêu tháng và bao nhiêu ngày:
Vào tools AddIns, khi cài thì đánh dấu, giờ muốn gỡ thì bỏ dấu.
Sub LOC()
Dim n As Integer
Application.ScreenUpdating = False
BaoCao.Range("A5:A10000").ClearContents
BaoCao.Range("B6:H10000").ClearContents
Application.Goto Reference:="DL"
Selection.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("BaoCao!A5"), Unique:=True
BaoCao.Select
Range("A1").Select
BaoCao.Select
Range("A5:B5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
BaoCao.Select
n = Application.WorksheetFunction.CountA(Range("A6:A65000")) + 4
If n > 0 Then
Range("B6").Select
ActiveCell.Value = "=SUMIF(Data!$A$2:$G$65536,BaoCao!$A6,Data!$B$2:$B$65536)"
Selection.Copy
Range("B7:B" & n + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C6").Select
ActiveCell.Value = "=SUMIF(Data!$A$2:$G$65536,BaoCao!$A6,Data!$C$2:$C$65536)"
Selection.Copy
Range("C7:C" & n + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D6").Select
ActiveCell.Value = "=SUMIF(Data!$A$2:$G$65536,BaoCao!$A6,Data!$D$2:$D$65536)"
Selection.Copy
Range("D7:D" & n + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E6").Select
ActiveCell.Value = "=SUMIF(Data!$A$2:$G$65536,BaoCao!$A6,Data!$E$2:$E$65536)"
Selection.Copy
Range("E7:E" & n + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F6").Select
ActiveCell.Value = "=SUMIF(Data!$A$2:$G$65536,BaoCao!$A6,Data!$F$2:$F$65536)"
Selection.Copy
Range("F7:F" & n + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G6").Select
ActiveCell.Value = "=SUMIF(Data!$A$2:$G$65536,BaoCao!$A6,Data!$G$2:$G$65536)"
Selection.Copy
Range("G7:G" & n + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B6:G" & n + 1).Value = Range("B6:G" & n + 1).Value
End If
Application.ScreenUpdating = True
End SubBạn có file kèm theo không? Để mình dễ hình dung Sheet Data của bạn ấy mà! Bạn gửi kẻm thêm file nhé!
Sub GPE_SUMIF()
Dim Rng As Range, Tmp As Range, clls As Range
[A5].CurrentRegion.Offset(1).ClearContents
Application.ScreenUpdating = False
Set Rng = Data.[A1].CurrentRegion
ActiveWorkbook.Names.Add name:="Rng", RefersToR1C1:=Rng.Resize(, 1)
Rng.Resize(, 1).AdvancedFilter Action:=2, CopyToRange:=[A5], Unique:=True
Set Tmp = Range([a6], [a65535].End(xlUp))
For i = 1 To Rng.Columns.Count - 1
ActiveWorkbook.Names.Add name:="sRng", RefersToR1C1:=Rng.Resize(, 1).Offset(, i)
Tmp.Offset(, i).FormulaR1C1 = "=SUMIF(Rng,RC1,sRng)"
Tmp.Offset(, i) = Tmp.Offset(, i).Value
Next
Application.ScreenUpdating = True
ActiveWorkbook.Names("Extract").Delete
ActiveWorkbook.Names("Rng").Delete
ActiveWorkbook.Names("sRng").Delete
End SubAnh Boyxin code của anh chay rất nhanh, nhưng file bị động anh à. Nếu tại sheet data em thêm cột 7 và ko muốn sumif cột 7. Nhưng code của anh vẫn sumif luôn. Và nếu như em chỉ muốn sumif cột 2,4,6 thôi.
Hi, sửa chỗ này nè (sumif từ cột 1 đến ...)
Sub GPE_SUMIF()
Dim Rng As Range, Tmp As Range, clls As Range
[A5].CurrentRegion.Offset(1).ClearContents
Application.ScreenUpdating = False
Set Rng = Data.[A1].CurrentRegion
ActiveWorkbook.Names.Add name:="Rng", RefersToR1C1:=Rng.Resize(, 1)
Rng.Resize(, 1).AdvancedFilter Action:=2, CopyToRange:=[A5], Unique:=True
Set Tmp = Range([a6], [a65535].End(xlUp))
For i = 2 To 6 Step 2
ActiveWorkbook.Names.Add name:="sRng", RefersToR1C1:=Rng.Resize(, 1).Offset(, i)
Tmp.Offset(, i).FormulaR1C1 = "=SUMIF(Rng,RC1,sRng)"
Tmp.Offset(, i) = Tmp.Offset(, i).Value
Next
Application.ScreenUpdating = True
ActiveWorkbook.Names("Extract").Delete
ActiveWorkbook.Names("Rng").Delete
ActiveWorkbook.Names("sRng").Delete
End Sub Range("A" & n + 2).Value = DateSerial(Year(txtDate), Month(txtDate), Day(txtDate)) 'From Mr ThuNghi
Range("B" & n + 2).Value = txtCur
Range("C" & n + 2).Value = txtRoe * 1Bạn vào excel options/advanced bỏ chọn mục automatically insert a decimal point đi hoặc chọn 0 là được.
Bạn ơi cho mình hỏi, mình làm giống như cách bạn chỉ nhưng làm lần đầu thì mình làm ra, nhưng khi mình tắt mình làm lại lần hai nó không ra.
Bình thường thì sẽ làm được. Bạn gửi file của bạn lên đi, nếu không thì không biết được nguyên nhân đâu bạn.
Ủa... giãi rồi mà ta! Sao giờ hỏng thấyTrong file đính kèm nhé
Chào bạn,
Sub XoaName()
Dim mName As Name
On Error Resume Next
For Each mName In ActiveWorkbook.Names
mName.Delete
Next
End SubUh chân thành cảm ơn nhiều! Các anh trả lời nhanh quá! và hướng dẫn cũng rất tỷ mỉ nữa. Chắc còn phiền các anh chị nhiều!
Nếu bạn cài từ đĩa "đàng hoàng", không bị lỗi, và cài đầy đủ (hoặc chọn chế độ Setup mặc định), thì Addin Solve phải có:
Vụ này tôi vừa mới gặp cách đây 2 ngày trên 3 máy tính khác nhau:Nếu bạn cài từ đĩa "đàng hoàng", không bị lỗi, và cài đầy đủ (hoặc chọn chế độ Setup mặc định), thì Addin Solve phải có:Nếu bạn không thấy nó, thì chỉ có cách cài lại.
File excel nào cũng bị như vậy hay chỉ có một file bị thôi vậy bạn!?
Nếu dùng Excel 2003, bạn vào Tools > Options > Edit rồi bỏ đánh dấu cái Fixed decimal đi.
mình thì cài được Add-Ins Solver. nhưng khi cài xong thì
Trong khi vào Insert \ Name \ Define lại trống trơn
Không hiểu là thế nào nữa
mình thì cài được Add-Ins Solver. nhưng khi cài xong thì
Trong khi vào Insert \ Name \ Define lại trống trơn
Không hiểu là thế nào nữa
