|
发表于 12-6-2012 12:15 AM
|
显示全部楼层
如果我要做auto sum, 我的listing 里面有几样东西是同样的, 如何 先弄出subtotal?
APPLE 5
OREN 4
APPLE 2
LEMON 8
APPLE 4
LEMON 2
我可以用什么formula 直接 拿到sum for apple = 11, oren = 4, lemon= 10
除了用sorting 再 total sum。 之前还有用过另一个方法,现在忘了, 有谁可以帮帮我? 谢谢 |
|
|
|
|
|
|
|
发表于 15-6-2012 09:28 AM
|
显示全部楼层
问下。。日期变星期几,怎样变。。?
好像 15/06/12 答案变friday |
|
|
|
|
|
|
|
发表于 15-6-2012 09:29 AM
|
显示全部楼层
本帖最后由 vR33 于 15-6-2012 09:38 AM 编辑
如果我要做auto sum, 我的listing 里面有几样东西是同样的, 如何 先弄出subtotal?
APPLE 5
OREN 4
...
angel_june 发表于 12-6-2012 12:15 AM ![](http://cforum2.cari.com.my/images/common/back.gif)
用=sumif(找水果的区域,什么水果名字,数量)
如果你的水果有20 ,30 种。不确定有几个,我有一个笨的方法,但很好用。
就是你先去把水果那个column copy 起来 , 然后去另一个sheet paste 出所有水果,然后用select col 去data > Remove Duplicates.
这样就就会把你重覆出现的水果去掉,就知道到底有多少种水果。。然后在copy 回去主要的sheet.
![](http://gizmo.com.au/email/guide/oct10/excel-04.jpg) |
|
|
|
|
|
|
|
发表于 15-6-2012 07:45 PM
|
显示全部楼层
本帖最后由 发糕 于 16-6-2012 07:57 AM 编辑
回复 242# vR33
format cells 〉custom > dddd |
|
|
|
|
|
|
|
发表于 15-6-2012 07:48 PM
|
显示全部楼层
回复 241# angel_june
=SUMIF(a:a,"apple",b:b) |
|
|
|
|
|
|
|
发表于 15-6-2012 10:49 PM
|
显示全部楼层
|
|
|
|
|
|
|
发表于 15-6-2012 10:56 PM
|
显示全部楼层
用=sumif(找水果的区域,什么水果名字,数量)
如果你的水果有20 ,30 种。不确定有几个,我有 ...
vR33 发表于 15-6-2012 09:29 AM ![](http://cforum1.cari.com.my/images/common/back.gif)
这个方法的确可行,之前还有用过另一个方法,不需要一个一个sumif, 它可以一次过sorting out 全部一样的总类可惜我忘了![](static/image/smiley/onion/onion (25).gif) |
|
|
|
|
|
|
|
发表于 16-6-2012 08:08 AM
|
显示全部楼层
这个方法的确可行,之前还有用过另一个方法,不需要一个一个sumif, 它可以一次过sorting out 全部一样的 ...
angel_june 发表于 15-6-2012 10:56 PM ![](http://cforum.cari.com.my/images/common/back.gif)
回复 247# angel_june
=subtotal(109,b:b)
是这样吗? |
|
|
|
|
|
|
|
发表于 16-6-2012 09:55 AM
|
显示全部楼层
|
|
|
|
|
|
|
发表于 18-6-2012 11:52 PM
|
显示全部楼层
回复 249# vR33
=WEEKNUM(NOW(),1)-WEEKNUM(EOMONTH(NOW(),-1),1)请试试看。。。 |
|
|
|
|
|
|
|
发表于 19-6-2012 08:32 AM
|
显示全部楼层
回复 vR33
=WEEKNUM(NOW(),1)-WEEKNUM(EOMONTH(NOW(),-1),1)请试试看。。。
发糕 发表于 18-6-2012 11:52 PM ![](http://cforum2.cari.com.my/images/common/back.gif)
没有出答案出来。![](static/image/smiley/default/icon_confused.gif) |
|
|
|
|
|
|
|
发表于 19-6-2012 09:19 PM
|
显示全部楼层
回复 251# vR33
- =WEEKNUM(NOW(),1)-WEEKNUM(EOMONTH(NOW(),-1),1)+IF(WEEKDAY(EOMONTH(NOW(),-1),1)+1>1,1,0)
复制代码
EOMONTH 須要有 Analysis toolpak
excel options > Add - Ins > Analysis toolpak |
|
|
|
|
|
|
|
发表于 5-7-2012 03:12 PM
|
显示全部楼层
本帖最后由 mengmeng1288 于 5-7-2012 03:14 PM 编辑
一个填格子的VBA
比如:
CODE DESC 。。。
hhp server
printer
pc
会把hhp填去下面的空格。
不用人手做。
20分钟完成2000行的sheet
inside my blog
http://friendz2008.blogspot.com/ |
|
|
|
|
|
|
|
发表于 5-7-2012 09:10 PM
|
显示全部楼层
回复 253# 快乐满天星
DATA > VALIDATION > SETTINGS > ALLOW : LIST ; SOURCE : ....... |
|
|
|
|
|
|
|
发表于 10-7-2012 09:21 PM
|
显示全部楼层
本帖最后由 发糕 于 10-7-2012 09:37 PM 编辑
1 : insert > define names > names in workbook : bb
refers to :- =OFFSET(Sheet1!$E$2,,MATCH(Sheet1!$A2,Sheet1!$F$1G$1,),COUNTA(OFFSET(Sheet1!$E$2,,MATCH(Sheet1!$A2,Sheet1!$F$1G$1,),1000)))
复制代码
CATEGORY 和 DESCRIPTION 要同在 SHEET1 ~ F : G
2 : DATA > VALIDATION > SETTINGS > ALLOW : LIST ; SOURCE : =bb |
|
|
|
|
|
|
|
发表于 17-7-2012 09:46 AM
|
显示全部楼层
- =IF(D63<>"",IF(ISERROR(VLOOKUP(D63,$A$2:$B$7000,2,FALSE)),"Not match",VLOOKUP(D63,$A$2:$B$7000,2,FALSE)),"")
复制代码 |
|
|
|
|
|
|
|
发表于 18-7-2012 07:38 PM
|
显示全部楼层
本帖最后由 发糕 于 18-7-2012 10:08 PM 编辑
回复 258# 快乐满天星
所有DATA都要在sheet 1
不在这个worksheet,vba比较方便。(放在sheet 2)
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- CurrentRow = ActiveCell.Row
- If Cells(CurrentRow, "a") = "A" Then
- With Cells(CurrentRow, "b").Validation
-
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="=Sheet1!$B$2:$B$4"
-
- End With
- ElseIf Cells(CurrentRow, "a") = "B" Then
- With Cells(CurrentRow, "b").Validation
-
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="=Sheet1!$B$5:$B$7"
-
- End With
- ElseIf Cells(CurrentRow, "a") = "C" Then
- With Cells(CurrentRow, "b").Validation
-
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="=Sheet1!$B$8:$B$10"
-
- End With
- End If
- End Sub
复制代码 |
|
|
|
|
|
|
|
发表于 2-8-2012 10:32 PM
|
显示全部楼层
[求助] 如何用VBA 自动汇入销售月度统计
做了个Invoice记录表
我想把所开的发票的资料行自动汇入销售月度统计
本想用SUMPRODUCT函数但感觉很慢。
可否有人帮写个 VBA 或 指点下。
谢谢!!
2007版
下載:Invoice2003版
下載:Invoice2007版
幫看下這代碼會出現Type mismatch的問題
Sub SearchSummary()
With Sheets("Data")
Arr = .Range("$A3:O" & .Range("C65500").End(3).Row)
End With
Range("A4:O" & Range("C65500").End(3).Row + 2).ClearContents
ReDim Brr(1 To UBound(Arr), 1 To 11)
t = 1: A1 = 0: A2 = 0
For i = 1 To UBound(Arr)
If Len(Range("I2")) > 0 Then '查客戶
If Arr(i, 2) = Range("I2") Then
A1 = A1 + Arr(i, 7)
A2 = A2 + Arr(i, 8)
For J = 1 To 11
Brr(t, J) = Arr(i, J)
Next
t = t + 1
End If
Else
If Len(Range("B2")) > 0 Then '查單號
If Right(Arr(i, 1), 6) = Range("B2") Then
A1 = A1 + Arr(i, 7)
A2 = A2 + Arr(i, 8)
For J = 1 To 11
Brr(t, J) = Arr(i, J)
Next
t = t + 1
End If
Else
If Month(Arr(i, 3)) = Range("D2") And Len(Range("F2")) < 1 Then '查月份
A1 = A1 + Arr(i, 7)
A2 = A2 + Arr(i, 8)
For J = 1 To 11
Brr(t, J) = Arr(i, J)
Next
t = t + 1
Else
If Arr(i, 4) = Range("F2") And Len(Range("D2")) < 1 Then '查品名
A1 = A1 + Arr(i, 7)
A2 = A2 + Arr(i, 8)
For J = 1 To 11
Brr(t, J) = Arr(i, J)
Next
t = t + 1
Else
If Arr(i, 4) = Range("F2") And Month(Arr(i, 3)) = Range("D2") Then '查品名及月份
A1 = A1 + Arr(i, 7)
A2 = A2 + Arr(i, 8)
For J = 1 To 11
Brr(t, J) = Arr(i, J)
Next
t = t + 1
End If: End If: End If: End If: End If
Next
If t = 1 Then MsgBox "未查到相關記錄!": Exit Sub
Range("A4").Resize(t - 1, 11) = Brr
Range("A" & t + 4) = "合計"
Range("G" & t + 4) = A1
Range("H" & t + 4) = A2
End Sub
Invoice
本帖最后由 mybctey 于 3-11-2012 05:13 PM 编辑
|
|
|
|
|
|
|
|
发表于 2-11-2012 04:07 PM
|
显示全部楼层
发糕 发表于 19-6-2012 09:19 PM ![](static/image/common/back.gif)
回复 251# vR33
如果要在一些code 后面加多一个符号,怎样加。。
譬如
ABBS
DFGB
DFRG
SDFG
ADFF
后面要加 $ 或 * 号
ABBS*
DFGB*
DFRG*
SDFG*
ADFF*
有几百个。
|
|
|
|
|
|
|
|
发表于 7-11-2012 07:21 PM
|
显示全部楼层
myjoannetan 发表于 23-5-2012 03:03 PM ![](static/image/common/back.gif)
如果我要找出7-900-UV的KA号码怎样set呢? 请LZ帮忙或其他的大大知道的可不可以指导....谢谢!
比 ...
问题解决了吗?给你一个办法参考。![](static/image/smiley/onion/onion (43).gif)
=OFFSET($A$1,MATCH($A$10,A2:A8,0),MATCH($B$10,B1: F1,0))
本帖最后由 小虫 于 7-11-2012 07:28 PM 编辑
|
|
|
|
|
|
|
| |
本周最热论坛帖子
|