返回列表 上一主題 發帖

[發問] 儲存格計算問題

whirlwind963

帖子
29 
主題
7 
精華
0 
積分
42 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
註冊時間
2012-9-22 
最後登錄
2013-1-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-9-26 16:36 | 只看該作者

[發問] 儲存格計算問題

請問如果我儲存格A和B都有值
要在C的儲存格計算A+B的值
要怎樣才能自動計算
而不要用拖曳下拉的方式
收藏 分享

JBY

帖子
161 
主題
0 
精華
0 
積分
168 
點名
0  
作業系統
Vista 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-9-16 
最後登錄
2017-2-19 
8#
發表於 2012-9-28 22:00 | 只看該作者
本帖最後由 JBY 於 2012-9-28 22:03 編輯
   期                                 區段                 結果
2012/09/21  13:54:34               1347                20120921/13+AREA1
2012/09/24  17:54:34               2571                20120924/17+AREA2
2012/09/27  16:34:12                4571               20120927/16+AREA3
whirlwind963 發表於 2012-9-27 13:33


結果, C1 :

=TEXT(A1,"yyyymmdd/hh")&"+AREA"&LOOKUP(B1,{1;1921;3841},{1;2;3})

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
7#
發表於 2012-9-27 14:12 | 只看該作者
僅用小段程式代表
可用迴圈 改善
  1.     Columns("A:A").Select
  2.     Selection.NumberFormatLocal = "yyyy/mm/dd hh:mm:ss;@"
  3.         Columns("E:z").Select
  4.     Selection.NumberFormatLocal = "@"
  5. For xay = 2 To 10
  6.     If Cells(xay, 1) <> "" Then
  7.         a1 = Mid(Cells(xay, 1), 1, 4)
  8.         a2 = Mid(Cells(xay, 1), 5, 1)
  9.         a3 = Mid(Cells(xay, 1), 6, 2)
  10.         a4 = Mid(Cells(xay, 1), 8, 1)
  11.         a5 = Mid(Cells(xay, 1), 9, 2)
  12.         
  13.         b1 = Mid(Cells(xay, 1), 14, 2)
  14.         b2 = Mid(Cells(xay, 1), 16, 1)
  15.         b3 = Mid(Cells(xay, 1), 17, 2)
  16.         b4 = Mid(Cells(xay, 1), 19, 1)
  17.         b5 = Mid(Cells(xay, 1), 20, 2)
  18.    
  19.         For hs = 1 To 5760
  20.             Select Case hs
  21.                 Case 1 To 1920
  22.                     aa = "area1"
  23.                     If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
  24.                     
  25.                 Case 1921 To 3840
  26.                     ab = "area2"
  27.                     If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
  28.                 Case 1921 To 5760
  29.                     ac = "area3"
  30.                     If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
  31.             End Select
  32.             
  33.             
  34.         Next
  35.     End If

  37. Next xay
複製代碼
回復 6# whirlwind963

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

whirlwind963

帖子
29 
主題
7 
精華
0 
積分
42 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
註冊時間
2012-9-22 
最後登錄
2013-1-9 
6#
發表於 2012-9-27 13:33 | 只看該作者
回復 5# mark15jill

              日期                                 區段                 結果
2012/09/21  13:54:34               1347                20120921/13+AREA1
2012/09/24  17:54:34               2571                20120924/17+AREA2
2012/09/27  16:34:12                4571               20120927/16+AREA3

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2012-9-27 08:47 | 只看該作者
回復 4# whirlwind963


    您要的功能是甚麼?
如果有判斷式的怎麼用的
A1是日期格式：2012/09/06 16:43:23  改為20120906/16  --> TEXT(A1,yyyymmdd/hh)  <改格式?>
B1是數字　　：1-1920 為AREA1   1921-3840為AREA2   3841-5760為AREA3   ->>IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))    <選區段?>
C1= TEXT(A1,yyyymmdd/hh) & IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))   <是否超過期限?>

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

whirlwind963

帖子
29 
主題
7 
精華
0 
積分
42 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
註冊時間
2012-9-22 
最後登錄
2013-1-9 
4#
發表於 2012-9-26 17:56 | 只看該作者
回復 2# mark15jill

如果有判斷式的怎麼用的
A1是日期格式：2012/09/06 16:43:23  改為20120906/16  --> TEXT(A1,yyyymmdd/hh)
B1是數字　　：1-1920 為AREA1   1921-3840為AREA2   3841-5760為AREA3   ->>IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))
C1= TEXT(A1,yyyymmdd/hh) & IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))

TOP

笨小孩

帖子
77 
主題
19 
精華
0 
積分
115 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2024-10-13 
3#
發表於 2012-9-26 17:07 | 只看該作者
回復 1# whirlwind963

在C1輸入=SUM(A1+B1)就行，但只有A1或B1內有數值時，C1為空白就忘記了點做，我也想學回。

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2012-9-26 16:51 | 只看該作者
回復 1# whirlwind963


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        For bb = 1 To 65535
            If Cells(bb, 1) <> "" And Cells(bb, 2) <> "" Then Cells(bb, 4) = Cells(bb, 1) + Cells(bb, 2)
            
        Next
End Sub

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題