Các câu lệnh VBA đơn giản

[hung2412]

- Chọn 1 ô cụ thể:

Range("A1").Select
'Hoặc:
[A1].Select

- Bôi đen toàn bộ Sheet:

Cells.Select

- Chọn khối ô dữ liệu từ trên xuống dưới liền mạch (Chọn cả khối dữ liệu):

Range(Selection, Selection.End(xlDown)).Resize(, 17).Select
Hoặc:
Range([B6], [B6].End(xlDown))

- Chọn khối ô dữ liệu từ trên xuống dưới liền mạch (Theo chủ động):

Range([B10], [B65000].End(xlUp).Offset(-1,0)).Select
Hoặc:
Range([B1].End(xlDown).Offset(1), [B65000].End(xlUp).Offset(-2)).Select
Hoặc:
Range([B9], [B65000].End(xlUp).Offset(-1)).Offset(, -1).Resize(, 12).Select

- Chọn Sheet hiện hành:

Windows("623 - nam non.xls").Activate
Hoặc:
Sheets("Sheet1").Select

- Xóa bỏ Sheet:

 ActiveWindow.SelectedSheets.Delete
Hoặc:
Sheets("Sheet1").Delete

- Tìm kiếm ô có dữ liệu:

Cells.Find("NguyÔn V¨n Kiªn", , , , , , False, False).Activate

- Chọn ô dữ liệu từ dưới lên trên liền mạch (Không phải chọn cả khối dữ liệu):

Range("M" & [M65000].End(xlUp).Row).Select

- Chọn ô dữ liệu từ dưới lên trên liền mạch (Không phải chọn cả khối dữ liệu):

Selection.End(xlUp).Select

- Chọn ô dữ liệu từ trên xuống dưới liền mạch (Không phải chọn cả khối dữ liệu):

Selection.End(xlDown).Select

- Đánh dữ liệu vào ô hiện hành:

ActiveCell.FormulaR1C1 = "Tæng céng"

- Ô chứa giá trị do 2 ô bên cạnh bên trái trừ nhau:

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

- Công thức Subtotal (Dòng tổng cộng hướng lên trên):

Selection.Subtotal 2, xlSum, Array(5, 7), True, False, False

- Sort dữ liệu (Có tích vào Header row):

Selection.Sort [B10], Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

- Copy rồi paste dữ liệu vào ô hoặc vùng mới (Trong cùng một Sheet):

Range("E15:F17").Copy Range("E18")

- Cut rồi paste dữ liệu vào ô hoặc vùng mới (Trong cùng một Sheet):

Range("E15:F17").Cut Range("E20")

- Copy ở Sheet này rồi paste dữ liệu vào ô hoặc vùng mới trong Sheet kia (Trong cùng một Workbook):

Sheets(1).Range("E15:F17").Copy Sheets(2).Range("D2")
Hoặc:
Sheets("Sheet1").Range("E15:F17").Copy Sheets("Sheet2").Range("D2")

- Cut ở Sheet này rồi paste dữ liệu vào ô hoặc vùng mới trong Sheet kia (Trong cùng một Workbook):

Sheets(1).Range("E15:F17").Cut Sheets(2).Range("D2")
Hoặc:
Sheets("Sheet1").Range("E15:F17").Cut Sheets("Sheet2").Range("D2")

- Chọn toàn bộ các ô có dữ liệu liền mạch quanh ô được chọn:

Range("C7").CurrentRegion.Select

- Xóa ô hoặc nhiều ô hướng lên trên:

Selection.Delete Shift:=xlUp

- Chọn nhiều ô cách nhau:

Range("I10,I13,I16").Select

- Chọn một hoặc nhiều dòng (Cả dòng) liền nhau:

Rows("1:5").Select

- Chọn nhiều dòng (Không phải cả dòng) liền nhau:

Range("A27:G31").Select

- Chọn một dòng (Không phải cả dòng):

Range("A27:G27").Select

- Chọn một dòng (Cả dòng):

Rows("13:13").Select

- Chọn nhiều dòng (Cả dòng) cách nhau (Không liền nhau):

Range("5:5,3:3,21:21").Select

- Thêm một dòng hoặc nhiều dòng:

Rows("4:5").Insert

- Xóa một dòng hoặc nhiều dòng:

Selection.Delete xlUp

- Chọn một cột (Cả cột):

Columns("M:M").Select

- Chọn một cột (Không phải cả cột):

Range("J6:J10").Select

- Chọn nhiều cột (Không phải cả cột) liền nhau:

Range("I5:L16").Select

- Chọn nhiều cột (Cả cột) liền nhau:

Columns("D:G").Select

- Chọn nhiều cột (Cả cột) vừa cách nhau, vừa liền nhau:

Range("K:L,B:B").Select

- Chọn nhiều cột (Cả cột) cách nhau (Không liền nhau):

Range("M:M,O:O,Q:Q,R:R").Select

- Thêm một cột hoặc nhiều cột:

Selection.Insert xlToRight

- Xóa một cột hoặc nhiều cột một lúc:

Selection.Delete xlToLeft

- Co dãn cột theo chủ đích:

Columns("B:B").ColumnWidth = 32.57
Columns("C:C").ColumnWidth = 9.57

- Co dãn dòng theo chủ đích:

Rows("10:10").RowHeight = 32.25

- Co dãn cột theo tự động:

Columns("G:G").EntireColumn.AutoFit

- Co dãn dòng theo tự động:

Range("2:4,6:6,13:14").EntireRow.AutoFit

- Chữ nghiêng:

Selection.Font.Italic = True

- Chữ đậm:

Selection.Font.Bold = True

- Copy dữ liệu rồi dán dữ liệu thành giá trị chết (Không còn công thức) (Không có chọn các ô trống nguồn đè lên các ô đích):

 [I15:I17].Value = [I15:I17].Value

- Copy dữ liệu rồi dán dữ liệu thành giá trị chết (Không còn công thức) (Có chọn không để các ô trống nguồn đè lên các ô đích):

Range("C:C").Copy: Range("B:B").PasteSpecial , xlNone, True, False
  Application.CutCopyMode = False

- Copy tính chất từ ô nguồn rồi paste vào các ô đích để đồng bộ với tính chất của ô nguồn:

Selection.PasteSpecial , xlAdd, False, False

- Thêm Sheet mới:

Sheets.Add

- Chuyển Sheet2 xếp sau Sheet 1:

Sheets("Sheet2").Move After:=Sheets(2)

- Chọn Sheet bên trái liền kề với Sheet đang chọn:

ActiveSheet.Previous.Select

- Chọn Sheet bên phải liền kề với Sheet đang chọn:

ActiveSheet.Next.Select

- Hủy chọn khối đang cut hoặc copy (Có đàn kiến đang chạy quanh khối được chọn):

Application.CutCopyMode = False

- Ghép các ô với nhau thành một:

Range("G6:H6").Merge

- Bỏ ghép các ô với nhau thành một:

Range("G6:H6").UnMerge

- Chọn nhiều dòng (Không phải cả dòng) một lúc để ghép các ô trên các dòng đó thành một (Cho tiện đỡ phải chọn từng dòng một để rồi sau đó trộn các ô với nhau):

Range("A3:G3,A4:G4,A5:G5").Select

- Tìm các ô rỗng:

Selection.SpecialCells(xlCellTypeBlanks).Select

- Tìm các ô chứa số chết (Không phải công thức):

Selection.SpecialCells(xlCellTypeConstants, 1).Select

- Tìm các ô chứa bị lỗi (Không phải công thức):

Selection.SpecialCells(xlCellTypeConstants, 16).Select

- Tìm các ô chứa ký tự (Không phải công thức):

Selection.SpecialCells(xlCellTypeConstants, 2).Select

- Tìm các ô chứa số (Công thức):

Selection.SpecialCells(xlCellTypeFormulas, 1).Select

- Tìm các ô chứa ký tự (Công thức):

Selection.SpecialCells(xlCellTypeFormulas, 2).Select

- Tìm các ô chứa bị lỗi (Công thức):

Selection.SpecialCells(xlCellTypeFormulas, 16).Select

- Căn chữ trong ô sang trái:

Selection.HorizontalAlignment = xlLeft

- Căn chữ trong ô vào giữa (Theo chiều ngang):

Selection.HorizontalAlignment = xlCenter

- Tự động co dãn các ô cho vừa:

Rows("6:7").WrapText = True

- Kẻ dòng bên trên khối chọn (Nét liền):

Selection.Borders(xlEdgeTop).LineStyle = xlContinuous

- Kẻ dòng bên trái khối chọn (Nét liền):

Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous

- Kẻ dòng bên dưới khối chọn (Nét liền):

Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous

- Kẻ dòng bên phải khối chọn (Nét liền):

Selection.Borders(xlEdgeRight).LineStyle = xlContinuous

- Kẻ hàng dọc bên trong khối chọn (Nét liền):

Selection.Borders(xlInsideVertical).LineStyle = xlContinuous

- Kẻ hàng ngang bên trong khối chọn (Nét liền):

Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous

- Kẻ dòng bên trái khối chọn (Nét đứt):

Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
 Selection.Borders(xlEdgeLeft).Weight = xlHairline

- Kẻ dòng bên trên khối chọn (Nét đứt):

 Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
 Selection.Borders(xlEdgeTop).Weight = xlHairline

- Kẻ dòng bên dưới khối chọn (Nét đứt):

Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
 Selection.Borders(xlEdgeBottom).Weight = xlHairline

- Kẻ dòng bên phải khối chọn (Nét đứt):

Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).Weight = xlHairline

- Kẻ hàng dọc bên trong khối chọn (Nét đứt):

 Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
 Selection.Borders(xlInsideVertical).Weight = xlHairline

- Kẻ hàng ngang bên trong khối chọn (Nét đứt):

Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Selection.Borders(xlInsideHorizontal).Weight = xlHairline

- Bỏ dòng kẻ toàn bộ ô:

Cells.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

- Căn chỉnh dữ liệu vào giữa ô theo chiều dọc trong ô:

Selection.VerticalAlignment = xlCenter

- Đang chọn khối chọn nhưng muốn mở rộng thêm khối chọn ở bên phải:

Selection.Resize(, 3).Select

- Cố định dòng và cột:

ActiveWindow.FreezePanes = True

- TextToColumns:

Selection.TextToColumns [G1], DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

- Định dạng số:

Selection.NumberFormat = "#,##0"

- Đổi tên Sheet:

Sheets("Sheet1").Name = "Sheet2"

- Tính tổng subtotal:

ActiveCell.FormulaR1C1 = "=subtotal(9,R9C12:R[-1]C)"

- Tô màu những ô bị lỗi (#N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?, #NULL!):

Range("O9:P9").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ISERROR(O9)"
 Selection.FormatConditions(1).Interior.ColorIndex = 6

- Tô màu những ô bị trùng:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=COUNTIF(M:$M;M9)>1"
  Selection.FormatConditions(1).Interior.ColorIndex = 33

- Bôi đen khối chọn (Tương đương Shift + Ctrl + end):

Range("F8").Select
 Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Resize(, 1).Select

- Tô màu:

Range("G10:G12").Interior.ColorIndex = 6

- Xóa màu:

Range("G10:G12").Interior.ColorIndex = xlNone

- Xóa CF:

 Range("E14:F20").FormatConditions.Delete

- Đổi tên Sheet:

Sheets("Sheet1").Name = "Sheet2"

- Copy Sheet ở file này sang file kia:

Sheets("Sheet2").Copy After:=Workbooks("141 - a. gian nam non cu.xls").Sheets (1)

- Bỏ qua lỗi:

On Error Resume Next

- Vô hiệu hóa hiện bảng đòi update khi mở file:

ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

- Tắt chế độ hiện hộp thoại khi xóa Sheet:

Application.DisplayAlerts = False

- Chọn cả dòng tại vị trí khối ô chọn:

Selection.EntireRow.Select

- Chọn cả cột tại vị trí khối ô chọn:

Selection.EntireColumn.Select

- Xóa ô:

Range("A15").ClearContents

- Chọn nhiều Sheet trong 1 file (Theo số thứ tự từ trái qua phải):

Worksheets(Array(1, 2)).Delete

- Bỏ cột 1, 2, 3 sau khi dùng lệnh nhóm Subtotal:

Cells.ClearOutline

- Làm cho cả bảng tính về giá trị (Không còn công thức):

Cells.Copy: Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

- Ẩn toàn bộ giá trị bằng 0:

ActiveWindow.DisplayZeros = False

- Đặt số trang, giữ dòng tiêu đề và đặt trang nằm ngang:

ActiveSheet.PageSetup.CenterFooter = "Trang &P"
ActiveSheet.PageSetup.PrintTitleRows = "$6:$7"
ActiveSheet.PageSetup.Orientation = xlLandscape

* Chú ý:
Sheets(1) => Thể hiện Sheet thứ nhất từ bên trái ngoài cùng (Thể hiện số thứ tự của Sheet, không phải là tên Sheet1)
Sheets("Sheet1") => Thể hiện tên Sheet1 (Không phải là số thứ tự của Sheet)

 

[VetMini]

Công nghệ càng ngày càng thay đổi nhanh. Thế giới càng ngày càng tiến lại gần nhau. Tuỳ theo thời điểm mà dịch được hay không.
Ví dụ cách đây chục năm, dịch parameter và argument ra cái gì? Tôi không đến nổi yếu tiếng Việt lắm mà cũng chịu không biết phải phân biệt chúng ra sao.

 

[hoangexcell]

Thứ nhất: Đã xác định với nhau VBA là 1 ngôn ngữ, cho dù là của máy tính đi chăng nữa;
Đã là ngôn ngữ ngoài tiếng mẹ đẻ, thì trong quá trình học không ai là không phải trãi qua bước dịch sang ngôn ngữ mẹ để của mình.

Thêm nữa, theo mình trong các khâu đọc, nghe, nói , dịch chậm, dịch nhanh (dịch chạy) thì độ khó sẽ tăng lên & có nghĩa sự lĩnh hội của bạn về ngôn ngữ í đã tăng lên;

Những mong bạn không phản đối í kiến riêng này của mình & chúc cuối tuần vui vẻ!

Ai nói phản đối đâu nhỉ!? Vấn đề là dịch nghĩa là làm sao bạn?
Ý bạn:
Columns("d:d").select
Là
Cột("d:d").chọn !?

 

[nvl_198]

Sao những người biết cách trình bày, biết cách chỉnh sửa người khác thì lại không viết bài cho mọi người học hỏi nhỉ?
Có lẽ là: thùng rỗng kêu to.

 

[VetMini]

Sao những người biết cách trình bày, biết cách chỉnh sửa người khác thì lại không viết bài cho mọi người học hỏi nhỉ?
Có lẽ là: thùng rỗng kêu to.

Thùng rỗng có kêu cũng chả chết ai.
Cái thứ mít đặc lúc nó nhịn không nổi, kêu lên thì thối cả làng.

 

[tuanhuycntt]

Mấy bạn đòi hỏi thông dịch với trả biên dịch này nọ. Mình cũng đếch hiểu các bạn nghĩ gì. Mình vào diễn đàn từ 5/7/2015 đến tận 10/08/2017 mới tập tọe viết code VBA từ căn bản đến phức tạm. "Google biển cả mênh mông/ Không bơi ra học chổng mồng mà nằm chờ"
Bài biết của chủ topic thông dịch đến tận răng rồi mà các bạn vẫn còn hỏi nữa thì cũng pó tay. Khi bạn gõ bàn phím hỏi thì 1 thao tác đơn giản là Mở excel ra copy code VBA đó vào và RUN xem nó ra cái gì là khác biết. Ko biết thì ấn F1 lên trợ giúp ko được thì google. Cứ thụ động chờ người chỉ tay như cô giáo mầm non thì bạn nên bỏ tiền ra học 1 khóa học VBA đi.
Không có ý chê bai những Newbie mới học VBA đâu, nhưng các bạn phải chịu khó thì mới học được. VBA mình thấy code nó rất dễ hiểu. Từ khóa đã diễn tả được phần nào của chức năng lệnh. Nếu cần pm mình gửi cho ít tài liệu căn bản VBA hoặc trên forum có 1 topic chia sẻ học bằng hình ảnh rất hay. Các bạn nên tìm hiểu trước khi vào tranh luận nhé

Chúc 1 kỳ nghỉ lễ vui vẻ bên gia đình và người thân

 

[SA_DQ]

Mấy bạn đòi hỏi thông dịch với trả biên dịch này nọ.

Người viết bài đề xướng thông dịch các lệnh VBA sang tiếng Việt ê không fải iêu cầu cho bạn í đâu.

Theo mình, đó là iêu cầu đối với/cho những người mới chập chững con đường VBA đau khổ kia đây nha.

Chúc những ngày nghỉ lễ vui vẻ & hạnh phúc!

 

[VetMini]

Mấy bạn đòi hỏi thông dịch với trả biên dịch này nọ. Mình cũng đếch hiểu các bạn nghĩ gì. Mình vào diễn đàn từ 5/7/2015 đến tận 10/08/2017 mới tập tọe viết code VBA từ căn bản đến phức tạm. "Google biển cả mênh mông/ Không bơi ra học chổng mồng mà nằm chờ"

Vì không có mấy người giỏi tiếng Anh hơn tiếng Việt như bạn.

 

[minhtungph]

Nếu đã tự học thì hãy xác định sẵn trong đầu là hãy chuẩn bị 1 ý chí sắt đá, nếu con đường được người khác dọn thì khi đi bạn sẽ không có được cái cảm giác thỏa mãn, hãy thử tưởng tượng nếu 1 cái gì đó ta không biết, ta sẽ đưa ra cho nó 1 đóng giả thuyết về tác dụng của nó ( giả sử số giả thuyết là 100) bạn thử nghiệm hết 100 giả thuyết đó thì khi phát hiện ra quy luật của nó thì cảm giác vui ko tả được, nếu tự học hãy xem thầy Nguyễn Anh Tuấn là một tấm gương mà học tập nhé. thắc mắc cái gì thì lên mạng search, search được cái gì thì quăng vô VBE chạy, chạy lỗi dò hoài không hiểu, quăng lên GPE (đây là phương pháp học từ ngọn tới gốc , cực kì thích hợp cho người mới học VBA, còn pp học từ gốc đến ngọn thì trong diễn đàn theo mình biết có anh Nguyễn Duy Tuân)

 

[PacificPR]

Nếu đã tự học thì hãy xác định sẵn trong đầu là hãy chuẩn bị 1 ý chí sắt đá, nếu con đường được người khác dọn thì khi đi bạn sẽ không có được cái cảm giác thỏa mãn, hãy thử tưởng tượng nếu 1 cái gì đó ta không biết, ta sẽ đưa ra cho nó 1 đóng giả thuyết về tác dụng của nó ( giả sử số giả thuyết là 100) bạn thử nghiệm hết 100 giả thuyết đó thì khi phát hiện ra quy luật của nó thì cảm giác vui ko tả được, nếu tự học hãy xem thầy Nguyễn Anh Tuấn là một tấm gương mà học tập nhé. thắc mắc cái gì thì lên mạng search, search được cái gì thì quăng vô VBE chạy, chạy lỗi dò hoài không hiểu, quăng lên GPE (đây là phương pháp học từ ngọn tới gốc , cực kì thích hợp cho người mới học VBA, còn pp học từ gốc đến ngọn thì trong diễn đàn theo mình biết có anh Nguyễn Duy Tuân)

Biết đến bao giờ mới học được chút đỉnh của anh Nguyễn Duy Tuân đây. Thôi em theo cách của Thầy Ndu thôi

 

[VetMini]

Nếu đã tự học thì hãy xác định sẵn trong đầu là hãy chuẩn bị 1 ý chí sắt đá, nếu con đường được người khác dọn thì khi đi bạn sẽ không có được cái cảm giác thỏa mãn, hãy thử tưởng tượng nếu 1 cái gì đó ta không biết, ta sẽ đưa ra cho nó 1 đóng giả thuyết về tác dụng của nó ( giả sử số giả thuyết là 100) bạn thử nghiệm hết 100 giả thuyết đó thì khi phát hiện ra quy luật của nó thì cảm giác vui ko tả được, nếu tự học hãy xem thầy Nguyễn Anh Tuấn là một tấm gương mà học tập nhé. thắc mắc cái gì thì lên mạng search, search được cái gì thì quăng vô VBE chạy, chạy lỗi dò hoài không hiểu, quăng lên GPE (đây là phương pháp học từ ngọn tới gốc , cực kì thích hợp cho người mới học VBA, còn pp học từ gốc đến ngọn thì trong diễn đàn theo mình biết có anh Nguyễn Duy Tuân)

Nói nghe dễ. Đã thử 100 giả thuyết chưa?
Trung bình một vấn đề bạn nghĩ ra được chừng 3-5 giả thuyết là đã thông minh hơn ngừoi rồi.
Có khả năng nghĩ ra 100 kiểu và thử hết 100 kiểu đó thì đã là Tiến sĩ lâu rồi.

Tôi là ngừoi luôn luôn khuyến khích siêng học, và rất ít khi bỏ cuộc nhưng chưa hề dám nghĩ đến chuyện thử 100 lần.

Biết đến bao giờ mới học được chút đỉnh của anh Nguyễn Duy Tuân đây. Thôi em theo cách của Thầy Ndu thôi

Tự đặt cho mình câu hỏi: tại sao cần biết nhiều như vây?
Một khi trả lời được câu hỏi này thì sẽ học được.

 

[minhtungph]

Nói nghe dễ. Đã thử 100 giả thuyết chưa?
Trung bình một vấn đề bạn nghĩ ra được chừng 3-5 giả thuyết là đã thông minh hơn ngừoi rồi.
Có khả năng nghĩ ra 100 kiểu và thử hết 100 kiểu đó thì đã là Tiến sĩ lâu rồi.

Tôi là ngừoi luôn luôn khuyến khích siêng học, và rất ít khi bỏ cuộc nhưng chưa hề dám nghĩ đến chuyện thử 100 lần.

Em thật sự kính trọng thầy VetMini và các kiến thức của thầy mà em đã từng học, nhưng cái số 100 mà em nói là con số giả thuyết, áp dụng cho nhiều trường hợp, còn riêng với excel thì nó đã có rất lâu rồi, cái gì không hiểu thì search một tí là ra, còn nếu như thầy có đọc những tâm sự của GS. Ngô Bảo Châu thì thầy sẽ thấy, GS đã mất 2 năm suy nghĩ về bổ đề cơ bản mà chưa có thành quả ( đó là cái mới của nhân loại, còn học excel thì cái mới chỉ là mới đối với người học thôi), em nghĩ trong 2 năm đó chắc sẽ có đủ 100 giải thuyết, còn câu này nữa :"Tôi không thất bại. Tôi chỉ là đã tìm ra 10.000 cách không hoạt động" em nghĩ Thomas Edison chắc ko có nối dối làm gì.
Trân trọng. PMT

 

[VetMini]

còn câu này nữa :"Tôi không thất bại. Tôi chỉ là đã tìm ra 10.000 cách không hoạt động" em nghĩ Thomas Edison chắc ko có nối dối làm gì.
Trân trọng. PMT

Lúc tôi nói chuyện về con số, tôi đã đoán trước ngừoi phản ứng sẽ đưa ra ví dụ Edison.

Ngừoi ta chỉ nghe về những chuyện bề trước của Edison chứ ít ai chịu khó tìm hiểu thêm 1 cái sự thật rằng: "Lúc thực hiện bấy nhiêu thí nghiệm về cái bóng đèn, Edison có một nhà tài trợ là công ty tài chính của Carnegie"

Các nhà khoa học bỏ cuộc khong phải vì thiếu kiên nhẫn. Người ta chịu thua vì hết kinh phí.

Cho tôi đủ kinh phí, 1 triệu lần thất bại tôi cũng chịu được, nói chi 1 vạn.

 

[minhtungph]

Lúc tôi nói chuyện về con số, tôi đã đoán trước ngừoi phản ứng sẽ đưa ra ví dụ Edison.

Ngừoi ta chỉ nghe về những chuyện bề trước của Edison chứ ít ai chịu khó tìm hiểu thêm 1 cái sự thật rằng: "Lúc thực hiện bấy nhiêu thí nghiệm về cái bóng đèn, Edison có một nhà tài trợ là công ty tài chính của Carnegie"

Các nhà khoa học bỏ cuộc khong phải vì thiếu kiên nhẫn. Người ta chịu thua vì hết kinh phí.

Cho tôi đủ kinh phí, 1 triệu lần thất bại tôi cũng chịu được, nói chi 1 vạn.

dạ nếu em có nói sai thì thầy cho em xin lỗi ạ, tuy nhiên em cũng muốn cho các bạn đang bàn luận ở trên 1 ý kiến thôi ạ, nếu thấy họp thì tiếp thu còn ko họp thì lướt qua như chưa từng thấy ạ. cám ơn thầy.

 

[vudinhhuy.1988]

Mấy bạn đòi hỏi thông dịch với trả biên dịch này nọ. Mình cũng đếch hiểu các bạn nghĩ gì. Mình vào diễn đàn từ 5/7/2015 đến tận 10/08/2017 mới tập tọe viết code VBA từ căn bản đến phức tạm. "Google biển cả mênh mông/ Không bơi ra học chổng mồng mà nằm chờ"
Bài biết của chủ topic thông dịch đến tận răng rồi mà các bạn vẫn còn hỏi nữa thì cũng pó tay. Khi bạn gõ bàn phím hỏi thì 1 thao tác đơn giản là Mở excel ra copy code VBA đó vào và RUN xem nó ra cái gì là khác biết. Ko biết thì ấn F1 lên trợ giúp ko được thì google. Cứ thụ động chờ người chỉ tay như cô giáo mầm non thì bạn nên bỏ tiền ra học 1 khóa học VBA đi.
Không có ý chê bai những Newbie mới học VBA đâu, nhưng các bạn phải chịu khó thì mới học được. VBA mình thấy code nó rất dễ hiểu. Từ khóa đã diễn tả được phần nào của chức năng lệnh. Nếu cần pm mình gửi cho ít tài liệu căn bản VBA hoặc trên forum có 1 topic chia sẻ học bằng hình ảnh rất hay. Các bạn nên tìm hiểu trước khi vào tranh luận nhé

Chúc 1 kỳ nghỉ lễ vui vẻ bên gia đình và người thân