Excel VBA - 計數數字重置

Question

請原諒我的英語。 我嘗試在 excel 中解釋我的需求。

我正在嘗試為特定列中的總數編寫一個 excel VBA 代碼。 例如 A:A 列用指定的數字填充。 150,200,150,175,150,150 .... 對於 B 列，我有一個代碼可以計算 150 和 200 的數量，代碼為“COUNTIFS”。 這是一個簡單的代碼。 (=計數(A:A,B2))

1. 現在我需要每 50 個 150 的數字我應該在一個特定的單元格（例如 C2）中得到數字 1 然后另外五十個 150 的數字（這意味着一百個 150's）我應該在同一個 C2 單元格中得到數字 2。 這將繼續..

2. 需要一個重置按鈕來重置此 C2 值，在重置開始后，它應該再次每 50 個 150 計數一次。

A 列中的數據條目是特定商店的特定 Sweet box 編號。 一旦我根據數據交付了 50 個糖果盒，我應該算 1。然后另外 50 個糖果盒應該算 2。一旦我要求付款，我應該重置計數（不是全部計數）。 然后它再次從一開始計數。

我想我解釋了我的需求，我希望你們都能理解。

請幫助VBA代碼。

Answer 1

這是代碼：

在新模塊中編寫此代碼並調用 excel 單元格中的函數（示例：C2）。

Public Function COUNTCUSTOM(counted As Integer, rupee As Integer)
  'counted -  Total number of 150's
  'rupee - 50  if 150 count reach 50 i will be 1, if 150 reached 100 i will 2.
 Dim i As Long
 i = counted \ rupee
 COUNTCUSTOM = i

End Function