1回答
由于这个站点，我根据自己的需要修改了代码，这个宏允许我将X行的特定单元格与Y行的另一个单元格进行比较，并且所有单元格之间不仅有1或2个单元格，而且该行的所有单元格之间都有匹配，如果找不到匹配的话，则给出1和
宏是比较我想要的X行和Y，而不是比较X与Y+1或Y+2，它直接传递给X+1并与Y+1进行比较
要更好地理解我的问题，请参见下面的 :
在这幅图像中，两条黄色的线条是相同的，在AO列中，第一行有一个infront，第二行有一个infront。
那么，如何将每一行与其他行(X与Y、Y+1、Y+2)进行比较，然后转到下一排，以及当有突出显示或返回列"AO“中的1的匹配时
浏览 0提问于2018-07-04得票数 1
1回答
我的数据库中存储了以下XML结构：
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<Payouts>
<Range end="1" start="1">900</Range>
<Range end="2" start="2">650</Range>
<Range end="3" start="3">
浏览 4提问于2016-06-05得票数 0
回答已采纳
2回答
在标记复选框时，我有一些代码在工作:取消隐藏“旅行计算器”工作表，解锁当前工作表，从“旅行计算器”工作表中根据单元格更改单元格的值，然后再次锁定当前工作表。当未标记复选框时，单元格应保持未锁定，“旅行计算器”应保持隐藏。这是很好的，但是，我希望它能够不断地更新当前工作表中的值，这是基于在标记复选框(Value=True)时对旅行计算器所做的更改。
是否有人对下面的代码有任何更改，当方框值= True和“旅行计算器”表中的旅行总数的值发生变化时，我可以尝试使其更新？谢谢!
Private Sub travelcalc_Click()
ActiveSheet.Unprotect Password:
浏览 6提问于2015-03-09得票数 0
回答已采纳
我有下面的代码
range_sum_result = C15 (这是我想把和的结果放在一起的地方)
range_to_sum = C2:C14 (这是我想和的值的范围)
range_date_search = B2:B15 (这是一个包含我希望与之比较的日期的列)
Start_date_range = 22/07/2021
End_date_range = 28/07/2021 23:59:59
‘'SUMIFS Worksheets("Data_Graph2").Range(range_sum_result).Value = WorksheetFunction.Sum
浏览 6提问于2021-08-11得票数 1
回答已采纳
1回答
因此，我目前正在研究一种更简单的方法来计划一周的工作时间。
我目前正在努力的是，在计算细胞之前，我需要替换一些细胞。
如图所示，l10->r10成功地翻译了16->R6的字段。
但是现在我希望它直接写出答案，而不是有一个单独的字段(K10)。
关于K10的公式：
=LET(range;L10:R10;SUMPRODUCT(MID(SUBSTITUTE(range;".";":");FIND("-";range)+1;LEN(range)) - LEFT(SUBSTITUTE(range;".";":&
浏览 3提问于2022-09-12得票数 1
回答已采纳
我有一个母版空白工作簿，用户复制，以记录一年的信息价值。主空白允许用户指向去年的“旧”工作簿，将适当的行数插入到新的行中以匹配旧的工作簿，然后复制/粘贴两个从旧的连续范围到“新”空白工作簿中的匹配范围。
现在，我希望它将旧工作表上的非连续列的总和复制到新工作表上不同的非连续单元格中。
每个用户的总计位于不同的行上，因此我使用最后一行函数来查找行号。但我似乎不能用它来定义非连续范围。
所有代码都包括在下面。您将注意到一个部分，其中我尝试使用Union on ranges将所有数据从旧工作表复制到新工作表中，因为它也是一组不连续的单元格，但它也不起作用。如果我把第一个问题解决了，我应该能够适应第二
浏览 1提问于2014-01-10得票数 1
我有四个unix时间。其中两个是“今天”的开始和结束(无论是哪一天)--即00:00:00和23:59:59 --另外两个是用户选择的时间。
我需要的是一个(TSQL友好的)查询来检查“今天”时间之间的时间段是否与用户的时间重叠。有人能帮上忙吗？
浏览 1提问于2012-07-23得票数 2
回答已采纳
我的最终目标是打印以竖线分隔的单元格，为此，我尝试将每行上的所有内容打印到每行上的单元格AB中。我正在尝试遍历每一行，但是目前我得到的是在所有行中重复的第一行代码，而不是单独打印的每一行。
Sub print_misc()
Dim cell As Range
Dim lastRow As Long
Sheets("1099-Misc_Form_Template").Select
lastRow = Range("B" & Rows.Count).End(xlUp).row
For Each cell In Range("AB2:" &a
浏览 17提问于2019-07-25得票数 0
回答已采纳
1回答
我想在扑克中实现手牌范围，这基本上是一套两张牌(=手)。由于一个范围可以控制很多人，所以我想创建“默认”范围并从那里调整我的范围。我想用下面的方法来做：
掌握my range 的range类为预定义的range创建内部枚举
有没有更好的方法呢？我将枚举嵌套在range类中，以通过路径Range.Prefined.*提高可读性。尽管如此，它感觉有点笨拙，特别是我设置范围的部分。
public class Range{
ArrayList<Hand> range;
public Range(ArrayList<Hand> r){
this.
浏览 3提问于2017-05-10得票数 0
我有一个非常慢的宏。我怎样才能加快速度/用更好的东西代替它呢？
我有多达20个可能的不同结束日期，我想填充一个顺序列表的日期从一个设定的开始日期，到最近的结束日期。
Sub DateAutoFill()
Dim StartD As Date, EndD As Date
StartD = Worksheets("Calculator").Range("B55")
If IsDate(Worksheets("Calculator").Range("AN60")) Then
EndD = Work
浏览 3提问于2022-03-30得票数 1
2回答
我有一个类似于下面的表设置：
CREATE table TABLE_prices
(
PRICE_ID int unsigned not null auto_increment primary key,
RANGE1_START int,
RANGE1_END int,
RANGE1_PRICE decimal(10,2),
RANGE2_START int,
RANGE2_END int,
RANGE2_PRICE decimal(10,2),
RANGE3_START int,
RANGE3_END int,
RANGE3_PRICE decimal(10,2)
);
如果我有一个
浏览 0提问于2013-01-28得票数 0
回答已采纳
我对Excel很陌生，并且正在学习创建公式。最近，我需要创建一个宏，在其中单击“更新”按钮后，它会复制工作表中特定行的几个列，并将这些复制的列插入到最后一行的另一个工作表中。
示例:下面是一个表格(GUI)中的数据：
从这些数据中，我想读取所有黄色高亮显示的数据，并将其插入另一个工作表(DataTogether)末尾：
以上读取值需要插入到第二页中突出显示的黄色字段中。其余的都是银行。
设想情况：
从第一页中显示的数据中，当我按“更新”按钮时，它将读取所有突出显示的数据，但会将数据插入到表2中，其中传递J列中的值。
即，第11行和第13行中的值将被读取并插入第2页。
插入操作后
浏览 0提问于2017-05-11得票数 0
回答已采纳
1回答
我尝试让代码选择一个单元格，然后使用.End(XlDown)、.Select和Selection.Copy来复制数据集，但是在让代码使用循环中的变量选择第一个单元格时遇到了问题。我知道我的语法在range函数上是错误的，但我不确定在哪里。任何帮助都将不胜感激。
Sub Copy_Function_Data()
Dim Target As String
Dim X As Integer
Dim Y As Integer
Dim Target_2 As String
Dim Last_Row3 As Integer
Dim Last_Column3 As Integer
Dim Title_Cou
浏览 3提问于2016-05-17得票数 0
回答已采纳
2回答
完全失去了这里的新手。
我试图获得多个特定的字段值，以便根据来自另一个字段的输入进行更改。我一直在摆脱堆栈空间的错误。下面是我的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D2").Value = "Small" Then
Range("A7").Value = "Yes"
Range("A8").Value = "No"
Range("A11
浏览 0提问于2018-06-20得票数 1
回答已采纳
2回答
什么是pythonic (可以使用numpy)在范围[range_length_min, range_length_max]中生成一个随机的长度范围[range_start, range_end]。
示例：
range_length_min = 5range_length_max = 10range_start = 0range_end = 2000
允许的解决方案：
[53, 59][934, 941]
无效解决方案：
[92, 94]因为范围的长度小于range_length_min[92, 104]，因为范围的长度大于range_length_max[-4, 3]，因为范围的开始小于ra
浏览 4提问于2019-12-18得票数 0
3回答
我正在应用文本属性string的“更新-”。
var attributedText: NSMutableAttributedString = NSMutableAttributedString(string: textView.text)
let rangeOfString = (textView.text as NSString).rangeOfString("Updated - ")
attributedText.addAttributes([NSFontAttributeName: UIFont.italicSystem
浏览 9提问于2015-07-28得票数 2
回答已采纳
我有一个下拉列表，其中填充了数据库中的“价格范围”。我想根据“价格范围”显示相关的“价格”--例如，在数据库中，我有这一行
Price Range Price
"0-1500" 28
"1501-1750" 30
当我选择范围"1501-1750“时，输入字段或段落标签中显示的相应的”价格“值。
下面是我的Model.py、views.py和home.html文件
models.py
from django.db import models
浏览 2提问于2021-08-07得票数 0
回答已采纳
如何简单地检查一个范围是否是另一个范围的子范围？
range1 in range2不会像预期的那样工作。
浏览 0提问于2015-09-09得票数 7
我一直在尝试创建一个复制下一个单元格并将数据粘贴到同一个单元格的函数，但我真的不知道如何创建它。 任何帮助都将不胜感激。 Dim Lrow As Long
With Sheet1
Lrow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("C2:C" & Lrow).Copy Sheet7.Range("A2")
.Range("I2:I" & Lrow).Copy Sheet7.Range("C2")
.Range("B2:B" &
浏览 6提问于2021-08-16得票数 0
回答已采纳
3回答
我有两个整数范围，需要确定它们是否重叠。一个或两个范围都可以是开放的。有人有一个this函数来实现这个目的吗？
浏览 2提问于2014-08-18得票数 1
回答已采纳
我有一个mysql表来保存我们每个月的故障排除票数范围。由于我将月票详细信息存储在单独的表中，如何获得我的列表票号介于它们之间的票证范围记录？当然，我可以使用PHP，但我必须使用mysql查询。
我的样表和数据如下：
CREATE TABLE `ticket_range` (
`id` int(11) NOT NULL AUTO_INCREMENT,
`start_range` bigint(20) unsigned NOT NULL,
`end_range` bigint(20) unsigned NOT NULL,
`ra
浏览 0提问于2019-04-24得票数 0
2回答
不能搜索范围
、、、、
我对VB很陌生。试着写一个宏来帮助我的日常工作。在这个网站上呆了不少，帮我走了这么远。仍然有问题，所以我想我会发布我的问题。
我需要搜索A列中的某个单词，然后搜索B列中的某个数字，然后在一个范围内的单元格值中进行计数和显示。
因此，本质上，如果A列= "Word“和B列<0，那么Cell.value = Countif(ColumnC，Range) MsgBox = "nothing found”
见下文。它可以工作，但出于某种原因，我得到了编写ColumnC范围的所有值，它不读A列"Word“或列B。任何评论都会有帮助。提前欢呼！！
Sub Word()
Di
浏览 4提问于2016-06-16得票数 1
回答已采纳
我想将编号的段落从Word复制到Excel。
我想将以下段落复制到Excel中的单个单元格中
航向
这是段
标题2
这是段
标题3
这是段
这本身就是一个段落
我可以通过下面的功能计数编号的项目，但卡在复制和中断直到另一个编号的项目。
count_observations = ActiveDocument.Content.ListFormat.CountNumberedItems(Level:=1)
浏览 7提问于2022-02-12得票数 0
在这个编程的世界里，我是个新手。我两天前就开始使用VBA了，已经遇到了障碍。我的目标是将多个列(每个列从单独的工作表)复制到一个Database表(或代码中引用的Sheet2 )。我的代码works但excel在保留空任何列时都会报告我的错误。如有任何帮助或解释，将不胜感激。
代码：
Sub prepravljeno()
Sheet1.Activate
Sheet1.Range(Range("C3"), Range("C3").End(xlDown)).Copy
Sheet2.Activate
Sheet2.R
浏览 1提问于2017-07-11得票数 0
我正在设计一个使用excel电子表格和visual basic的游戏。当我试图编译"Block if without end if“时，我有一个错误。4.我一直在寻找解决这个问题的办法。
请帮帮我..
这是我的代码！
Private Sub Attack_Click()
Application.Calculate
If Range("H2") <= 0 Then
MsgBox ("YOU DIED. GAME OVER")
Unload Me
End If
If Range("I2") <= 0 Then
MsgBox
浏览 0提问于2014-05-21得票数 0
2回答
我正在尝试找出如何整齐地计算数据框列中落入多个自定义范围的值的数量。我知道这是一种常用的技术，但我不确定这就是我在这里寻找的东西。
假设我有以下数据帧：
Date Value1 Value2
---------------------------------------
0 4/15/2018 4 4
1 4/16/2018 4 3
2 4/17/2018 2 7
3 4/18/2018
浏览 3提问于2021-11-24得票数 4
6回答
这段代码
var textSearch="hi"
var textToShow="hi hihi hi"
var rangeToColor = (textToShow as NSString).rangeOfString(textSearch)
var attributedString = NSMutableAttributedString(string:textToShow)
attributedString.addAttribute(NSForegroundColorAttributeName, value: UIColor.yellowColor() ,
浏览 3提问于2014-11-28得票数 20
回答已采纳
我有一些代码来pdf和保存我的文件到我的电脑上的一个文件夹。我在过去测试过，没有任何问题。然而，在做了一些小的更改之后，我得到了运行时错误1004。你知道为什么会这样吗？非常令人沮丧。谢谢。
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i As Long
Dim ws As Worksheet
Dim FileName As String
Set ws = Sheets("Multi")
Set wsJob = Sheets("Job")
FileNa
浏览 0提问于2016-01-26得票数 0
3回答
我试图编写用于交换两个范围的代码：
Sub SwapRanges()
Dim range1 As Range
Dim range2 As Range
Dim holder As Range
range1 = Range("D7:D12")
range2 = Range("E7:E12")
holder = Range("F7:F12")
Set holder = range1
Set range1 = range2
Set range2 = holder
End Sub
但是得到运行时错误91。
浏览 0提问于2015-11-25得票数 0
回答已采纳
我有一个在单元格变化上运行的宏，但每次我想运行它时，它总是给我"Next without for“或”在给定范围内的双重声明“，下面是代码： Dim Lvl As Range
Set Lvl = Range("A5:A44")
Dim Full, Medium, Poor
Dim r As Long
For r = 5 To 44
Full = StrComp(Range("A" & r), Data.Range("A2"), 0)
Medium = StrComp(Range("A" & r), Dat
浏览 4提问于2019-02-26得票数 0
2回答
我有下面的代码，用来自"Master“sheet的特定数据更新"Audit Sheet”上的数据，打印"Audit“sheet并循环，直到最后一行为空。它适用于少量数据，但我还有另一个项目，它将有超过1800行数据。我不想一下子把1800页纸塞在打印机里。
我想要的是能够有一个框弹出，并指定开始行和结束行。我以前也这样做过，但这些年来我已经忘记了我最初是如何编写代码的。任何帮助都是非常感谢的。
Sub testLoopPaste()
Dim i As Long
Dim LastRow As Long
Dim wb As Workbook
Dim sht1 As Wor
浏览 1提问于2015-07-18得票数 0
3回答
我正在学习C++中的迭代器。作者提到迭代器可以是普通的指针，但是在某些情况下它们可能是不同的。
作者所说的不同到底是什么意思？智能指针？
浏览 4提问于2015-07-01得票数 2
回答已采纳
Sub RowRangeMove()
Sheets.Add().Name = "CopySheet"
With Sheets("BigDataSet - Copy")
.Range("A65000", .Range("A13000").End(xlUp)).Copy Destination:=Range("A1")
With Sheets("BigDataSet - Copy")
.Range("B65000", .Range(
浏览 1提问于2012-07-04得票数 1
回答已采纳
我试图制作一个宏来从工作簿的一个工作表中收集数据(它包含来自另一个系统的输出)，并安排数据以使它在另一个工作表上可读。自从我上次编写代码以来已经很长时间了，所以在构建它之前，我查看了许多教程。
宏应该首先将“库存”表中的所有相关单元格为零。然后查看“输入”表，并提取相关数据。不幸的是，它的宏在更改第一个单元格中的值后立即崩溃。
我可能在语法上犯了一些新手的错误，但我似乎不知道哪里出了问题。
Sub Button1_Click()
Dim inv As Worksheet
Dim source As Worksheet
Dim productNum As String
Dim invI As
浏览 11提问于2022-05-17得票数 0
回答已采纳
5回答
我可以通过以下方式在Word文件中查找文本：
Word.Range range = wordApp.ActiveDocument.Content;
Word.Find find = range.Find;
find.Text = "xxx";
find.ClearFormatting();
find.Execute(ref missing, ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing, ref missing,
浏览 0提问于2010-10-26得票数 14
我们需要以编程方式以编程方式更改范围值。
<dx:ASPxGaugeControl ID="SpeedSUM" runat="server" BackColor="White" Height="260px" Value="10" Width="417px" style="text-align:center; align-content:center; padding-top:10px" AutoLayout="False">
浏览 2提问于2022-06-13得票数 0
5回答
我对编码很陌生，写了一些不起作用的代码，我明白为什么，但我想不出解决这个问题的方法。我想要做的是，我的代码检查B列中的每个单元格--显示什么数字，然后填写E列中的对应字符串。我的问题是，我的循环不工作，因为我可能应该使用“为每个”循环吗？我也想不出如何不使用区域而是使用单元格来执行I子句。谢谢你的时间和帮助！
Dim x As Long
For x = 2 To 1000
Range ("E" & x)
If Range("B2") = 6002 Then
Range("E2") = &#
浏览 7提问于2016-07-26得票数 1
回答已采纳
1回答
如何在word中交换2个范围，我有列表并尝试手动排序每个区域都有锁定的内容控件。
我尝试了下面的代码，但没有成功：
object Unit = Microsoft.Office.Interop.Word.WdUnits.wdWord;
object Count = (toPosition - sourceStart);
range.Move(Unit, Count);
浏览 2提问于2016-07-20得票数 0
回答已采纳
3回答
这个挑战基于一个涉及IP范围的实际用例。
我提供的解决方案是基于我之前提出的挑战。每个范围启动都被视为PUSH操作，而每个范围结束+1处理为POP操作。
挑战
我们有一个范围数据集，其中每个范围都有一个起点、结束点和一个值。
create table ranges
(
range_start int not null
,range_end int not null
,range_val char(1) not null
)
;
一个范围可以包含另一个范围或跟随另一个范围，但不能等于另一
浏览 0提问于2016-10-13得票数 5
下面的函数给出一个NSString，从该字符串中移除HTML标记，并以NSString的形式返回结果。
private func removeHTMLTags(source: NSString) -> NSString {
var range = NSMakeRange(0, 0)
let HTMLTags = "<[^>]*>"
var sourceString = source
while sourceString.rangeOfString(HTMLTags, options: NSStringCompareOpt
浏览 3提问于2014-11-26得票数 9
回答已采纳
我找到了与我的问题非常相似的问题和答案，但没有解决我的具体问题。对于我的宏，我想说：
如果分析工作表上的"M“列、第6行不为空，并且"B”列、"C“行6和"D”行6(全部在分析工作表上)为空，并且固定成本测试数据工作表上的"C“行6列不为空，并且固定成本测试数据上的列"C”行6的值为>=今天的日期，则我希望分析工作表上的列"M“、行6的值计算为：
Sheets("Analysis Worksheet").Range("M" & i).Value = (Sheets("Analysis
浏览 6提问于2016-02-27得票数 1
1回答
当满足If条件时，我正在尝试构建一个宏来复制粘贴特定列的行。If条件的部分被测试并工作，就像我在另一个宏中使用它一样。在我的例子中，问题是我不知道如何在循环中选择行的特定列。我只知道如何选择整个行(在这种情况下，如果我没有弄错的话，它将是行(I).EntireRow.Copy)。我正在提供下面的代码。需要编辑的部分是
.Rows(i).Columns(1, 4, 6, 8).Copy
Sheets("WFRandVFR_REPORT").range("W2").Paste
整个代码就是这个
(更新版本)
我也提供截图
Dim lr As Long
D
浏览 3提问于2017-08-28得票数 1
回答已采纳
1回答
我需要更改保留在textView中的文本中某些特定单词的背景色。类似于火狐搜索单词时发生的事情.所以让我说我有一个textView和这段文字
一个男人坐在我的门廊前，另一个人在叫他
我想把背景色改成单词的2。
"man“
..。我怎么能这么做？我知道有NSAttributedString做这种事情，但我不能理解如何修改一些特定的词.在我搜索到的例子中，只有一些例子说明如何更改前5个字符或类似的内容.
浏览 1提问于2013-06-14得票数 0
回答已采纳
1回答
我试图在Excel中编写一个宏，以帮助我将原始银行数据移动到包含在单独工作表中的表中。
我档案中的工作表：
-这个工作表有原始的银行数据
-此工作表包含一个表("Table1")，其中存储所有银行事务。
我想将"RawData“表中列出的所有事务添加到Table1的底部。每次执行宏时，事务数都会发生变化，因此需要找到一种方法，让宏计算每次需要添加到Table1中的行总数，并添加所有数据行。到目前为止，我编写的宏正确地将数据添加到Table1，但只添加了第一行数据。此外，我希望一旦"RawData“工作表被移动，数据就会自动删除。
我目
浏览 5提问于2022-01-14得票数 1
回答已采纳
2回答
我是VBA的初学者。我有以下问题：
我为一个名为“Start”的单元格(B4)定义了一个名称，我想要对行数如下：
Sub tryme()
Dim i As Integer
For i = 2 To 6
Cells(i, 1).Value = 100
Next i
如何将值2替换为“开始”
浏览 0提问于2019-07-30得票数 0
回答已采纳
我需要将每秒的字节数设置为每秒兆位的范围，问题是位数从1bps到7Gbps，所以case表达式将是大规模的，有没有其他方法可以做到这一点？也许使用循环或方法，以避免手工编写所有的案例？ d = event.get("bps")
f = d.round()
result = case f
when 0..1000000 then 1
when 1000001..2000000 then 2
浏览 8提问于2020-12-01得票数 0
2回答
我知道标题不是最好的描述，但这是我所能做的最好的。
长话短说，我试图得到一系列的数字，比如说：
民:0，最大值: 10，所以范围是10。
我想在n个字段中划分范围(用户给出这个输入，所以它是可变的)，然后创建n个线程-子线程，使用叉子()，每个子线程将获得这些数字的自己的子范围，并使用这些数字执行一些代码，实际上它将检查这个数字是否是素数。
所以我的问题是，我想不出一个公式来写，这样数字就会被平分。
我试过：
for(int i = 0; i<n; i++){
//fork()
int temp = MIN + (i*(RANGE/n));
浏览 0提问于2019-03-24得票数 1
回答已采纳
嗨
我想知道是否有一种方法可以组合这两个宏，如果它有一个或两个"(Custom) CREDIT"或"CREDIT"标准，我希望它对Invoice_list_Price求和。
谢谢。
Range("DebtorList_Credit") = Application.SumIfs( _
Range("Invoice_list_Price"), _
Range("Invoice_list_Debtor"), _
Range("Debtor_list_Debtors"), _
Range(
浏览 0提问于2010-10-30得票数 0
回答已采纳
2回答
我有两个模型，第一个模型是entry，它与我的控制器条目一起使用来创建一个新的请求。我需要验证条目中的range_days小于或等于我的第二个模型empaccrl..But的范围，不管我做什么，仍然得到一个未定义的方法范围.
我的进入模式
class Entry < ActiveRecord::Base
self.primary_key = 'id'
validates :indirect_id, presence: true, allow_blank: false
validates :leave_range, presence: true, al
浏览 2提问于2015-03-03得票数 1
回答已采纳
我有这样一个PHP数组：
array('A','B','C','F','a','b','c','d','e','f','h','i','j','k','l','o','q','!','?','0','1','2','3','
浏览 2提问于2022-06-12得票数 -2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
