[算表] Visual Basic迴圈

[andy4624 (Endless Fighting)]

軟體: excel

版本: office 365

想要寫迴圈公式，算出各業務獎金

        A               B       C       D       E
  1     業務名          老大    老二    老三    老四
  2     營業額          150     250     50      350
  3     業務獎金比例：  6%      7%      5%      8%
  4     業務獎金        9       17.5    2.5     28

因為營業額不同，所以會產生不同的業務狀金比例
之前是用 If的公式寫
現在試著用visual basic裡的 select case 來判斷
if case >300  業務獎金=營額業*0.08
if case >200  業務獎金=營業額*0.07
if case >100  業務獎金=營業額*0.06
if case >0    業務獎金=營業額*0.05

然後想要利用for來讓計算的儲存格往右移

想問的問題：
1、如何用 for 的迴圈讓計算的儲存格往右移？以上表來看就是從原本計算 B4移到 C4
  因為 for i=1 to 4是不是只能讓儲存格往下移？

2、計算我只會寫 Range("B4").value = range("B2").value*0.01
   但是 B4 及 B2 在 下一個計算時應該是變更為 C4 及 C2
請問這個儲存格是可改變的嗎？

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.137.131 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1668564365.A.F6B.html
推 ljuber: 用offset ?
→ andy4624: offset之後 怎麼寫要計算的儲存格？
→ andy4624: 抱歉我是新手 所以問題可能很基本 請再給指教
推 ljuber: range("b4").offset(,i-1_)
→ suaveness: Cells 在這個例子可能會比 Range 適合
→ waiter337: Sub test()
→ waiter337: For i = 1 To 4
→ waiter337: Select Case Cells(2, i)
→ waiter337: Case Is > 300: x = 0.08
→ waiter337: Case Is > 200: x = 0.07
→ waiter337: Case Is > 100: x = 0.06
→ waiter337: Case Is > 0: x = 0.05
→ waiter337: End Select
→ waiter337: Cells(4, i) = Cells(2, i) * x
→ waiter337: Next
→ waiter337: End Sub
→ andy4624: 謝謝樓上大大