Excel 三级联动

最新推荐文章于 2024-05-14 14:48:12 发布
最新推荐文章于 2024-05-14 14:48:12 发布
阅读量1.3k 收藏
点赞数
文章标签： vba excel 三级联动
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u010945409/article/details/120419314
版权

Excel 三级联动选择一级清空二三级，选择二级情况三级

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Rng As Range

'MsgBox (Target.Row)

If Target.Row < 2 Then Exit Sub
For Each Rng In Target

'MsgBox (Rng.Column)

If Rng.Column = 5 Then
Target.Next.ClearContents

Target.Next.Next.ClearContents
End If
If Rng.Column = 6 Then
Target.Next.ClearContents
End If
Next
End Sub

幸福专买店
关注
excel省市区三级联动
01-21
学习省市区联动deno。如果想要搞清楚建议看着公式定义一个一个撸一次，就能明白其中道理。如果没兴趣那就copy公式修改标记的值吧。博客地址：https://blog.csdn.net/qq_28325291/article/details/86598841
省市县excel三级联动.xlsx
03-18
省市县三级联动
POI实现excel三级联动
qq_30895747的博客
01-12 993
POI实现excel三级联动
EXCLE 如果制作三级联动？
chensx_2011的专栏
04-12 716
完成！
Excel实用技巧-三级下拉菜单联动（10分钟通关）
最新发布
zwldn的博客
05-14 4474
10分钟速成-下拉筛选框联动，小白轻松入门，快快操练起来吧
最新全国省市县excel三级联动（国家统计局20180620最新发布版本）
07-06
公司需要做个excel省市县三级联动，在网上找了很多资料，发现资料基本都不是最新的，索性自己去国家统计局官网上弄了份最新的数据，做成了这个excel表，其中函数的编写是从如下这里找到的：... 如果大家需要配套的的...
省市区三级联动Excel
11-13
这是基于Excel制作的三级联动，对有需要的同学可以下载，内部数据可能会随着时间随着规划会过时，方式是没有问题的
最全省市区三级联动excel
07-19
标题"最全省市区三级联动excel"暗示了这是一个包含中国所有省份、城市和区县的Excel表格，用于实现上述的联动效果。这样的资源对于开发者来说非常实用，尤其是那些需要处理地理位置信息的项目。Excel因其易于编辑、...
最全省市区三级联动excel表格
12-17
标题中的“最全省市区三级联动excel表格”指的是一个专门设计用于实现中国省、市、区三级数据联动的Excel表格模板。这种表格通常用于数据管理、统计分析或在Web应用程序中创建下拉选择框，以便用户可以按顺序选择...
在Excel中实现多级联动菜单
ysmlgr的博客
06-02 1万+
在Excel中 以省份、城市、区县为例，建立三级联动下拉框
Excel_三级联动_下拉菜单制件_模板
10-27
Excel_三级联动_下拉菜单制件_模板
Excel 三级 联动 下拉框 宏代码 实例
03-27
Excel 三级 联动 下拉框 宏代码 实例 代码注释 先在第一个下拉框加入一个valiation, 内容是 =$A$2:$A$5 Private Sub Worksheet_Change(ByVal Target As Range) ' Call back function which defined within according worksheet Dim i As Integer Dim tempStr As String Dim firstDrawBoxRowCount As Integer Dim firstDrawBoxColumn As Integer firstDrawBoxRowCount = 4 'Define the row number of first draw box firstDrawBoxColumn = 1 'Define the column number of ifrst draw box Dim secondDrawBoxRowCount As Integer Dim secondDrawBoxColumn As Integer secondDrawBoxRowCount = 33 'Define the row number of second draw box secondDrawBoxColumn = 4 'Define the column number of second draw box If Target.Column = 1 Then 'This defines the first column of draw box list, you can also define the row number of draw box list Cells(Target.Row, Target.Column + 1) = "" ' Do the clean first Cells(Target.Row, Target.Column + 1).Validation.Delete Cells(Target.Row, Target.Column + 2) = "" Cells(Target.Row, Target.Column + 2).Validation.Delete For i = 2 To firstDrawBoxRowCount + 1 'Enter the cycle to find out the content for column 2 If Trim(Cells(Target.Row, Target.Column)) = Trim(Cells(i, firstDrawBoxColumn)) Then tempStr = Trim(Cells(i, firstDrawBoxColumn + 1)) 'Find out the options for second draw box, it is seperated by , Cells(Target.Row, Target.Column + 1).Select ' Fill the validation to second draw box With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=tempStr .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True
多级联动菜单自动生成代码
11-26
这是一个多级联运菜单自动生成程序，很好用的只要你输入你想要的几级数就可以自动生成了
wps excel实现三级联动
xiao_xiao3601的博客
07-06 7084
wps excel实现三级联动
用EXCEL实现三级联动的vba代码
knifewei的专栏
07-16 1万+
Private Sub Worksheet_Change(ByVal Target As Range)Dim i As IntegerDim tempStr As StringDim firstDrawBoxRowCount As IntegerDim firstDrawBoxColumn As IntegerfirstDrawBoxRowCount = 15   --三级联动第一级的单元
POI实现excel导入导出时，级联菜单功能，上级菜单变化，下级菜单清空
Eric_YS的博客
12-14 2565
此前系统已经实现poi导出excel，其中有三个字段是级联下拉选项，省、市、区。现要实现在导出的excel里修改省，市和区要清空处理，修改市，区要清空。在网上百度一番，参考了网友的文章。需要用宏实现，然后琢磨将宏代码通过java代码实现写入，导出excel，后来发现这个思路是不对的。正确并且简单的方式为：在导出之前，是有一个excel模板的（用于导入生成模板对象），将vba代码放到该模板即可。...
Excel使用笔记（二）：宏之VBA使用
carter_yu的博客
02-18 760
在前面文章中：
Excel函数省市区三级联动模版
Eva_liang的博客
09-24 2192
Excel函数省市区三级联动模版提取码: wung
Excel省市区三级联动
热门推荐
VerusBin 的博客
06-20 4万+
今天做POI导入功能模板出现一个问题，在Excel中做一个省市区三级联动，这里把过程和大家分享下，希望批评指正   首先应该具备两个相关的数据，一个是省市区的sheet页表单资料。（这里提供附件下载：http://pan.baidu.com/s/1pKF5QWF） 另一个就是操作的Excel，做开发的一般都会保证向下兼容，所以这里只提供***.xls的写法，也就是Excel2007（2010...
JAVA设置excel三级联动，二级不选择，就一级和三级联动
05-24
可以通过使用Apache POI库来实现Java设置Excel三级联动，其中二级不选择时，只有一级和三级联动。 下面是一个简单的示例代码，实现了基于POI的Excel三级联动： ```java import java.io.FileInputStream; import java.io.FileOutputStream; import java.io.IOException; import java.util.ArrayList; import java.util.List; import org.apache.poi.ss.usermodel.Cell; import org.apache.poi.ss.usermodel.CellType; import org.apache.poi.ss.usermodel.Row; import org.apache.poi.ss.usermodel.Sheet; import org.apache.poi.ss.usermodel.Workbook; import org.apache.poi.ss.usermodel.WorkbookFactory; public class ExcelHelper { public static void main(String[] args) throws IOException { String inputFile = "input.xlsx"; String outputFile = "output.xlsx"; // 读取Excel文件 FileInputStream inputStream = new FileInputStream(inputFile); Workbook workbook = WorkbookFactory.create(inputStream); Sheet sheet = workbook.getSheetAt(0); // 获取一级选项列表 List<String> level1Options = getLevel1Options(sheet); // 获取三级选项列表 List<String> level3Options = getLevel3Options(sheet); // 添加一级选项列和三级选项列 addLevel1Column(sheet, level1Options); addLevel3Column(sheet, level3Options); // 写入Excel文件 FileOutputStream outputStream = new FileOutputStream(outputFile); workbook.write(outputStream); workbook.close(); outputStream.close(); System.out.println("Excel文件处理完成！"); } /** * 获取一级选项列表 */ private static List<String> getLevel1Options(Sheet sheet) { List<String> level1Options = new ArrayList<>(); int lastRowNum = sheet.getLastRowNum(); for (int i = 1; i <= lastRowNum; i++) { Row row = sheet.getRow(i); if (row != null) { Cell cell = row.getCell(0); if (cell != null && cell.getCellType() == CellType.STRING) { String option = cell.getStringCellValue(); if (!level1Options.contains(option)) { level1Options.add(option); } } } } return level1Options; } /** * 获取三级选项列表 */ private static List<String> getLevel3Options(Sheet sheet) { List<String> level3Options = new ArrayList<>(); int lastRowNum = sheet.getLastRowNum(); for (int i = 1; i <= lastRowNum; i++) { Row row = sheet.getRow(i); if (row != null) { Cell cell = row.getCell(2); if (cell != null && cell.getCellType() == CellType.STRING) { String option = cell.getStringCellValue(); if (!level3Options.contains(option)) { level3Options.add(option); } } } } return level3Options; } /** * 添加一级选项列 */ private static void addLevel1Column(Sheet sheet, List<String> level1Options) { int lastRowNum = sheet.getLastRowNum(); for (int i = 1; i <= lastRowNum; i++) { Row row = sheet.getRow(i); if (row != null) { Cell cell = row.getCell(0); if (cell != null && cell.getCellType() == CellType.STRING) { String option = cell.getStringCellValue(); int level1Index = level1Options.indexOf(option); Cell level1Cell = row.createCell(3); level1Cell.setCellValue(level1Index + 1); } } } // 添加一级选项标题 Row titleRow = sheet.getRow(0); Cell level1TitleCell = titleRow.createCell(3); level1TitleCell.setCellValue("一级选项"); } /** * 添加三级选项列 */ private static void addLevel3Column(Sheet sheet, List<String> level3Options) { int lastRowNum = sheet.getLastRowNum(); for (int i = 1; i <= lastRowNum; i++) { Row row = sheet.getRow(i); if (row != null) { Cell cell = row.getCell(2); if (cell != null && cell.getCellType() == CellType.STRING) { String option = cell.getStringCellValue(); int level3Index = level3Options.indexOf(option); Cell level3Cell = row.createCell(4); level3Cell.setCellValue(level3Index + 1); } } } // 添加三级选项标题 Row titleRow = sheet.getRow(0); Cell level3TitleCell = titleRow.createCell(4); level3TitleCell.setCellValue("三级选项"); } } ``` 在上面的代码中，我们首先读取Excel文件，然后获取一级选项列表和三级选项列表。接着，我们在Excel表格中添加一个名为“一级选项”的列和一个名为“三级选项”的列。对于每一行数据，我们将其一级选项的值转换为对应的序号，并将其写入新添加的一级选项列中。同样，对于每一行数据，我们将其三级选项的值转换为对应的序号，并将其写入新添加的三级选项列中。最后，我们将处理后的Excel文件写入磁盘。 需要注意的是，上面的代码仅仅是一个示例，实际应用中可能需要根据具体的需求进行修改。同时，上面的代码也没有考虑到错误处理和异常情况，实际应用中需要注意这些问题。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值