Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

Airman
Lv 4
Airman 發問時間: 電腦與網際網路軟體 · 1 0 年前

VBA~同欄位數值依條件需求顯示在指定列之語法(A-2)。

範例附檔︰http://www.funp.net/980377

想依原VBA檔增加下列的需求而產生新的效果檔~

說明︰

以原效果檔工作表有開獎數字之每七欄(不含期數欄)為一個分段組合,

將$R$6(含)和$R7+T$3-1(含)的A欄期數列之前各組合的同欄位之相互對應數值~

檢視其都有或未都有分別顯示在$S$6與$R7+T$3的A欄期數列之任一個儲存格中~

步驟_1

當$R$6(含)和$R7+T$3-1(含)的A欄期數列之前各組合的同欄位之相互對應數值~

都有分別顯示在$S$6與$R7+T$3的A欄期數列時,

則將上述各相互對應數值標示紅色粗體字。

當$R$6(含)和$R7+T$3-1(含)的A欄期數列之前各組合的同欄位之相互對應數值~

只有左邊各分段組合同欄位的相互對應數值有顯示在$R7+T$3之A欄期數列;

但最右邊分段組合的對應數值未顯示在$S$6的A欄期數列時,

則將上述各相互對應數值標示粉紅色粗體字。

詳如︰BR_簡_10_331期-46sheet-53(步驟_1)

步驟_2

當標示紅色的數字組合,在等期距往下到$R$6與$R7+T$3-1之A欄期數列範圍,

有再一齊出現時,則將各該組合的數值標示淺橙色粗體字及紅色框邊(Weight=4)。

詳如︰BR_簡_10_331期-46sheet-53(步驟_2)

步驟_3

當標示粉紅色的數字組合,在等期距往下到$R$6與$R7+T$3-1之A欄期數列範圍,

有再一齊出現時,則將各該組合的數值標示淺橙色粗體字。

詳如︰BR_簡_10_331期-46sheet-53(步驟_3)

PS︰步驟順序可由解題者因宜調整。

以上增加的需求之語法應該如何編寫?

懇請 各位大師與先進惠予指教!!! 謝謝!!!

3 個解答

評分
  • 顯栓
    Lv 7
    1 0 年前
    最佳解答

    同A-1 類似解法,只將其語法複製,再修改一下參照位置及陣列記錄名稱。詳細自行研究範例附檔:BR(VBA).xls

    2010-09-17 12:13:11 補充:

    因沒=R5限制則將

    條件 If Sheets(1).[B7].Offset(ro - 1, d * 8 + colu - 1).Value <> Sheets(1).Range("J5").Offset(0, d * 8).Value Then

    .

    .

    END IF

    拿掉

    中間就很類似

    2010-09-17 13:46:58 補充:

    應該這樣陳列 If Sheets(1).[B7].Offset(ro - 1, d * 8 + colu - 1).Value <> Sheets(1).Range("J5").Offset(0, d * 8).Value Then

    Exit For

    Else

    如果不等於R5跳出迴圈

    否則執行以下程式

  • 匿名使用者
    7 年前

    到下面的網址看看吧

    ▶▶http://*****/

  • Airman
    Lv 4
    1 0 年前

    applerot大師︰

    謝謝您再補充意見說明!

    小弟只是不明白為何

    If………不等於Sheets(1).Range("J5").Offset(0, d * 8).Value Then

    能搜尋到=$R$5的數值?

    所以前天只有將A-1的列188機械式的改為

    If………不等於Sheets(1).Range("K5").Offset(0, d * 8).Value Then

    讓它能搜尋到=$S$5的數值~但真的不知其所以然?

    ^^"

    待小弟全部整理好,再專程向您請教!

    謝謝您!!!

    2010-09-17 22:43:24 補充:

    applerot大師︰

    瞭解了!!!

    謝謝您耐心的說明~感恩喔!!!

還有問題?馬上發問,尋求解答。