Áp dụng phương Pháp ghi nhớ nhanh của thầy Eran Katz (1 người xem)

[ap0ll02009]

Xin chào anh chị trong diễn đàn
Em hiện đang học 1 chương trình để ghi nhớ nhanh dựa vào những từ ngữ đã có sẵn ( những từ tiếng anh ) để quy chúng về con số
với quy ước như sau
[TABLE="width: 144"]
[TR]
[TD="width: 72"]S,Z[/TD]
[TD="class: xl65, width: 72"] là số 0[/TD]
[/TR]
[TR]
[TD]D,T , TH[/TD]
[TD="class: xl65"] là số 1[/TD]
[/TR]
[TR]
[TD]N[/TD]
[TD="class: xl65"] là số 2[/TD]
[/TR]
[TR]
[TD]M[/TD]
[TD="class: xl65"] là số 3[/TD]
[/TR]
[TR]
[TD]R[/TD]
[TD="class: xl65"] là số 4[/TD]
[/TR]
[TR]
[TD]L[/TD]
[TD="class: xl65"] là số 5[/TD]
[/TR]
[TR]
[TD]J , G[/TD]
[TD="class: xl65"] là số 6[/TD]
[/TR]
[TR]
[TD]K, C[/TD]
[TD="class: xl65"] là số 7[/TD]
[/TR]
[TR]
[TD]F, V[/TD]
[TD="class: xl65"] là số 8[/TD]
[/TR]
[TR]
[TD]P, b[/TD]
[TD="class: xl65"] là số 9[/TD]
[/TR]
[/TABLE]

Vậy ta sẽ có [TABLE="width: 216"]
[TR]
[TD="class: xl65, width: 72"]WHALE[/TD]
[TD="class: xl65, width: 72"]FISH[/TD]
[TD="class: xl65, width: 72"]LAMP[/TD]
[/TR]
[TR]
[TD="class: xl65"]5[/TD]
[TD="class: xl65"]80[/TD]
[TD="class: xl65"]539[/TD]
[/TR]
[/TABLE]


Vậy em muốn chuyển đổi nhanh từ những chữ bất kỳ thành con số thì như thế nào . Mong anh chị giúp đỡ

Ví dụ chuyển nhanh hàng loạt các tên quốc gia khu vực đông nam á theo chữ cái Latinh
( Laos , Vn, Cambodia .....)
anh chị xem file đính kèm
Xin cảm ơn !

 

[chuot0106]

Xin chào anh chị trong diễn đàn
Em hiện đang học 1 chương trình để ghi nhớ nhanh dựa vào những từ ngữ đã có sẵn ( những từ tiếng anh ) để quy chúng về con số
với quy ước như sau
.................................................................
Vậy em muốn chuyển đổi nhanh từ những chữ bất kỳ thành con số thì như thế nào . Mong anh chị giúp đỡ

Ví dụ chuyển nhanh hàng loạt các tên quốc gia khu vực đông nam á theo chữ cái Latinh
( Laos , Vn, Cambodia .....)
anh chị xem file đính kèm
Xin cảm ơn !

Đưa File sao không đưa kết quả mong muốn nữa vậy bạn?
----------------------------------------------------------------------
---------------------------------------------------------------------
Làm mò, bạn xem có đúng không nhé?

Public Function chuot0106(kt As String, data As Range) As String
Dim i As Long, tg As String, j As Long
For i = 1 To Len(kt)
For j = 1 To data.Rows.Count
If InStr(1, data(j, 1), UCase(Mid(kt, i, 1))) > 0 Then tg = tg & data(j, 2)
Next j
Next i
chuot0106 = tg
End Function

 

[SA_DQ]

Góp vui với nha:

Function gpeMa(StrC As String)
 Const Bo As String = "AEHIOQUWXY"
 Const Ma As String = "BCDFGJKLMNPRSTVZ"
 Const sO As String = "9718667532940180"
 Dim J As Byte, VTr As Byte
 
 StrC = UCase$(StrC)
 For J = 1 To Len(StrC)
    If InStr(Bo, Mid(StrC, J, 1)) Then
    Else
        VTr = InStr(Ma, Mid(StrC, J, 1))
        gpeMa = gpeMa & Mid(sO, VTr, 1)
    End If
 Next J
End Function

 

[anhnguyen83]

Xin chào anh chị trong diễn đàn
Em hiện đang học 1 chương trình để ghi nhớ nhanh dựa vào những từ ngữ đã có sẵn ( những từ tiếng anh ) để quy chúng về con số

Xin cảm ơn !

Học phương pháp nhớ nhanh, là mục tiêu không phụ thuộc thiết bị nữa, không cần thiết bị hiện đại mà vẫn nhớ tốt. Nhưng bạn lại đưa lên đây làm ngược lại rui. Dùng Excel nhớ hộ luôn, vậy học cách ghi nhớ nhanh làm gì nữa.

 

[ap0ll02009]

Trước tiên xin được cảm ơn anh chị đã đưa ra giải pháp . Vấn đề mọi người hỏi em xin trả lời thế này . bằng hình ảnh trực quan và hy vọng sẽ có nhiều người áp dụng được phương pháp này

Anh Howard sinh 19/7/1953 thì ta sẽ có được 2 cụm : 19 và 753 . Triển khai thì ta sẽ có được 2 từ Tape + Claim
Và trong đầu em chỉ cần hình dung ông ấy cầm 1 cái bịch có buộc 1 sợi dây và tuyên bố cho mọi người trước khán đài - thì em đã nhớ được ngày sinh của ông ấy . rất đơn giản 1 lần là nhớ mãi

 

[thangbithu]

Xin chào anh chị trong diễn đàn
Em hiện đang học 1 chương trình để ghi nhớ nhanh dựa vào những từ ngữ đã có sẵn ( những từ tiếng anh ) để quy chúng về con số
với quy ước như sau
[TABLE="width: 144"]
[TR]
[TD="width: 72"]S,Z[/TD]
[TD="class: xl65, width: 72"] là số 0[/TD]
[/TR]
[TR]
[TD]D,T , TH[/TD]
[TD="class: xl65"] là số 1[/TD]
[/TR]
[TR]
[TD]N[/TD]
[TD="class: xl65"] là số 2[/TD]
[/TR]
[TR]
[TD]M[/TD]
[TD="class: xl65"] là số 3[/TD]
[/TR]
[TR]
[TD]R[/TD]
[TD="class: xl65"] là số 4[/TD]
[/TR]
[TR]
[TD]L[/TD]
[TD="class: xl65"] là số 5[/TD]
[/TR]
[TR]
[TD]J , G[/TD]
[TD="class: xl65"] là số 6[/TD]
[/TR]
[TR]
[TD]K, C[/TD]
[TD="class: xl65"] là số 7[/TD]
[/TR]
[TR]
[TD]F, V[/TD]
[TD="class: xl65"] là số 8[/TD]
[/TR]
[TR]
[TD]P, b[/TD]
[TD="class: xl65"] là số 9[/TD]
[/TR]
[/TABLE]

Vậy ta sẽ có [TABLE="width: 216"]
[TR]
[TD="class: xl65, width: 72"]WHALE[/TD]
[TD="class: xl65, width: 72"]FISH[/TD]
[TD="class: xl65, width: 72"]LAMP[/TD]
[/TR]
[TR]
[TD="class: xl65"]5[/TD]
[TD="class: xl65"]80[/TD]
[TD="class: xl65"]539[/TD]
[/TR]
[/TABLE]


Vậy em muốn chuyển đổi nhanh từ những chữ bất kỳ thành con số thì như thế nào . Mong anh chị giúp đỡ

Ví dụ chuyển nhanh hàng loạt các tên quốc gia khu vực đông nam á theo chữ cái Latinh
( Laos , Vn, Cambodia .....)
anh chị xem file đính kèm
Xin cảm ơn !

Không hiểu gì hết.
Làm sao bạn tính ra đoạn này?


[TABLE="width: 216"]
[TR]
[TD="class: xl65, width: 72"]WHALE[/TD]
[TD="class: xl65, width: 72"]FISH[/TD]
[TD="class: xl65, width: 72"]LAMP[/TD]
[/TR]
[TR]
[TD="class: xl65"]5[/TD]
[TD="class: xl65"]80[/TD]
[TD="class: xl65"]539
[/TD]
[/TR]
[/TABLE]

 

[ap0ll02009]

Em xin trình bày thêm :
Lấy ví dụ trên cho con số 19 có nhiều lựa chọn
[TABLE="width: 493"]
[TR]
[TD="class: xl66, width: 146"]19:[/TD]
[TD="class: xl68, width: 347"]tip , tape , deep[/TD]
[/TR]
[/TABLE]
Vậy thì em sẽ có 1 trong các lựa chọn ( tip + claim ; deep + claim )

Như vậy dựa vào 1 cặp từ thì có thể triển khai đến 1 hình ảnh để ghi nhớ dễ hơn so với con số khô khan . Vấn đề của em là em không thể triển khai tay từng chữ trong tiếng anh thành con số ( vì nhiều từ quá ) . Vậy nên mới nhờ các anh chị giúp 1 hàm triển khai các từ thành số và gom lại

Lần sau khi em có 1 cặp từ ( ví dụ 14839 = 14+ 839 ) thì em sẽ tra từ các ô số đó ( ô số 14 và 839 ) xem có những từ nào hay hay và dễ kết hợp chúng lại rồi liên tưởng đến hình ảnh .
Em dốt VBA nên mong các anh chị giúp đỡ trong file bên dưới với nội dung :
Bước 1 : phân tích các chữ thành con số trong page 1 " So Lieu " ( chữ có sẵn )
Bước 2 : Gom tất cả những chữ có cùng 1 số vào page 2 " Gom Con So "

Muôn vàn cảm ơn các anh đã giúp đỡ

 

[ap0ll02009]

Không hiểu gì hết.
Làm sao bạn tính ra đoạn này?


[TABLE="width: 216"]
[TR]
[TD="class: xl65, width: 72"]WHALE[/TD]
[TD="class: xl65, width: 72"]FISH[/TD]
[TD="class: xl65, width: 72"]LAMP[/TD]
[/TR]
[TR]
[TD="class: xl65"]5[/TD]
[TD="class: xl65"]80[/TD]
[TD="class: xl65"]539[/TD]
[/TR]
[/TABLE]

Tức là em thay các con số trong ô theo thứ tự . Chữ nào ko có thì bỏ di
Whale = " " + " " + " "+5 " " = 5
Fish = "8" +" " +"0" +" " = 80

 

[ap0ll02009]

Học phương pháp nhớ nhanh, là mục tiêu không phụ thuộc thiết bị nữa, không cần thiết bị hiện đại mà vẫn nhớ tốt. Nhưng bạn lại đưa lên đây làm ngược lại rui. Dùng Excel nhớ hộ luôn, vậy học cách ghi nhớ nhanh làm gì nữa.

anh chưa hiểu ý em rồi . Em có ghi ví dụ bên dưới và có hình ảnh, anh xem nhé

 

[SA_DQ]

Em xin trình bày thêm :

Như vậy dựa vào 1 cặp từ thì có thể triển khai đến 1 hình ảnh để ghi nhớ dễ hơn so với con số khô khan . Vấn đề của em là em không thể triển khai tay từng chữ trong tiếng anh thành con số ( vì nhiều từ quá ) . Vậy nên mới nhờ các anh chị giúp 1 hàm triển khai các từ thành số và gom lại

Lần sau khi em có 1 cặp từ ( ví dụ 14839 = 14+ 839 ) thì em sẽ tra từ các ô số đó ( ô số 14 và 839 ) xem có những từ nào hay hay và dễ kết hợp chúng lại rồi liên tưởng đến hình ảnh .
Em dốt VBA nên mong các anh chị giúp đỡ trong file bên dưới với nội dung :
Bước 1 : phân tích các chữ thành con số trong page 1 " So Lieu " ( chữ có sẵn )
Bước 2 : Gom tất cả những chữ có cùng 1 số vào page 2 " Gom Con So "

Mình thấy hàm tự tạo =gpeMa(Chuoi) đã đúng hết với file bạn đưa lên rồi mà!
Hay là bạn chưa biết xài?, cú fáp cũng không có gì fức tạp mà!


Chuyện này hình như chỉ mã hóa 1 chiều thôi; Giải mã thì không được.

 

[ap0ll02009]

Mình thấy hàm tự tạo =gpeMa(Chuoi) đã đúng hết với file bạn đưa lên rồi mà!
Hay là bạn chưa biết xài?, cú fáp cũng không có gì fức tạp mà!


Chuyện này hình như chỉ mã hóa 1 chiều thôi; Giải mã thì không được.

Em thử copy cái hàm ấy vào file mới này nhưng lại ko biết chỉnh sửa sao nữa vì dốt VBA . Mong anh giúp đỡ
Với lại em đã thử cách của 1 anh trình bày " chuot0106" thì em đã làm được nhưng em lại không biết cách gom tất cả các số từ page " So lieu " sang page " Gom so " . ANh chỉ giùm em với ạ

 

[ap0ll02009]

Đưa File sao không đưa kết quả mong muốn nữa vậy bạn?
----------------------------------------------------------------------
---------------------------------------------------------------------
Làm mò, bạn xem có đúng không nhé?

Public Function chuot0106(kt As String, data As Range) As String
Dim i As Long, tg As String, j As Long
For i = 1 To Len(kt)
For j = 1 To data.Rows.Count
If InStr(1, data(j, 1), UCase(Mid(kt, i, 1))) > 0 Then tg = tg & data(j, 2)
Next j
Next i
chuot0106 = tg
End Function

Xin cảm ơn anh. Em áp dụng theo anh thì được rồi . Cảm ơn anh nhiều
Nếu anh có thể thì giúp em thêm chút nữa với . EM muốn copy tất cả các từ có chung 1 kết quả là những con số giống nhau sang 1 mục ở page " Gom con số " . Anh có thể ra tay giúp em lần nữa được không .
Nếu anh ở ngoài bắc thì xin cafe hậu tạ

 

[chuot0106]

Xin cảm ơn anh. Em áp dụng theo anh thì được rồi . Cảm ơn anh nhiều
Nếu anh có thể thì giúp em thêm chút nữa với . EM muốn copy tất cả các từ có chung 1 kết quả là những con số giống nhau sang 1 mục ở page " Gom con số " . Anh có thể ra tay giúp em lần nữa được không .
Nếu anh ở ngoài bắc thì xin cafe hậu tạ

Hàm "gom" số của bạn đây!

Public Function gom(ma As String, vung As Range)
Dim kq As String, i As Long, j As Long
For i = 1 To vung.Rows.Count
For j = 2 To vung.Columns.Count Step 2
If vung(i, j) = ma Then kq = kq & vung(i, j - 1) & ", "
Next j
Next i
If Len(kq) Then
gom = Left(kq, Len(kq) - 2)
Else
gom = ""
End If
End Function