Em nghĩ công thức là đủ, sao lại phải VBA nhỉ?
nguy hiểm quá, hóng

Em nghĩ công thức là đủ, sao lại phải VBA nhỉ?
Bác vừa phải thôi chứ,ko giúp thì thôi để người khác giúp.Mình có việc cần mình mới nhờ tới mọi người chứ sao bác nói thế?Cái này là lãng phí tài nguyên, tôi nghĩ không nên giúp.
Nên tôi không thể giúp được.Dạ,em tạo mail rác để khảo sát các bác ạ chứ ko có hại gì hết á![]()
Không phải "Nguy hiểm" mà là "Hết sức nguy hiểm"... Tôi & các Thành viên GPE hóng hồi sáng tới bây chừ...mà chưa được thưởng thức..ấy chứ...![]()
![]()
![]()
Hình như công thức chưa tính hết các trường hợp yêu cầu của chủ thớt thì phải.
Theo như bài 1 thấy có ít nhất ~ 9 nhóm trường hợp
Nhóm 1 là có 1 dấu "." chạy từ sau ký tự thứ nhất tới sát ký tự trước @
Nhóm 2 là có 2 dấu "." cũng chạy như trên
Nhóm 3 là có 3 dấu "." cũng chạy như trên...
cho tới có 9 dấu "."
Không thấy chủ thớt phản hồi nên đoán đại vậy.
Nếu đúng là thế thì vẫn rất muốn ppc0312 thể hiện 1 lần cho mở rộng tầm mắt
---
Chỉ là mượn bài của bác BaTê để có cơ hội tìm hiểu thêm công thức của ppc0312, không có ý gì khác.
Bây h e muốn tạo dấu chấm "." lần lượt chèn vào giữa các kí tự như sau
1) c.onghung02@gmail.com , co.nghung02@gmail.com , con.ghung02@gmail.com .v.v..
2) c.o.nghung02@gmail.com , c.on.ghung02@gmail.com , c.ong.hung02@gmail.com v.v
...
đến
9) c.o.n.g.h.u.n.g.0.2@gmail.com
Thật là đáng tiếc khi không thể chiêm ngưỡng được công thức của bạn.Rất tiếc xin lỗi bạn, vì lý do:
Nên tôi không thể giúp được.
Không nguy hiểm đâu có thể làm công thức ra đủ 9 nhóm trường hợp như HungQuoc49 phân tích ở đây, tất nhiên mỗi email tạo ra ở 1 cell riêng lẻ. Nhưng rất tiếc là không giúp được bạn ấy vì tôi không muốn bị mail rác. Riêng sms rác cũng mệt rui
Thật là đáng tiếc khi không thể chiêm ngưỡng được công thức của bạn.
Có lẽ cũng nên phô diễn tí kỹ năng để khẳng định câu nói của mình.
Liệu bạn có thể ?
Thêm tí nữa cho nó vui: right(),int(),mod() cho bài này.Không có gì cao siêu đâu, kỹ năng thường thường ấy mà: left, mid, và & , kết hợp linh động tính toán ra vị trí dấu "." với rows(..) ,columns(...) là được (nhờ 2 hàm này trải ra trên vùng bảng tính thì sẽ có kết quả). bật mí nữa thành không còn bí mật.
Thêm tí nữa cho nó vui: right(),int(),mod() cho bài này.
Xưa có "thuyết trăm voi", tưởng là xạo, giờ mới biết là thật.
Bạn nói đến rác nhiều quá mà chẳng có thể hiện gì để chứng thực.Nếu muốn thì bạn có thể mở chủ đề mới, với bài gần tương tự , không liên quan mail rác tôi sẽ đưa công thức lên (chỉ trường hợp không thấy nguy hại chung , còn thấy thì cũng không), còn ở chủ đề này thì dính đến mail rác nên không thể. Vì trăm voi hay nghìn voi thì cũng không thể ảnh hưởng rác cho cộng đồng được.
Bạn nói đến rác nhiều quá mà chẳng có thể hiện gì để chứng thực.
Với cá nhân tôi thì có lẽ bạn không thể giải quyết bài này bằng công thức.
Lập chủ đề mới có lẽ cũng chẳng có kết quả gì, mất công.
Nếu tôi sai thì bạn hãy chứng minh là mình đúng xem sao, với một bài công thức tương tự theo sở trường của bạn.
Liệu chứng minh được ?
Thôi thì làm thử nhóm trường hợp có 1 dấu "."Rất tiếc tôi không cần chứng minh với bạn làm gì. Giúp cho người hỏi thì mới cần thiết. Nhưng không giúp được chủ topic vì lý do tôi đã nói.
Public Sub ppc0312()
Dim Chuoi, Tam, kq(), i As Long
Chuoi = Split("conghung02@gmail.com", "@")(0)
i = (Len(Chuoi) - 1) * 2 + 1
ReDim Tam(1 To i), kq(1 To 65000, 1 To 1)
For i = 1 To Len(Chuoi)
Tam((i - 1) * 2 + 1) = Mid(Chuoi, i, 1)
Next i
For i = 1 To Len(Chuoi) - 1
Chuoi = Tam
Chuoi(i * 2) = "."
kq(i, 1) = Replace(Join(Chuoi), " ", "")
Next i
Sheet1.UsedRange.Clear
Sheet1.Range("A1").Resize(i, 1) = kq
End Sub
Các cụ đã bảo "Thùng rỗng thì kêu to " rồi mà....quả không sai phải không bạn?
Thôi bạn dẹp quách cái kiểu đạo đức "vì lợi ích chung"...."nguy cơ phương hại cộng đồng". Có cái công thức excel thôi mà...
Tôi thừa biết từ đầu là bạn chả biết tí gì hết...chẳng qua tham gia trả lời là muốn bạn hành đồng & lời nói của mình như thế nào ở GPE này thôi.
đã không biết thì nói không biết, còn bày đặt...làm ra vẻ ta đây...
NÓi túm lại: GPE không chấp người người nguy hiểm như bạn đâu...
Ngày xưa Các cụ có câu: "biết thì thưa thốt không biết thì dựa cột mà nghe"
Ngày nay Lớp trẻ nó lại có câu: "Ngu mà tỏ ra nguy hiểm"
Tuy hai câu nó không ăn nhậu gì với nhau hết...Nhưng kể ra dùng cũng được!!!
Như vậy chưa đủ đâu anh, còn cai.gi.do@yahoo.com (và những trường hợp khác) nữa.Nếu đề bài cho caigido@yahoo.com mà kết quả 2 kiểu là:
1) c.aigido@yahoo.com (1 cell); ca.igido@yahoo.com (1 cell); cai.gido@yahoo.com (1 cell).......caigid.o@yahoo.com (1 cell)
2) c.aigido@yahoo.com (1 cell); c.a.igido@yahoo.com (1 cell); c.a.i.gido@yahoo.com (1 cell).....c.a.i.g.i.d.o@yahoo.com (1 cell)
Thì dùng công thức hay code gì cũng.....đơn giản như nhau thôi
Híc
Làm trường hợp của anh theo cách khác:Thôi thì làm thử nhóm trường hợp có 1 dấu "."
Với 9 cái mail rác thì có lẽ cũng chẳng có gì là tội lỗi đối với > 6 tỉ người
---Mã:Public Sub ppc0312() Dim Chuoi, Tam, kq(), i As Long Chuoi = Split("conghung02@gmail.com", "@")(0) i = (Len(Chuoi) - 1) * 2 + 1 ReDim Tam(1 To i), kq(1 To 65000, 1 To 1) For i = 1 To Len(Chuoi) Tam((i - 1) * 2 + 1) = Mid(Chuoi, i, 1) Next i For i = 1 To Len(Chuoi) - 1 Chuoi = Tam Chuoi(i * 2) = "." kq(i, 1) = Replace(Join(Chuoi), " ", "") Next i Sheet1.UsedRange.Clear Sheet1.Range("A1").Resize(i, 1) = kq End Sub
Nhờ bạn cho ý kiến để rộng đường hiểu biết
Public Sub mail()
Dim i As Long, j As Long, mau As String, vt As Long, kq(), tmp As String
tmp = Sheet1.Range("A2")
vt = InStr(1, tmp, "@") - 1
mau = Left(tmp, vt)
ReDim kq(1 To vt, 1 To 1)
For i = 1 To vt
kq(i, 1) = Left(mau, i) & "." & Right(mau, vt - i) & "@gmail.com"
Next i
Sheet1.Range("B2").Resize(vt, 1) = kq
End Sub
Cảm ơn bạn! Không biết mail có dấu "." trước @ có là mail hợp lệ không?Cách của bạn sẽ dư ra 1 dâu chấm trước @, lẻ ra dấu này phải không có mới đúng (Kết quả ngay vt cuối cùng)
Thôi bạn dẹp quách cái kiểu đạo đức "vì lợi ích chung"...."nguy cơ phương hại cộng đồng". Có cái công thức excel thôi mà...
Tôi thừa biết từ đầu là bạn chả biết tí gì hết...chẳng qua tham gia trả lời là muốn bạn hành đồng & lời nói của mình như thế nào ở GPE này thôi.
đã không biết thì nói không biết, còn bày đặt...làm ra vẻ ta đây...
NÓi túm lại: GPE không chấp người người nguy hiểm như bạn đâu...
Ngày xưa Các cụ có câu: "biết thì thưa thốt không biết thì dựa cột mà nghe"
Ngày nay Lớp trẻ nó lại có câu: "Ngu mà tỏ ra nguy hiểm"
Tuy hai câu nó không ăn nhậu gì với nhau hết...Nhưng kể ra dùng cũng được!!!
Vậy, bạn cứ làm hài lòng người ta bằng cách mở topic mới, đặt vấn đề tương tự nhưng không liên quan gì đến việc tạo mail rác, rồi người ta sẽ biểu diễn cho bạn thấyNếu muốn thì bạn có thể mở chủ đề mới, với bài gần tương tự , không liên quan mail rác tôi sẽ đưa công thức lên (chỉ trường hợp không thấy nguy hại chung , còn thấy thì cũng không), còn ở chủ đề này thì dính đến mail rác nên không thể. Vì trăm voi hay nghìn voi thì cũng không thể ảnh hưởng rác cho cộng đồng được.