Board logo

標題: [發問] 求指教 ! 根據CELL內的數字增加 數字數量 [打印本頁]

作者: adrian_9832    時間: 2017-10-6 21:58     標題: 求指教 ! 根據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
作者: joblyc017    時間: 2017-10-7 13:35

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


作者: adrian_9832    時間: 2017-10-7 21:14

本帖最後由 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 求指教 !!
作者: joblyc017    時間: 2017-10-8 10:51

回復 3# adrian_9832


問題一,函數解法,請參考下圖:

作者: adrian_9832    時間: 2017-10-8 13:07

回復  adrian_9832


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



    神人 給個讚你  你太棒了  !
作者: zheng211016    時間: 2017-11-9 00:05

給你另一個方法
[attach]27939[/attach]
[attach]27940[/attach]
[attach]27938[/attach]
作者: GBKEE    時間: 2017-11-11 12:00

回復 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
複製代碼

作者: adrian_9832    時間: 2017-11-11 14:22

你們的方法都好好 ! 謝謝回應
作者: zheng211016    時間: 2017-11-11 20:35

回復 7# GBKEE


    版大 你的B2為1的話 就會執行錯誤了
作者: zheng211016    時間: 2017-11-11 20:58

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

回復 7# GBKEE
抱歉 超版 我突然覺得太吹毛求疵了 次數 1 根本沒意義
也因超版的另一種方法 才讓我發現其實我有一個小缺點做錯了就是忘記-1
下面幫你補上檔案
[attach]27955[/attach]
[attach]27956[/attach]
[attach]27957[/attach]
[attach]27958[/attach]
作者: GBKEE    時間: 2017-11-12 07:00

回復 10# zheng211016

你指出程式運行條件沒設好有錯誤,這不是吹毛求疵,
是我編寫時沒想到那,這討論區就是要如此的討論
須改成
  1. If IsNumeric(Range("A2")) And IsNumeric(Range("B2")) And Range("B2") > 1 Then
複製代碼





歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)