Tag: visual studio macros

在Microsoft Excel中遭到抨击

我有一个IP地址列表，可以说如下： 192.168.1.1 192.1688.2.1 192.168.3.1 现在我想在excel中写一个macros，当我在列中input一个IP地址时，例如192.168.3.48，它应该从列表中search前三个段（192.168.3），并将一个string添加到另一个单元格中。 例如，如果IP地址的前三个部分是192.168.3，那么它应该添加APP，否则其他的东西。 我本来可以很容易地用Java或其他编程语言来实现这个目标，但是当涉及到excel的时候，它却遇到了棘手的问题。 正常的逻辑是从input的IP地址中丢弃前三个段，然后从列表中search这个新的string。 如果发现那么值是真实的（或在这种情况下APP）。 我真的很困惑如何在Excel中实现这一点。 任何帮助将非常感激。

如何在数据库中显示Excel中的°C符号？

我正在使用一个Excel文件，其中一个单元格包含°C符号与其他string（Ex .. -40°C） 而我正在尝试使用该单元格的值 Dim strIn As String strIn = Range("B2").Text 所有工作正常和strIn有一个值“-40°C”，但一旦我改变我的地区设置如下.. 它开始显示strIn值为“-40？c” 0°符号随着？ 预先感谢任何帮助..利约何塞。

运行代码时手动编辑Excel表

我想知道，如果我可以填写一行值的代码运行过程中，当代码显示msgbox要求我填写相同的值。 我试图填充它们，但是在按下消息框上的“确定”后，代码将继续运行，而且，如果不在消息框上按OK，则无法编辑该文件。 那么，有谁能告诉我是否有办法做到这一点？ 提前致谢！

find一切不是

我们的一个客户给我发送了这个巨大的 excel文件，我的任务之一就是构build一个能清理less量数据的macros。 现在，我find了一个excellent example ，其中一个用户build议使用Excel查找方法来加快这个过程… BTW是完美的工作。 但是 ，在我的情况下，我想保持匹配的行，并删除其余的。 我如何在VBA中做到这一点？ 例如，他们在说什么 Set rFound = .Columns(1).Find(What:="Cat", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=…) 我怎样才能将“什么”的值设置为“不”？ 我尝试了几个不同的东西，如： 昏暗的猫作为string|| 猫=“猫”|| 设置notCat <>猫…..什么：= notCat DIM notCat <>“猫”…..什么：= notCat 什么：<> “猫” 什么：=“<>”＆猫 … { 我不知道他们为什么这样build议，它只是将string从'猫'改为'<>猫'…我认为是错误的 } 这可能是一个非常愚蠢的问题…但我只是无法find正确的答案，并感到非常沮丧:(任何帮助将不胜感激！

Excel VBA range.find表演

我试图使用range.find查找列中的值，并返回下一列的匹配值。 我使用macroslogging器logging了find（），这似乎在一段时间内工作正常，但由于某种原因，现在给我一个错误。 据我所知，我没有改变任何应该影响这一点的代码。 这是我的 Public Function look_up_id(id, table) Worksheets(table).Activate Cells.Find(What:=id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate look_up_id = ActiveCell.Offset(0, 1).Value End Function 我现在得到的错误是： 对象variables或未设置块variables 任何想法为什么这是现在发生？ 所有的资源，我可以在range.find（）看起来像我做对了… 干杯 – 大卫

在Excel VBA中将整数与货币相乘

在我的Excel表中，我有一行（第五行）作为项目的数量和另一个（第六行）作为项目的价格。 例如，我想用$ 56.50乘以200，但我遇到了这个脚本的问题。 任何人都可以请帮忙。 Sub calcprice() Dim i As Integer Dim iRowNumber As Integer ' Integer to store result in Dim val As Double iRowNumber = InputBox(Prompt:="Number of Rows", _ Title:="Rows: ", Default:="# of Rows") For i = 1 To iRowNumber If Cells(i, 5).Value >= 0 And Cells(i, 6).Value >= 0 And IsEmpty(Cells(i, 5)) = […]