返回列表 上一主題 發帖

[發問] 求指教 ! 根據CELL內的數字增加 數字數量

[發問] 求指教 ! 根據CELL內的數字增加 數字數量

本帖最後由 adrian_9832 於 2017-10-6 21:59 編輯

大家好!

1.)  我最近遇上一個好奇的問題  
A1              B1
23100        5      


請問怎麼可以根據B1儲存格的數字去 累加 到A1-A5的儲存格呢?  
結果預期如下 :
A1                 B1
23100           5   
23101              
23102              
23103              
23104              


就是分成5個數   
是用VBA 還是 方程式 可以做到?  求給點例子:'(      

2.)另一個問題 我知道VBA可以讀取到TXT FILE 再進行字串上的處理
用file application 讀取檔案後
以OPEN形式 來作OUTPUT #1  來讀入TXT
並且 可以 用   if inst(var1, "XX")>0 then   來掃瞄字串   
但是讀XLS 時 就不行   應該怎麼才可以用VBA 掃瞄別的EXCEL檔?  

我用VBA2003的 請大家指教 :P
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

關於問題一,函數可解,請參考下圖:

*YC的筆記鋪 - Excel、Word教學
http://lyc017.pixnet.net/blog

TOP

本帖最後由 adrian_9832 於 2017-10-7 21:24 編輯

你好猛 用函數就KO了這個我想了超久的問題 那麼若數字從241068開始 B1是4  弄出結果是  241068    ---> (+1)-->    241069   ---> (+1)-->    241060    ---> (+1)-->    241061  這樣呢?    就是只做24106(1-0)以內的數字 不會跳到24107   並以0為最大 當是0 那下一個就是的尾數就是1  這樣呢

以你的答案 是不是 加個DO UNTIL = 0  ? 但是 0之後是要增加的 0 再加就是 1 ...... 想不通
想學習一下



推推問題2 求指教 !!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 3# adrian_9832


問題一,函數解法,請參考下圖:
*YC的筆記鋪 - Excel、Word教學
http://lyc017.pixnet.net/blog
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復  adrian_9832


問題一,函數解法,請參考下圖:
joblyc017 發表於 2017-10-8 10:51



    神人 給個讚你  你太棒了  !
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

給你另一個方法
依指定數量累加.png
2017-11-9 00:04

依指定數量累加-1.png
2017-11-9 00:05

依指定數量累加.rar (53.14 KB)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 6# zheng211016
不跑迴圈
  1. Sub Ex()
  2.     With Range("C1")
  3.         .EntireColumn.ClearContents  '清除C欄字元
  4.         .Cells = Range("A2")
  5.         If IsNumeric(Range("A2")) And IsNumeric(Range("B2")) Then
  6.             With .Cells(2).Resize(Range("B2") - 1)
  7.                 .Cells = "=R[-1]C+1"
  8.                 .Cells = .Value
  9.             End With
  10.         End If
  11.     End With
  12. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

你們的方法都好好 ! 謝謝回應
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 7# GBKEE


    版大 你的B2為1的話 就會執行錯誤了
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

本帖最後由 zheng211016 於 2017-11-11 21:04 編輯

回復 7# GBKEE
抱歉 超版 我突然覺得太吹毛求疵了 次數 1 根本沒意義
也因超版的另一種方法 才讓我發現其實我有一個小缺點做錯了就是忘記-1
下面幫你補上檔案
2017-11-11_205506.png
2017-11-11 20:57

2017-11-11_205529.png
2017-11-11 20:57

2017-11-11_205543.png
2017-11-11 20:57

依指定數量累加.rar (15.44 KB)

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題