某个单元格的值人工输入，其它单元格的值根据另一个工作表中的这个单元格的值自动填充
如下图，比如BOM这个工作表的【件号/规格型号】字段人工输入后，他自动在Item这个工作表中去找相应的字段【FModelSpecification】，找到后将【物料属性】、【物料状态】等字段自动填充，不需要人工输入，找不到则不用管。用VBA实现。
1、【物料属性】对应Item工作表的【FMaterialProperty】
2、【物料状态】对应Item工作表的【FMaterialState】
-
等级
本版专家分：11结帖率 96.97% -
http://www.excelpx.com/thread-386311-1-1.html
某个单元格的值人工输入，其它单元格的值根据另一个工作表中的这个单元格的值自动填充
如下图，比如BOM这个工作表的【件号/规格型号】字段人工输入后，他自动在Item这个工作表中去找相应的字段【FModelSpecification】，找到后将【物料属性】、【物料状态】等字段自动填充，不需要人工输入，找不到则不用管。用VBA实现。
1、【物料属性】对应Item工作表的【FMaterialProperty】
2、【物料状态】对应Item工作表的【FMaterialState】
展开阅读全文
-
等级
本版专家分：13847勋章
-
-
红花
2016年3月 VB大版内专家分月排行榜第一
2015年1月 VB大版内专家分月排行榜第一
2014年12月 VB大版内专家分月排行榜第一
-
-
黄花
2015年4月 VB大版内专家分月排行榜第二
2015年3月 VB大版内专家分月排行榜第二
2014年11月 VB大版内专家分月排行榜第二
2014年10月 VB大版内专家分月排行榜第二
-
- 蓝花 2014年4月 VB大版内专家分月排行榜第三
-
-
这个用不着VBA！用公式就可以完成。
问题是：你没有说填到哪里去
-
等级
本版专家分：11
-
填到BOM工作表里面。
你能不能在VBA里面帮我实现，这只是我写的VBA程序的一段。
-
等级
本版专家分：13847勋章
-
-
红花
2016年3月 VB大版内专家分月排行榜第一
2015年1月 VB大版内专家分月排行榜第一
2014年12月 VB大版内专家分月排行榜第一
-
-
黄花
2015年4月 VB大版内专家分月排行榜第二
2015年3月 VB大版内专家分月排行榜第二
2014年11月 VB大版内专家分月排行榜第二
2014年10月 VB大版内专家分月排行榜第二
-
- 蓝花 2014年4月 VB大版内专家分月排行榜第三
-
-
我是问你填到bom中的哪一列！
参考：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then ''假如手动输入的列是第4列，自己根据需要修改
Dim Rng As Range
''从item表格D列中找到与target相同的单元格
Set Rng = Sheets("item").Columns("d:d").Find(What:=Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then
''如果能找到，则开始填充。这里用的负值表示指定单元格左侧第n个单元格，如果在右侧，用正值
Target.Offset(0, -1) = Rng.Offset(0, -1)
Target.Offset(0, -2) = Rng.Offset(0, -2)
'''.......
End If
End If
End Sub
...
-
等级
本版专家分：60297勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
这是很容易的事。
问题是，找到数据后，写到哪列中去啊！
你的第1张图片中根本看不出【物料属性】、【物料状态】要填到BOM表的哪列中去！
-
等级
本版专家分：60297勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
你给的那个链接中的附件，我没有账号不能下载，我也没兴趣去注册账号。
给你一个简单的示例：
1. 假设你的 Item表 中FModelSpecification字段的数据是唯一的；并且，从第2行开始连续存放。
2. 自己在这个工作簿的VBA工程中，添加一个窗体，然后画一个文本框、一个命令按钮。
3. 把刚才添加的那个窗体的 ShowModal属性改为 False（默认是 True）。要不然，就不方便“连续填写”数据。
4. 假设刚才的控件都是用的默认名称（如果你改了控件名，自己修正下面代码中相应的控件名）。
5. 代码及实现方法，仅供参考。更多的操作细节，你自己处理。
6. 你必须把代码中“列号1、列号2、列号3”改为对应的数值（A =1、B =2、C =3、AA =27，其列余类推）。
7. 如果要从 Item表 中读取其它列的数据写入 BOM表中，参考下面代码第39、41行，自己写代码。
8. 在VBE中，先添加的那个窗体设计器窗口（或它的代码窗口）为“活动窗口”时，按F5启动VBA代码。
9. 启动程序后，在 BOM表 中要填数据的行上任意点中一个单元格，
在窗口的 TextBox输入【件号/规格型号】数据，然后点击 CommandButton1实现数据的自动填充。
代码如下：
Option Explicit
Private arrData() As String
Private moSourSht As Worksheet
Private moDestSht As Worksheet
Private mlLastPnt As Long
Private Sub LoadData()
Dim objSht As Worksheet
Dim strTemp As String
Dim i&, w As Long
Set moSourSht = Sheets("Items")
w = WorksheetFunction.CountA(moSourSht.Range("V:V"))
ReDim arrData(w)
For i = 1& To w
strTemp = moSourSht.Cells(i, 22).Value
If ("" = strTemp) Then Exit For
arrData(i) = strTemp
Next
mlLastPnt = i - 1
End Sub
Private Function FillData(ByVal iRow As Long) As Long
Dim strTemp As String
Dim lRet As Long
Dim i As Long
strTemp = UCase$(Trim$(TextBox1.Text))
If ("" = strTemp) Then Exit Function ' 未输入有效数据
For i = 2 To mlLastPnt
If (strTemp = arrData(i)) Then Exit For
Next
If (i > mlLastPnt) Then
lRet = -1&
Else
moDestSht.Cells(iRow, 列号1).Value = strTemp '【件号/规格型号】
' 【物料属性】：
moDestSht.Cells(iRow, 列号2).Value = moSourSht.Cells(i, 20).Value
' 【物料状态】：
moDestSht.Cells(iRow, 列号3).Value = moSourSht.Cells(i, 21).Value
lRet = 0&
End If
FillData = lRet
End Function
Private Sub CommandButton1_Click()
Dim w As Long
' 如果当前活动工作表不是BOM表，不执行操作
If (Not ActiveSheet Is moDestSht) Then Exit Sub
' 选定的行属于“表头”区，不执行操作
w = ActiveCell.Row
If (w < 4) Then Exit Sub
' 准备自动填充数据
If (FillData(w)) Then MsgBox "未找到输入项目。", 64
End Sub
Private Sub UserForm_Initialize()
mlLastPnt = 0&
Call LoadData
Set moDestSht = Sheets("BOM")
End Sub
Private Sub UserForm_Terminate()
Set moSourSht = Nothing
Set moDestSht = Nothing
End Sub
-
等级
本版专家分：11
-
＃3，＃5，不好意思，我BOM工作表中的物料属性、物料状态确实没有显示出来。我还以为我传了附件的。
- 利用VBA代码从一个表格检索另一个表格并且复制找到的内容
Excel表格，想以其中某一列为索引，查找另一个表格中同样索引的行，找到该行的某个内容复制到原来的表格指定的位置中。还可以删除原有表格中重复的内容。应用场景非常多，比如：利用学生学号和考场分配表查找学生...
- 基于另一个单元格值的条件格式
I'm using Google Sheets for a daily dashboard. 我正在使用Google表格作为日常仪表板。 What I need is to change the b
- 如何根据首值批量填充空白单元格
介个，是从合并单元格中延伸出来的问题……遇到的人也挺多的。...其实这个问题灰常的简单，点击工作表左上角行、列标签交汇处——全选单元格，然后点一下工作栏上的“合并单元格”按钮就完成了！这又一次体现了Excel
- VBA单元格、工作表、工作簿
详解VBA单元格、工作表、工作簿各种表示、方法，注意事项。
- [Excel]excel如何设置输入数字后单元格自动填充颜色
在使用excel的过程中，有时需要在输入数字时，突出显示这些单元格，突出显示可以用有填充颜色的单元格来表示。为了实现这样的效果，需要借助excel的条件格式。 工具/原料 电脑 ...
- Excel 填充间格空白单元格与最上临近非空单元格值相同
按照图中①②③操作即可：
- excel中查找具有相同列值的单元格，并返回相应的列中单元格的值
实例截图 公式在e例中：VLOOKUP(D1,Sheet1!$B$1:$C$5,2,FALSE) 大家有兴趣收藏一下 ，把D1中的值在b1:c5范围中...意思是：在工作表sheet2的A1:B100区域的A列查找与本工作表的A1相同的值，找不到则返回错误值，找到的...
- 用上面的值填充Excel中的空白单元格
excel 填充空白单元格 用上面的值填充Excel中的空白单元格 (Fill Blank Cells in Excel With Value from Above)I’m updating some of the pages on my website, and found an old video that shows how to fill ...
- excel中统计每一行中指定字体颜色和填充颜色的单元格求和（不使用VBA）
今天早上同事问了一个看似简单，但是实现起来却一头雾水的问题。那就是对着满屏幕“五颜六色”的数字，要求出每一行中指定颜色的单元格的数值之和。（如下图，因涉及数据敏感性，简易表示一下） 这个问题看似简单...
- excel如何设置输入数字后单元格自动填充颜色
在使用excel的过程中，有时需要在输入数字时，突出显示这些单元格，突出显示可以用有填充颜色的单元格来表示。为了实现这样的效果，需要借助excel的条件格式。 工具/原料 电脑 Excel ...
- vc操作excel填充单元格的值
#include "excel.h" BOOL CTestExcelCtrl::saveexcel(LPCTSTR str) { // TODO: Add your dispatch handler code here _Application app; Workbooks books...//工作表的集合<br /
- Excel VBA（02）工作簿、工作表、单元格操作
一个 excel 文件对应一个 workbook，打开后对应一个文件窗口 Windows(1).Visible = True 二、基本操作 1、判断文件是否存在和打开 是否存在：输出为 0 就是不存在 Debug.Print Len(Dir("d:\test.xlsx")) 是否...
- Excel vba开发 合并单元格拆分自动填充功能、在每一条数据后面插入空白行、将地理坐标的经纬度转换成度等...
最近老大丢给我一个数据量比较大，比较复杂的表，让我用VB去处理，刚被分到这个任务的时候一脸茫然，对Excel VB开发一点都不了解，所以就自己研究并查资料，最后终于解决了。 一、Excel VBA拆分合并单元格并自动...
- VBA处理工作表合并单元格 - 格式篇
Excel合并单元格是有人爱有人恨的功能，一般来说数据分析师都非常憎恨这个功能，因为合并单元格常常闹幺蛾子，导致数据统计和格式化障碍重重。 格式篇 对于普通的规整数据，如果需要设置成间隔填充颜色，可以...
- Excel系列教程（1）：如何自动填充单元格
Office的每个组件当中都蕴藏着极大的学问，只要一个人精通其中的一个，那这个人就已经是大神级别的存在了。有些时候，我们会误认为自己精通某项技能，但实际上，我们很有可能连入门的级别都不到。 从今天开始，文轩...
- Excel把一个工作表根据条件拆分成多个工作表
有时候需要在一个工作簿中建立多个工作表，并且需要自定义工作表的名称，手动的一个个双击表名去修改非常麻烦，特别是这次我需要建立一百多个表的时候。。。。 方法一：使用数据透视表功能 方法二 使用VB写模块...
- excel如何设置输入数字后单元格自动填充颜色
在使用excel的过程中，有时需要在输入数字时，突出显示这些单元格，突出显示可以用有填充颜色的单元格来表示。为了实现这样的效果，需要借助excel的条件格式。 工具/原料 电脑 Excel ...
- ElTable实现空单元格自动填充占位符
ElTable实现空单元格自动填充占位符‘–’ 根据前端开发规范及UE建议，考虑给表单的空单元格插入占位符‘–’，一开始的想法很简单，在el-table-column中渲染时对传入的data进行判断即可，相关代码如下： <el-...
- python读取合并单元格后的xlsx文件出现缺失值
在Excel的数据分析中，是切记不要合并单元格的，这可能会导致不能排序等一些列问题。而我为了表格好看，在工作的前几天就入了这种坑。那我们以下面的数据为例，看看如何取消单元格合并。03 Python解决 ① 利用...
- Excel2007VBA数组和工作表及单元格的引用
动态数组使用： https://zhidao.baidu.com/question/1432222709706721499.html 使用Redim动态数组即可。 1 2 3 4 5 6 7 8 Subtest1() Dima()AsInteger,iRowAsLong,iAsInteger ...iRow=C...
- 利用Excel公式将销售明细表中合并单元格填充地区名称.rar
利用Excel公式将销售明细表中合并单元格填充地区名称.rar,本例所示的地区销售明细表中，为了其他应用的需要，必须将地区列的合并单元格中的空单元格填充对应的地区名称，利用介绍的公式可以实现这种需求。
- openpyxl_demos（openpyxl一：工作簿、工作表、单元格、样式、页面设置）
（openpyxl一：工作簿、工作表、单元格、样式、页面设置） 深入： 自适应列宽设置。 使用： 官网文档：https://openpyxl.readthedocs.io/en/stable/tutorial.html 创建工作簿Workbook对象及属性方法 ：Workbook...
- Excel里多个sheet合并成一个/取消合并单元格并自动填充
Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.
- 使用VBA程序进行单元格颜色填充
2. 双击VBA工程资源管理器里面的“Sheet1（Sheet1）”，在代码窗口里面输入以下代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) '改变选择单元格时执行 Dim i, j, k As Integer...
- Office EXCEL 表格如何设置某个单元格是选择项，如何设置二级下拉菜单 WPS版
1 做好一级菜单和二级菜单（加粗的第一列就是一级菜单，下面的都是对应的二级菜单），二级菜单的数量可以不一致 2 选择下面一列区域，然后点击公式-指定，只勾选首行，然后点击确定 3 只选择第一...
- C# 读取 Excel 模板 并向指定单元格 插入数据
C# 读取 Excel 模板 并向指定单元格 插入数据
- 如何在Excel中将多个单元格中的文本合并到一个单元格中
If you have a large worksheet in an Excel workbook in which you need to combine text from multiple cells, you can breathe a sigh of relief because you don’t have to retype all that text....
- 给用户窗体控件ListBox列表框填充单元格数据的多种方法
<br />ListBox列表框，是OFFICE软件之... 第一种方法：使用RowSource属性 您能将列表框直接与工作表上的一个单元格区域相链接。在该区域中的数据变化将会引发列表框数据产生相应的变化；但在
- VBA - Excel编程概念之:【单元格和区域】一、如何引用单元格和区域
使用 Visual Basic 的普通任务是指定单元格或单元格区域，然后对该单元格或单元格区域进行一些操作，如输入公式或更改格式。通常用一条语句就能完成操作，该语句可标识单元格，还可更改某个属性或应用某个方法。在 ...
- POI导出——Excel实现单元格的背景色填充
而POI api这个家伙里面的坑有时候真的是让你分分钟没有脾气，所以打算记录下来，分享一下poi的坑及其解决方法。 2.POI导出Excel设置单元格背景色 2.1使用poi提供的背景色 //1.获取Excel工作簿对象 HSSFWorkbook ...