查看: 1101|回复: 19
新手求助，请大家帮帮忙呀，谢啦！
阅读权限20
在线时间 小时
我是新手，现用EXCEL遇到一些困难，特救助论坛的前辈们，请高手帮帮忙！
以下窗口中想达到3个愿望：
一：任意点击黄色区域活动格后显示这些窗口：（加工商、规格、单价、数量、金额等窗口）
二：后显示窗口的“金额”数据就是对应黄色区域显示的数据。
三：也是最重要的，感觉也是最困难的一项，就是后显示窗口里的数据可以分类计算，即月底要把本月所有有业务来往加工商的帐调出来，并且好计算（帅选也可以）。
求助.jpg (104.66 KB, 下载次数: 0)
17:28 上传
(7.95 KB, 下载次数: 9)
17:44 上传
点击文件名下载附件
阅读权限100
在线时间 小时
完全不明白
请手工做例子付上
阅读权限20
在线时间 小时
KCFONG 发表于
完全不明白
请手工做例子付上
非常有幸能得到版主的亲临指点，
(8.34 KB, 下载次数: 8)
22:27 上传
点击文件名下载附件
阅读权限70
在线时间 小时
直接将你提到的，作为字段加入原始表格不行吗?
阅读权限20
在线时间 小时
yangyangzhifeng 发表于
直接将你提到的，作为字段加入原始表格不行吗?
谢谢你的关注，其实一个产品的工序远不止这些，后面还有很多工艺，另一个关键因素是要在后台分类统计数据，即每个加工商的业务来往帐要能帅选统计出来，
阅读权限20
在线时间 小时
KCFONG 发表于
完全不明白
请手工做例子付上
求解.jpg (76.01 KB, 下载次数: 0)
23:34 上传
可能是我表达得不清楚，我的意思是点击黄色区域的任意一个活动格都能弹出绿色那样的窗口，并且这些窗口在后台能自动分类计算，尤其是加工商这块，能在后台帅选同一个加工商的业务来往明细，希望版主能帮一下忙，指点一下！
(7.07 KB, 下载次数: 6)
23:39 上传
点击文件名下载附件
阅读权限50
在线时间 小时
& & & & & & & &
好复杂啊，看看高手咋解决吧
阅读权限20
在线时间 小时
& & & & & & & &
在线急等！明天是月初了，希望高手多多指点，小弟在此先谢啦！
阅读权限100
在线时间 小时
请付上 加工商的业务来往帐
阅读权限20
在线时间 小时
KCFONG 发表于
请付上 加工商的业务来往帐
遇上好人了，立马付上，先谢啦！
(10.21 KB, 下载次数: 7)
10:00 上传
点击文件名下载附件
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求一篇信用卡办理风险的检讨书 我是新人 在知道客户有风险的情况下还进行了操作 请大家帮帮忙 急啊_百度知道w88优德 新人求助，求助大家帮忙。-w88优德VBA程序开发-w88优德官网 -
各位亲,本w88优德官网近日连续受到网络攻击,造成访问困难,我们正在积极面对,敬请大家谅解。&
后使用快捷导航没有帐号？
只需一步，快速开始
只需一步, 快速开始
查看: 86|回复: 14
新人求助，求助大家帮忙。
阅读权限10
在线时间 小时
本帖最后由 DF51091 于
09:22 编辑
工作薄中有两个表，sheet1为数据8例，sheet2为查询的，现在我要在sheet2的A1单元格中输入查找的字，来查询符合条件的表1的数据显示在表2,&&谢谢，谢谢!sheet1:
& &&&A& && && && && &&&B& && && && && && &C& && && && && && && && && &D& && && && && && && &E& && && && && && & F& && && && &G& && && && &&&H
日期编号名称规格备注单价数量金额101卡片小号30X30耐高温0.220.4102回形针30X31耐高温0.521104纸杯小号30X33耐高温0.220.4105打印纸30X34耐高温0.521106样品小号30X35耐高温0.220.4107A3纸30X36耐高温0.220.4109A4纸30X38耐高温0.521110A5纸30X39耐高温0.220.4
比如下面这个A1中我输入&小号& ,,在表1中符合小号的就显示到下面了.(输入要查询的字,可以是sheet1的任何列的内容,包含的就显示到下面)
& && && &A& && && && && && && && && & B& && && && && && &&&C& && && && && && && &D& && && && && && && &E& && && && && &&&F& && && && && &&&G& && && && && && &H
小号日期编号名称规格备注单价数量金额101卡片小号30X30耐高温0.220.4104纸杯小号30X33耐高温0.220.4106样品小号30X35耐高温0.220.4
附件现在w88优德官网上传不了，所以大家就将就看，抱歉。
阅读权限30
在线时间 小时
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = &$A$1& Then myquery Target
End Sub
Private Sub myquery(ByVal rg As Range)
Dim arr, brr(), i%, j%, k%, rng As Range
Dim d As Object, firstaddress$
Set d = CreateObject(&scripting.dictionary&)
On Error Resume Next
Intersect(Sheet2.UsedRange, Sheet2.UsedRange.Offset(1)).ClearContents
With Sheet1
arr = .UsedRange
If Len(rg) = 0 Then Exit Sub
Set rng = Intersect(.UsedRange, .UsedRange.Offset(1)).Find(what:=rg, lookat:=xlPart)
If Not rng Is Nothing Then firstaddress = rng.Address Else MsgBox &无查询到相关记录&, 32, &提醒&: Exit Sub
Do
i = rng.Row
If Not d.exists(i) Then
d.Add i, &&
k = k + 1
ReDim Preserve brr(1 To UBound(arr, 2), 1 To k)
For j = 1 To UBound(arr, 2)
brr(j, k) = arr(i, j)
Next j
End If
Set rng = Intersect(.UsedRange, .UsedRange.Offset(1)).FindNext(rng)
Loop While Not rng Is Nothing And rng.Address && firstaddress
End With
Sheet2.[a3:h3] = [{&日期&,&编号&,&名称&,&规格&,&备注&,&单价&,&数量&,&金额&}]
Sheet2.[a4].Resize(k, UBound(brr)) = WorksheetFunction.Transpose(brr)
End Sub复制代码
感谢帮助大家,,
这个我也需要，
阅读权限50
在线时间 小时
Sub 查找()
& & Dim oRead_w88优德_Conn As Object '读w88优德数据集
& & Dim sw88优德_Select As String 'w88优德读取数据语句
& & Dim iDataRows As Integer
& & Dim iRows As Integer
& &
& & iDataRows = [Sheet1!A65536].End(xlUp).Row
& & iRows = [A65536].End(xlUp).Row
& & If [A1] = && Then
& && &&&MsgBox &请输入资料！&
& && &&&Exit Sub
& & ElseIf iDataRows = 1 Then
& && &&&Sheets(&Sheet1&).Select
& && &&&[A1].Select
& && &&&MsgBox &没有数据资料！&
& && &&&Exit Sub
& & End If
& & Application.ScreenUpdating = False
& & If iRows & 2 Then Rows(&3:& & iRows).ClearContents
& & Set oRead_w88优德_Conn = CreateObject(&Adodb.Connection&)
& & If Val(Application.Version) & 12 Then
& && &&&oRead_w88优德_Conn.Open &Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=w88优德 8.0;Data Source=& & ThisWorkbook.FullName '建立数据库连接
& & Else
& && &&&oRead_w88优德_Conn.Open &Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=w88优德 12.0;Data Source=& & ThisWorkbook.FullName '建立数据库连接
& & End If
& & sw88优德_Select = &Select * From [Sheet1$A1:H& & iDataRows & &] Where 名称 like '%& & [A1] & &%'&
& & [A3].CopyFromRecordset oRead_w88优德_Conn.Execute(sw88优德_Select)
& & oRead_w88优德_Conn.Close
& & Set oRead_w88优德_Conn = Nothing
& & Application.ScreenUpdating = True
End Sub复制代码
阅读权限50
在线时间 小时
附上附近以供参考
23:38 上传
点击文件名下载附件
16.73 KB, 下载次数: 4
阅读权限10
在线时间 小时
& & & & & & & &
附上附近以供参考
老师你好，感谢这么晚帮我写代码，
代码只能查询C列吗，其他几列查不了?
阅读权限10
在线时间 小时
本帖最后由 DF51091 于
00:14 编辑
谢谢老大，真心谢谢你，这么晚帮我写代码，祝您全家幸福
解决了我的问题，就是有一点不明白，我输入&&F或 G 怎么所有的内容全过来了，但是表1里并不包含F或G，，其他没什么问题
太谢谢你了
阅读权限20
在线时间 小时
& & & & & & & &
将下面代码复制到查询表的Worksheet_Change事件
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Row = 1 And Target.Column = 1 Then
[A1].CurrentRegion.Offset(2).Delete
For Each Rng In Sheet1.UsedRange
If Rng Like &*& & [A1] & &*& Then
[A65536].End(3).Offset(1).Resize(1, 8) = Sheets(&sheet1&).Range(Rng.Row & &:& & Rng.Row).Value
End If
Next
End If
End Sub复制代码
阅读权限10
在线时间 小时
本帖最后由 DF51091 于
00:05 编辑
输入 F 和 G 怎么也会出来全部的结果，不知什么原因就是上传不了附件
,,表1中并不包含G和H
阅读权限50
在线时间 小时
& & & & & & & &
老师你好，感谢这么晚帮我写代码，
代码只能查询C列吗，其他几列查不了?
你的例子里貌似不会查其他列的吧？就算有，最多就备注里可能包含，难不成日期、编号、规格、单价、数量、金额等里面会包含有“小号&？
阅读权限10
在线时间 小时
将下面代码复制到查询表的Worksheet_Change事件
谢谢你的代码，
代码实现不了，查询的结果不会消失，当再次查询时一直加上去，第三行不停的减少
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本w88优德官网言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 846|回复: 5
大家帮帮忙啊 统计问题
阅读权限10
在线时间 小时
(2.46 KB, 下载次数: 14)
15:38 上传
点击文件名下载附件
求教各位高手：我常做一个工资统计报表，要求统计当月发生费用和年内累计发生费用。两组数字我一直采用手输的方法，求教各位，看能否通过什么方法，在我输完“本月发生数”后，“年初至本月累计数”能够自动累加出来，如果在“本月发生数”后能够添加一个按钮就更好了（我的意思是：当输入完“本月发生数”后，再点击按钮后，数值就开始累加）。不知道我的描述是否清楚，还恳请各位高手鼎立相助。
[ 本帖最后由 mlqe 于
15:38 编辑 ]
阅读权限30
在线时间 小时
上附件为最真!
阅读权限30
在线时间 小时
请上传附件吧！
阅读权限100
在线时间 小时
附件呢？没有附件还真不知怎么说。
阅读权限10
在线时间 小时
& & & & & & & &
已更新附件 请大家帮忙
阅读权限30
在线时间 小时
按你附件上所说的同一单元格中一半是引用而另一半用常数! 确实难! 改变你的思维方式或许更好!
在论坛上有多表格的综合统计的方法,你找找就明白你该怎么改了哦!
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师请大家帮帮忙！这个VBA怎么改啊？_百度知道