標題:
[發問]
求指教 ! 根據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
不跑迴圈
Sub Ex()
With Range("C1")
.EntireColumn.ClearContents '清除C欄字元
.Cells = Range("A2")
If IsNumeric(Range("A2")) And IsNumeric(Range("B2")) Then
With .Cells(2).Resize(Range("B2") - 1)
.Cells = "=R[-1]C+1"
.Cells = .Value
End With
End If
End With
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
你指出程式運行條件沒設好有錯誤,這不是吹毛求疵,
是我編寫時沒想到那,這討論區就是要如此的討論
須改成
If IsNumeric(Range("A2")) And IsNumeric(Range("B2")) And Range("B2") > 1 Then
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)