vba查询代码怎么写

2025-07-10 12:37:47分类：首页 > 知识

1.EXCEL VBA 中关于查询代码如何编写

问题太笼统，给你个例子看吧

Public Sub dsa()

Dim iObjRange As Range: Set iObjRange = Range("A1:A10000") '对比的目标区域

Dim iFindRange As Range: Set iFindRange = Range("K:K") '查找的目标区域

Dim iResult As Range: Set iResult = Range("J:J") '结果的输出区域

Dim iCell As Range, iFind As Range

For Each iCell In iObjRange

If iCell <> "" Then

'下面这句是主要的查询语句

Set iFind = iFindRange.Find(iCell.Value, LookIn:=xlValues, LookAt:=xlWhole)

If iFind Is Nothing Then

iResult.Cells(iCell.Row, 1).Value = "N"

Else

iResult.Cells(iCell.Row, 1).Value = "Y"

End If

End If

Next

End Sub

2.vba查询代码

1、查询第B到J列（也包括L到S列）内的内容，如果查询到，则返回第A列（或第K列内）的值。请问代码应该怎么写？？

For M=1 to 最大行数

If Sheet1.Cells(M, 2).Value="搜寻值" Then '第2列代表合并后的B到J列

Msgbox Sheet1.Cells(M, 1).Value '返回第A列内容

End If

If Sheet1.Cells(M, 12).Value="搜寻值" Then '第12列代表合并后的L到S列

Msgbox Sheet1.Cells(M, 11).Value '返回第K列内容

End If

Next

2、把几列或几行进行合并居中后，这个单元格应该如何用坐标表示呢？？

是以合并单元格中那个最左最上角的单元格坐标为准，如上面第一题的回答。

记得给分，：）

----------------------------------------------------------------------

1、查询第B到J列（也包括L到S列）内的内容，Sheet1.Cells(M, 2).Value="搜寻值" Then ，这个必须要全部字符串匹配吧，事实上我只查询这个单元格内的某一个词组啊。

那可以用模糊查询：If Instr(Sheet1.Cells(M, 2).Value，"搜寻值"）>0 Then

2、Msgbox Sheet1.Cells(M, 1).Value '返回第A列内容，

有可能查询到的第“M”行，并不是“最左最上角的单元格”，所以（M,1）其实是没有值的。怎么解决呢？

这个没有任何影响，也不会报错，例如第M行和第M+1行是行合并的单元格，且合并后的单元格内容为“测试”二字，则：

Msgbox Sheet1.Cells(M, 1).Value '返回的是“测试”二字

Msgbox Sheet1.Cells(M+1, 1).Value '返回的是“”空值，并不影响其他匹配和筛选操作、也不会报错，因此循环的时候就算轮到合并后的空行也没有关系的，你可以试试。

3.excel vba代码要怎么写

用如何代码可实现，假设原数据在A、B列

Sub main()

Set dic = CreateObject("scripting.dictionary")

arr = Range("A1").CurrentRegion

For i = 1 To UBound(arr)

If dic.exists(arr(i, 2)) = False Then

dic(arr(i, 2)) = arr(i, 1)

Else

If dic(arr(i, 2)) dic.Remove arr(i, 2)

dic(arr(i, 2)) = arr(i, 1)

End If

End If

Next i

[E1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)

[D1].Resize(dic.Count, 1) = Application.Transpose(dic.items)

End Sub

详细步骤如下：

1. 原数据

2. Alt+F11，选择sheet1，复制上述代码

3. 关闭返回工作表，alt+F8，掉出宏界面

4. 点击执行，即得到想要的结果：

4.请帮忙写一个Excel VBA查找的代码,不胜感激

Sub 查找北京或者上海（）

Dim arr

MyRow = ActiveSheet.[E65536].End(3).Row 'E例最后一行的行号

arr = Range("E1:E" & MyRow) 'E例字符串赋值给数组arr

For Each sh In arr '循环

I = I + 1

If InStr(sh， "上海") Or InStr(sh， "北京") <> 0 Then '如果数组字符串中包含上海或者北京

Range("E" & I).Select '选中对应的单元格

Selection.Interior.ColorIndex = 6 '单元格背景黄色

Selection.Font.ColorIndex = 3 '字体红色

End If

Next

End Sub

5.怎么查看excel的VBA代码

按住ALT+F11弹出VBA编辑器。

只是要破解么？

新建一个Excel工作簿，Alt+F11 打开VBA编辑器，新建一个模块 ，复制以下代码，注意如提示变量未定义，则把Option Explicit行删除即可，经测试已经通过.

'移除VBA编码保护

Sub MoveProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解"）

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, False

End If

End Sub

'设置VBA编码保护

Sub SetProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解"）

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, True

End If

End Sub

Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)

If Dir(FileName) = "" Then

Exit Function

Else

FileCopy FileName, FileName & ".bak"

End If

Dim GetData As String * 5

Open FileName For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "请先对VBA编码设置一个保护密码。"， 32， "提示"

Exit Function

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1

'取得一个0D0A十六进制字串

Get #1, CMGs - 2, St

'取得一个20十六制字串

Get #1, DPBo + 16, s20

'替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不配对符号

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功。。"， 32， "提示"

Else

Dim MMs As String * 5

MMs = "DPB="""

Put #1, CMGs, MMs

MsgBox "对文件特殊加密成功。。"， 32， "提示"

End If

Close #1

End Function

6.vba查询代码

1、查询第B到J列（也包括L到S列）内的内容，如果查询到，则返回第A列（或第K列内）的值。

请问代码应该怎么写？？For M=1 to 最大行数 If Sheet1.Cells(M, 2).Value="搜寻值" Then '第2列代表合并后的B到J列 Msgbox Sheet1.Cells(M, 1).Value '返回第A列内容 End If If Sheet1.Cells(M, 12).Value="搜寻值" Then '第12列代表合并后的L到S列 Msgbox Sheet1.Cells(M, 11).Value '返回第K列内容 End IfNext2、把几列或几行进行合并居中后，这个单元格应该如何用坐标表示呢？？ 是以合并单元格中那个最左最上角的单元格坐标为准，如上面第一题的回答。记得给分，：） ----------------------------------------------------------------------1、查询第B到J列（也包括L到S列）内的内容，Sheet1.Cells(M, 2).Value="搜寻值" Then ，这个必须要全部字符串匹配吧，事实上我只查询这个单元格内的某一个词组啊。

那可以用模糊查询：If Instr(Sheet1.Cells(M, 2).Value，"搜寻值"）>0 Then2、Msgbox Sheet1.Cells(M, 1).Value '返回第A列内容，有可能查询到的第“M”行，并不是“最左最上角的单元格”，所以（M,1）其实是没有值的。怎么解决呢？这个没有任何影响，也不会报错，例如第M行和第M+1行是行合并的单元格，且合并后的单元格内容为“测试”二字，则：Msgbox Sheet1.Cells(M, 1).Value '返回的是“测试”二字Msgbox Sheet1.Cells(M+1, 1).Value '返回的是“”空值，并不影响其他匹配和筛选操作、也不会报错，因此循环的时候就算轮到合并后的空行也没有关系的，你可以试试。

vba查询代码怎么写

转载请注明出处育才学习网 » vba查询代码怎么写

求和的vba代码怎么写 vba数据有效性代码怎么写 关闭窗体的vba代码怎么写
知识

ui笔顺笔画怎么写

阅读(1230)

本文主要为您介绍ui笔顺笔画怎么写，内容包括写字的笔顺笔画怎么写，各笔画笔顺怎么写，画的笔顺笔画怎么写。的笔画顺序：撇，竖，横折，横，横，撇，横折钩，点释义：的 [dí]1. 真实，实在：~确。~当（dàng ）。~情。~真。~证。的 [d

知识

那些年的留言怎么写

阅读(219)

本文主要为您介绍那些年的留言怎么写，内容包括同学录留言怎么写最好唯美点、，同学录的留言怎么写，同学录留言怎么写。在忙碌的生活中别忘了抽个时间，让自己轻松一睛，永远保持一颗年轻快乐的心。2、 今天的欢声笑语，今天的清风明日，美好却并非永

知识

stand的音标怎么写

阅读(269)

本文主要为您介绍stand的音标怎么写，内容包括stand的音标怎么拼，stand音标怎么读，stand的音标。stand拼音读作：sǐ dàn de 音标：英 [stænd] 美 [stænd] vi. 站立；位于；停滞vt. 使站立；忍受；抵抗

知识

ssh注册怎么写

阅读(206)

本文主要为您介绍ssh注册怎么写，内容包括求ssh用户注册的思路，如何注册ssh，ssh写了个登录注册,注册的时候怎么用ajax判断用户名是否重复。第一步：建立javaWeb项目，在jsp内画两个文本框，一个是用户名，一个是密码（这个应该没问题吧）第二步：在数据库

知识

i第一声怎么写

阅读(577)

本文主要为您介绍i第一声怎么写，内容包括拼音i的声调怎么写，“一”的第一声组词，yi第一声的字。1，本义，数词：最小原始单位，最小正整数。组词如：一块，一半，一边，一面，一举，一批，一群，一旦，一经， 唯一，专一，说一不二，一点，一

知识

重庆一日游作文怎么写

阅读(220)

本文主要为您介绍重庆一日游作文怎么写，内容包括磁器口一日游600字作文，重庆游作文，重庆一日游。磁器口，乃重庆着名景色之一。它将吃、玩、看融为一体，是重庆的一道着名风景线。磁器口最出名的小吃是羊肉串、陈麻花，最好吃的一道菜非毛血旺莫

知识

全篇议论文指导怎么写

阅读(214)

本文主要为您介绍全篇议论文指导怎么写，内容包括高中语文学习指导：怎样写好议论文作文，初中生如何写好议论文请老师指导，请问以[全]为话题的中学生作文应该怎么样写请指导下,谢谢。【怎样写好议论文】议论文的三要素议论文具有论点、论据和

知识

wps续表表头怎么写

阅读(224)

本文主要为您介绍wps续表表头怎么写，内容包括WPS软件、我如果要续表头应该怎么做，WPS中的表格怎么设置表头，WPS表格中三个内容以上的斜表头做法。1，给单元格加边框线。

知识

被面谈人意见怎么写

阅读(601)

本文主要为您介绍被面谈人意见怎么写，内容包括谈话对象对谈话人的意见和建议，《被考核人意见怎么写》，面谈评语怎么写。(1)做好充分准备：搜集各种相关的绩效资料；职位说明书；将被评价者的实际工作绩效与绩效标准对比；审查被评价者原来的绩效评

知识

村党支部牌子怎么写

阅读(427)

本文主要为您介绍村党支部牌子怎么写，内容包括村党支部牌子怎么写，党支部村委会牌子如何悬挂，制作党支部委员会牌子的规格如何规定的。按照进门方向，左边钉村党支部牌子，右边钉村委会牌子。可在两侧分开钉挂，也可并列钉挂；也有些说“中国传统是

知识

二氧化硅分子式怎么写

阅读(295)

本文主要为您介绍二氧化硅分子式怎么写，内容包括二氧化硅的分子式是什么，二氧化硅的分子式SiO2,，二氧化硅的化学方程式怎么写。化学式SiO2，式量60.08。也叫硅石，是一种坚硬难溶的固体。它常以石英、鳞石英、方石英三种变体出现。从地面往下16

知识

核酸分子式怎么写

阅读(271)

本文主要为您介绍核酸分子式怎么写，内容包括DNA的分子式怎么写，DNA的分子式怎么写，核酸的化学结构式是什么。这个问题没有直接的答案。蛋白质和核酸都是生物大分子，并没有一个统一的化学式。 首先说核酸，就目前而言，核酸一共有两大类：脱氧核糖

知识

柳条的诗歌怎么写

阅读(266)

本文主要为您介绍柳条的诗歌怎么写，内容包括写柳树的诗歌，描写柳条的诗词，描写柳树、柳条的词语、段落、诗歌等内容。柳树属于杨柳科，品种繁多，据知有三千多种，遍布世界各地。我国的柳树品种也多达五十余种，尤以垂柳、河柳、旱柳、杞柳、黄花柳

知识

卖房启示怎么写

阅读(279)

本文主要为您介绍卖房启示怎么写，内容包括售房启示怎么写售房启示的常见范本，卖房启示怎么写，房屋转让启示如何写。1.要写明房屋的格局，几居室. 2.位置在哪儿. 3.性质.是商品房，还是已购公房. 4.房子的情况：总高几层，在第几层，面积，板楼还是

知识

android自动代码怎么写

阅读(215)

本文主要为您介绍android自动代码怎么写，内容包括android程序里如何编写下载代码，如何做androidstudio自动生成代码插件，androidstudio怎么写代码。1.介绍 在使用Android Studio开发的时候，大部分人都会使用一些插件来提高开发效率，比如：Butte

知识

access登录代码怎么写

阅读(219)

本文主要为您介绍access登录代码怎么写，内容包括关于access登录窗口代码，access2007的登入窗体代码如何编写，关于access登录窗口代码。程序比较乱，说access登录窗口，但没有发现连接数据库的关键语句。很多不知道是控件还是其他，其实access登录

知识

divcss里文字上下滚动的代码怎么写

阅读(272)

本文主要为您介绍divcss里文字上下滚动的代码怎么写，内容包括div中的文字滚动效果的代码怎么写,不要jsp的,就直接用属性或者更，div中有一行文字,怎么实现部分文字上下滚动效果，html中上下滚动的文字代码,举例。<HTML> <HEAD> <META http-eq

知识

css初始化代码怎么写

阅读(224)

本文主要为您介绍css初始化代码怎么写，内容包括CSS初始化的代码怎么写，CSS初始化的代码怎么写，css初始化代码怎么用。1. 最耗资源的，最简单的* { padding: 0; margin: 0; border: 0; } 2. 选择性初始化举例（综合）

知识

java代码目录结构怎么写

阅读(227)

本文主要为您介绍java代码目录结构怎么写，内容包括使用java读取指定路径的目录结构；帮我把具体的代码,例子写出来,，java项目代码结构说明书怎么写，Java实现的多层目录结构呢。Node：目录节点，具备节点属性信息 NodeStore：平面目录节点持久化接口

知识

js网页跳转代码怎么写

阅读(235)

本文主要为您介绍js网页跳转代码怎么写，内容包括js跳转代码怎么写，js网页跳转的代码，JS代码怎么跳转到另一个页面呢。javascript常用的页面跳转方法为：window.location.href = some_url；下面举例演示点击按钮后，延迟3

知识

dw如何获取代码怎么写

阅读(231)

本文主要为您介绍dw如何获取代码怎么写，内容包括如何用DW获取网页上需要的html代码，如何用dw获取网页上需要的html代码，用dw编写代码如何查看。JS代码如下：<script language=＂javascript＂>var mydate = new Date();var myy

知识

thinkphp怎么写代码

阅读(245)

本文主要为您介绍thinkphp怎么写代码，内容包括如何写thinkphp的注册与登录代码，thinkphp中,index方法的代码怎么写啊，如何写thinkphp的注册与登录代码。两套页面表单，POST 请求 控制器的方法，注册，接受POST过来的值，判定用户是否存在， 或者用aja

[/e:loop]