返回列表 上一主題 發帖

[發問] 公式轉化為程式語法。

回復 9# joblyc017

J大:
謝謝您的不吝指導^^

TOP

回復 8# papaya


   
VBA.png
2017-11-22 12:24
*YC的筆記鋪 - Excel、Word教學
http://lyc017.pixnet.net/blog

TOP

回復 7# joblyc017

範例檔
TEST.rar (5.29 KB)
請參考!謝謝您^^

TOP

回復 6# papaya


    請提供範例檔,謝謝
*YC的筆記鋪 - Excel、Word教學
http://lyc017.pixnet.net/blog

TOP

回復 5# papaya
SHEE2的標的 欄忘了標示~補上
SHEET2.png
2017-11-22 05:40

TOP

本帖最後由 papaya 於 2017-11-22 05:25 編輯

回復 3# joblyc017
j大:
不好意思,能否再請您指導~
當"DK7:DK"&COUNT(DK:DK)+3之範圍內=$DK$4的列,其該列當欄和右邊的二欄標示8號底色。
請問:公式轉化為程式語法要如何編寫?

另~
將"DK7:DK"&COUNT(DK:DK)+3之範圍內=最大數的列,其該列當欄和右邊的二欄標示8號底色。
請問:公式轉化為程式語法要如何編寫?
謝謝您^^

PS: "DK7:DK"&COUNT(DK:DK)+3的值,不會重複,中間也不會有空白格

SHEET1.png
2017-11-22 05:17


SHEET2.png
2017-11-22 05:21


只要SHEET1即可,SHEET2只作輔助說明用。

TOP

回復 3# joblyc017
瞭解了~
,,4  原來4欄的範圍必須以 .Resize(, 4)來表達。
謝謝您^^

TOP

回復 2# papaya
  1. [C1] = Application.SumIf(Range("I1").Offset(Range("C2") - Range("B2") + 1, 1).Resize(, 4), Range("A1"), Range("D1").Offset(Range("C2") - Range("B2") + 1, 1).Resize(, 4))
複製代碼
*YC的筆記鋪 - Excel、Word教學
http://lyc017.pixnet.net/blog

TOP

本帖最後由 papaya 於 2017-11-21 11:38 編輯

爬文許久~解決了~C2
[C2] = Application.Index(Range("D:D"), Application.Match(Range("A2"), Range("I:I"), 0))

C1還是無法解決QQ
https://support.microsoft.com/zh-tw/help/291308/how-to-select-cells-ranges-by-using-visual-basic-procedures-in-excel
因為實在無法由上述網站的說明及範例中完全理解和套用在C1公式

懇請各位高手不吝賜教和指導!謝謝先!

TOP

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題