返回列表 上一主題 發帖

[發問] 儲存格內有多數值加一數值

bow101

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2007 
閱讀權限
10 
性別
男 
註冊時間
2010-6-23 
最後登錄
2010-6-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-6-23 17:24 | 只看該作者

[發問] 儲存格內有多數值加一數值

請教各位大大
假設A1內有數值 1,2,3,4,5,6,7,8

B1的值為6

C1想要的計算方式為1+6,2+6,3+6,4+6,5+6,7+6,8+6 , 也就是A1內的各數值+上B1的值
並顯示為 7,8,9,10,11,12,13,14

請問C1的公式我要怎麼打?
收藏 分享

bow101

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2007 
閱讀權限
10 
性別
男 
註冊時間
2010-6-23 
最後登錄
2010-6-28 
4#
發表於 2010-6-25 17:45 | 只看該作者
謝謝KITTYBOY大大~
你的公式我比較看得懂..
也謝謝版主

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-4-23 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2010-6-24 14:57 | 只看該作者
本帖最後由 Hsieh 於 2010-6-24 14:58 編輯

字串分隔數量不定的話內建函數寫不出
試試自定義函數
  1. Function ESum(a$, b$, c&) As String '引數a=A1,引數b=",",引數c=B1
  2. Dim Ay()
  3. ar = Split(a, b)
  4. For Each d In ar
  5. ReDim Preserve Ay(s)
  6. Ay(s) = Val(d) + c
  7. s = s + 1
  8. Next
  9. ESum = Join(Ay, b)
  10. End Function
複製代碼
ESUM.rar (5.72 KB)
學海無涯_不恥下問

TOP

KITTYBOY
　暱稱: KITTYBOY
　頭銜: KITTYBOY

小學生Rank: 1

帖子
29 
主題
11 
精華
0 
積分
41 
點名
0  
作業系統
WINDOW XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-5-4 
最後登錄
2011-11-1 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2010-6-24 09:24 | 只看該作者
=MID(A1,1,1)+B1&","&MID(A1,3,1)+B1&","&MID(A1,5,1)+B1&","&MID(A1,7,1)+B1&","&MID(A1,9,1)+B1&","&MID(A1,11,1)+B1&","&MID(A1,13,1)+B1&","&MID(A1,15,1)+B1
如附檔煩確認  THANKS

1.rar (1.55 KB)

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題