帖子: 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的值
要怎樣才能自動計算
而不要用拖曳下拉的方式

樓主熱帖

mark15jill

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

高中生 Rank: 3 Rank: 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

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2025-5-13

3^#

發表於 2012-9-26 17:07 | 只看該作者

回復 1# whirlwind963

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

TOP

whirlwind963

小學生 Rank: 1

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

mark15jill

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

高中生 Rank: 3 Rank: 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

小學生 Rank: 1

帖子: 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: 3 Rank: 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 | 只看該作者

僅用小段程式代表
可用迴圈改善

Columns("A:A").Select
Selection.NumberFormatLocal = "yyyy/mm/dd hh:mm:ss;@"
Columns("E:z").Select
Selection.NumberFormatLocal = "@"
For xay = 2 To 10
If Cells(xay, 1) <> "" Then
a1 = Mid(Cells(xay, 1), 1, 4)
a2 = Mid(Cells(xay, 1), 5, 1)
a3 = Mid(Cells(xay, 1), 6, 2)
a4 = Mid(Cells(xay, 1), 8, 1)
a5 = Mid(Cells(xay, 1), 9, 2)
b1 = Mid(Cells(xay, 1), 14, 2)
b2 = Mid(Cells(xay, 1), 16, 1)
b3 = Mid(Cells(xay, 1), 17, 2)
b4 = Mid(Cells(xay, 1), 19, 1)
b5 = Mid(Cells(xay, 1), 20, 2)
For hs = 1 To 5760
Select Case hs
Case 1 To 1920
aa = "area1"
If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
Case 1921 To 3840
ab = "area2"
If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
Case 1921 To 5760
ac = "area3"
If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
End Select
Next
End If
Next xay

複製代碼

回復 6# whirlwind963

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

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

  少看=只看不做也枉然

TOP

JBY

中學生 Rank: 2

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