返回列表 上一主題 發帖

[發問] 由小而大改為由大而小的語法研習。

回復 1# ziv976688

將下列的搜尋開啟排序~以由小而大(順序)改為由大而小(倒序)。
>> 只要改一列如下,請測試看看,謝謝
'For i1 = 0 To n1 - 1 '開啟Ar1,copy A、B欄資料到Sheet1 M欄開始往右
For i1 = n1 - 1 To 0 Step -1

TOP

回復 4# ziv976688

請問語法要如何編改?
>> 如附件,請測試看看,謝謝

H_搜尋(機)字檔(主檔)_0916_Q.zip (127.92 KB)

TOP

回復 6# ziv976688


E欄(倍率) =$A$2>0時,D欄的值/$A$2;並請將E欄值取小數點後3位數,第4位四捨五入(=ROUND(D2/$A$2,3))
>> If Arr(i, 3) > 0 Then Arr(i, 4) = Round(Arr(i, 3) / .[A2], 3) 'E欄值請增加取小數點後3位數,第4位四捨五入

TOP

回復 9# ziv976688


不好意思處理#4問題時,沒有看前面程式碼,直接引用字典時用到重複編號,
已修正完成如附件,請再測試看看,謝謝

H_搜尋(機)字檔(主檔)_0917_samwang.zip (127.16 KB)

TOP

回復 11# ziv976688

1893H欄排名=1~13;1894H欄排名=14~24
>> 抱歉沒注意到,更新如下,列133新增 :s=0,謝謝

ActiveWindow.Close
    With Sheets("Sheet1")
    .[A1:A10].ClearContents: .[B:IV].Clear
    End With
    n1 = 0: m = 0: xD.RemoveAll: s = 0
Next

TOP

回復 13# ziv976688

改為
在Sheets("Sheet1")C$1 : AY$1的相同值之C34:AY填入前3大和前3小(中式排名)的該數值。
>> 如附件,請測試看看,謝謝

H_搜尋(統)字檔(主檔)_0917_Q.zip (32.62 KB)

TOP

回復 16# ziv976688


再以H_搜尋(統)字檔(主檔_顯示數值)_0917_samwang執行後~
在程式碼列68會產生偵錯~詳如圖片。
>> 已更新如附件,請再測試看看,謝謝   

H_搜尋(統)字檔(主檔_顯示數值)_0922.zip (44.77 KB)

TOP

回復 16# ziv976688


請問:H_搜尋(統)字檔(主檔_顯示數值)_0917_samwang是否能~如同H_搜尋(機)字檔(主檔)_0917_samwang~
一樣都適用於測試_1894(單層=0000)和測試_1894(雙層=0000+0000)?
>> 不知18#的程式碼是否有解決此問題? 請測試看看,謝謝

TOP

回復 21# ziv976688

如果前3大的比對數字不變(即不包括"0"),但前3小的比對數字改為有包括"0",
請教:前3小比對的新語法要如何編寫?
>> 如附件,請測試看看,謝謝

H_搜尋(統)字檔(主檔_前3小的比對數字包括0)_0922.zip (41.71 KB)

TOP

        靜思自在 : 能付出愛心就是福,能消除煩惱就是慧。
返回列表 上一主題