Cũng phải có 1 gợi ý gì đó chứ (chẳng hạn yêu cầu TÌM CÁI GÌ)
Vậy yêu cầu cụ thể là: Trong file có một cái Logo của GPE, hãy làm cho nó hiện ra.
Vậy yêu cầu cụ thể là: Trong file có một cái Logo của GPE, hãy làm cho nó hiện ra.
Gợi ý: Dùng Excel 2007 trở về sau mới tìm được.
Nhanh vậy ta. Chắc tại gợi ý lộ quá
Giải thưởng là 2 chai sữa bắp.
Nhanh vậy ta. Chắc tại gợi ý lộ quá
Tưởng anh tìm ra được rồi chứ. Cái này chưa đúng lắm. Phải hiện ra cái Logo giống như cái logo của diễn đàn cơ
Tưởng anh tìm ra được rồi chứ. Cái này chưa đúng lắm. Phải hiện ra cái Logo giống như cái logo của diễn đàn cơ
Logo giống như logo ở bài #3 đó anh.Nếu thế thì cách khác, không biết có đúng không
Chính xác. Anh qua gặp Lão Chết Tiệt lấy hai chai sữa bắp nhaChỉnh màu lại là giống
View attachment 64291
Rinh 2 chai sửa bắp được chưa em
Em dùng PM nào mà ra được bộ số liệu đó vậy?
Em dùng Excel thôi.
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As LongSub Scan()
Dim Area As POINTAPI
Dim lColor As String
Dim winHwnd As Long
Dim HoanhDo As Long, TungDo As Long
winHwnd = GetWindowDC(0)
Call GetCursorPos(Area)
HoanhDo = Area.x
TungDo = Area.y
For i = 95 To TungDo
For j = 29 To HoanhDo
lColor = GetPixel(winHwnd, j, i)
Sheet2.Cells(i - 94, j - 28).Value = lColor
Next
Next
End SubSheet2.Cells(i - 94, j - 28).Value = lColorSheet2.Cells(i - 94, j - 28).Interior.Color = lColorCó lẽ do cái logo đơn giản quá nên Anh dùng CF là thấy. Nếu hình có nhiều tông màu khác nhau thì khó mà thí nghiệm bằng CF với điều kiện thông thường được.
Mấy hàm API làm được rất nhiều trò đấy! Chẳng hạn là trò trong file dưới đây
Cái vụ scan hình này có nghe lâu rồi, giờ thấy HuuThang Và NDU làm mới thấy. Quá hay.
Thì em cũng chế cái vụ scan này từ code lấy màu tại vị trí con trỏ chuột sưu tầm được mà
Làm sao làm tô cho giống là được rồi anh. Nhưng mà phải là tô màu không được dùng Object đâu đấy.
Tôi không tô màu nền, cũng không dùng Object mà tô màu chữ ---> Dùng Symbol hình vuông (3 symbol) ---> Bởi vậy không chắc có đúng ý bạn không?
Tô màu chữ cũng là tô màu. Anh tô vậy là hợp lệ rồi.
Bạn làm và chụp hình lại rồi gửi lên cho mọi người xem thử nhé.
Được luôn. Bạn gửi lên đi.
Không biết Thắng có ý kiến gì? Và giải pháp của riêng bạn thì thế nào nhỉ?
Cái này sao giống lấy dòng 1 giả lập quá vậy? Chứ Column Header thì làm gì có cửa chỉnh sửa
Bạn chụp lại hình có cả dòng 1 mình xem thử (có luôn thanh Ribbon càng tốt)
Vậy tôi xin hỏi thêm: Excel 2003 có làm được điều này không?
Mình nhớ không lầm thì nếu như tạo bảng đúng chuẩn của Excel thì khi di chuyển xuống phía bên dưới nó hiện tiêu đề của cột. Hỏng biết có phải vậy không?
Ý tưởng thì cũng như vậy nhưng em dùng ký tự khác. Một ký tự có sẵn trong font Webdings luôn.
Không biết mình có thể tạo 1 Pattern Style để thay thế các Style sẵn có của Excel.
Em nghĩ chắc là không được đâu.
1 ví dụ cho trường hợp NumberText
=LEFT($A1,COUNT(IF(ISERROR(1*MID($A1,ROW(INDIRECT("1:"&LEN($A1))),1)),"",1)))
Hàm mảng thì phải Ctrl + Shift + Enter chứEm đã thử công thức trên nhưng sao chỉ tách được số đầu tiên thôi anh ơi.
Ờ hén... Đúng là không có gì qua mặt được bác ndu... ẹc ẹc...
Tui nghĩ hổng phải vậy! Chắc là vì "đi tới đi lui, đi lùi đi tới..." cả ngày nên nghiaphuc bị... hoa mắt đây
Thêm một cách khác:
=LEFT(A1,SUMPRODUCT(LEN(A1)-LEN(SUBSTITUTE(A1,ROW($1:$10)-1,""))))Đúng ra thì bài này đã từng làm trên GPE nhiều lần rồi. Vậy có gì đâu mà ĐỐ hả Thắng?
Đương nhiên là không được dùng cột phụ chứ anh. Name cũng chỉ mang tính chất rút gọn công thức thôi. Dùng cũng được, không dùng thì càng tốt.
Thôi thì Thắng làm bài này mà không dùng name xem thử
Anh đưa cách làm của anh lên thử đi. Em làm một công thức duy nhất cũng chỉ làm được ở Excel 2007 trở về sau. Excel 2003 bị lỗi do số hàm lồng nhau vượt quá cho phép.
Thì đó... tôi làm trên Excel 2003 và cũng bị lỗi này
Temp =IF(ISNUMBER(1*MID($A2,ROW(INDIRECT("1:"&LEN($A2))),1)),ROW(INDIRECT("1:"&LEN($A2))),"")=IF(COUNT(Temp)=0,"",SUMPRODUCT((1*MID($A2,SMALL(Temp,ROW(INDIRECT("1:"&COUNT(Temp)))),1))*(10^(COUNT(Temp)-ROW(INDIRECT("1:"&COUNT(Temp)))))))
Em nghĩ công thức của anh Ndu chỉ cần tới đây là đủ rồi đâu cần lồng hàm "If(iserror)" vào
=RIGHT(A1;COUNT(1*MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)))Em cũng làm giống như anh nhưng thêm hàm TEXT() để không mất các số 0 đứng đầu và dùng hàm LARGE() thay cho hàm SMALL() để công thức gọn hơn một chút.
=IF(COUNT(Temp)=0,"",TEXT(SUMPRODUCT((1*MID($A2,LARGE(Temp,ROW(INDIRECT("1:"&COUNT(Temp)))),1))*(10^(ROW(INDIRECT("1:"&COUNT(Temp)))-1))),REPT(0,COUNT(Temp))))=SUBSTITUTE(A2, TRIM(LEFT(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789")-1))), "")=1*LEFT(A1,MAX(NOT(ISERROR(1*(LEFT($A1,ROW(OFFSET($A$1,0,0,LEN($A1),1))))))*ROW(OFFSET($A$1,0,0,LEN($A1),1))))=SUM(MID(A1,LARGE(ISNUMBER(--MID(A1,ROW($1:$25),1))*ROW($1:$25),ROW($A$1:INDEX($A:$A,COUNT(--MID(A1,ROW($1:$25),1))))),1)*10^(ROW(INDEX($1:$25,COUNT(--MID(A1,ROW(INDEX($1:$25,1,1):
INDEX($1:$25,LEN(A1),1)),1)),1):INDEX($1:$25,1,1))-1))=SUMPRODUCT(MID(0&A1,LARGE(INDEX(ISNUMBER(--MID(A1,ROW($1:$25),1))*ROW($1:$25),0),ROW($1:$25))+1,1)*10^ROW($1:$25)/10)=SUM(MID(0&A2,LARGE(ISNUMBER(--MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))*ROW(INDIRECT("1:"&LEN(A2))),ROW(INDIRECT("1:"&LEN(A2))))+1,1)*10^ROW(INDIRECT("1:"&LEN(A2)))/10)=REGEX.SUBSTITUTE(A3,"a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z","")=REGEX.SUBSTITUTE(A2,"0|1|2|3|4|5|6|7|8|9","")Ẹc... Ẹc... nếu phải dựa vào Add-In tải từ nước ngoài sao ta không tự mình lập trình lấy... Vụ tách lấy number, text có đầy trên GPE rồi còn gì
Nói về MoreFunc thì tôi đã có từ lâu lắm rồi (từ ngày mới gia nhập diễn đàn)... nhưng nói thật, ít khi nào tôi dùng đến các Add-In (trừ những trường hợp bất khả kháng)...
Tôi đảm bảo nếu viết riêng cho từng trường hợp cụ thể thì tự viết sẽ hiệu quả hơn các Add-in sẵn có. Ví dụ như bạn nói hàm tách số. Trong chuỗi ngoài số ra đâu chỉ có các ký tự từ a đến z, còn các ký tự khác nữa mà (".", ",", "@", "$", "%", "(", ")",...). Trong khi dùng VBScript.RegExp một phát là xong.
Thì bạn làm luôn đi... chỉ có việc tập hợp lại thôi mà
Tôi có ý kiến thế này:
To Learning_Excel: Em rất thích ý tưởng của bác, đối với các thày chuyên sâu như thày ndu, ptm, anh huuthang-bd... thì không bàn làm gì? Nhưng với những thành viên chưa thạo lắm về Add-Ins như em thì em thích cái vụ này lắm. Thày ndu đã có ý như vậy thì bác gom thử xem sao, có gì cho em hưởng với... hìhì...nói vậy thôi, em chưa thạo lắm, nếu em trợ giúp bác được cái gì em sẵn sàng ngay.
Món này làm hoài, xem ra chẳng khó tí nào. Công thức cho B1:
=TRIM(MID(SUBSTITUTE(TRIM($A1)," ",REPT(" ",LEN($A1))),1+(COLUMNS($A:A)-1)*LEN($A1),LEN($A1)))Cách 1:
Arr=EVALUATE("{"""&SUBSTITUTE($A1," ",""",""")&"""}")B1=IF(COLUMN(A:A)>COUNTA(Arr),"",INDEX(Arr,COLUMN(A:A)))B1=TRIM(MID(REPT(" ",100)&SUBSTITUTE($A1," ",REPT(" ",200)),(COLUMN(A:A)-1)*200+1,200))Biết là NDU có làm file này, mở lên và chưa kịp gán vào và xem lại thì đã có đáp án.Lẹ còn hơn tên lửa nữa
Anh Tuấn có xuống SG alo em cafe nhé. Thắng hôm nào rãnh cafe nhé!
Thanh Phong
Hỏi lại: Có cho dùng Name không?
=INDEX(TRIM(MID(SUBSTITUTE(TRIM($A3)," ",REPT(" ",LEN($A3))),1+(ROW($1:$100)-1)*LEN($A3),LEN($A3))),SMALL(IF(ISERROR(1*TRIM(MID(SUBSTITUTE(TRIM($A3)," ",REPT(" ",LEN($A3))),1+(ROW($1:$100)-1)*LEN($A3),LEN($A3)))),"",ROW($1:$100)),B$1))
Hihi, vẫn ế.
Hoan nghênh vị khách đầu tiên (ế quá mà
)Ý tưởng thì có rồi, anh điều chỉnh lại chút xíu là được thôi.
Híc.Hoan nghênh vị khách đầu tiên (ế quá mà
Ăn gian cái gì ăn gian chứ sửa dữ liệu gốc là không ổn nghen anh.
Với lại công thức của anh chưa đúng trong trường hợp có các ký tự không phải là chữ và số (ví dụ như dấu chấm (.), dấu ngoặc,...). Có lẽ cũng tại dữ liệu của em chưa tổng quát, nhưng yêu cầu có nói là:
Ý tưởng thì có rồi, anh điều chỉnh lại chút xíu là được thôi.
Tuy nhiên, bài giải của anh là bài giải chính xác nhất cho đến thời điểm này
Không phải số mình vẫn xác định được. Chỉ 2 loại dữ liệu Số & không phải số
Thật ra khi dữ liệu chỉ vừa đủ 6 nấc ( cho chuỗi 3) ta dùng Len(ô dữ liệu) cũng Ok. Trường hợp này ta phải bẫy lỗi ngay từ đầu
