麻辣家族討論版版 » Excel程式區 » 求指教 ! 根據CELL內的數字增加數字數量

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

樓主熱帖

收藏

　暱稱:

中學生 Rank: 2

帖子: 111
主題: 3
精華: 0
積分: 156
點名: 0
作業系統: Window
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2017-8-14
最後登錄: 2023-6-26

2^#

發表於 2017-10-7 13:35 | 只看該作者

關於問題一，函數可解，請參考下圖：

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

3^#

發表於 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 求指教 !!

　暱稱:

中學生 Rank: 2

帖子: 111
主題: 3
精華: 0
積分: 156
點名: 0
作業系統: Window
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2017-8-14
最後登錄: 2023-6-26

4^#

發表於 2017-10-8 10:51 | 只看該作者

回復 3# adrian_9832

問題一，函數解法，請參考下圖：

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

5^#

發表於 2017-10-8 13:07 | 只看該作者

回復 adrian_9832

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

神人給個讚你你太棒了 !

　暱稱: zheng逸

中學生 Rank: 2

帖子: 99
主題: 15
精華: 0
積分: 164
點名: 2
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-10-5

6^#

發表於 2017-11-9 00:05 | 只看該作者

給你另一個方法

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

8^#

發表於 2017-11-11 14:22 | 只看該作者

你們的方法都好好 ! 謝謝回應

　暱稱: zheng逸

中學生 Rank: 2

帖子: 99
主題: 15
精華: 0
積分: 164
點名: 2
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-10-5

9^#

發表於 2017-11-11 20:35 | 只看該作者

回復 7# GBKEE

版大你的B2為1的話就會執行錯誤了

　暱稱: zheng逸

中學生 Rank: 2

帖子: 99
主題: 15
精華: 0
積分: 164
點名: 2
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-10-5

10^#

發表於 2017-11-11 20:58 | 只看該作者

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

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

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

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

返回列表下一主題上一主題