帖子: 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

樓主熱帖

GBKEE

超級版主 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兔年全勤獎章

11^#

發表於 2017-11-12 07:00 | 只看該作者

回復 10# zheng211016

你指出程式運行條件沒設好有錯誤,這不是吹毛求疵,
是我編寫時沒想到那,這討論區就是要如此的討論
須改成

If IsNumeric(Range("A2")) And IsNumeric(Range("B2")) And Range("B2") > 1 Then

複製代碼

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

TOP

zheng211016

　暱稱: 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)

TOP

zheng211016

　暱稱: 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的話就會執行錯誤了

TOP

adrian_9832

中學生 Rank: 2

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

8^#

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

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

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

zheng211016

　暱稱: 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)

TOP

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

神人給個讚你你太棒了 !

TOP

joblyc017

　暱稱:

中學生 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

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

TOP

adrian_9832

中學生 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 求指教 !!

TOP