Hỏi | Đáp - Request phần mềm, game, ứng dụng...

Mình thấy có cái macro này, nó sắp xếp rồi mới xóa trùng nên kết quả sau cùng là kết quả đã dc sắp xếp đó.

PHP:

Sub removeDupWord()
    Dim AmountMoved As Long
    Dim myRange As Range
    Selection.WholeStory
    Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _
    SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
    FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
    wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
    wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
    wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
    :=wdEnglishUS, SubFieldNumber:="Paragraphs", SubFieldNumber2:= _
    "Paragraphs", SubFieldNumber3:="Paragraphs"
'start with first paragraph and extend range down to second
    Set myRange = ActiveDocument.Paragraphs(1).Range
    AmountMoved = myRange.MoveEnd(unit:=wdParagraph, Count:=1)
'loop until there are no more paragraphs to check
    Do While AmountMoved > 0
'if two paragraphs are identical, delete second one
'and add the one after that to myRange so it can be checked
        If myRange.Paragraphs(1).Range.Text = _
        myRange.Paragraphs(2).Range.Text Then
        myRange.Paragraphs(2).Range.Delete
        AmountMoved = myRange.MoveEnd(unit:=wdParagraph, Count:=1)
    Else
'if two paragraphs aren't identical, add the one after
'that to my range, so it can be checked, and drop the first one,
'since it is no longer of interest.
        AmountMoved = myRange.MoveEnd(unit:=wdParagraph, Count:=1)
        myRange.MoveStart unit:=wdParagraph, Count:=1
    End If
Loop
MsgBox ("end")
End Sub


 

Máy mình mới mua thôi , tầm 4-5 tháng , sử dụng bình thường cho tới ngày hôm qua .
Tự dưng máy khá chậm , giật giât , lướt web đơ , xem phim đơ , chơi game càng đơ . Mình google thì nghe nói là chip intel đang bị lỗi nên virus tấn công vào lỗ hổng đó ... bla bla ...
Vậy các bác cho hỏi là máy mình hiện giờ phải chữa như nào ạ ? :(

 

Bạn xài HDH gì, luôn up to date hả?
Cái lỗi kia thì HDH nó update patch fix thôi, máy k bị dính mã độc thì vẫn còn an toàn, nên xài sao cho k bị dính là dc
Còn máy chậm thì có nhiều nguyên nhân lắm, thử dọn rác, gỡ app rác, kiểm tra ổ cứng xem sao, cũng có thể coi lại driver card màn hình nữa, máy mình có th driver card màn hình bị hư, bình thường chạy card bo nên k sao nhưng chơi game card rồi là lag tung chả0 dù game nhẹ.

 

Cấu hình máy mình đây , vừa mở case ra lau chùi lại ram , các thứ rồi nhưng vẫn ko ăn thua :(



À nó hay bị đen màn hình , sau đó nó hiện lại rồi thông báo lỗi này !

 

Rút card màn hình ra xem sao, ngại rút thì gỡ driver trên máy cũng được.

 

Mình thấy khi sử dụng firefox thì cpu chạy tới 100% , nên mọi hoạt động khác như xem phim , nghe nhạc đều không được , máy bị giật . Nhưng sử dụng trình duyệt khác thì ko bị sao hết ... vậy là do firefox ??

 

Fox nhẹ hơn chromium đấy. Đã thử rút card ra chưa?

 

Coi ff có cài extension gì k? Thử vô help chọn restart with add-ons disabled... (đại khái vậy) rồi xài 1 lúc xem

 

Cứ tắt ff đi thì máy nó bình thường nên chắc là do nó rồi , căn bản máy mới mua dc mấy tháng nên lý nào card lại hỏng , nhỉ ?

Mình xóa bố nó rồi

Nói chung là tạm ổn , cám ơn các bác đã giúp đỡ ... Có gì xảy ra nữa thì vác mịa đi bảo hành cho lành

 

Có tool nào bung esd dùng đuợc trong win mini không nhỉ? Dùng cái win Nt Setup hay bị lỗi với mấy bản win mod tích hợp ốp đít.

 

tôi đang hỏi về Autodesk 3ds max 2017

 

Có ai có macro nào dành cho Excel, là 1 textbox có chức năng tìm kiếm, ví dụ ta gõ 1234 thì nó nhảy đến ô có chứa 1234, nếu có 1234 ở phía dưới nữa thì nhấn enter thì nó nhảy xuống tiếp, sau khi xóa dòng 1234 đi, đưa chuột vào textbox để tìm tiếp thì nó xóa rỗng nội dung textbox, kiểu tìm kiếm giống phần mềm Search Everything đó

 

chả biết vọc trúng cái gì mà gpedit, registry với táskmanager bị disable by admin hết trong khi máy có mỗi mình xài và chỉ có mỗi 1 user admin thôi, thử fix theo các cách trên google vẫn bị vậy ,giờ phải làm sao đây các bác :(
pls help

 

I want Avira Phantom VPN Pro 2.11.3

 

Click here

30 char ............

 

nhờ các bác giúp, chả là e vừa cài win lại, cho win auto update xong hôm sau mở lên thì mọi thứ (icon, taskbar, giao diện web...) nó to oành mặc dù đã chỉnh phân giải 1440-900 , giờ làm sao cho nó nhỏ lại đây các bác T_T

 

Boot safe mode thì thế là đúng rồi. Boot bình thường sẽ không sao

 

Anh em cho hỏi có cách nào down video kèm streaming subtitles về ko , kiểu như sub ấy nó chỉ bật tắt trên host đó như youtube, openload...down video về thì ko có sub kèm theo, có cách nào down kèm sub về ko làm ơn chỉ mình với mình cám ơn nhiều. ^^

 

Có phần mềm text editor nào ngon ko ae?
Notepad ++ mở file bự bự tí là treo :(

 

Trên Yútóp thì biết mỗi cái này
https://sourceforge.net/projects/google2srt/

Còn OL thì chịu

Thử Sublime Text xem

https://thepiratebay.org/torrent/7133796/Sublime_Text_v._2_(build_2181)_[K]racked

Cơ mà file tầm 5mb trở lên thì thằng nào load cũng lâu.