Cái khó hiểu ở đây là em đang hiểu toàn bộ công thức nó là 1 chuỗi duy nhất, rồi gán cái chuỗi công thức xuống ô. Vậy nên em nghĩ chỉ cần bao trùm toàn bộ chuỗi trong 1 cặp nháy là đủ.
Khi viết công thức excel thì """, hay """" cũng thi thoảng em gặp, nhưng là để trả kết quả là text có dấu ". Cái này thì rõ ràng rồi.
Vấn đề giờ là phải thêm 4 nháy riêng vào, vậy nghĩa là máy tính phải đọc từng ký tự, rồi khi gặp """", nó mới hiểu được là 2 nháy. Thế thì lẽ ra ' cũng phải được đặt trong " ' " và cả dấu ( , : !, ... cũng phải đặt riêng trong cặp "" riêng biệt.
Cái này mới cần lý thuyết vì nó hơi xa so với cách hiểu thông thường của em, bác ạ.
Cái khó hiểu ở đây là em đang hiểu toàn bộ công thức nó là 1 chuỗi duy nhất, rồi gán cái chuỗi công thức xuống ô. Vậy nên em nghĩ chỉ cần bao trùm toàn bộ chuỗi trong 1 cặp nháy là đủ.
Nếu gắn "=If(A1 = "",1,0)" vào B1 thì xảy ra chuyện gì? Làm sao VBA phân biệt " nào là bọc chuỗi và " nào chính là chuỗi?
' cũng là chuỗi, và cũng cần bỏ vào trong "" như thường.
Nếu ' nằm đơn lẻ và cần nối vào đâu đó thì nó là chuỗi, và cần "'", chẳng hạn TenSheet là 1 biến:
TenSheet = "Tháng 10"
thamchieu = "'" & TenSheet & "'!A1"
Nếu ' nằm trong chuỗi tên sheet như tham chiếu 'Tháng 10'!A1, thì nguyên cục đó là chuỗi rồi, cần "'Tháng 10'!A1" chứ cần gì tách ra rồi nối vào.
[B1] = "=If(A1 = "",1,0)"
Kết quả ------------> =If(A1 = "",1,0) nghĩa là lấy chuỗi lọt trong nháy. Nhưng không được, lỗi, sửa 4 nháy thì được.
Có thể cái này phải hiểu 1 cách gượng ép đó là quy ước.
Và thử cái này với Immediate (2 3 4 5 6 nháy kép):
[B1] = "" & """ & """" & """"" & """"""
Kết quả ------------> " & "" & """" Thật là đau lòng con cuốc cuốc và không biết & là & nào và nháy " là nháy " nào luôn bác ạ.
Option Explicit
Sub Luuvaodata()
Dim lr As Long, i As Long
'Kiem tra dieu kien
For i = 5 To 17
If Shfrom.Range("F" & i).Value = False Then
MsgBox Shfrom.Range("H" & i).Value
Shfrom.Range("B" & i).Select
Exit Sub
End If
Next i
'Luu vao data
With shdata
lr = .Range("A" & Rows.Count).End(xlUp).Row + 1
Shfrom.Range("AA6:AM6").Copy 'copy
.Range("A" & lr).PasteSpecial xlPasteValues 'paste
Application.CutCopyMode = False
reset 'xoa nhap lai tu dau
MsgBox "Xong!"
End With
End Sub
Sub reset()
With Shfrom
.Range("b6:b16").ClearContents
.Range("B5") = "=MAX('data Ke toan'!A:A)+1"
.Range("B8") = "=c8" (*---*)
' .Range("B8") = "=IFERROR(VLOOKUP(B7;'danh sach'!$G$2:$H$259;2;0);"")"
'công thức này nhét sẵn vào ô C8, để cho (*---*) chạy được (chỉ là chữa cháy thôi)
End With
End Sub
Bài đã được tự động gộp:
bác thường giải thích cho em cái vụ công thức báo lỗi với ạ.
Option Explicit
Sub Luuvaodata()
Dim lr As Long, i As Long
'Kiem tra dieu kien
For i = 5 To 17
If Shfrom.Range("F" & i).Value = False Then
MsgBox Shfrom.Range("H" & i).Value
Shfrom.Range("B" & i).Select
Exit Sub
End If
Next i
'Luu vao data
With shdata
lr = .Range("A" & Rows.Count).End(xlUp).Row + 1
Shfrom.Range("AA6:AM6").Copy 'copy
.Range("A" & lr).PasteSpecial xlPasteValues 'paste
Application.CutCopyMode = False
reset 'xoa nhap lai tu dau
MsgBox "Xong!"
End With
End Sub
Sub reset()
With Shfrom
.Range("b6:b16").ClearContents
.Range("B5") = "=MAX('data Ke toan'!A:A)+1"
.Range("B8") = "=c8" (*---*)
' .Range("B8") = "=IFERROR(VLOOKUP(B7;'danh sach'!$G$2:$H$259;2;0);"")"
'công thức này nhét sẵn vào ô C8, để cho (*---*) chạy được (chỉ là chữa cháy thôi)
End With
End Sub
Bài đã được tự động gộp:
bác thường giải thích cho em cái vụ công thức báo lỗi với ạ.
đúng là như thế. Và trong vba quy định thêm về việc tạo chuỗi hằng số là 1 dấu nháy kép sẽ được viết là 2 dấu nháy kép. Quy tắc này chỉ đúng khi định nghĩa chuỗi hằng số.
A="abc"123" sẽ lỗi vì khi dịch tới dấu " thứ 2 vba thấy ký tự kế tiếp không phải là 1 nháy kép. Nó nghĩ đó là dấu hiệu của việc kết thúc định nghĩa chuỗi "abc". Và 123" trở thành vô duyên không có nghĩa.
A="abc""123" thì "" sẽ được hiểu là 1 nháy kép. Kết quả a là:abc"123
Thế còn a="abc"" thì sẽ như nào thì bạn tự tìm hiểu
Hệ thống tuyên truyền của Trung Quốc quá hay, nhiều bạn trẻ Việt Nam chạy theo dùng tiếng Trung Quốc dần bỏ quên ngôn ngữ thuần Việt!
"Cao nhơn" là tiếng Hán Việt , tiếng Hán viết theo chữ Việt
Nhiều người quan niệm "không thích thì cứ bỏ qua, phê phán mà chi"
Theo nguyên tắc "vàng xấu sẽ đẩy vàng tốt ra khỏi thị trường".
Nếu cứ mặc mấy cái từ "tiên tiếc" ấy thì không bao lâu sẽ thấy diễn đàn toàn là:
Nhờ cao nhơn..., Các cao thủ giúp e..., Thưa các tiền bối...
Rõ ràng là gần đây, đám này càng lúc càng nhiều.
Bạn vào đám côn đồ nói chuyện một thời gian sẽ có khả năng chính mình nói chêm tiếng chửi thề.
Nhiều người quan niệm "không thích thì cứ bỏ qua, phê phán mà chi"
Theo nguyên tắc "vàng xấu sẽ đẩy vàng tốt ra khỏi thị trường".
Nếu cứ mặc mấy cái từ "tiên tiếc" ấy thì không bao lâu sẽ thấy diễn đàn toàn là:
Nhờ cao nhơn..., Các cao thủ giúp e..., Thưa các tiền bối...
Rõ ràng là gần đây, đám này càng lúc càng nhiều.
Bạn vào đám côn đồ nói chuyện một thời gian sẽ có khả năng chính mình nói chêm tiếng chửi thề.
Hồi nhỏ trước nhà mình là chợ cá, kế đó là trại gia binh, chửi thề là câu cửa miệng. Lên Sài Gòn sống trong ký túc xá gần chợ cầu muối, anh em phải đoàn kết và tỏ ra cứng mới không bị ăn hiếp, nhưng trong giao tiếp dần lịch sự hơn.
Theo đúng luật thì dấu " ở đầu là mở đầu chuỗi, và dấu " cuối cùng dùng để kết chuỗi.
Để có thể nhét dấu " vào giữa chuỗi, hầu hết các ngôn ngữ có thêm lệ rằng bên trong chuỗi, cứ hai dấu " liên tiếp thì coi như là một dấu " nằm trong chuỗi.
Trình dịch (compiler) có giới hạn lô gic của nó. Nếu bạn cố tình làm rắc rối thì nó sẽ báo lỗi không dịch được, hoặc bắt buộc phải đoán. Cái "đoán" của nó là cái bạn cần tránh. Cứ tránh cho chắc ăn, không rầy rà tìm hiểu thêm.
Tôi cứ theo nguyên tắc "rắc rối thì chia để trị", ngắt ra từng đoạn để kiểm soát.
Nếu chỗ nào rối quá hoặc quên, không biết đặt dấu nháy thế nào thì cứ viết rồi thử trong cửa sổ Immediate. Chỗ nào sai thì ta lại thêm bớt dấu nháy kép
Chưa record bác ạ. Bằng kỹ thuật mò mẫm đỉnh cao thì:
- Trong sheet, quy tắc là dấu nháy đầu tiên luôn là mở chuỗi.
+ Sau mà chỉ có 1 nháy duy nhất thì đóng chuỗi. VD "" (mở+1) là rỗng.
+ Sau mà 2 nháy cạnh nhau thì biến thành 1 nháy (nháy là TEXT chứ không phải nháy). VD """ (mở+2) là " nhưng vì thiếu " đóng chuỗi nên sẽ lỗi. Đủ là phải 4 nháy để có mở, có nháy TEXT, có đóng chuỗi. VD """" -> ".
Ảnh vẽ trên là minh họa cho cái tưởng tượng này.
- Trong VBA,
+ Chuỗi luôn được đặt trong ngoặc kép mở và đóng chuỗi.
+ Nếu hiểu " là TEXT thì luôn luôn phải gấp đôi. VD 100 nháy kép thì kết quả trả về cells sẽ là 50 nháy TEXT.
Immediate của bác là minh họa ý này. 4/2 và 8/2 nháy.
Đã nói quý vị nên tránh trường hợp trình dịch cố diễn để tránh lỗi.
Cái nào rắc rói thì hãy để dấu ngoặc giúp cho.
Biểu thức 2 và 4 ngắn hơn biểu thức 1 và 3 một dấu ".
Biểu thức 3, compile nghiêm chỉnh bởi dấu () sẽ cho ra đúng như ý.
Biểu thức 4, compile nghiêm chỉnh sẽ lòi ra là nó thiếu 1 dấu ", VBA phản đối.
